#!/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');
#$AD_DATE	= "2002-05-20";

$N_DATE        	= &UnixDate('today', '%m-%d-%Y'); 
#$N_DATE		= "05-20-02";

# for ad tag...
$number      	= &UnixDate('today', '%m%d%y') . "qfm"; 
#$number		= "052002qfm";

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

my $index_text;
my $index_body;

$LIST		= "qftm-html";
$CONTENT	= "$TOP_DIR/bank/content";
$REPLYTO	= "qftm-html-reply\@DailyInbox.com";
$OURMAIL	= "qftm-html\@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}.html \n";
if ( ! -f "$CONTENT/${number}.html" )  {
  my @ARR;

  print "-> ERROR:  cannot find [$CONTENT/${number}.html] content for send.\n";
  push(@ARR, "-> ERROR:  cannot find [$CONTENT/${number}.html] 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-HTML file");
  $dntk->smtp->setBody(\@ARR);
  $dntk->smtp->send('sendmail');   

  exit;
} else  {

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

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


  close DAILY;   
}

$file         = &UnixDate('today', '%m%d%y') . "qfmtext.txt";

open(IN, "<$CONTENT/${file}") || die("EM - $LIST - couldn't open content file [$CONTENT/${file}]");
@LINES = <IN>;
print LOG "-> Successfully retrieved [$TOP_DIR/bank/content/${file}] 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;


$index_body  = &insert_ads($index_text, $dntk, $AD_DATE);
open (INDEX, ">${TOP_DIR}/index.shtml") || die "error on index.shtml: [$!]\n";
print INDEX $index_body;
close INDEX;
#exit; 

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

#print "$bbody";

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

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;




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

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