#!/usr/bin/perl
#Script that lists the contents of a directory out and puts them into hyperlinks
#And thumbnails (for pictures)
#Digital Ebola <digi@legions.org>



use CGI;
$query = new CGI;
print $query->header;
print $query->start_html(-title=>'Pictures', -BGCOLOR=>'#c5c5c5');
print "<H1>Pictures</H1>\n";
opendir (UNF, "./") ;
while ($name = readdir(UNF)) { 
unless($name=~/^[index.pl]/) {
print " <br><A HREF=./$name><img src=./$name height=100 border=0><br><A HREF=./$name>$name</a><br>\n "; }}
closedir (UNF);
print ' <BR><BR>Perl Picture Thingy v1.0 by <br><A HREF=mailto:"digi@legions.org">Digital Ebola</a>';