#!/Perl/bin/perl

$location = "http://www.personal.psu.edu/users/r/w/rwa118/avatars/";

#If there is a fatal error show it to the browser
use CGI::Carp qw(fatalsToBrowser);

use CGI;
$in = new CGI;

#Tell The browser that its going to get some text
print "Content-type: text/html\r\n\r\n";

#Get header
open(FILE,"header.txt") || die;
@FILE = <FILE>;
close(FILE);
$header = join('',@FILE);
print "$header";

$info_file = "source.txt";
$spacing = "\n";
open(FILE,"$info_file") || die;
@FILE = <FILE>;
close(FILE);
$teh_list = join('',@FILE);
@teh_list = split(/$spacing/,$teh_list);

$total = $teh_list[0];
$k = 1;

$section = $in->param('section');
$ext = $in->param('ext');
if ($ext eq '') {
  $ext = '.png';
}

sub hey() 
{
   if ($section eq $input) {
      return "<option selected value='$input'>";
    }
    else {
      return "<option value='$input'>"; 
    }
}

print "<form>\n";
print "<script LANGUAGE=Javascript><!--\n";
print "        function StripJump(section)        {\n";
print "                if (strip != '')  {\n";
print "                        top.location.href = 'view.pl' + '?section=' + section;\n";
print "                }\n";
print "        }\n";
print "//--></script>\n";
print "<select name=strip_id  onChange='StripJump(this.options[selectedIndex].value);'>\n";

$total = $total * 2-1;

while ($k < $total) {
 $input = $teh_list[$k];
 print hey() . $teh_list[$k+1] . "</option>\n";
 $k = $k + 2;
}
print "</select></form>";

print "<a href='$location" . "stl/index.html'>stl memorial Gallery</a> 351 (There is no way I am sorting through that mess)<Hr>";

if ($section eq '') 
{
 quit;
}
else
{
 chdir $section||die;
 opendir D,".";
 $num = 0+grep-f,readdir D;
 $num = $num - 1;
 $k= 0;
 while ($k < $num) {
  printf("<img src='$section/%03d$ext'>", $k);
  $k = $k +1;
 }
 print "<Br>For random use http://scripts.cac.psu.edu/rwa118/avatars/dwarf.pl?dir=$section&username&ext=$ext<Br>Where username is your username";
}
print "<Hr>Fell Free to directly link to these<Br>Try not to use ones already taken<Br>These are really intended for use at megatokyo and fredart, but I really can't stop you can I?";