#!/usr/bin/perl

opendir(DIR, ".");
my @files = readdir DIR;
close DIR;

$tcount = 0;
$icount = 0;
$tout = 0;
$pageno = 0;
my @thumbs;
my @images;
local($/) = undef;

sub read_templ
{
   open(TTEMPL, "thumbnails.htmlt");
   $tfile = <TTEMPL>;
}

foreach $x (@files)
   {
   if ($x =~ /([\w]+)\.[jgb][a-zA-Z]{2}/)
      {
      $images[$icount] = $x;
      $icount++;
      }
   else
      {}
   }

sort @images;

&read_templ;
for ($y=0;$y<$#images;$y++)
   {
   @name = split(/\./, $images[$y]);
   open(TEMPL, "nosave_template.htmlt");
   $file = <TEMPL>;
   $file =~ s/\$IMGNAME/($name[0])/e;
   $file =~ s/\$IMGEXT/($name[1])/e;
   $tfile =~ s/\$LINK/($name[0])/e;
   $tfile =~ s/\$IMGNAME/($name[0])/e;
   $tfile =~ s/\$IMGEXT/($name[1])/e;
   open(OUT, ">$name[0].html");
   print OUT $file;
   close OUT;
   close TEMPL;
   $tout++;
  
   if (($tout/15 == 1) || ($tout == $#images))
      {
      if (($pageno != 0) && (($pageno * 15) <= $#images))
         {
         $tfile =~ s/\$PREV/($pageno - 1)/e;
         $tfile =~ s/\$NEXT/($pageno + 1)/e;
         }
      elsif ($pageno == 0)
         {
         $tfile =~ s/<a href\=\"pictures\$PREV\.html\">Previous<\/a> \| //;
         $tfile =~ s/\$NEXT/($pageno + 1)/e;
         }
      elsif ($pageno <= $#images)
         {
         $tfile =~ s/<a href\=\"pictures\$NEXT\.html\">Next<\/a>//;
         $tfile =~ s/\$PREV/($pageno - 1)/e;
         }
      else
         {}
      open(TOUT, ">pictures$pageno.html");
      print TOUT $tfile;
      close TOUT;    
      &read_templ;
      $tout = 0;
      $pageno++;
      }
   }