#!/usr/bin/perl

# RSTP 1.00
# (c) 1998 Tani Hosokawa
$debug =  0;
require "../cgi/config.pl";

$thumbnailcount = 0;

@pictures = <$home/data/pictures/*>;

sub logit {
   ($error) = @_;
   open LOG, ">>rstp.log";
   print LOG "$error\n";
   close LOG;
}


($date) = @ARGV[0];

open TEMPLATE, "$home/data/templates/index.template";
open INDEX, ">$home/html/index.shtml";

logit "process.pl being called ($date)";
opendir DIR, "$home/data/pictures";
while (my $filename = readdir DIR) {
   if (!-e "$home/data/thumbnails/$filename") {
      system "cp $home/data/pictures/$filename temp.jpg";
      system "./jpgtn temp.jpg";
      system "cp tn_temp.jpg $home/data/thumbnails/$filename";
      unlink "temp.jpg";
   }
}

while (<TEMPLATE>) {
   s/%LASTUPDATED%/$update/;
   if (/%LDATE(.+)%/) {
      $i = $1 + $date;
      chop ($datestring = `date --date "$i days ago" "+%B %e %Y"`);
      s/%LDATE.+%/$datestring/;
   }
   if (/%DATE(.+)%/) {
      $i = $1 + $date;
      chop ($datestring = `date --date "$i days ago" +%m/%d/%Y`);
      s/%DATE.+%/$datestring/;
   }
   if (/%DATA(.+)%/) {
      $i = $1 + $date;
      chop ($datestring = `date --date "$i days ago" +%Y-%m-%d`);
      chop ($dstring2 = `date --date "$i days ago" +%m/%d/%Y`);
      open DAY, "$home/data/submissions/list.$datestring";
      while (<DAY>) {
         chop;
         ($url,$email,$description,$reciprocal) = split /\|/;
         print INDEX "<li><FONT FACE=ARIAL SIZE=3 COLOR=\"#ff0000\">$dstring2</font> "; 
print INDEX "<FONT $fontconfig><A HREF=\"$url\" TARGET=\"_new\" OnClick=\"exit=false;\" OnMouseOver=\"window.status='Free Pics'; return true;\">$description</FONT></A><BR>\n";
      }
      close DAY; 
   }
   elsif (/%PAST(.+)%/) {
      $original_string = $_;
      $i = $1 + $date;
      chop ($datestring = `date --date "$i days ago" +%Y-%m-%d`);
      chop ($datestring2 = `date --date "$i days ago" +%m/%d/%Y`);
      open PAST, ">$home/html/$datestring.shtml";
      open PASTTEMPLATE, "$home/data/templates/past.template";
      while (<PASTTEMPLATE>) {
         s/%DATE%/$datestring2/;
         if (/%DATA%/) {
            $i = $1 + $date;
            chop ($dstring2 = `date --date "$i days ago" +%m/%d/%Y`);
            open DAY, "$home/data/submissions/list.$datestring";
            while (<DAY>) {
               ($url,$email,$description,$reciprocal) = split /\|/;
               print PAST "<li><FONT $fontconfig><A HREF=\"$url\" TARGET=\"_new\">$description</FONT></A></li>\n";
            }
            close DAY; 
         }
         print PAST;
      }
      close PASTTEMPLATE;
      close PAST;
      `cp $home/html/$datestring.shtml $rootdir`;
      $_ = $original_string;
      s/%PAST.+%/<a href=$datestring.shtml>$datestring2<\/a>/;
      print INDEX;
   }
##   elsif (/%THUMBNAIL%/) {
##      $thumbnail = int rand scalar @pictures;
##      $thumbnailstr = $pictures[$thumbnail];
##      $thumbnailstr =~ s/.+\///g;
##      print INDEX "<a href=/pict_$thumbnailcount.jpg><img src=/thmb_$thumbnailcount.jpg></a>";
##      symlink "$home/data/pictures/$thumbnailstr", "$rootdir/pict_$thumbnailcount.jpg"
##         or (unlink "$rootdir/pict_$thumbnailcount.jpg"
##            and symlink "$home/data/pictures/$thumbnailstr", "$rootdir/pict_$thumbnailcount.jpg")
##         or die "couldn't make link from $home/data/pictures/$thumbnailstr to $rootdir/pict_$thumbnailcount.jpg: $!";
##      symlink "$home/data/thumbnails/$thumbnailstr", "$rootdir/thmb_$thumbnailcount.jpg"
##         or (unlink "$rootdir/thmb_$thumbnailcount.jpg"
##            and symlink "$home/data/thumbnails/$thumbnailstr", "$rootdir/thmb_$thumbnailcount.jpg")
##         or die "couldn't make link from $home/data/pictures/$thumbnailstr to $rootdir/pict_$thumbnailcount.jpg: $!";
##      $thumbnailcount++;
##   }
   elsif (/%THUMBNAIL([^%]+)%/) {
	  $category = $1;
	  $thisdir = `pwd`;
	  $thisdir =~ s/\n//g; #remove the newlines
	  $maindir = "/home/freedailypix.com/public_html";
      $directory = "$maindir/thumbs$category";

      print "Processing thumb (category $category) from $directory\n";
      chdir "$directory";
	  print "THUMBS=",`pwd`,"\n";
      @blah = `ls`;
      chop @blah;
      do {
         $r = int rand scalar @blah;
      } until (!defined($used{"$directory/$blah[$r]"}));
      $used{"$directory/$blah[$r]"} = 1;
      print "  Using $directory/$blah[$r]\n";
      chdir $thisdir;
	  $jpgtn = "$thisdir/jpgtn";

      if (!-e "$maindir/thmbs/thmb_$blah[$r]") {
         chdir $directory;
         print "$jpgtn -p thmb_ -d $maindir/thmbs $blah[$r]\n";
		 $size = "-s 100";
         print "\ - nthumbnailing ", `$jpgtn $size -p thmb_ -d $maindir/thmbs $blah[$r]`, "\n";
         chdir $thisdir;
      }
      $picture = "$blah[$r]";

      print INDEX "<a href=thumb$thumbnailcount.shtml><img src=thmbs\/thmb_$picture border=0><\/a>";

      open THUMB_TEMPLATE, "thumb.template";
      open THUMB, ">../../thumb$thumbnailcount.shtml";
      while ($line2 = <THUMB_TEMPLATE>) {
         $line2 =~ s/%PICTURE%/thumbs$category\/$picture/;
##         if ($line2 =~ /%BANNER%/) {
##            $banner_rand = int rand scalar @banner;
##            $line2 =~ s/%BANNER%/$banner[$banner_rand]/;
##         }
         print THUMB $line2;
      }
      close THUMB_TEMPLATE;
      close THUMB;
	  $thumbnailcount++;

   }
   else {
      print INDEX;
   }
}
close INDEX;
close TEMPLATE;