#!/usr/bin/perl

$working = `pwd`;
chdir($working);
chroot('.');  # for safety
$work=`pwd`;
$qs=$ENV{'QUERY_STRING'};
$num=$dnum=$sec=$tim='';
($num,$dnum,$sec,$tim,$cmd)=split('!',$qs);

if ($dnum > 600) { dnum -= 600; }

if ($cmd eq 'Up') { chdir('..'); }

$wascmd=$cmd;
$cmd='';

   use GDBM_File;
   use Fcntl;

   $x=tie(%HIST, 'GDBM_File', "data/filenames.db", O_RDONLY, 0600) || die 
"Content-type: text/plain

cant open tiefile $!

";
   

$yyy = sprintf " $working - $cmd - $num -- $dnum -- $sec -- $tim ## $cps <br>\n";

if ($tim eq '' ) { $tim=4; } 
if ($num eq '' ) {
	$num = 0; $dnum=0; $sec=""; $tim=4;
} else {
      $num++; 
      if ($dnum eq '' ) { $dnum = 0; } 
}
$dmax = $HIST{"dmax$dnum"};
while ( $num > $dmax ) {
           $dnum++; $num = 0;
           $dmax = $HIST{"dmax$dnum"};
}
$fn = $HIST{"$dnum.$num"};
$fn =~ s/^\.\///;

print "Content-type: text/html\n\n";
print "<html><body>\n";
print "<meta http-equiv=\"refresh\" content=\"$tim; URL=slideshow.cgi?$num!$dnum!$sec!$tim\">\n";

# print "yy $yyy<br>\n";
# print "xx pic=$num -- dir=$dnum -- section=$sec -- delay=$tim dmax=$dmax<br>\n";
$d = $HIST{"d$dnum"};
# print "x1 dir=$d<br>\n";
# print "<p>".join(' ',@b)."\n";
# print "<p>NOISE\n";
# print "<p>".join(' ',@ps)."\n";

print "<h2>$fn</h2>\n";
print "<center><table border=\"1\" width=\"90%\"><tr>\n";
 urlit('Slower',$num-1,$dnum,$sec,$tim+1) ;
# print "<td>&nbsp;</td>\n";
 if ($tim > 600 ) {
      urlit('unPause',$num-1,$dnum,$sec,$tim-600) ;
 } else {
      urlit('Pause',$num-1,$dnum,$sec,$tim+600) ;
 }
 urlit('Faster',$num,$dnum,$sec,$tim-1) ;
 if ($num-2 < 0 ) {
      urlit('Prev Pic',-1,$dnum-1,$sec,$tim) ;
 } else {
      urlit('Prev Pic',$num-2,$dnum,$sec,$tim) ;
 }
 urlit('This Pic',$num-1,$dnum,$sec,$tim) ;
 urlit('Next Pic',$num,$dnum,$sec,$tim) ;
 urlit('Prev group',0,$dnum-2,$sec,$tim) ;
#  print "<td>&nbsp;</td>\n";
 urlit('Next group',0,$dnum+1,$sec,$tim) ;
 # print "</tr><tr>\n";
 urlit('Up',0,$dnum+1,$sec,$tim,'Up') ;
# print "<td>&nbsp;</td>\n";
print "<td><a href=\"/nntp/$work/thumbs/$dir\">Thumbs</a></td>\n";
  
 urlit('Down',0,$dnum+1,$sec,$tim,'Down') ;
 
print "</tr></table></center><br>\n";

print "<center><img src=\"$fn\" width=\"95%\"></center>\n";

# print <<EOF;
# <script language="javascript">
# window.open('$fn', 'MyPopUp');
# </script>
# EOF

print "</body></html>\n";
   untie(%HIST);

sub urlit {
    my ($title,$num,$dnum,$sec,$tim,$cmd)=@_;
print "<td><a href=\"slideshow.cgi?$num!$dnum!$sec!$tim!$cmd\"
     >$title</a></td>\n";
}

sub getdir {
   my @d;
   opendir(DIR,".");
   @d=readdir(DIR);
   closedir(DIR);
   return @d;
}