#!/usr/bin/perl require "/home2/p-t/tibet/public_html/cgi/lib/debug.pl"; require "/home2/p-t/tibet/public_html/cgi/lib/avaa.pl"; require "/home2/p-t/tibet/public_html/cgi/lib/parsform.pl"; $FORM{'index_url'} = "http://tibetshop.com/";#tätä käytetään sekaisin $tagit{'index_hakemiston'} kanssa $FORM{'saitti'}="Tibet Shop"; $FORM{'cgi_url'}=$ENV{'SCRIPT_NAME'}; print "content-type: text/html\n\n"; &parse_form; unless($FORM{'juuri'}) {&nayta_form} else {&nayta_tulos} sub nayta_form{ print qq|Last Access
Hakemisto:
|; } sub nayta_tulos{ print qq|
\n|;
	unless(opendir(HAKEMISTO, $FORM{'juuri'}))		{print "Hakemisto $FORM{'juuri'} ei aukea"; &nayta_form; exit;}
	while($tiedosto = readdir(HAKEMISTO)){
		next if (-d $FORM{'juuri'}.$tiedosto);
		$edellinenkaynti = (-A $FORM{'juuri'}.$tiedosto);
		$m = $edellinenkaynti * 24 * 60;
		$aakkostaja = "0" x (24-length(int($edellinenkaynti))) . $edellinenkaynti.$tiedosto;
		$tulos{$aakkostaja} = sprintf(qq|%-25s %.2f minuuttia (%.3f päivää)|, $tiedosto, $m, $edellinenkaynti ).qq|\n|;
	}
	for $a(sort keys %tulos)		{print $tulos{$a}}
	print qq|
|; }