From 76c3ac899a71bdb1772a95080f5f9d108893d853 Mon Sep 17 00:00:00 2001
From: pines <pines@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 11 Sep 2006 18:02:20 +0000
Subject: [PATCH] changed due date format to fit older format - enabled emails
 by default

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6064 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Evergreen/src/support-scripts/eg_gen_overdue.pl | 17 ++++++++++-------
 Evergreen/src/support-scripts/eg_gen_overdue.sh |  5 +++--
 2 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/Evergreen/src/support-scripts/eg_gen_overdue.pl b/Evergreen/src/support-scripts/eg_gen_overdue.pl
index 7a53ec33cc..c7990a36c4 100755
--- a/Evergreen/src/support-scripts/eg_gen_overdue.pl
+++ b/Evergreen/src/support-scripts/eg_gen_overdue.pl
@@ -23,6 +23,8 @@ use OpenSRF::Utils qw/:datetime/;
 use Unicode::Normalize;
 use OpenILS::Const qw/:const/;
 
+my $SEND_EMAILS = 1;
+
 
 my $bsconfig = shift || die "usage: $0 <bootstrap_config>\n";
 my @goback = @ARGV;
@@ -60,7 +62,7 @@ my %ORG_CACHE;
 
 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
 
@@ -387,7 +389,7 @@ sub print_circ_chunk {
 			<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>
@@ -402,6 +404,8 @@ sub send_email {
 	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;
@@ -415,8 +419,8 @@ sub send_email {
 	$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/;
@@ -453,9 +457,8 @@ sub send_email {
 	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 {
diff --git a/Evergreen/src/support-scripts/eg_gen_overdue.sh b/Evergreen/src/support-scripts/eg_gen_overdue.sh
index e4e7b402ec..23a03cbbca 100755
--- a/Evergreen/src/support-scripts/eg_gen_overdue.sh
+++ b/Evergreen/src/support-scripts/eg_gen_overdue.sh
@@ -26,7 +26,8 @@ ARGS="0"
 [ $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}:~/"
 
-- 
2.43.2