#!/usr/local/bin/perl


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

$AD_DATE       	= &UnixDate('today', '%Y-%m-%d');
$N_DATE        	= &UnixDate('today', '%m-%d-%y');
$number        	= "${N_DATE}.html"; 

print "DATE: $N_DATE \n";
print "NUMB: $number \n";

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

$LIST		= "hc-w-html";
$CONTENT	= "$TOP_DIR/bank/content";
$REPLYTO	= "hc-w-html-reply\@PostOffice2.DailyInbox.com";
$OURMAIL	= "hc-w-html\@PostOffice2.DailyInbox.com";
$SUBJECT	= "DailyInbox: This Day in History - $N_DATE";


open (OUT, ">> /opt/hc_send.log");
print OUT "-> -------------------------------------------------\n";
print OUT "-> Starting HTML: " . &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 SOD - Content Checker');
  $dntk->smtp->setToName('JimBo');
  $dntk->smtp->setToEmail('oquinn@fsonline.com');
  $dntk->smtp->setSubject("Cannot find SOD-HTML file");
  $dntk->smtp->setBody(\@ARR);
  $dntk->smtp->send('sendmail');   

  exit;
} else  {

  open (DAILY, "< $CONTENT/${number}" );
  while (<DAILY>)  {

    if ( $_ =~ /<\/body>/ || $_ =~ /<\/BODY>/ ) {
      open (STOP, "< $TOP_DIR/bank/subinfo.html") || die "Cannot open [$TOP_DIR/bank/subinfo.html]\n";
      @slurp   = <STOP>;
          close (STOP);
      foreach $what (@slurp) {
         $bbody .=  $what;
      }
    } else  {
      $bbody    .= $_;
    }
  }

  close DAILY;   
}

#print $bbody;
#exit; 

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

copy ("$CONTENT/${number}", "$TOP_DIR/index.shtml");
$mid = &sendLyrisMail("hc-w-html", "$SUBJECT", "$REPLYTO", "$OURMAIL", "$bbody", "html", "$LIST.html");
#$mid = &sendLyrisMail("hc-html-test", "TEST - $SUBJECT", "$REPLYTO", "$OURMAIL", "$bbody", "html", "$LIST.html");

print OUT "-> 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;




###
# override the copy function
###
sub copy {
  my $bla       = shift;
  my $out       = shift;

  open (F_OUT, ">${out}");
  print F_OUT $ad_body;
  close F_OUT;
}