#!/usr/local/bin/perl require 'jcode.pl'; $cgiurl = '/cgi-bin/we_bbs.cgi'; $max_size = 1000; #１件の最大文字数 $def = 10; #１頁の最大表示件数 $max = '100'; #最大登録件数 $dat_file = './we_bbs.dat'; #データのファイル名 $mnt_file = './we_mnt.dat'; #メンテナンスデータのファイル名 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time + 9*60*60); ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60); @wday_array = ('日','月','火','水','木','金','土'); $date_now = sprintf("%01d月%01d日(%s)　%02d時%02d分",$mon +1,$mday,$wday_array[$wday],$hour,$min); $date_num = sprintf("%02d%02d%02d%02d%02d",$mon +1,$mday,$hour,$min,$sec); read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @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; &jcode'convert(*value,'sjis'); if ($value =~ /(.*)\"\,\"(.*)/) { &error('記入ミス','記録できない文字の並び「","」があります.'); } $value =~ s///g; $value =~ s//>/g; if ($FORM{'action'} eq 'regist') { if ($value =~ /\r\n/) { $value =~ s/\r\n/\r/g; } if ($value =~ /\n/) { $value =~ s/\n/\r/g; } $value =~ s/\r/
\r/g; } if ($name eq 'name' || $name eq 'email') { $value =~ s/\;//g; $value =~ s/\://g; $value =~ s/\,//g; } if ($name eq 'target') { push(@RM,$value); } else { $FORM{$name} = $value; } } if (!open(DB, "$dat_file")) { &error('設定ミス',"$dat_file が設定された場所にありません."); } @lines = ; close(DB); $password = shift(@lines); chop($password); $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{$cgiurl}); foreach $pair (@pairs) { ($name, $value) = split(/:/, $pair); $COOKIE{$name} = $value; } if ($FORM{'action'} eq 'regist') { ®ist; } else { &html; } exit; sub html { 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 "

投稿者氏名
メール	"; # print "　　メールアドレス　公開　非公開
題　名
内　容

\n"; print "

"; @lines = reverse(@lines); if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; } $last = $page + $def - 1; if ($last > $#lines) { $last = $#lines; } foreach ($page .. $last) { if ($lines[$_] =~ /^\"(\d+)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"\,\"(.*)\"/) { $number = $1; $date = $2; $name = $3; $email = $4; $subject = $5; $value = $6; $open = $7; print "

\n"; print "

　$subject

\n"; print ""; if ($email && ($open eq "公開")) { print "

by $name"; } else { print "

by $name"; } print "　　$date　

"; print "\n"; print "

$value

\n"; } } $next = $last + 1; $n1 = $page + 1; $n2 = $last + 1; if ($#lines >= 0 && $last ne $#lines) { print "\n"; } print "
"; print "\n"; print "

新着より現在 $n1 ～ $n2 を掲示（最大保存数 $max）

[ トップページへ ]

"; print "

"; } sub regist { if ($FORM{'name'} eq '') { &error('入力ミス','投稿者氏名を記入してください.'); } $FORM{'name'} =~ s//>/g; if ($FORM{'email'} ne '' && !($FORM{'email'} =~ /(.*)\@(.*)\.(.*)/)) { &error('入力ミス','メールアドレスの形式が間違っています.'); } $FORM{'email'} =~ s//>/g; if ($FORM{'subject'} eq '' && $FORM{'value'} eq '') { $COOKIE{'name'} = ''; $COOKIE{'email'} = ''; &cookie; print "Set-Cookie: $cgiurl=\n"; &html; exit; } if ($FORM{'subject'} eq '') { &error('入力ミス','題名を記入してください.'); } $FORM{'subject'} =~ s//>/g; if ($FORM{'value'} eq '') { &error('入力ミス','内容を記入してください.'); } if ($max_size) { $value_size = length($FORM{'value'}); if ($value_size > $max_size) { &error('入力ミス',"最大記録サイズ$max_sizeを超えています. 現在$value_sizeサイズです."); } } &cookie; $cook="name\:$FORM{'name'}\,email\:$FORM{'email'}"; print "Set-Cookie: $cgiurl=$cook; expires=$date_gmt\n"; if (!open(DB,">>$mnt_file")) { &error('設定ミス',"$mnt_file へ書き込みできません. パーミッション等を確認してください."); } print DB "\"$date_num\"\,\"$date_now\"\,\"$FORM{'name'}\"\,\"$FORM{'email'}\"\,\"$FORM{'subject'}\"\,\"$FORM{'value'}\"\,\"$FORM{'open'}\"\n"; close(DB); &error('受け付けました',"投稿された内容は、管理者が確認した後で掲示板に掲載されます。
内容が不適当と判断された場合、掲載されませんのでご了承願います。
本掲示版に関係のないと思われる内容や、公序良俗に反する内容、
誹謗、中傷、宗教、営利に関する内容等は掲載されません。
メールアドレスは一般には公開しません。
この掲示板の管理用として記入していただきました。
テーマについての議論はこの掲示板の中だけで行っていただきます。"); } sub cookie { if ($yearg < 10) { $yearg = "0$yearg"; } if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $youbi = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday") [$wdayg]; $month = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec") [$mong]; $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT"; } sub error { print "Content-type: text/html\n\n"; print "みんなの掲示板\n"; print "\n"; print "

$_[0]

\n"; print "

$_[1]

\n"; print "

みんなの掲示板

Copyright(C) 1999

$_[0]

$_[1]

前の画面に戻るには、ブラウザの【戻る】ボタンを押して下さい。

Copyright(C) 1999