$admin_name

#!/usr/bin/perl require './setup.cgi'; # NICOLE Board [ Freeware ] # 掲示板スクリプト [ フリーウェア ] # # Script written by NICOLE # web-page : http://www10.big.or.jp/~nicole/ # e-mail : nicole@big.or.jp # #--------------------------- @menuitems = (); &SetDefaultConfig; &Decode; &GetCookie; # BAN @xman = (); if ( -e $xfile ){ if ( open(FILE,$xfile) ){ @xman = ; close(FILE); } } foreach(@xman){ if($_ =~ /^all$/i || ($ENV{'REMOTE_ADDR'} =~ /^$_/ && length($_) > 4)){ &Error("リモートホスト $ENV{'REMOTE_HOST'} ( $ENV{'REMOTE_ADDR'} ) は出入禁止になっています。

"); } } # READ CONFIG if (-e $file_config) { &ReadConfig($file_config); } elsif ( 1 == $showBoardList ) { # 掲示板一覧を表示 &SelectBoard; exit; } else { # ホームページに設定されたURLにジャンプ print "Content-type: text/html\n\n"; print <<_HTML_; $admin_name ようこそ $admin_name の掲示板へ。
トップページ ( $admin_homepage ) よりお入りください。 _HTML_ exit; } # CLOSED if (1 == $config{'disable'} ){ &Error("現在この掲示板は管理者の都合により一時的に閉鎖されております"); } #このファイルの後方参照されたし while() { chop; local($a,$b) = split(/<>/); $menu_color_list{$a} = $b; } # READ LOG DATA &ReadData; if ( $cmd eq 'new') { &InputMessage('new'); } elsif ( $cmd eq 'reply') { &InputMessage('reply'); } elsif ( $cmd eq 'edit') { &InputMessage('edit'); } elsif ( $cmd eq 'regist') { &RegistMessage; } elsif ( $cmd eq 'delete') { &DeleteMessage( $wparam ); } elsif ( $cmd eq 'search' && $wparam ne '') { &Search( $wparam ); } elsif ( $cmd eq 'topic') { &DrawHeader('',0,0); &DrawTopic($wparam,1); } elsif ( $cmd eq 'sort0') { $COOKIE{'sort'} = '0'; &SetCookie; &View; } elsif ( $cmd eq 'sort1') { $COOKIE{'sort'} = '1'; &SetCookie; &View; } else { &View; } &DrawFooter; exit; #--------------------------- sub SortTopics { local($mode) = @_; local($number, $reply ); @topiclist = (); foreach(sort{$datalist{$b} <=> $datalist{$a}}keys(%datalist)){ ($number,$reply,$reply_count,$reply_time) = split(/<>/,$datalist{$_}); if ( $reply eq '' ){ $list{ $number } = $reply_time; } } foreach(sort{$list{$b} <=> $list{$a}}keys(%list)){ push( @topiclist, $_ ); } } #--------------------------- # SELECT BOARD sub SelectBoard { local($board_count, $board); &DrawHeader("$admin_name の掲示板一覧",1,1); opendir ( DATADIR, "./data/"); @b = readdir(DATADIR); closedir (DATADIR); @boards = grep(/.cfg/, @b); @boards = sort( @boards ); $board_count = 0; foreach(@boards){ $board_count++; } print <<_HTML_; $board_count 個の掲示板があります。

_HTML_ foreach(@boards){ $board = $_; $board =~ s/.cfg//ig; $file_data = "./data/$board.log"; &ReadConfig("./data/$board.cfg"); if ( 0 != open(FILE,"$file_data") ){ $number = ''; $name = ''; $atime = ''; $reply = ''; $subject = ''; while() { chop; ($number,$reply,$reply_count,$reply_time,$time,$subject,$name,$email,$hp,$icq,$ip,$password,$comment,$menu,$remote_host) = split(/<>/); $atime = &FormatDateTime( $time, 1 ); last; } close(FILE); } $name = &FormatName( $name ); if ($subject eq '' && 0 != $reply ){ $subject = "記事No.$reply への返信";} print <<_HTML_; _HTML_ } print "

掲示板 最新の投稿日時 最新の記事タイトル 最新の投稿者 No.
$config{'bbstitle'} $atime $subject $name $number
\n"; &DrawFooter; } #--------------------------- # DECODE sub Decode { local($buf); if ($ENV{'REQUEST_METHOD'} eq "$method") { if($ENV{'CONTENT_LENGTH'} > $max_comment*2){ &Error("送信データ量が多すぎます"); } read(STDIN, $buf , $ENV{'CONTENT_LENGTH'}); } else { $buf = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buf); foreach $pair (@pairs) { local($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'); &jcode'h2z_sjis(*value); $value =~ s/\&/\&/g; $value =~ s/\"/\"/g; $value =~ s//\>/g; $FORM{$name} = "\0" if (defined($FORM{$name})); $FORM{$name} = $value; } $name = $FORM{'name'}; $name =~ s/\r\n/\n/g; $name =~ s/\r|\n//g; $subject = $FORM{'subject'}; $subject =~ s/\r\n/\n/g; $subject =~ s/\r|\n//g; $email = $FORM{'email'}; $email =~ s/\r\n/\n/g; $email =~ s/\r|\n//g; $hp = $FORM{'hp'}; $hp =~ s/\r\n/\n/g; $hp =~ s/\r|\n//g; $icq = $FORM{'icq'}; $icq =~ s/\r\n/\n/g; $icq =~ s/\r|\n//g; $comment = $FORM{'comment'}; $comment =~ s/\r\n/\n/g; $comment =~ s/\r|\n/
/g; $password = $FORM{'password'}; $password =~ s/\r\n//g; $password =~ s/\r|\n//g; $menu = $FORM{'menu'}; $menu =~ s/\r\n//g; $menu =~ s/\r|\n//g; $pwd = $FORM{'pwd'}; $pwd =~ s/\r\n//g; $pwd =~ s/\r|\n//g; $number = $FORM{'number'}; $ip = $FORM{'ip'}; $remote_host = $FORM{'remote_host'}; $reply = $FORM{'reply'}; $reply_count = $FORM{'reply_count'}; if ($FORM{'reply_time'}) { $reply_time = $FORM{'reply_time'}} else { $reply_time = time }; $time = $FORM{'time'}; $cmd = $FORM{'cmd'}; $wparam = $FORM{'wparam'}; $lparam = $FORM{'lparam'}; if ($FORM{'page'}) { $page = $FORM{'page'}; } else { $page = 0; }; if ($FORM{'board'}) { $board = $FORM{'board'}; }; $file_data = "./data/$board.log"; $file_config = "./data/$board.cfg"; } #--------------------------- # DRAW TOPIC EX sub DrawTopicEx { local($flag_reply) = @_; local($atime,$aname,$icon,$parent_reply_count, $sbg); $atime = &FormatDateTime($time); $aname = &FormatName($name); $comment = &FormatComment($comment,$name); $icon = &IsNew( $time ); if ($icq) { $icq = "ICQ=$icq、"; } if ($email) { $email= "メール、"; } if ($hp) { $hp = "ホームページ";} if ($icq || $email || $hp){ $email = " 　 ( $icq $email $hp ) "; }; print "\n\n"; print "\n"; print "\n"; $sbg = $config{'color_subject_bg'}; if ($reply){ print "\n"; print "\n"; } elsif ($subject ne ''){ if (1 == $config{'menu_use'}){ $subject = "$menu - $subject"; if ($menu ne '' && $menu_color_list{$menu}){ $sbg = $menu_color_list{$menu}; } } print "\n"; print "\n"; } print "\n"; print "
記事 No.$reply へのコメント No.$number $subject No.$number
\n"; if (1 != $config{'readonly'} ){ print "$icon $aname さん $email 　 $atime"; if (1 == $flag_reply ){ print " 　 [ 編集"; print " / 削除 ] 　 "; } print "
$comment
\n"; } else { print "$atime 　 "; if (1 == $flag_reply ){ print "[ 追記"; print " / 編集"; print " / 削除 ]"; } print "
$comment
\n"; } #返信数が０でなければ返信記事を検索し表示 if (0 != $reply_count) { $cnt = @replylist; $parent_reply_count = $reply_count; for($n=0; $n<$cnt; $n++){ &GetData( $replylist[$n] ); if ($num == $reply && $number != 0) { $atime = &FormatDateTime($time,1); $aname = &FormatName($name); $comment = &FormatComment($comment,$name); $icon = &IsNew( $time ); if ($icq) { $icq = "ICQ=$icq、"; } if ($email) { $email= "メール、"; } if ($hp) { $hp = "ホームページ";} if ( $icq || $email || $hp ){ $email = "　 ( $icq $email $hp ) "; }; print "
\n"; if ( 1 != $config{'readonly'} ){ print "$icon $aname さん $email 　 $atime "; } else { print "$icon $atime"; } if (1 == $flag_reply ){ print " 　 [ 編集"; print " / 削除 ] 　 "; } print "
$comment
\n"; } } } if (1 == $flag_reply) { if (1 != $config{'readonly'}){ print "
\n"; print "コメントを付ける
\n"; } } print "

↑

\n"; } #--------------------------- # DRAW TOPIC sub DrawTopic { local($num,$flag_reply) = @_; &GetData( $num ); if ( 0 != $number) { &DrawTopicEx($flag_reply); } } #--------------------------- # SEARCH sub Search { local($str) = @_; local($num, $found_count); &DrawHeader("【$str】の検索結果",0,0); @str = split(/ /,$str); $found_count = 0; foreach(sort{$datalist{$b} <=> $datalist{$a}}keys(%datalist)){ $num = $_; &GetData( $num ); $targetstr = $subject.$comment; $targetstr =~ s/
[<]*//ig; $targetstr =~ s/
//ig; foreach(@str){ if($targetstr =~ /$_/i){ $found_count++; if ( 20 < $found_count) { last; } &GetData( $num ); $comment =~ s/$_/$_<\/U><\/B><\/FONT><\/EM>/ig; &DrawTopicEx(1); last; } } } if (0 == $found_count){ print "検索に該当する記事は見つかりませんでした\n"; } } #--------------------------- # DELETE MESSAGE sub DeleteMessage { local($num) = @_; local($ok); &GetData( $num ); $ok = 0; if ( $pwd ne '' && $pwd eq $admin_password ){ $ok = 1; } elsif ( $pwd ne '' && $password ne '' && crypt($pwd, 'hodare') eq $password ){ if ( 0 == $reply_count ){ $ok = 1; } } if ( 1 == $ok ) { &DeleteMessageEx($num); &WriteData; $config{'information'} = '記事は削除されました'; &View; } else { &DrawHeader('記事の削除',1,1); if ($password eq ''){ print "この記事にはパスワードが設定されていませんので、管理者だけが記事を削除できます
\n"; } elsif (0 != $reply_count ) { print "この記事には既にコメントがついていますので、管理者だけが記事を削除できます
\n"; } print <<_HTML_; この記事を削除しますか？
記事に設定したパスワード（管理者なら管理パスワード）を入力して「削除」ボタンを押して下さい。やめる場合は、そのまま「中止」ボタンを押して下さい。

_HTML_ &DrawTopic( $num ); } } #--------------------------- # DELETE MESSAGE EX sub DeleteMessageEx { local($num) = @_; local($parent,$n); &GetData( $num ); #削除されるのが子記事なら親記事の返信数を減らす if ( $reply ) { $parent = $reply; #親記事の返信カウントを減らす &GetData( $parent ); $reply_count--; &SetData( $parent ); } elsif (0 != $reply_count){ #削除されるのが親記事で、子記事があるなら（０でなければ）子記事も削除する $cnt = @replylist; for($n=0; $n<$cnt; $n++){ &GetData( $replylist[$n] ); if ($num == $reply) { $number= 0; &SetData( $replylist[$n] ); } } } #関連記事の削除や返信数の処理が終わったら、本記事に削除フラグを立てる &GetData( $num ); $number = 0; &SetData( $num ); } #--------------------------- # DRAW NAVI sub DrawNavi { local($cpage,$mpage,$npage,$s); $npage = $page+1; $mpage = int((@topiclist-1)/$config{'viewcount'}) +1; $cpage = $page; if ( &IsSort ) { $s = " [ レス順\表\示 ]"; } print "\n"; print "
$s "; if($page >= 1) { $cpage = $page - 1; print "←１日進む \n"; } print " [ $npage / $mpage ] "; if ($mpage > $npage){ $cpage = $page +1; print " １日戻る→\n"; } print "
\n"; } #--------------------------- # View sub View { local($cnt) = @topiclist; &DrawHeader('',0,0); if (0 == $cnt){ print "
記事はありません"; } else { if ( &IsSort ) { &SortTopics; } if (1 == $config{'show_topiclist'}){ &ViewList; &DrawNavi; } &DrawNavi; &ViewDump; } } #--------------------------- # View LIST sub ViewList { local($i,$n,$atime,$aname,$icon,$replyicon,$href,$atimecolor,$areply); print "\n"; print "
\n"; print "\n"; print "\n"; if ( 1 == $config{'menu_use'} ){ print "\n"; } print "\n"; if ( 1 != $config{'readonly'} ){ print "\n"; print "\n"; } else { print "\n"; } print "\n"; &GetData( $max_number ); $areply = $reply; for($i = $page*$config{'viewcount'}; $i < $page*$config{'viewcount'}+$config{'viewcount'}; $i++){ if($topiclist[$i]){ &GetData( $topiclist[$i] ); if (0 != $number){ $atime = &FormatDateTime($reply_time, 1); $aname = &FormatName($name); $icon = &IsNew( $time ); $replyicon = &IsNew( $reply_time ); if ( 0 == $reply_count ) { $replyicon = ''; } if ( $number == $max_number || $number == $areply){ $atimecolor = $config{'color_em'}; } else { $atimecolor = $config{'color_text'}; } $href = ""; print "\n"; if ( 1 == $config{'menu_use'} ){ print "\n"; } print "\n"; if ( 1 != $config{'readonly'} ){ print "\n"; } print "\n"; print "\n"; print "\n"; } } } print "
$config{'menu_name'} タイトル 投稿者 返信追記 更新日時
$href$menu $href$icon $subject $href$aname $href$reply_count $replyicon $href$atime
\n"; print "
\n"; } #--------------------------- # View DUMP sub ViewDump { local($i); $i = @topiclist; if (0 != $i){ for($i = $page*$config{'viewcount'}; $i < $page*$config{'viewcount'}+$config{'viewcount'}; $i++){ if($topiclist[$i]){ &DrawTopic( $topiclist[$i], 1); } } } } #--------------------------- # WRITE DATA sub WriteData { local($tmpfile) = "./data/$$".$ENV{'REMOTE_HOST'}.".tmp"; local($i,$cnt); #最大記事数を超えた記事を破棄する $cnt = @topiclist; for($i = $config{'max_topic'}; $i < $cnt; $i++){ if($topiclist[$i]){ &DeleteMessageEx( $topiclist[$i] ); } } #ファイルに書き出す open(TMP,">$tmpfile") || &Error ("can't open $tmpfile"); foreach(sort{$datalist{$b} <=> $datalist{$a}}keys(%datalist)){ &GetData( $_ ); if ( 0 != $number){ print TMP "$datalist{$_}\n"; } } close(TMP); &FileLock(1); rename($tmpfile,$file_data); &FileLock(0); } #--------------------------- # READ DATA sub ReadData { local($number,$reply); $max_number = 0; @topiclist = (); @replylist = (); unless (-e "$file_data") { open(FILE,">$file_data") || &Error ("can't open $file_data"); close(FILE); chmod( 0666, $file_data ); } else { &FileLock(1); open(FILE,"$file_data") || &Error ("can't open $file_data"); while(){ chop; ($number,$reply) = split(/<>/); $datalist{$number} = $_; if ( $max_number < $number ) { $max_number = $number; } if ( $reply ne '') { push( @replylist, $number); } else { push( @topiclist, $number ); } } close(FILE); &FileLock(0); @replylist = reverse(@replylist); } } #--------------------------- # READ CONFIG sub ReadConfig { local($filename) = @_; local($name,$value); open(FILE,"$filename") || &Error ("can't open $filename"); while(){ chop; ($name,$value) = split(/<>/); $config{ $name } = $value; } close(FILE); $config{'information'} =~ s/(<)//ig; $config{'information'} =~ s/(")/"/ig; @menuitems = (); if (1 == $config{'menu_use'}){ @pairs = split(/
/,$config{'menu_list'}); foreach (@pairs) { push( @menuitems, $_ ); } } } #--------------------------- # INPUT PASSWORD sub InputPassword { local($title,$msg ) = @_; if ($title eq '') { $title = 'パスワードの入力'; }; &DrawHeader( $title,1,1 ); $comment =~ s/
/\n/ig; print <<_HTML_;
$msg

_HTML_ $show_footer = 1; &DrawFooter; exit; } #--------------------------- #記事の入力。引数modeにより新規投稿、返信、編集を使い分ける sub InputMessage { local($mode,$tryagain) = @_; if ( 0 != $config{'proxy'} ) { while(($envkey,$envvalue) = each(%ENV)){ if($envkey =~ /proxy|cache|squid/i || $envvalue =~ /proxy|cache|squid/i){ &Error('プロキシ経由での発言は許可されていません',); } } } if (1 != $tryagain ){ if ($mode eq 'new'){ if (1 == $config{'readonly'}){ if ( $pwd ne $admin_password ){ &InputPassword('管理者の新規投稿','この掲示板は管理者だけが新規投稿できます。管理パスワードを入力して下さい'); } } &DrawHeader('新規投稿',0,1); $subject = ''; $comment = ''; $name = $COOKIE{'name'}; $hp = $COOKIE{'hp'}; $email = $COOKIE{'email'}; $icq = $COOKIE{'icq'}; $password = $COOKIE{'password'}; } elsif ($mode eq 'reply') { if (1 == $config{'readonly'} ){ if ( $pwd ne $admin_password ){ &InputPassword('管理者のコメント','この掲示板は管理者だけがコメントを付けられます。管理パスワードを入力して下さい'); } } &DrawHeader('コメント',0,1); print "
コメント記入
\n"; &GetData( $wparam ); $comment = ''; $name = $COOKIE{'name'}; $hp = $COOKIE{'hp'}; $email = $COOKIE{'email'}; $icq = $COOKIE{'icq'}; $password = $COOKIE{'password'}; } elsif ( $mode eq 'edit'){ if ($pwd eq '' || $pwd ne $admin_password){ &InputPassword('記事の編集','管理者のみ記事内容の編集ができます。管理パスワードを入力して下さい'); } &GetData( $wparam ); $comment =~ s/
/\n/ig; &DrawHeader('記事の編集',1,1); } else { &Error("sub InputMessage ( $mode, $wparam ,$lparam)"); } } else { $comment =~ s/
/\n/ig; } print <<_HTML_;
\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; } if (1 != $config{'readonly'}){ print "\n"; print "\n"; print "\n"; print "\n"; } else { print "\n"; } if ($mode eq 'edit'){ print "\n"; print "\n"; print "\n"; print "\n"; } if ( 1 != $config{'readonly'} ){ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } if (1 != $config{'readonly'}){ if ($mode eq 'edit'){ print "\n"; print "\n"; } else { print "\n"; print "\n"; } } print <<_HTML_;
_HTML_ if ($mode ne 'reply') { if (1 == $config{'menu_use'}){ print "
$config{'menu_name'} *
タイトル
お名前
REMOTE_HOST $remote_host ( $ip )"; print ""; print ""; print "
メール
ホームページ
ICQ
パスワード $password
パスワード *設定しておくと後で記事を削除することができます
コメント *HTMLタグは使えません。URLを書くと自動的にリンクされます
$comment

_HTML_ if ( $mode eq 'edit'){ print "\n"; print "　 [ 修正をやめる ]\n"; } else { print "\n"; print "　 [ 投稿をやめる ]\n"; } print "
\n"; if ( $mode eq 'reply' ){ print "
\n"; print "元記事
\n"; &DrawTopic( $wparam, 0); } } #--------------------------- #記事を登録する wparamにより新規投稿、返信、編集を使い分けている sub RegistMessage { local($errmsg) = ''; if (1 != $config{'readonly'} ){ if ( $name eq ""){ $errmsg = "
お名前が空白です
"; } if ( $email ne '' && $email !~ /[0-9a-z\.\~\-\_\/]+\@[0-9a-z\.\-\/\~\_]+/i){ $errmsg = "
メールアドレスが不適切です
"; $email = ''; } if ( $hp ne '' && $hp !~ /http\:\/\/[\d\w\.\~\-\_\/]+/i){ $errmsg = "
ホームぺージのURLが不適切です
";$hp = ''; } } if ( $config{'baseurl'} ne "." && $ENV{'HTTP_REFERER'} !~ $config{'baseurl'}){ $errmsg = "
この URL $config{'baseurl'} 以外からは投稿出来ません
";}; if ( $subject eq "" && $wparam eq 'new') { $errmsg = "
タイトルが空白です
";} if ( $comment eq ""){ $errmsg = "
コメント欄が空白です
";} if ( length($comment) > $max_comment) { $errmsg = "
文章が長すぎます
";} #入力エラーがあるようなら再入力画面にする if ( $errmsg ne '' ){ &DrawHeader('再入力',1,1); print "*入力にエラーがあります。内容をお確かめのうえ再度入力をお願いします。
$errmsg
\n"; &InputMessage($wparam, 1); return; } if ( $wparam eq 'edit' || 1 == $config{'readonly'}){ if ($pwd ne $admin_password) { &Error('記事データの受信エラー','受信したデータにエラーがありました'); } } if ( $name eq $admin_name && $wparam ne 'edit' && 1 != $config{'readonly'}){ if ($pwd eq '' || $pwd ne $admin_password) { &InputPassword('管理者名での投稿', '管理者の名前での投稿には管理パスワードが必要です'); } } if ( $wparam eq 'new' || $wparam eq 'reply') { if ( $wparam eq 'reply' ){ $reply = $number; } local($anumber,$areply,$areply_count,$areply_time,$atime,$asubject,$aname,$aemail,$ahp,$aicq,$aip,$apassword,$acomment,$amenu,$aremote_host) = split(/<>/,$datalist{$max_number}); if ( $asubject eq $subject && $name eq $aname && $comment eq $acomment) { $config{'information'} = "直前の投稿と内容が全く同じですので二重投稿と判断されました。
最初に投稿されたデータは受付けられています"; &View; return; } $time = time; $reply_time = time; $max_number++; $number = $max_number; $COOKIE{'name'} = $name; $COOKIE{'hp'} = $hp; $COOKIE{'email'} = $email; $COOKIE{'icq'} = $icq; $COOKIE{'password'} = $password; &SetCookie; $ip = $ENV{'REMOTE_ADDR'}; $remote_host = $ENV{'REMOTE_HOST'}; if ($password ne '') { $password = crypt( $password, 'hodare'); } } elsif ( $wparam eq 'edit') { $max_number = $number; } &SetData( $max_number ); $temp_time = $time; $temp_reply = $reply; #返信の場合は親記事の返信数をカウントアップ if ($wparam eq 'reply') { &GetData( $reply ); #この時点でカレントには親記事のデータが入っている $reply_count++; if ( $reply_time < $temp_time ) { $reply_time = $temp_time; } &SetData( $temp_reply ); push(@replylist, $max_number); #子記事の場合はリストの最後に追加 } elsif ($wparam eq 'new'){ unshift(@topiclist, $max_number); #親記事の場合はリストの最初に追加 } &WriteData; if ($wparam eq 'edit'){ $config{'information'} = '記事は修正されました'; } else { $config{'information'} = '投稿ありがとうございます'; } &View; } #--------------------------- # 1=ロック 0=解除 sub FileLock { local($lock) = @_; local($retry) = 0; if ( 1 == $lock ){ foreach (1..6){ unless ( -e $board ) { mkdir( $board, 0755 ); last; } $retry++; sleep(3); } } else { rmdir( $board ); } } #--------------------------- # ERROR sub Error { local($errmsg) = @_; &DrawHeader('エラー',1,1); print "$errmsg\n"; &DrawFooter; exit 0; } #--------------------------- # SET COOKIE sub SetCookie { local($cook) = "name<$COOKIE{'name'}>hp<$COOKIE{'hp'}>email<$COOKIE{'email'}>icq<$COOKIE{'icq'}>password<$COOKIE{'password'}>sort<$COOKIE{'sort'}>"; $ENV{'TZ'} = "GMT"; # 国際標準時の取得 local($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time + 7*24*60*60); if ($year < 99) { $year += 100; } $year += 1900; if ($sec < 10) { $sec = "0$sec"; } if ($min < 10) { $min = "0$min"; } if ($hour < 10) { $hour = "0$hour"; } if ($mday < 10) { $mday = "0$mday"; } $mon = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mon]; $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wday]; $date_gmt = "$youbi, $mday\-$mon\-$year $hour:$min:$sec GMT"; print "Set-Cookie: $cookie_id=$cook; expires=$date_gmt\n"; } #--------------------------- # GET COOKIE sub GetCookie{ local($name,$value); @pairs = split(/;/,$ENV{'HTTP_COOKIE'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/>/,$DUMMY{$cookie_id}); foreach $pair (@pairs) { local($name,$value) = split(/$config{'information'}
"; } if (1 == $config{'readonly'} ){ $sr = "
READONLY
\n"; } print "Content-type: text/html\n\n"; print <<_HTML_; $config{'bbstitle'}

$title

$sr $str $info _HTML_ if ( 1 != $show_toolbar && 1 != $config{'readonly'} ){ print <<_HTML_; _HTML_ if ( &IsSort ) { print <<_HTML_; _HTML_ } else { print <<_HTML_; _HTML_ } print <<_HTML_;

_HTML_ } } #--------------------------- # DRAW FOOTER sub DrawFooter { print <<_HTML_;

ホームへ | _HTML_ print <<_HTML_; 管理画面 _HTML_ if ( $FORM{'board'} && 1 == $config{'readonly'} && 1 != $show_footer){ print " | 新規投稿"; } print <<_HTML_; 管理者 $admin_name

Copyright (C) ATLAS DESIGN WORKS 2004 All righrt reserved

$copyright _HTML_ } #--------------------------- # FORMAR DATE TIME sub FormatDateTime { local($atime, $flag) = @_; $ENV{'TZ'} = "JST-9"; local($sec,$min,$hour,$mday,$mon,$year,$dayofweek) = gmtime($atime+$timezone*60*60); if ($year < 99) { $year += 100; } $year += 1900; $mon++; if ($mon < 10) { $mon = "0$mon";} if ($mday < 10) { $mday = "0$mday";} if ($hour < 10) { $hour = "0$hour";} if ($min < 10) { $min = "0$min";} $dow = ('日','月','火','水','木','金','土') [$dayofweek]; if (1 == $flag) { $date = "$mon/$mday ($dow) $hour:$min"; } else { $date = "$year/$mon/$mday ($dow) $hour:$min"; } $date; } #--------------------------- # FORMAT NAME sub FormatName { local($name) = @_; if ( $name eq $admin_name ) { $name = "$name [管理人]"; } $name; } #--------------------------- # 文章内のURLやFTPや引用文などを変換する sub FormatComment { local($com,$name)=@_; $com = "
$com
"; $com =~ s/>(>[^<]*)/>$1<\/FONT>/g; $com =~ s/(http:\/\/[0-9a-z?#=:\.\~\-\_\/\&\;]+)/$1<\/A>/ig; $com =~ s/(ftp:\/\/[0-9a-z\.\~\-\_\/]+)/$1<\/A>/ig; #管理者だけ B, U, UL, LI, EM のHTMLタグが使える #HTMLタグの閉じ忘れがあるとデザインがおもむろに崩れるからである #管理者なら記事の編集もできるし、多少なりともHTMLの知識があるという前提 if ( $name eq $admin_name ) { $com =~ s/(<B>)//ig; $com =~ s/(<\/B>)/<\/B>/ig; $com =~ s/(<U>)//ig; $com =~ s/(<\/U>)/<\/U>/ig; $com =~ s/(<UL>)/
/ig; $com =~ s/(<\/UL>)/<\/UL>/ig; $com =~ s/(<LI>)/
/ig; $com =~ s/(<\/LI>)/<\/LI>/ig; $com =~ s/(<EM>)//ig; $com =~ s/(<\/EM>)/<\/EM>/ig; } $com; } #--------------------------- # GET DATA sub GetData { local($num) = @_; ($number,$reply,$reply_count,$reply_time,$time,$subject,$name,$email,$hp,$icq,$ip,$password,$comment,$menu,$remote_host) = split(/<>/,$datalist{$num}); } #--------------------------- # SET DATA sub SetData { local($num) = @_; if($reply_count eq '') { $reply_count = 0 }; if ($name eq $admin_name){ $ip = ''; $remote_host = ''; } $datalist{$num} = "$number<>$reply<>$reply_count<>$reply_time<>$time<>$subject<>$name<>$email<>$hp<>$icq<>$ip<>$password<>$comment<>$menu<>$remote_host<>0"; } #--------------------------- # IS NEW sub IsNew { local($t) = @_; local($icon) = ''; if ( int((time - $t)/3600) < $config{'flush_time'}) { $icon = " $\"New\"$ "; } return $icon; } #--------------------------- # IS SORT sub IsSort { return ( $cmd eq 'sort1' || $COOKIE{'sort'} eq '1'); } __END__ 買う<>#600000 売る<>#000060 交換<>#006000

掲示板	最新の投稿日時	最新の記事タイトル	最新の投稿者	No.
$config{'bbstitle'}	$atime	$subject	$name	$number

_HTML_ if ($mode ne 'reply') { if (1 == $config{'menu_use'}){ print "
$config{'menu_name'}	*
タイトル
お名前
REMOTE_HOST	$remote_host ( $ip )"; print ""; print ""; print "
メール
ホームページ
ICQ
パスワード	$password
パスワード	*設定しておくと後で記事を削除することができます
コメント	*HTMLタグは使えません。URLを書くと自動的にリンクされます $comment