--- bin/lms-payments 2012-07-11 20:14:32.000000000 +0200 +++ bin/lms-payments 2012-07-11 20:28:07.000000000 +0200 @@ -26,7 +26,7 @@ use DBI; use Config::IniFiles; use Getopt::Long; -use vars qw($configfile $quiet $help $version $fakedate); +use vars qw($configfile $quiet $cron $help $version $fakedate); use POSIX qw(strftime); use POSIX qw(mktime); use Time::Local; @@ -36,6 +36,7 @@ my %options = ( "--config-file|C=s" => \$configfile, "--quiet|q" => \$quiet, + "--cron|c" => \$cron, "--help|h" => \$help, "--version|v" => \$version, "--fakedate|f=s" => \$fakedate, @@ -54,6 +55,7 @@ -h, --help print this help and exit; -v, --version print version info and exit; -q, --quiet suppress any output, except errors; +-c, --cron shows only errors and created payments -f, --fakedate=YYYY/MM/DD override system date EOF @@ -75,7 +77,7 @@ $configfile = "/etc/lms/lms.ini"; } -if(!$quiet) +if( (!$quiet) & (!$cron) ) {