WaveMaster 解波新書

#!/usr/local/bin/perl #ver 0.2 require './jcode.pl'; #フッタURL $foot = "../foot.htm"; #fbody の URL $fbody = "fbody.cgi"; #フラッシュが置いてあるディレクトリ $fdir = "../flash/"; &decode; print "Content-type:text/html\n\n"; $url = $fbody . "?" . $ENV{'QUERY_STRING'}; print < WaveMaster 解波新書 <body> （<a href="$url"> ここをクリックすると開始します... </a>） </body> EOM sub decode { local($buf,$key,$val); undef(%in); if ($ENV{'REQUEST_METHOD'} eq "POST") { $post_flag=1; # if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます"); } read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); } else { $post_flag=0; $buf = $ENV{'QUERY_STRING'}; } foreach ( split(/&/, $buf) ) { ($key, $val) = split(/=/); $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg; # S-JISコード変換 &jcode'convert(*val, "sjis", "", "z"); # エスケープ $val =~ s/&/&/g; $val =~ s/"/"/g; $val =~ s//>/g; $val =~ s/\0//g; $val =~ s/\r\n/
/g; $val =~ s/\r/
/g; $val =~ s/\n/
/g; $val =~ s/[\x00-\x20]+/ /g; $in{$key} .= "\0" if (defined($in{$key})); $in{$key} .= $val; } $mode = $in{'mode'}; $title = $in{'title'}; $step = $in{'step'}; $time = $in{'time'}; $slide = $in{'slide'}; } __END__