AMXS files

#!/usr/bin/perl # do "acqPATHs.pl"; $wdr = $ENV{"QUERY_STRING"}; if ($wdr ne "") { $wdr .= "/"; } print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS files

Existing files :
EOM $htmlbody =~ s/__CWD__/$wdr/g; print $htmlbody; # $n = 0; opendir(DIR, "$DATAPATH/$wdr"); while ($fnam = readdir(DIR)) { if ($fnam =~ /^(\w+\.)*\w+$/) { if (-f "$DATAPATH/$wdr$fnam") { $rnam[$n] = $fnam; $n++; } } } closedir(DIR); @dnam = sort(@rnam); if ($n < 5) { $nl = $n; } elsif ($n < 30) { $nl = 5; } else { $nl = ($n + 5 - (($n-1) % 6)) / 6; } for ($l=0; $l<$nl; $l++) { print " \n"; for ($c=0; $c<6; $c++) { $m = $c*$nl + $l; if ($m < $n) { print " \n"; } else { print " \n"; } } print " \n"; } close(IN); print "

$dnam[$m]

\n"; if ($n == 0) { print "
none

\n"; print " "; print '', "\n"; print "(Remove current working directory)\n"; } # print "

\n\n\n"; exit(0);