use Unicode::Normalize;
use OpenILS::Const qw/:const/;
+my $SEND_EMAILS = 1;
+
my $bsconfig = shift || die "usage: $0 <bootstrap_config>\n";
my @goback = @ARGV;
print <<XML;
<?xml version='1.0' encoding='UTF-8'?>
-<file type="notice" date="$day/$mon/$year" time="$hour:$min:$sec">
+<file type="notice" date="$mon/$day/$year" time="$hour:$min:$sec">
<agency name="PINES">
XML
<item>
<title>$title</title>
<author>$author</author>
- <duedate>$day/$mon/$year</duedate>
+ <duedate>$mon/$day/$year</duedate>
<callno>$cn</callno>
<barcode>$bc</barcode>
<circ_id>$cid</circ_id>
my( $org, $org_name, $org_phone, $org_s1, $org_s2, $org_city, $org_state, $org_zip, $org_email ) = @$org_data;
my( $patron, $bc, $fn, $mn, $ln, $user_s1, $user_s2, $user_city, $user_state, $user_zip ) = @$patron_data;
+ return unless $SEND_EMAILS;
+
my $pemail = $patron_data->[0]->email;
my $tmpl = $email_template;
$org_email ||= $mail_sender;
$tmpl =~ s/\${EMAIL_RECIPIENT}/$pemail/;
- $tmpl =~ s/\${EMAIL_REPLY_TO}/$org_email/o;
- $tmpl =~ s/\${EMAIL_REPLY_TO}/$mail_sender/;
+ $tmpl =~ s/\${EMAIL_SENDER}/$mail_sender/o;
+ $tmpl =~ s/\${EMAIL_REPLY_TO}/$org_email/;
$tmpl =~ s/\${EMAIL_HEADERS}//;
$tmpl =~ s/\${RANGE}/$r/;
my $sender = Email::Send->new({mailer => 'SMTP'});
$sender->mailer_args([Host => $smtp]);
- my $stat;
- #my $stat = $sender->send($tmpl);
-
+ my $stat = $sender->send($tmpl);
+
if( $stat and $stat->type eq 'success' ) {
$logger->info("OD_notice: successfully sent overdue email");
} else {
[ $DAY == 6 -o $DAY == 7 ] && exit 0; # don't run on saturday or sunday
if [ $DAY == 1 ]; then ARGS="2 1 0"; fi; # If today is monday, run for sat/sun/mon
-echo "RUNNING";
+echo "Generating overdues with config=$BSCONFIG, RECIPIENT=$RECIPIENT, SSH_CLIENT=$SSH_CLIENT..";
+
./eg_gen_overdue.pl $BSCONFIG $ARGS > "$ODDIR/overdue.$DATE.xml"
-scp "$ODDIR/overdue.$DATE.xml" "${SSH_CLIENT}\@${RECIPIENT}:~/"
+scp "$ODDIR/overdue.$DATE.xml" "${SSH_CLIENT}@${RECIPIENT}:~/"