#!/usr/local/bin/perl
#
# Send the text version of MM
#
#


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';
require 	'/usr/home/fso/libs/cs-lib.pl'; 

use             Date::Manip;
use     	File::Copy; 
use             rlib '../../../mod-lib';

use		di;

my $dntk        = new dntk;



$lyris::config_filename         = "/usr/home/di/lyris/lyris.plc.postoffice2";
my $rc	= &lyris::init;

$| 	= 1;
$DEBUG 	= 1;
$bbody	= '';

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

# 081600mmtext.txt 
$number		= &UnixDate('today', '%m%d%y') . "mmtext.txt";


# TOP_DIR hack
$TOP_DIR	= "$TOP_DIR/mm";

$LIST		= "mm-w-text";
$CONTENT	= "$TOP_DIR/bank/content";
$REPLYTO	= "mm-w-text-reply\@DailyInbox.com";
$OURMAIL	= "mm-w-text\@DailyInbox.com";
$SUBJECT	= "DailyInbox.com - MM - $N_DATE";


open (OUT, ">> /opt/mm_send.log");
print OUT "-> -------------------------------------------------\n";
print OUT "-> Starting: " . &UnixDate('today', "%Y-%m-%d %H:%M:%S") . "\n";

# print "Number: $CONTENT/${number} \n";
if ( ! -f "$CONTENT/${number}" )  {
  my @ARR;

  print "-> ERROR:  cannot find [$CONTENT/${number}] content for send.\n";
  push(@ARR, "-> ERROR:  cannot find [$CONTENT/${number}] content for send.\n");
  $dntk->smtp->setFromEmail('info@DailyInbox.com');
  $dntk->smtp->setFromName('DIB MM - Content Checker');
  $dntk->smtp->setToName('JimBo');
  $dntk->smtp->setToEmail('oquinn@fsonline.com');
  $dntk->smtp->setSubject("Cannot find MM-Text file");
  $dntk->smtp->setBody(\@ARR);
  $dntk->smtp->send('sendmail');   

  exit;
} else  {
  print OUT "-> File: $CONTENT/$number \n";

  # print "File: $CONTENT/$number \n";

  open (DAILY, "< $CONTENT/${number}" );
  while (<DAILY>)  {
    $bbody    .= $_;
  }
  close DAILY;   

  $bbody .= "===========================================================\n\n";
  $bbody .= "You are subscribed with e-mail address:\n";
  $bbody .= " \$subst('PurgeID') \n\n";

  $bbody .= "To modify your subscription information visit:\n";
  $bbody .= " http://MailRoom.DailyInbox.Com/mm/modUser.iphtml?EMAIL=\$subst('Recip.EmailAddr') \n\n";

  $bbody .= "To unsubscribe using the web, visit:\n";
  $bbody .= " http://MailRoom.DailyInbox.Com/mm/delUser.iphtml?EMAIL=\$subst('Recip.EmailAddr') \n\n";

  $bbody .= "To unsubscribe by email, forward this message to:\n";
  $bbody .= " \$subst('Email.UnSub') \n\n";
  $bbody .= "===========================================================\n";
}

 
my $ad_body     = &insert_ads($bbody, $dntk, $AD_DATE);
my $bbody       = $ad_body;


$mid = &sendLyrisMail("mm-w-text", "$SUBJECT", "$REPLYTO", "$OURMAIL", "$bbody", "txt");
#$mid = &sendLyrisMail("mm-text-test", "TEST - $SUBJECT", "$REPLYTO", "$OURMAIL", "$bbody", "txt");

print OUT "-> Message id: [$mid]\n";

# print "-> Message id: [$mid]\n";

if ( ! $mid ) {
	print OUT "-> ERROR: Message inject into lyris for $LIST has failed! [$mid]\n";
	`/usr/local/bin/critsit "HTML $LIST [$mid] message into Lyris failed!"`;
	exit;
}

print OUT "-> Message inject successful...\n";
print OUT "-> Done.\n\n";
exit;