交流ノート

#!/usr/local/bin/perl require 'jcode.pl'; $bbsurl = 'kouryu.cgi'; $bbsfile = 'kouryu.txt'; ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year += 1900; $mon = sprintf("%02d", $mon + 1); $day = sprintf("%02d", $day); $hour = sprintf("%02d", $hour); $min = sprintf("%02d", $min); $date_now = "$year年$mon月$day日 $hour時$min分"; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'}); } else { $formdata = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$QUERY_DATA); 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 =~ s//>/g; $value =~ s/\n//g; $value =~ s/\,//g; &jcode'convert(*value,'sjis'); $FORM{$name} = $value; } if ($FORM{'action'} eq "true") { ®ist; } else { &html; } sub html { if (!open(NOTE,"$bbsfile")) { &error(bad_file); } @DATA = ; close(NOTE); @DATA = reverse(@DATA); print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "交流ノート\n"; print "\n"; print "

\n"; print "\n"; print "

\n"; print "

交流ノート

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #=== print "\n"; print "\n"; #=== print "\n"; print "\n"; #=== print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

お名前
タイトル
E-mail
アイコン	※好きなアイコンを選択してください\n"; print "
文字カラー	"; print "■\n"; print " "; print "■\n"; print " "; print "■\n"; print " "; print "■\n"; print " "; print "■\n"; print " "; print "■\n"; print " "; print "■\n"; print " "; print "■\n"; print "
コメント

\n"; print "

\n"; foreach $line (@DATA) { chop($line); ($date,$name,$email,$comment,$title,$icon,$color,$d4) = split(/\,/,$line); $comment =~ s/\r/
/g; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "$title\n"; if ($email ne "") { print "$name\n"; } else { print "$name\n"; } print " $date\n"; print "\n"; print "

\n"; print "\n"; print "

$comment

\n"; print "\n"; print "

\n"; print "

"; } print "

\n"; print "\n"; exit; } sub regist { if ($FORM{'name'} eq "") { &error(bad_name); } if ($FORM{'comment'} eq "") { &error(bad_comment); } if (!open(NOTE,">>$bbsfile")) { &error(bad_file); } $value = "$date_now\,$FORM{'name'}\,$FORM{'email'}\,$FORM{'comment'}\,$FORM{'title'}\,$FORM{'icon'}\,$FORM{'color'}\,\n"; print NOTE $value; close(NOTE); print "Location: $bbsurl" . '?' . "\n\n"; } sub error { $error = $_[0]; if ($error eq "bad_file") { $msg = 'ファイルのオープン、入出力に失敗しました。'; } elsif ($error eq "bad_name") { $msg = 'ニックネームが記入されていません。'; } elsif ($error eq "bad_comment") { $msg = 'コメントが記入されていません。'; } else { $msg = '原因不明のエラーで処理を継続できません。'; } print "Content-type: text/html\n\n"; print "交流ノート\n"; print "\n"; print "

\n"; print "

error

\n"; print "" . $msg . "\n"; print "\n"; exit; }