|
#!/usr/local/bin/perl
# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";
# **********************************************************
# 標準入力より生データを入力
# **********************************************************
read( STDIN, $data, $ENV{"CONTENT_LENGTH"} );
# **********************************************************
# 生データを "&" を区切り文字にして、配列へ保存
# **********************************************************
@Fields_Data = split(/&/, $data);
# **********************************************************
# データのセットを連想配列に保存
# **********************************************************
foreach ( @Fields_Data ) {
($Name, $Value) = split( /=/, $_ );
$Value =~ tr/+/ /;
$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# &jcode'convert(*Value, "sjis");
$Form{$Name} = $Value;
}
if ($ENV{'REQUEST_METHOD'} eq "POST") {
open(IN,"lightbox.log");
@lines = <IN>;
close(IN);
open(OUT,">lightbox.log");
@lines = ( @lines, $Form{"Data"} . "\n" );
print OUT @lines;
close(OUT);
}
print <<INPUT;
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=shift_jis">
</HEAD>
<BODY>
<FORM method="POST" target="Input" action="input.cgi">
<TEXTAREA name="Data" cols="80" rows="10"></TEXTAREA>
<INPUT type="submit" name="command" value="送信">
</FORM>
</BODY>
</HTML>
INPUT
| |