#!/usr/local/bin/perl # Start The perlgt.cgi # Name. PerlGhostTmp Version 1.00 # Written by ght/tmp # URL http://members.tripod.com/~zero_zero_zero/ # Copyright (c) 1998 ght/tmp Allright reserved. # Write your name and your E-mail address ,or you can't write in new text. # よくきたな。まぁ、ここに来た記念に名前でも書いてくれ。 # From # この記述に見覚えある人、少し黙ってなさい(わらい)。 # Version 1.00は、赤ちゃん用。次はソケットでつなげてみる。 # その後は、つなげ方は同じにしといて、連書きもどきを再現。 # 最後にワンランク上のPerlGTということで、perlonlyはおしまいかな。 # 暇になったら、掲示板のpassを忘れたときにどうしたらよいか、をUPします(わらい)。 # ---------- 効果 --------- require '../jcode.pl'; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $str, $ENV{'CONTENT_LENGTH'}); } else { $str = $ENV{'QUERY_STRING'}; } @new = split('&', $str); foreach $i (@new) { ($variable, $value) = split('=', $i); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; &jcode'convert(*value, 'sjis'); $value =~ s/\r\n/\n/g; $value =~ s/\n/
/g; $value =~ s/\r/\n/g; $bbs{$variable} = $value; } $url = $bbs{'url'}; $content = $bbs{'content'}; $main_html="./perlgt.html"; # ---------- 書き込み --------- if ($url eq ""){ print "Location: $main_html\n\n"; exit; }else{ print "Location: $url?$content\n\n"; exit; }