#!/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';
use             Date::Manip;

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

# TOP_DIR hack
$TOP_DIR        = "${TOP_DIR}/dr";

print "-> Zing number: $number \n";

# Quote,Image URL,Image Copyright,ZingCard button link: www.zing.com/z?.. 

open (IN, "< q3xls.txt");
@ALL	= <IN>;
close IN;

foreach $line (@ALL)  {

  my $number        = &getcount("$TOP_DIR/bank");

  #$number++;
  #if ( $number < '10' )  {
  #  print "-> Padding file name [$cnt] to ";
  #  $number = "0$number";
  #  print "[$number]\n";
  #} elsif ( $number < '99' )  {
  #  print "-> Padding file name [$number] to ";
  #  $number = "0$number";
  #  print "[$number]\n";
  #}    

  my $new_num     = &increment("$TOP_DIR/bank");
  print "-> YES incrementing the from [$number] to [$new_num]\n"; 

  $line =~ s/"//g;
  ($quote, $image, $copyright, $bla, $bla2) = split(/;/, $line);
  chop($bla2);


  #print " LINE: $line \n";
  #print "QUOTE: $quote \n";
  #print "IMAGE: $image \n";
  #print "   CR: $copyright \n";
  #print "  BLA: $bla \n";
  #next;

  # put a space between the quote and the attribute
  ($quote, $attrib)		= split(/-/, $quote);
  $quote	= $quote . "<P>-" . $attrib;

  open (OUT, ">$TOP_DIR/bank/content/$new_num.html") || die "cannot open dir [$TOP_DIR/bank/content/$new_num.html] [$!]\n";
  $page   = '';

  $page	  .= "<table width=100% bgcolor=#FFFFFF cellspacing=5 cellpadding=0 border=0>\n";

  $page   .= "<tr> <td COLSPAN=2 ALIGN=LEFT bgcolor=#FFFFFF NOWRAP> \n";
  $page   .= "<B><FONT SIZE=\"+1\" COLOR=\"#CC922D\">Today's Reflection...</FONT></B></td></tr>\n";

  $page   .= "<tr><td ALIGN=LEFT VALIGN=TOP bgcolor=#FFFFFF NOWRAP>\n";
  $page   .= "<img src=$image border=5></td>\n";
  $page   .= "<td ALIGN=LEFT VALIGN=TOP bgcolor=#FFFFFF><b>$quote</b></td></tr>\n";

  $page   .= "<tr><td colspan=2 align=left><font size=\"=1\">&copy; Copyright $copyright</font></td></tr>\n";

  $page	  .= "<tr><td colspan=2 align=center><a href=\"http://www.zing.com/z?$bla\">";
  $page   .= "<img src=\"http://DailyInbox.com/dr/images/send_zing_card.gif\" border=0></A>\n";
  $page   .= "<B><font size=1>Click this button to send this Daily Reflection to someone as a ZingCard.</font>\n";

  $page   .= "<BR>Submit your <a href=\"http://www.zing.com/z?dailyreflectionphotos\">photos</a> to be included in the Daily Reflections";
  $page   .= "</B></td>\n";
  $page   .= "</td></tr></table>\n";




  print OUT $page;
  close OUT;

  open (OUT, ">$TOP_DIR/bank/content/$new_num.txt") || die "cannot open dir [$TOP_DIR/bank/content/$new_num.html] [$!]\n";
  print OUT "$quote";
  close OUT;

  #print "----------------------> \n";
  #print "QUOTE: $quote \n";
  #print "IMAGE: $image \n";
  #print "COPYR: $copyright \n";
  #print "  BLA: $bla \n";
}