プログラムスレッド

228：女傑 ◆nDpXSJz8i.：2013/03/17(日) 20:46:35: #!/usr/bin/perl

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error; }
@pairs = split(/&/,$buffer);

foreach $pair (@pairs) {

($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/^s+//g ; # 文頭に来るスペースを削除
$value =~ s/s+$//g ; # 文末に来るスペースを削除
$value =~ s///g;
$value =~ s/\r//g;
$value =~ s/\n//g;
$value =~ s/\f//g;
$value =~ s/\t//g;
$value =~ s/\.//g;
$value =~ s/\///g;
$value =~ s/\t//g;
$value =~ s/\r\n/\n/g; # Win→Unix
$value =~ s/\r/\n/g; # Mac→Unix

$value =~ s/&/&/g;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$form{$name} = $value;
}

#if (!(-e $file)) { &error("存在しません"); }
#elsif (-z $file) { &error("データ異常"); }
#if (!open(IN,"$file")) { &error("ファイルが開けません"); }
#@lines = <IN>;
#close(IN);

if($form{'q'} ne "") { $id = "$form{'q'}"; }

%urltable = ('yahoo' => 'http://www.yahoo.co.jp','msn' => 'http://msn.co.jp/','hasegawa' => 'http://hasegawa.jp.land.to/');

if (exists $urltable{$id}) {
print "Location: $urltable{$id}\n";
print "\n";
}
else {
print "Content-type: text/html\n";
print "\n";
print "ID:$idは登録されていません。";
}

sub error {

local (@msg) = @_;
local ($i);

print "Content-type: text/html\n\n";

print <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML><HEAD>
<TITLE>WebCARD</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<SCRIPT language="JavaScript">

</SCRIPT>
</HEAD>
<body bgcolor=#ffffff>
<h1>$msg[0]</h1>
EOF
if ($msg[1] ne '') {

print "<ul>\n";
foreach $i (1 .. $#msg) { print "<li>$msg[$i]\n"; }
print "</ul>\n";
}

print <<"EOF";
<h3>[<A HREF="JavaScript:history.back()">戻る</A>]</h3>
</body></html>
EOF
exit;

}

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）