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


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             rlib '../../../../di/mod-lib';

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'); 

# MMDDYY
#$AD_DATE        = "2002-04-06";


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


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

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


open (OUT, ">> /opt/qftm_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 QFTM - Content Checker');
  $dntk->smtp->setToName('JimBo');
  $dntk->smtp->setToEmail('oquinn@fsonline.com');
  $dntk->smtp->setSubject("Cannot find QFTM-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;   


  open(IN, "<$CONTENT/${number}") || die("EM - $LIST - couldn't open content file [$CONTENT/${number}]");
  @LINES = <IN>;
  print LOG "-> Successfully retrieved [$TOP_DIR/bank/content/${number}] content for send.\n";

  my ($subj, $bla, $subject);;
  foreach $subj (@LINES)  {
    if ( $subj =~ /\+\+ / )  {
      ($bla, $subject, $bla) = split(/ /, $subj, 2);
      chop($subject);
      chop($subject);
      $subject    =~ s/\+\+ //g;
      $subject    =~ s/ \+\+//g;
      $subject    =~ s/^\s*((\S.*\S)|\S|)\s*$/$1/;
      $subject	  = "$subject - ";
      #print "[subject: $subject]\n";
    }
  }


  $SUBJECT      = "DailyInbox - QFTM - ${subject} ${N_DATE}";
  print "\n\n$SUBJECT\n";
  #exit;



  $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/qftm/modUser.iphtml?EMAIL=\$subst('Recip.EmailAddr') \n\n";

  $bbody .= "To unsubscribe using the web, visit:\n";
  $bbody .= " http://MailRoom.DailyInbox.Com/qftm/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("qftm-w-text", "$SUBJECT", "$REPLYTO", "$OURMAIL", "$bbody", "txt");
# $mid = &sendLyrisMail("qftm-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;