#!/usr/bin/perl # MAIN: # find and display log files collage program in perl # TS 20010625 invoke thusly: /cgi-bin/logcollage.cgi #require 'kin-lib.pl'; chop(@list_text=`ls /home/sleckie/apps/cgi/photos`); print <This Photo Display Panel. Dive IN!!'; print ''; print ''; print '

Your Photo Directories Collage

',"\n"; #print '

Can you name your log? Give up? Click on the link to reveal the mystery.

',"\n"; print '
Home
',"\n"; $count=1; foreach $list_text (@list_text) { if ($list_text =~ //) { push (@file,$list_text); } else { push (@filel,$list_text); } } @file=sort @file; @filel=sort @filel; #do buttons here ### print '
',"\n"; foreach $file (@file) { print '',"\n"; } print '
'; # plain full size links here ### #print "
# plain full links here ### \n"; print '
'; foreach $filel (@filel) { print ' '; print $filel,' ',"\n"; } print '
'; # plain tb links here ### print "
# plain tb links here ### \n"; print '
'; foreach $file (@file) { print ' '; print $file,' ',"\n"; } print '
'; $script = $ENV{'SCRIPT_NAME'}; ($script1,$script2) = split(/\.cgi/,$script); @scfields = split(/\//,$script1); #print '
script name is ', $script; #print '
script name is ', $scfields[0], '**', $scfields[1], '**',$scfields[2], '**' ; #print '
script name is ', $scfields[@scfields]; #print '
log name join is ', join('_',@scfields); print ''; #exit 0; #&LogWrite(join('_',@scfields),'11/27/2001'); exit 0; ########################## # END MAIN ##########################