#!/usr/bin/perl print "Content-type: text/html\n\n"; @pics=();@dirs=(); $mydir = $ENV{QUERY_STRING}; if ($mydir=="../" || $mydir=="/" || $mydir==".."){$mydir=="./";} $numrow=4; if ($mydir=~/\+num=/) {($mydir,$numrow)=split(/\+num=/,$mydir);} if ($mydir=~s/showTile=//) { $mydir=~s/\+/\./; print "Tile Test"; if ($mydir=~/ljust/ || $mydir=~/framed/) {print "
";} print "

" . substr($mydir,0,-4) . "

"; unless ($mydir=~/ljust/ || $mydir=~/framed/) {print "";} print "

"; @colors=('black','white','red','blue','navy','green','yellow','orange','purple'); for $each_color (@colors) { my $mycol=ucfirst($each_color); print "$mycol Text | Bold Text

"; } print "

Right Click anywhere on this page and choose \"Save background as...\" to save the picture to your hard-drive for use with LiteSite, Web Pages, or such.

Return to last page. | Return to Inspire."; if ($mydir=~/ljust/ || $mydir=~/framed/) {print "

";} print "";exit;} #open the directory opendir PICDIR, $mydir or print "Failed to open directory - $!"; @myfiles = grep !/^\./, readdir PICDIR; #should strip the ./ and ../ # and any .* files or directories from the list closedir PICDIR; foreach $each_var (@myfiles) { if (-d "$ENV{QUERY_STRING}$each_var") {push(@dirs,$each_var);} elsif ($each_var=~/\.gif|\.jpg|\.GIF|\.JPG|\.BMP|\.bmp/) {push(@pics,$each_var);} #elsif (-d "desktopbg/$each_var" && $each_var ne 'thmbs') {push(@dirs,$each_var);} # || $each_var=~/\.html/ #print $each_var . "=" . $dir . "\;\n"; #key is pic_name value is dir - as long as it is not a directory }#end foreach #make the page sort @pics;sort @dirs; $rowthrough=1; $num=0; print "Inspire's Image Collection\n

Inspire's Image Collection

"; unless (scalar(@dirs)==0) { print "

"; } print "
Back
Categories: "; for $each_dir (@dirs){print "
" . ucfirst($each_dir) . "

";} print ""; for $each_var (@pics) { unless ($num==3 && ($rowthrough==1 || $rowthrough==2)) { my ($file,$thmbext)=split (/\./,$each_var); print ""; } if ($num==3 && $rowthrough==1) { print ""; } $num++;if ($num==$numrow || $mydir=~/ljust/ || $mydir=~/framed/) {print "";$rowthrough++;$num=0;}; }; # close for loop print "
"; print "" . $each_var . " (~2k)
" . $each_var . "
\"Home\"
\"Philosophy\"
\"Quotes\"
\"Poems\"
\"Images:\"
\"*
\"*
\"*
\"*
\"*
\"Humor\"
\"Links\"

Images are believed to be digital freeware, if you own them and do not want them on here, please let me know and I will be happy to remove them asap.
Many images are my favorites from Windy's Fashionable Designs, visit their site for more information."; print "";