#!/usr/bin/perl -wT use strict; my $http_cookie = $ENV{'HTTP_COOKIE'}; my $script_name = $ENV{'SCRIPT_NAME'}; my $i; my $file = "galleries.txt"; my $buf; my $address; my @paths; my @random_paths; my @pictures; print "Content-type: text/html\n\n"; print < Image Gallery main.images



END_OF_TOP open(FH, $file); read(FH, $buf, 1024); close(FH); @paths = split(/\n/,$buf); #while (@paths) #{ # for $i (0 .. int(rand(@paths))-1) # { # push(@paths,shift(@paths)); # } # push(@random_paths,pop(@paths)); #} $i = 0; foreach (@paths) { opendir (DH, $_); while(defined($address = readdir(DH))) { if($address =~ /(\.jpg|\.JPG)/) { push(@pictures,$address); } } if($i++ %4 == 0) {print " \n \n";} print" \n"; closedir (DH); while(@pictures){pop(@pictures);} } print" \n \n \n
\n "; print" \n"; s/_/ /; print" \n
$_\n"; print"
\n\n";