#!/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 selfnm
Select file        
EOM 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 < 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"; } # print "
  '; print $dnam[$m] . "  
\n
\n\n\n"; exit(0);