#!/usr/bin/perl

# this script runs through the various Proverbs Plus
# (incrementing number.txt) and mails em out.

require '/usr/home/fso/libs/fso-g-lib.pl';
require '/usr/home/em/libs/em-defs.pl';
require '/usr/home/em/libs/em-g-lib.pl';
use	Date::Manip;
use	File::Copy;

use     Text::Wrap qw($columns wrap);
$columns = 55;

$lyris::config_filename         = "/opt/lyris/cgi/lyris.plc";
my $rc  = &lyris::init;

$N_DATE         = &UnixDate('today', '%m-%d-%Y');
$N_DATE		= "04-06-02";

# MMDDYY
$AD_DATE        = "2002-04-06";
 
# TOP_DIR hack
$TOP_DIR        = "$TOP_DIR/pplus";
 
$LIST           = "pplus-text";
$CONTENT        = "$TOP_DIR/bank/content";
$REPLYTO        = "pplus-text-reply\@DailyInbox.com";
$OURMAIL        = "pplus-text\@DailyInbox.com";
$SUBJECT        = "DailyInbox.com - Proverbs Plus - $N_DATE";   
                 

$| = 1;
$DEBUG = 1;

open(LOG, ">>/opt/pplus_send.log");
$date = `/usr/bin/date`;
chomp($date);
print LOG "\n-----------------------------\nStarting [pplus_text.pl] $LIST send run - $date\n";
print "\n-----------------------------\nStarting [pplus_text.pl] $LIST send run - $date\n";


my $prov        = &getcount("$TOP_DIR/bank");
print LOG "-> Using number: $prov \n";
 
open(IN, "<$CONTENT/p-${prov}.txt") or die("EM - $LIST - couldn't open content file [$CONTENT/p-${prov}.txt]");
@LINES = <IN>;
print LOG "-> Successfully retrieved [$CONTENT/p-${prov}.txt] content for send.\n";
 
my ($lline, $prov_body);
foreach $lline (@LINES)  {
  $prov_body    .= $lline;
}   


print LOG "-> ID: $CURRENT\n";
print LOG "-> Successfully retrieved content for send.\n";

$SUBJECT	= "DailyInBox.com - Proverbs Plus - $N_DATE";

open (DAILY, "> $TOP_DIR/daily.txt");
print DAILY "$page \n";
close DAILY;

$page   = "  ______________________________________________________ \n\n";
$page  .= "     Enjoy today's PROVERBS PLUS and consider sending\n";
$page  .= "     this thought-provoking service to a friend or\n";
$page  .= "     family member.  Enlighten their day by giving them\n";
$page  .= "     a FREE subscription at\n";
$page  .= "     http://Mailroom.DailyInbox.Com/pplus/addFriend.iphtml\n";


# include the ad text if needed...
if ( $ad_text )  {
  $page .= "  ______________________________________________________ \n\n";
  $page .= $ad_text;
  $page .= "  ______________________________________________________ \n\n";
} 

$page .= $prov_body . "\n\n";
 

$page .= "         Subscribe a Friend: http://MailRoom.DailyInBox.com/pplus/f.iphtml \n";
$page .= "   You may unsubscribe here: http://DailyInBox.com/pplus/unsubscribe.shtml\n";
$page .= "          Visit our website: http://DailyInBox.com\n";
$page .= "    You are subscribed with: \$subst('Recip.EmailAddr')\n";
$page .= "  ______________________________________________________ \n\n";

#print $page;
#exit;


# now submit to lyris
#$mid = &sendLyrisMail("$LIST", "$SUBJECT", "$REPLYTO", "$OURMAIL", "$page", "txt", "$LIST.html");
$mid = &sendLyrisMail("pplus-test", "TEST - $SUBJECT", "$REPLYTO", "$OURMAIL", "$page", "txt", "$LIST.html");
print LOG "-> Message id: [$mid]\n";
if ( ! $mid ) {
	print LOG "-> ERROR: Message inject into lyris for $LIST has failed! [$mid]\n";
	`/usr/local/bin/critsit "HTML $LIST [$mid] message into Lyris failed!"`;
	exit;
}


print LOG "-> Not incrementing number [$CURRENT]\n";
print LOG "-> Done.\n\n";
exit;