#!/usr/bin/perl #use CGI; use strict; #use Data::Dumper; #my $q = new CGI; #print $q->header('text/plain'); print "Content-type: text/plain\n\n"; print "ok\n"; exit; =pod my $dir; if( $q->param('dir') ){ my $p = $q->param('dir'); $p =~ s/(?:^|(?<=\/))\.+//g; $dir = $ENV{'DOCUMENT_ROOT'}.$p; }else{ $dir = $ENV{'DOCUMENT_ROOT'}.$ENV{'REQUEST_URI'}; } print $q->headers; print "$dir\n"; opendir DIR, $dir; my @newest = sort { -M $dir.$a <=> -M $dir.$b } readdir DIR; print "newest:\n"; print Dump(\@newest); closedir DIR; print "\n"; =cut