#!/usr/bin/perl -- #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #+++　　[ 書き込み隊 Ver0.93 ] 2001.04.12 #+++ #+++ ･････>>> All Created by Tacky #+++ #+++ ･････>>> Copyright (c) 1999.5 Tacky's Room. All rights reserved.... #+++ #+++ Email >>> tacky2@ops.dti.ne.jp #+++ Homepage >>> http://tackysroom.com/ #+++ #+++ 設置方法構成(具体例) #+++ #+++ public_html（ホームページディレクトリ） #+++ | #+++ |-- cgi-bin（任意のディレクトリ） #+++ | #+++ |-- jcode.pl (755)…(日本語ライブラリ) #+++ |-- kakikomitai.cgi (755)…(スクリプト本体) #+++ |-- kakikomitai.txt (666)…(ログファイル)…空のままアップロード #+++ |-- kakikomitai.cnt (666)…(カウンターファイル)…空のままアップロード #+++ #+++ 　　■( )内はパーミッッションの値です。 #+++ 　　■gif以外はアスキーモード、gifはバイナリーモードでアップロードして下さい。 #+++ 　　■kakikomitai.lockは自動作成＆削除しますので、各自でご用意する必要はありません。 #+++ 　　■設置時にエラーになる方は、各ファイルの指定をフルパス(http://〜)で指定してみて下さい。 #+++ #+++ >>> Update-History... #+++ #+++ 2001.04.12(Ver0.93) >> 二重登録禁止チェックを追加 #+++ >> Locationヘッダが使えないサーバー対応 #+++ >> ボタンとかCSS指定追加 #+++ 2000.07.12(Ver0.92) >> ﾌｧｲﾙﾛｯｸが解除されない場合がある不具合修正 #+++ 2000.06.10 >>　CSS追加・ﾛｯｸ処理見直し・Apache+Netscape文字化け対応 #+++ #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ require './jcode.pl'; #日本語コード変換 $url = 'http://nlp.dse.ibaraki.ac.jp/'; #戻り先ＵＲＬ $script = './kakikomitai.cgi'; #このＣＧＩの名前を指定 $method = 'POST'; #METHODの指定(POST又はGET) $logfile = './kakikomitai.txt'; #ログファイルの名前を指定 $lockfile = './kakikomitai.lock'; #ロックファイルの名前を指定 $title = "自然言語処理研究室の掲示板"; #タイトルを指定 $titlelogo = ''; #タイトル画像を指定 $backpicture = ''; #背景画像を指定（使用しない場合は、''で良い) $bgcolor = '#99cc33'; #背景色を指定 $tbgcolor = '#009900'; #入力フォームの背景色を指定 $ttlcolor = "#ff6600"; #ログ表示部の「タイトル」の文字色 $textcolor = "#009900"; #ログ表示部の「名前・メッセージ等」の文字色 $tcolor = "#ffffcc"; # 文字色 $linkcolor = "#009900"; # リンク色（未読リンク） $vlinkcolor = "#009900"; # リンク色（既読リンク） $alinkcolor = "#009900"; # リンク色（押した時） $titleset = 1; #新規投稿時に「タイトル」必要？(0:不要 1:必要) $titleset2 = 1; #レスする際に「タイトル」必要？(0:不要 1:必要)…新規投稿時タイトル必要の場合しか意味ありません $pt = '10pt'; #全体のフォントサイズ（pt指定以外何があるのか、僕知らない。(^^ゞ） $homelinklogo = './kakikomitai_linkhome.gif'; #ホームページ・リンク画像を指定 $maillinklogo = './kakikomitai_linkmail.gif'; #メール・リンク画像を指定 $top_l = './top_l_h.gif'; #メッセージ部左上隅の透過画像を指定 $top_r = './top_r_h.gif'; #メッセージ部右上隅の透過画像を指定 $bottom_l = './bottom_l_h.gif'; #メッセージ部左下隅の透過画像を指定 $bottom_r = './bottom_r_h.gif'; #メッセージ部右下隅の透過画像を指定 $datamax = 300 ; #最大データ保存件数 $pagemax = 20 ; #１ページ内に表示する件数 $password = 'it8di2b'; #メンテナンス用パスワード（管理者用） $tag = 'yes'; #タグ許可(yes,no) $hostflag = 'no' ; #リモートホストを表示する？(yes.no) #色の指定 #@COLORS = ('#990033','#99cc00','#003366','#999999','#336633','#999966','#666699','#669999'); @COLORS = ('#ffffcc'); #入力フォームの各項目見出ししている部分に画像を使用しない場合は、０を設定 $gif_flg = 0; #(0:使用しない　1:使用する) #入力フォームの各項目見出しに、ダウンロードした画像をそのまま #使用する場合は、GIFを置くパスだけ修正してね $gif_w = ''; #画像の横幅 $gif_h = ''; #画像の縦幅 $gif_name = ''; #入力フォーム(name) $gif_email = ''; #入力フォーム(email) $gif_home = ''; #入力フォーム(homepage) $gif_title = ''; #入力フォーム(title) $gif_message = ''; #入力フォーム(message) $gif_backcolor = ''; #入力フォーム(backcolor) $gif_password = ''; #入力フォーム(password) #<<<↓の画像はそのまま使用してね。パスだけ修正。 $gif_spacer = './spacer.gif'; #ダミー透過画像 $gif_spacerb = './spacer_b.gif'; #１×１黒色画像 #掲示板荒らし対策。排除したいプロバのアドレスを設定して下さい。 #　"xxx?.com"とした場合、"xxx1.com","xxx2.com"等、「？」の部分が文字列１つと判断します # "xxx*.com"とした場合、"xxx1.com","xxx12345.com等、「＊」の部分が０個以上の文字列と判断します。 @DANGER_LIST=("*.hitachiota.nttpc.ne.jp","yyy.com","zzz*.or.jp"); #掲示板荒らし対策その２。メッセージ最大文字数を指定。特に設定しない場合は、''として下さい。 $maxword = '1000' ; #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # Sendmailが使える方のみ以下の項目を設定して下さい。(Ver0.85からの機能) # ※Sendmailとは？ #　　　メールソフトを立ち上げないで、指定した相手にメールを送る事が出来る機能です。 #　　　自分のプロバイダーがSendmailに対応しているか、パスはどこ？等は、各自のプロバイダー #　　　のＨＰでご確認して下さいね。 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #投稿時に管理者にメール送信する場合、sendmailのパスを指定 $sendmail = ""; #メール送信先アドレス。（管理者のアドレス）…「＠」の前には必ず「￥」を付けてね。 $smail_address = "xxxxx\@xxxxxx.xx.jp"; $hiho = 0 ; #プロバイダーが「hi-ho」の人のみ「1」にして下さい。　※Sendmail使う場合 $ressw = 2 ; #レス機能の設定(0:レス無し　1:管理人のみレス　2:みんなでレス) $resflag = 'yes' ; #最新レスを先頭に表示する？(yes,no) #メッセージ表示部分にある「返信」に画像を使う場合、画像ファイル名を指定。 #画像を使わない場合は、以下を''として下さい。 $res_gif = './res.gif'; $row = 12 ; #入力フォーム・メッセージ欄の行数 $col = 80; #入力フォーム・メッセージ欄の文字数 $tbl_sz = 600 ; #ログ表示部のテーブル横幅(必ずピクセルで指定してね) #投稿時のパスワードをcrypt関数を使用する（暗号化） #crypt関数が利用出来ない場合もありますので、投稿時にエラーになる場合は、「0:使用しない」にして下さいね。 $ango = 1 ; #0:使用しない 1:使用する　（推奨：１：使用する） #============================================================================================================================================================================================= #フォームＣＳＳ設定　※使用しない場合は、$css_style = "";とし、そこから２行(先頭がEOMの行までを)を削除して下さい。 $css_style = <<"EOM"; STYLE="font-size:$pt;color:#000000;border:1 solid #666666;" onFocus="this.style.backgroundColor='#ffffcc'" onBlur="this.style.backgroundColor='#FFFFFF'" EOM $damedame = 0 ; #Locationヘッダが使えないサーバーは1。通常は0でいいはず。※トクトク、3nopage,WinNTサーバー等が1かな。 #<<<　ここから下はいじらない方がいいです。 @errtag = ('table','meta','form','!--','embed','html','body','tr','td','th','a'); #デンジャラ〜なタグ ############################################################################### #### Main Process START ##################################################### ############################################################################### $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); #システム日時・時刻取得 $year = sprintf("%02d",$year + 1900); $month = sprintf("%02d",$mon + 1); $mday = sprintf("%02d",$mday); $hour = sprintf("%02d",$hour); $min = sprintf("%02d",$min); $week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday]; $today = "$month/$mday($week) $hour:$min"; if ($ENV{'HTTP_USER_AGENT'} !~ /MSIE/i) { $css_style = "" ; } &cookieget; #<</i) { &error("使用出来ないタグが入力されています"); } } } else { $value =~ s//>/g; } $value =~ s/\,/，/g; &jcode'convert(*value,'sjis'); $FORM{$name} = $value; } $FORM{'comment'} =~ s/\r\n/
/g; $FORM{'comment'} =~ s/\r|\n/
/g; $FORM{'hp'} =~ s/^http\:\/\///; } ###<-------------------------------------------------------------- ###<--- 入力フォーム ###<-------------------------------------------------------------- sub forminput { print "[HOME]
\n"; print "
\n"; if ( $titlelogo ) { print "
\n"; } else { print "$title
\n"; } if ( $FORM{'action'} ne 'maintenance' || $FORM{'proc'} eq 'res') { $c_name = $COOKIE{'nm'} ; $c_email = $COOKIE{'em'} ; $c_hp = $COOKIE{'hp'} ; $c_color = $COOKIE{'cl'} ; $c_pass = $COOKIE{'ps'} ; $c_title = '' ; $c_comment = '' ; } print "
\n"; if ( $FORM{'action'} eq 'maintenance' ) { print "
\n"; if ( $FORM{'proc'} ne 'res' ) { print "
修正フォームです\n"; } else { print "
管理人専用返信フォームです\n"; } print "
\n"; } else { if ( $FORM{'action'} eq 'res' ) { print "
返信フォームです\n"; } } if ( $FORM{'action'} ne 'maintenance' || $FORM{'proc'} eq 'res' ) { print "\n"; print "\n"; } else { 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"; } else { print "Name\n"; } print "\n"; print "\n"; } else { print "Email\n"; } print "\n"; print "\n"; } else { print "Homepage\n"; } print "\n"; if ( $titleset == 1 ) { if ( $titleset2 == 0 && ($FORM{'action'} eq 'res' || $FORM{'proc'} eq 'res') ) { } else { print "\n"; } else { print "Title\n"; } print "\n"; } } print "\n"; } else { print "Message\n"; } print "\n"; if ( $FORM{'action'} ne 'res' && $FORM{'proc'} ne 'res' && $c_resno eq '') { print "\n"; } else { print "Backcolor\n"; } print "\n"; print "\n"; } print "\n"; } else { print "Password\n"; } print "\n"; print "\n"; print "
\n"; if ( $gif_flg == 1 ) { print ""; print "
\n"; if ( $gif_flg == 1 ) { print ""; print "
\n"; if ( $gif_flg == 1 ) { print ""; print "\n"; if ( $FORM{'action'} eq 'res' || $FORM{'proc'} eq 'res' ) { $dmy = "-Res-" ; } else { $dmy = "-Submit-" ; } if ( $titleset != 1 || ( $titleset == 1 && $titleset2 == 0 && ($FORM{'action'} eq 'res' || $FORM{'proc'} eq 'res')) ) { print "       \n"; print "\n"; } print "
\n"; if ( $gif_flg == 1 ) { print ""; print "\n"; print "       \n"; print "
\n"; if ( $gif_flg == 1 ) { print ""; print "
\n"; if ( $gif_flg == 1 ) { print "\n"; foreach (0 .. $#COLORS) { if ( $c_color == $_ || ($c_color eq '' && $_ == 0)) { $dmy = "checked"; } else { $dmy = "" ; } print "\n"; print "■\n"; } print "
\n"; if ( $gif_flg == 1 ) { print "（修正・削除に使用します）
\n"; print "
\n"; print "
\n"; } ###<-------------------------------------------------------------- ###<--- HTMLヘッダー書き出し ###<-------------------------------------------------------------- sub header { print "Content-type: text/html; charset=Shift_JIS\n\n"; print "\n\n"; print "\n"; print "$title\n"; #<<>> print "\n"; #<<>> print "\n"; if ($backpicture) { $set = "background=\"$backpicture\""; } elsif ($bgcolor ) { $set = "bgcolor=\"$bgcolor\""; } print "\n"; } ###<-------------------------------------------------------------- ###<--- HTMLフッダー書き出し ###<-------------------------------------------------------------- sub footer { #<<<　↓消さないでネ♪ print "
\n"; print "kakikomitai Ver0.93 Created by Tacky\n"; print "
\n"; print "\n"; } ###<-------------------------------------------------------------- ###<--- ログファイル読み込み ###<-------------------------------------------------------------- sub dataread { #<<<ログ読み込み if ( !(open(IN,"$logfile"))) { &error("ログファイル($logfile)のオープンに失敗しました"); } @LOG = ; close(IN); $maxno = 0 ; foreach ( @LOG ) { ($no,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2) = split(/,/,$_); if ( $resno eq '' ) { push(@MAINLOG,$_) ; } else { push(@RESLOG,$_) ; } if ( $no > $maxno ) { $maxno = $no ; } } @RESLOG = reverse @RESLOG ; #レスログは古い順に。 $maxno++ ; } ###<-------------------------------------------------------------- ###<--- ログ表示 ###<-------------------------------------------------------------- sub view { &dataread ; #<<<ログ読み込み print "
\n"; #表示対象ページの先頭データ件数を算出 $dm = @MAINLOG; if ( $dm % $pagemax == 0) { $p = $dm / $pagemax ; } else { $p = $dm / $pagemax + 1; } $p = sprintf("%3d",$p); if ( $FORM{'page'} eq "NEXT" ) { if ( $FORM{'disppage'} == 0 ) { $FORM{'disppage'} = 1 } ; $d = ($FORM{'disppage'} + 1) * $pagemax - $pagemax ; $FORM{'disppage'} = $FORM{'disppage'} + 1 ; } elsif ( $FORM{'page'} eq "BACK" ) { $d = ($FORM{'disppage'} - 1) * $pagemax - $pagemax ; $FORM{'disppage'} = $FORM{'disppage'} - 1 ; } elsif ( $FORM{'disppage'} ne "" ) { $d = $FORM{'disppage'} * $pagemax - $pagemax ; } else { $d = 0 ; $FORM{'disppage'} = 1 ; } $z = 1 ; for ( $i = $d ; ( $z <= $pagemax ) && ( $i < $dm ); $i++ ) { ($no,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2) = split(/,/,$MAINLOG[$i]); if ( ( $FORM{'action'} ne 'res' && $FORM{'proc'} ne 'res' ) || ( ( $FORM{'action'} eq 'res' || $FORM{'proc'} eq 'res' ) && $FORM{'no'} eq $no) ) { $color = $COLORS[$color] ; print "
\n"; print "\n"; if ( $FORM{'action'} ne 'res' && $ressw == 2 ) { print ""; print ""; print ""; 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" if ( $FORM{'action'} ne 'res' && $ressw == 2 ) ; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; if ( $titleset == 1 ) { if ( $ttl ) { print ""; print "■-$ttl\n"; } if ( $hostflag eq 'yes' && $hst ) { print "   ..($hst)"; } print "
\n" if ( $ttl || ( $hostflag eq 'yes' && $hst ) ); } print ""; $no = sprintf("%d",$no); print " >> $name  $regdate\[$no\]  "; print "\n"; print "
\n"; print "
\n"; print "
\n"; $comment =~ s/([^=^\"]|^)(http|ftp)([\w|\!\#\&\=\-\%\@\~\;\+\:\.\?\/]+)/$1こちら<\/a>/g; if ( $s eq '*' ) { print "
\n"; print "（この記事は常に先頭に表\示されます）

\n"; } print "
\n"; print "$comment
\n"; print "
\n"; if ( $email ne '' ) { print "\n"; } if ( $hp ne '' ) { print "\n"; } if ( $FORM{'action'} ne 'res' && $ressw == 2 ) { if ( $res_gif ) { print "   --- \n"; } else { print "   \n"; } } print "
\n"; #レス表示 if ( $ressw != 0 ) { $cnt = 0 ; foreach ( @RESLOG ) { ($n,$name,$email,$hp,$ttl,$comment,$regdate,$rcolor,$resno,$hst,$s,$pass,$d2) = split(/,/,$_); if ( $no eq $resno ) { if ( $cnt == 0 ) { print "
\n"; } print "\n"; print "\n"; print "\n"; $w = $tbl_sz - 50 ; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
 
 \n"; if ( $titleset2 == 1 && $ressw != 1) { if ( !($ttl) ) { $ttl = ""; } print ""; print "▲-$ttl\n"; } print "( $name )\n"; if ( $hostflag eq 'yes' && $hst ) { print "   ..($hst)"; } print "
 \n"; $comment =~ s/([^=^\"]|^)(http|ftp)([\w|\!\#\&\=\-\%\@\~\;\+\:\.\?\/]+)/$1こちら<\/a>/g; print "
$comment
\n"; $n = sprintf("%d",$n); print "
\n"; $cnt++ ; } } } print "
\n"; } $z++; } if ( $FORM{'action'} ne 'res' && $FORM{'proc'} ne 'res' ) { $dm = @MAINLOG; if ( $dm % $pagemax == 0) { $p = $dm / $pagemax ; } else { $p = $dm / $pagemax + 1; } $p = sprintf("%3d",$p); print "
\n"; print "\n"; if ( $FORM{'disppage'} != 0 && $FORM{'disppage'} !=1) { print "\n"; } if ( $FORM{'disppage'} + 1 <= $p ) { print "\n"; } print "
\n"; print "
\n"; print "
"; print "
\n"; print ">>修正・削除は、記事Noと投稿時に入力したパスワードを入力し
edit又はdeleteを選択し、updateボタンを押下して下さい\n"; print "
No.\n"; print "Pass\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; } else { print "


\n"; } } ###<-------------------------------------------------------------- ###<--- ログ出力 ###<-------------------------------------------------------------- sub regist { # ホスト名を取得 $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if ($host eq "" || $host eq "$addr") { ($p1,$p2,$p3,$p4) = split(/\./,$addr); $temp = pack("C4",$p1,$p2,$p3,$p4); $host = gethostbyaddr("$temp", 2); if ($host eq "") { $host = $addr; } } #掲示板荒らし対策 foreach $buf(@DANGER_LIST){ # パターンマッチを変換 $buf=~ s/\./\\./g; $buf=~ s/\?/\./g; $buf=~ s/\*/\.\*/g; if($host =~ /$buf/gi){ &error("\申\し\訳ありません。
あなたのプロバイダーからは投稿できませんでした． "); } } if ( $maxword ne '' && (length($FORM{'comment'}) > $maxword)) { &error("メッセージは$maxword文字までしか登録出来ません。"); } if ( $FORM{'name'} eq '') { &error("お名前を入力して下さい。"); } if ( $FORM{'comment'} eq '') { &error("メッセージは省略出来ません。"); } &filelock ; #ファイルロック &dataread ; #<<<ログ読み込み foreach ( @LOG ) { ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2) = split(/,/,$_); if ( $name eq $FORM{'name'} && $comment eq $FORM{'comment'} ) { &fileunlock ; &error("二重投稿は禁止しています。") ; last ; } } $dcnt = @LOG; if ($dcnt >= $datamax) { pop(@LOG); } $stoppi = 0 ; ($no,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2) = split(/,/,$LOG[0]); if ( $s eq '*' ) { $stoppi = 1 ; } #レス記事登録時で、ログを先頭に移動する場合の処理 if ( $resflag eq 'yes' && $FORM{'resno'} ne '') { $cnt = 0 ; foreach ( @LOG ) { ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2) = split(/,/,$_); if ( $oyano eq $FORM{'resno'} ) { $sv_title = $ttl ; splice(@LOG,$cnt,1); $wk = "$oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2" ; unshift(@LOG,$wk); last ; } $cnt++ ; } } else { if ( $sendmail ) { foreach ( @LOG ) { ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2) = split(/,/,$_); if ( $oyano eq $FORM{'resno'} ) { $sv_title = $ttl ; last ; } } } } # パスワードの暗号化（crypt関数使用）） if ($FORM{'pass'} ne "") { &pass_enc($FORM{'pass'}); } else { $pass = '' ; } unshift(@LOG,"$maxno,$FORM{'name'},$FORM{'email'},$FORM{'hp'},$FORM{'title'},$FORM{'comment'},$today,$FORM{'color'},$FORM{'resno'},$host,,$pass,\n"); #ストッピ機能！　常に一番上に持っていくよ if ( $stoppi == 1 ) { $cnt = 0 ; foreach ( @LOG ) { ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2) = split(/,/,$_); if ( $s eq '*' ) { splice(@LOG,$cnt,1); $wk = "$oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2" ; unshift(@LOG,$wk); last ; } $cnt++ ; } } if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } print OUT @LOG; close(OUT); &fileunlock ; #ファイルロック解除 if ( $sendmail ) { &SMail ; } #COOKIE設定 &cookieset ; if ( $damedame == 0 ) { print "Location: $script?\n\n"; } else { print "Content-type: text/html\n\n"; print "\n\n"; } } ###<-------------------------------------------------------------- ###<--- メンテナンスモード ###<-------------------------------------------------------------- sub Maintenance { if ( $FORM{'pass'} eq "") { &error("パスワードを入力して下さい。"); } $found = 0 ; &dataread ; #<<<ログ読み込み foreach ( @LOG ) { ($no,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2) = split(/,/,$_); if ( $FORM{'no'} eq $no ) { if ($FORM{'pass'} ne $password && (&pass_dec($pass))) { &error("パスワードが違います。"); } $found = 1 ; if ( $FORM{'proc'} eq "delete" ) { &update ; exit; } &header ; $c_name = $name ; $c_email = $email ; $c_hp = $hp ; $c_title = $ttl ; $c_color = $color ; $c_comment = $comment ; $c_resno = $resno ; $c_comment =~ s/\/\n/g; $c_pass = $FORM{'pass'} ; $c_resno = $resno ; &forminput ; last; } } if ( $found == 0 ) { &error("該当する記事Noのデータは存在していません。"); } &footer ; exit; } ###<-------------------------------------------------------------- ###<--- ログファイル更新 ###<-------------------------------------------------------------- sub update { &filelock ; #ファイルロック &dataread ; #<<<ログ読み込み $found = 0 ; $cnt = 0 ; foreach (@LOG) { ($no,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$s,$pass,$d2) = split(/,/,$_); if ( $FORM{'proc'} eq 'stoppi' && $s eq '*' ) { &fileunlock ; &error("既にストッピされている記事がありますので、ストッピ出来ません。") ; } if ( $FORM{'no'} eq $no) { #<<<メンテ対象者の場合 if ( $FORM{'proc'} eq 'stoppi' && $resno ne '') { &fileunlock ; &error("親記事以外はストッピ出来ません。"); } if ( $FORM{'proc'} eq 'unstoppi' && $s ne '*') { &fileunlock ; &error("その記事はストッピ記事ではありません。"); } $found = 1 ; if ( $FORM{'proc'} eq 'edit' ) { # パスワードの暗号化（crypt関数使用）） if ($FORM{'pass'} ne "") { &pass_enc($FORM{'pass'}); } else { $pass = '' ; } push(@new,"$no,$FORM{'name'},$FORM{'email'},$FORM{'hp'},$FORM{'title'},$FORM{'comment'},$regdate,$FORM{'color'},$resno,$hst,$s,$pass,$d2"); } elsif ( $FORM{'proc'} ne 'delete' ) { if ( $FORM{'proc'} eq 'stoppi' ) { $dmy = "*" ; } else { $dmy = "" ; } $wk = "$no,$name,$email,$hp,$ttl,$comment,$regdate,$color,$resno,$hst,$dmy,$pass,$d2" ; unshift(@new,$wk); } } else { push(@new,"$_"); #<<<そのまま出力 } $cnt++ ; } if ( $found == 0 ) { &fileunlock ; &error("ストッピする記事Noが見つかりませんでした") ; } if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } print OUT @new; close(OUT); &fileunlock ; #ファイルロック解除 #COOKIE設定 &cookieset if ( $FORM{'proc'} ne 'delete' ); if ( $damedame == 0 ) { print "Location: $script?\n\n"; } else { print "Content-type: text/html\n\n"; print "\n\n"; } } ###<------------------------------------------------------------- ###<--- クッキー取得 ###<-------------------------------------------------------------- sub cookieget { $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{'kakikomitai'}); foreach $pair (@pairs) { ($name, $value) = split(/\!/, $pair); $COOKIE{$name} = $value; } } ###<------------------------------------------------------------- ###<--- クッキー設定 ###<-------------------------------------------------------------- sub cookieset { ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) =gmtime(time + 30*24*60*60); $yearg += 1900 ; if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $mong = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg]; $date_gmt = "$youbi, $mdayg\-$mong\-$yearg $hourg:$ming:$secg GMT"; $cook="nm\!$FORM{'name'},em\!$FORM{'email'},hp\!$FORM{'hp'},cl\!$FORM{'color'},ps\!$FORM{'pass'}"; print "Set-Cookie: kakikomitai=$cook; expires=$date_gmt\n"; } ###<-------------------------------------------------------------- ###<--- エラー処理 ###<-------------------------------------------------------------- sub error { &header ; print "


$_[0]


\n"; &footer; exit; } ###<------------------------------------------------------------- ###<--- パスワード暗号化 ###<-------------------------------------------------------------- sub pass_enc { if ( $ango == 1 ) { $pass = crypt($_[0], $_[0]); } else { $pass = $_[0]; } } ###<------------------------------------------------------------- ###<--- パスワードチェック ###<-------------------------------------------------------------- sub pass_dec { if ( $ango == 1 ) { if ($_[0] ne '' && ( crypt($FORM{'pass'}, $_[0]) eq $_[0]) ) { return 0 ; } } else { if ($FORM{'pass'} eq $_[0]) { return 0 ; } } return 1; } ###<-------------------------------------------------------------- ###<--- ファイルロック設定 ###<-------------------------------------------------------------- sub filelock { foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile"); close(LOCK); return; } } &error("只今他の方が書き込み中です。ブラウザの「戻る」で戻って再度登録を行って下さい。
又はロックファイル($lockfile)が残ったままかもしれませんので、同ファイルを削除して下さい。"); } ###<-------------------------------------------------------------- ###<--- ファイルロック解除 ###<-------------------------------------------------------------- sub fileunlock { if (-e $lockfile) { unlink($lockfile); } } ###<-------------------------------------------------------------- ###<--- SendMail ###<-------------------------------------------------------------- sub SMail { $ttl = $title; if ( $FORM{'email'} ) { $email = $FORM{'email'} ; } else { $email = $smail_address ; } if ( $hiho == 1 ) { &jcode'convert(*ttl,'euc'); open(MAIL,"| $sendmail -s \"$ttl\" -f $email $smail_address ") || &error("Sendmail Error!!"); } else { open(MAIL,"| $sendmail -t") || &error("Sendmail Error!!"); $mailbuf = "To: $smail_address\n"; $mailbuf .= "Reply-to: $email\n"; $mailbuf .= "Subject: $ttl\n"; $mailbuf .= "Content-Transfer-Encoding: 7bit\n"; $mailbuf .= "Content-type: text/plain\n"; $mailbuf .= "\n\n"; } $mailbuf .= "============================================================\n"; $mailbuf .= "■---『$title』に投稿がありました---■\n\n"; $mailbuf .= "投稿日時：$today\n"; $mailbuf .= "投稿者のお名前：$FORM{'name'}\n"; $mailbuf .= "投稿者のメールアドレス：$FORM{'email'}\n"; if ($FORM{'hp'} ne "") { $mailbuf .= "投稿者のホームページ：http://$FORM{'hp'}\n"; } $mailbuf .= "============================================================\n\n"; $mailbuf .= "■タイトル\n"; if ($FORM{'resno'} ne "") { $mailbuf .= "「$sv_title」についての返信です\n\n"; } elsif ($FORM{'resno'} eq "" && $FORM{'title'} eq "") { $mailbuf .= "（無題）\n\n"; } else { $mailbuf .= "$FORM{'title'}\n\n" ; } $mailbuf .= "■コメント\n"; $mailbuf .= "$FORM{'comment'}\n\n"; $mailbuf .= "============================================================\n"; #漢字コードＪＩＳ変換＆改行コードLF変換。 $mailbuf =~ s/\r\n/\n/g; $mailbuf =~ s/\r/\n/g; $mailbuf =~ s/
/\n/g; &jcode'convert(*mailbuf,'jis'); print MAIL $mailbuf ; close(MAIL); }