【スレッド】2ch型掲示板 14 【フロート型】

【スレッド】2ch型掲� ..

615:nobodyさん
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;
}

次ページ