root/trunk/antimatter/tim/Scripts/weekly-management-time-report.plx

use strict;
use warnings;

use  SFLC::TimeTracker::Entry;
use  SFLC::TimeTracker::DB;
use SFLC::TimeTracker::Question;
use SFLC::TimeTracker::Input;
use SFLC::TimeTracker::Category;
use SFLC::TimeTracker::Reports;
use POSIX;

use Date::Manip;

my    $DATABASE = 
      new SFLC::TimeTracker::DB("MLDBM", "/home/ircbot/TimeDB/time-data.mldbm",
                                    "/home/ircbot/TimeDB/pending-time.mldbm");

    SFLC::TimeTracker::Entry::Initialize($DATABASE);
    SFLC::TimeTracker::Question::Initialize($DATABASE);
    SFLC::TimeTracker::Input::Initialize($DATABASE);



    SFLC::TimeTracker::Entry::Initialize($DATABASE);

#my $today = ParseDate($ARGV[0]);
#  &Date_Init("ForceDate=" . UnixDate($today, "%Y-%m-%d-%H:%M:%S"));

my $today = ParseDate('now');

my $weeklyStartDate = ParseDate("1 week ago Monday at 00:00");
my $weeklyEndDate = ParseDate("last Sunday at 23:59:59");

  SFLC::TimeTracker::Reports::CategoryTotals($DATABASE, 'ALL',
                                             $weeklyStartDate, $weeklyEndDate, 
'manager@example.org,manager@example.org,manager@example.org',                                    <<STUFF
                      Weekly Category Totals Report

STUFF
);

SFLC::TimeTracker::Reports::Detail($DATABASE, 'ALL', $weeklyStartDate,
                                   $weeklyEndDate,
                                  'ALL', 'ALL',
                 "manager\@example.org,manager\@example.org,manager\@example.org",
                                    <<STUFF
                      Weekly Management Time Report

STUFF
);

SFLC::TimeTracker::Reports::Summary($DATABASE, "ALL",
                                    $weeklyStartDate, $weeklyEndDate,
      'ALL', 'ALL',
      "manager\@example.org,manager\@example.org,manager\@example.org", 
                                    <<STUFF
                      Weekly Management Time Summary Report

STUFF
);

# If last Sunday was in the same month as today, but not the same month
# as the start date, then run the monthlies
if (UnixDate($weeklyEndDate, '%B') eq UnixDate($today, '%B') and
    UnixDate($weeklyStartDate, '%B') ne UnixDate($today, '%B')) {
  my $lastMonth = ParseDate("last month");

  my $lastDayLastMonth = ParseDate(UnixDate($lastMonth,
                                            "last day of %B %Y at 23:59:59"));
  my $firstDateLastMonth = ParseDate(UnixDate($lastMonth, "1 %B %Y"));
  my $firstDayYear = ParseDate(UnixDate($lastMonth, "1 January %Y"));

  SFLC::TimeTracker::Reports::Summary($DATABASE, "ALL",
                                    $firstDateLastMonth, $lastDayLastMonth,
   'ALL', 'ALL', "manager\@example.org",
                                    <<STUFF
                      Monthly Management Time Summary Report

STUFF
);
  SFLC::TimeTracker::Reports::Vacation($DATABASE, 'ALL', $lastDayLastMonth,
'manager@example.org',
                                       <<STUFF
                      Monthly Staff Time-Off Report

STUFF
);
  SFLC::TimeTracker::Reports::Summary($DATABASE, "ALL",
                                    $firstDateLastMonth, $lastDayLastMonth,
      'admin', '(?:sick|holiday|new-child-leave)',
'manager@example.org',
                                    <<STUFF
              Monthly Staff Holiday/Sick/Other-Leave Report

STUFF
);

  SFLC::TimeTracker::Reports::CategoryTotals($DATABASE, 'ALL',
                                    $firstDateLastMonth, $lastDayLastMonth,
'manager@example.org',
                      Monthly Category Totals Report

STUFF
);

}

###############################################################################
#
# Local variables:
# compile-command: "perl -I ../Modules -c weekly-emp-time-report.plx"
# End: