root/trunk/antimatter/tim/Scripts/weekly-emp-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 $startDate = ParseDate("1 week ago Monday at 00:00");
my $endDate = ParseDate("last Sunday at 23:59");

my $today = ParseDate("today");

my(@users) = $DATABASE->getUserList();
foreach my $user (@users) {
  SFLC::TimeTracker::Reports::Detail($DATABASE, $user, $startDate, $endDate,
                                  'ALL', 'ALL', "$user\@example.org",
                                    <<STUFF
Please verify that this report is correct.  On Wednesday morning, the hours
become official.

STUFF
);
  SFLC::TimeTracker::Reports::QuickSummary($DATABASE, $user,
                                           $startDate, $endDate,
                                           0, 1,
             ParseDate(POSIX::strftime("%a,  %d  %b  %Y  %H:%M:%S  %z",
                                   localtime)), undef, 0);

  my $firstDayYear = ParseDate(UnixDate($startDate, "1 January %Y"));

  SFLC::TimeTracker::Reports::Summary($DATABASE, $user,
                                    $firstDayYear, $endDate,
      'admin', '(?:personal|vacation|holiday|sick)', "$user\@example.org",
                                    <<STUFF
                               Time-Off/Sick 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($endDate, '%B') eq UnixDate($today, '%B') and
      UnixDate($startDate, '%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"));

    SFLC::TimeTracker::Reports::Vacation($DATABASE, $user, $lastDayLastMonth,
                                         "$user\@example.org", undef);

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