added more report handling and tests

CHANGES

@@ -1,5 +1,10 @@
 Revision history for Perl module CPAN::Testers::WWW::Reports::Mailer.
 
+0.15	04/04/2009
+	- added support for monthly and named day weekly reports.
+	- added support for individual reports
+	- added more tests
+
 0.14	29/01/2009
 	- added author check in case lookup failed.
 	- fixed preferences bug for new authors.

MANIFEST

@@ -8,6 +8,7 @@ MANIFEST
 META.yml
 README
 t/01base.t
+t/05setup_db-articles.t
 t/05setup_db-cpanprefs.t
 t/05setup_db-cpanstats.t
 t/20attributes.t
@@ -23,5 +24,7 @@ t/CTWRM_Testing.pm
 t/90podtest.t
 t/91podcover.t
 t/94metatest.t
+t/95changedate.t
 templates/mailer.eml
 templates/notification.eml
+templates/report.eml

META.yml

@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                     CPAN-Testers-WWW-Reports-Mailer
-version:                  0.14
+version:                  0.15
 abstract:                 CPAN Testers Reports Mailer
 author:
   - Barbie <barbie@cpan.org>
@@ -14,11 +14,14 @@ requires:
   Config::IniFiles:                 0
   Class::Accessor::Chained::Fast:   0
   CPAN::Testers::Common::DBUtils:   0.03
+  Email::Simple:                    0
   File::Basename:                   0
   File::Slurp:                      0
   Getopt::ArgvFile:                 0
   Getopt::Long:                     0
   LWP::UserAgent:                   0
+  MIME::Base64:                     0
+  MIME::QuotedPrint:                0
   Path::Class:                      0
   Parse::CPAN::Authors:             0
   Template:                         0
@@ -30,7 +33,7 @@ requires:
 provides:
   CPAN::Testers::WWW::Reports::Mailer:
     file:     lib/CPAN/Testers/WWW/Reports/Mailer.pm
-    version:  0.14
+    version:  0.15
 
 meta-spec:
    version:   1.4

Makefile.PL

@@ -8,11 +8,14 @@ WriteMakefile(
         'Config::IniFiles'                  => 0,
         'Class::Accessor::Chained::Fast'    => 0,
         'CPAN::Testers::Common::DBUtils'    => 0.03,
+        'Email::Simple'                     => 0,
         'File::Basename'                    => 0,
         'File::Slurp'                       => 0,
         'Getopt::ArgvFile'                  => 0,
         'Getopt::Long'                      => 0,
         'LWP::UserAgent'                    => 0,
+        'MIME::Base64'                      => 0,
+        'MIME::QuotedPrint'                 => 0,
         'Path::Class'                       => 0,
         'Parse::CPAN::Authors'              => 0,
         'Template'                          => 0,

bin/cpanreps-mailer

@@ -2,7 +2,7 @@
 use strict;
 $|++;
 
-my $VERSION = '0.05';
+my $VERSION = '0.06';
 
 #----------------------------------------------------------------------------
 
@@ -35,9 +35,7 @@ use CPAN::Testers::WWW::Reports::Mailer;
 # default is debug mode on, thus no mails are sent, need to
 # force this to 0 to ensure mails do get sent correctly.
 
-my $mailer = CPAN::Testers::WWW::Reports::Mailer->new(
-    debug => 1
-);
+my $mailer = CPAN::Testers::WWW::Reports::Mailer->new();
 
 $mailer->check_reports();
 $mailer->check_counts();

examples/cpanprefs-mailer.sh

@@ -1,3 +1,32 @@
-date >xx.out
-perl bin/cpanstats-mailer --config=data/settings-example.ini >>xx.out 2>xx.err
-date >>xx.out
+#!/usr/bin/bash
+
+cd /opt/projects/cpantesters/reports-mailer
+mkdir -p logs
+
+date_format="%Y/%m/%d %H:%M:%S"
+echo `date +"$date_format"` "START" >>logs/xx.out
+echo `date +"$date_format"` "START" >>logs/xx.err
+
+# run the daily reports
+perl bin/cpanreps-mailer --config=data/preferences-daily.ini --debug >>logs/xx.out 2>>logs/xx.err
+
+# run the named weekly reports
+day=`date +"%a"`
+perl bin/cpanreps-mailer --config=data/preferences-weekly.ini --mode=$day --debug >>logs/xx.out 2>>logs/xx.err
+
+# run the generic weekly on a Saturday morning
+if [ `date +"%w"` -eq 6 ]; then
+  perl bin/cpanreps-mailer --config=data/preferences-weekly.ini --debug >>logs/xx.out 2>>logs/xx.err
+fi
+
+# run the monthly on the first day of the month
+if [ `date +"%-d"` -eq 1 ]; then
+  perl bin/cpanreps-mailer --config=data/preferences.ini --mode=monthly --logfile=logs/monthly-mailer.log --debug >>logs/xx.out 2>>logs/xx.err
+fi
+
+# produce the individual reports
+perl bin/cpanreps-mailer --config=data/preferences.ini --mode=reports --logfile=logs/reports-mailer.log --debug >>logs/xx.out 2>>logs/xx.err
+
+echo `date +"$date_format"` "STOP"  >>logs/xx.out
+echo `date +"$date_format"` "STOP"  >>logs/xx.err
+

examples/settings-example.ini

@@ -9,6 +9,10 @@ dbhost=localhost
 dbuser=username
 dbpass=password
 
+[ARTICLES]
+driver=SQLite
+database=../db/articles.db
+
 [SETTINGS]
 debug=1
 logfile=logs/cpanreps.log