Jeff's Page of pictures
120256.html
ARITHEVL.HTM
AddRemoveTest.html
AustralianLinuxResources.html
CAQM.htm
ConnectedURLs.html
DEC_y2k_home.html
DialUpProcedure.html
Diald.html
Elastic.html
Elephants.html
EmailHoaxes.html
FromWGT2BWH.html
HelloAgainApplet.html
NTmanifesto.html
NewYorkPlanning.html
OPENWRLD.HTM
Overlake76.html
SILVERMAN00B1.html
SILVERMAN00B2.html
SarahsGuestBook.html
Security.html
TBASurvey3.html
TalkRadio.html
UpList.htm
Win95setup.html
XF86Config.html
arithevl2.htm
backup_information.html
cooleyDental.html
creations.html
getfile.html
hub_rr.html
index.htm
index1.html
index2.htm
index2.html
index2a.html
index3a.html
index3b.html
index3c.html
lessonslearned.html
makedj.html
movesphere.html
nancy.htm
noach.html
pictures.html
problems.htm
religion.html
resume.htm
rogues.htm
rtasimm.html
runit.html
silverman00a1.html
silverman00a2.html
swe.html
y2k.html
This page was generated with the following HTML code: createPictureList.pl
#!/bin/perl5
#!
print "\$ARGV[0]=$ARGV[0]\n";
if ( $ARGV[0] eq "html" || $ARGV[0] eq "Html" || $ARGV[0] eq "HTML")
{
system("ls *.htm *.HTM *.html *.HTML *.Htm *.Html >htmls.txt");
open (IN, "
open (OUT, ">htmls.html") || die ("unable to open htmls.html for writing");
}
else
{
system("ls *.gif *.GIF *.jpg *.JPG *.jpeg *.JPEG *.Gif *.Jpeg *.jpg >pictures.txt");
open (IN, "
open (OUT, ">pictures.html") || die ("unable to open pictures.html for writing");
}
print OUT<
Jeff's picture page
Jeff's Page of pictures
EOH
;
while ( ) {
chop;
print OUT ''.$_.''."\n";
}
close ( IN );
print OUT<
This page was generated with the following HTML code: $0
EOF
;
open (IN, "<$0") || die ("unable to open pictures.txt for reading");
while ( ) {
chop;
print OUT $_."
\n";
}
print OUT "
";
close IN;
close ( OUT );