06/09/28 08:35:21
#!/usr/bin/perl -w
use strict;
use POSIX qw(strftime);
use File::stat;
use Time::Local qw(timegm);
if ($#ARGV != 1 || $ARGV[0] =~ /\W/ || $ARGV[1] =~ /\D/) {
print <<EOT;
Status: 400 Bad Request
Content-Type: text/plain
400 Bad Request
EOT
exit;
}
my $fname = "../$ARGV[0]/dat/$ARGV[1].dat";
my $st;
if (!($st = stat($fname))) {
print <<EOT;
Status: 404 Not Found
Content-Type: text/plain
404 Not Found
EOT
exit;
}