#!/usr/local/bin/perl #---------------------------------------------------------------------------- # TODO リスト version 0.1 # # Copyright (C) 2000 WackyFactory / WAKI Toshihito # # このスクリプトは、ネットサーフレスキュー[Web裏技]で配布されている # 電子掲示板 MiniBBS を改造したものです。利用条件などについては WackyFactory # http://www2b.biglobe.ne.jp/~wakit/SOFTWARE/ をご参照ください。 # #---------------------------------------------------------------------------- # Original Copyright: ;# 簡易ＢＢＳ version 10.31 ;# ;# This is Freeware. ;# Script written by Kazu.Y ;# Created on: 02/05/96 ;# I can be reached at: resq@rescue.ne.jp ;# Scripts Found at: http://www.rescue.ne.jp/ # [基本仕様] # # ※ METHOD=POST専用です. # ※ S-JIS設置専用です. # ※ 西暦2000年対応. # [基本構成] ( )内は設定する必要があるパーミッション値 # # /public_html/（ホームページディレクトリ） # | # |-- /cgi-bin/（任意のディレクトリ） # | # |-- jcode.pl # |-- todo.cgi (755) # | # |-- /data/ (777) # | # |-- data.cgi # [履歴] # # v1.0 02/MAY/96 初版 # v8.90 11/AUG/98 v8.8にロック機能を付加 # v9.00 12/AUG/98 タグ処理を制限してセキュリティアップ # v9.01 24/AUG/98 未入力処理(クッキー消去)時にリストされな不具合を修正 # v9.02 03/SEP/98 改行の扱いを３種類に変更 # v9.03 18/SEP/98 Ｅメール自動リンクの廃止 # v9.04 19/OCT/98 タブコードの取り扱い修正 # v9.05 26/OCT/98 記録データ制限の解除処理 # v9.06 22/NOV/98 エラー処理を改善 # v10.00 24/NOV/98 検索機能の追加および構造変更 # v10.01 02/DEC/98 クッキー機能の修正ほか # v10.02 08/DEC/98 Ｄ系トラブルの修正 # v10.10 08/DEC/98 ２重(連続)投稿防止処理 # v10.11 08/DEC/98 削除キー削除が出来なくなったバグの修正 # v10.12 15/DEC/98 パスワード強化 # v10.13 17/DEC/98 全角文字マッチの不具合の訂正 # v10.14 21/DEC/98 ファイルを閉じていない個所の修正,メールアドレス形式チェック方法の変更 # v10.15 14/FEB/99 記事最後案内の修正 # v10.20 19/FEB/99 新着記事のマーキング # v10.21 20/FEB/99 通算日数計算のバグ修正 # v10.30 08/JUL/99 ロック処理のバグ修正,ロック処理方法の変更,暗号処理のベリファイ機能付加 # v10.31 04/SEP/99 暗号処理部分の修正 # ============================================================== # v0.1 31/OCT/00 TODOリストとして改造初版 # [データ形式] # # ※ 各記事は１件１行とし、各項目はタブ区切りとする. # ※ 各項目の並びは次の通り. # # 通番識別番号担当者 e-mail 登録日題名記録タイプリンクの有無詳細内容進捗状況締切日完了日２重投稿チェック用文字列 #----------------# # 初期設定 # #----------------# #--- 必ずあなたの環境に合わせて書き替える項目 --------------------------------------------# #◆掲示板の名前 $title = 'TODO リスト'; #◆このスクリプトをＵＲＬで設定 $reload = 'todo.cgi'; #◆画面の「終了」リンク先をＵＲＬで設定 $modoru = './'; #--- 必要に応じて設定する項目 ------------------------------------------------------------# #◆画面の色や背景の設定 (HTML書式) $body = ''; #◆列見出しの背景色 $TitleBack = 'BGCOLOR=#7777FF'; #◆記事内容の色 $body_color = '#000000'; #◆記事(通常時)内容の文字サイズ(CSS設定) $span_size = 'small'; #◆記事(図表モード時)内容の文字サイズ(CSS設定) $pre_size = 'small'; #◆２重(連続)投稿チェックの対象にする行数 $njmax = 5; #◆$reloadで設定した設置ＵＲＬ以外のフォームからの投稿を禁止する処置する:1 しない:0 #　悪戯の防止用ですが、利用サーバやブラウザによっては正規投稿もできなくなる場合もあります. $ref_axs = 0; #◆１画面に表示する件数 $def = 10; #◆新着マーク(New画像)を表示する日数 $update = 3; #◆書き込み件数の最大登録数の設定です。この件数を超えると、古いものから削除されていきます. #　ページ処理機能が付きましたので、この件数を大きくしても一度に表示される記事数は限定されます. #　サーバの負担を考慮し、できるだけ500以下程度に設定しましょう。 $max = '300'; #◆日本語コード変換ライブラリ #　minibbs.cgiと同じ場所に設置する場合はこのままでよい. require 'jcode.pl'; #◆内容が書き込まれる記録ファイルの名前（パスの設定ではない！） $file = 'data.cgi'; #◆データディレクトリのパスの設定（処理の都合上 / で閉じない） $tmp_dir = './data'; #◆海外サーバ等で時差が生じる場合は修正 #　＋９時間する場合　= localtime(time + 9*60*60); #　－９時間する場合　= localtime(time - 9*60*60); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); #◆クッキーの消化設定 #　最終書き込みから 30日後 30*24*60*60 #　　　　　　　　　　　1日後 24*60*60 #　　　　　　　　　 10時間後 10*60*60 ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60); #------------------ $cmd = $ENV{'QUERY_STRING'}; if ($cmd eq 'copyright') { ©right; exit; } elsif ($cmd eq 'new') { &new; exit; } @wday_array = ('日','月','火','水','木','金','土'); $date_now = sprintf("%04d年%01d月%01d日(%s)%02d時%02d分",$year +1900,$mon +1,$mday,$wday_array[$wday],$hour,$min); $date_num = sprintf("%04d%02d%02d%02d%02d%02d",$year +1900,$mon +1,$mday,$hour,$min,$sec); $date_today = sprintf("%04d年%01d月%01d日(%s)",$year +1900,$mon +1,$mday,$wday_array[$wday]); $days[4] = $days[6] = $days[9] = $days[11] = 30; $days[1] = $days[3] = $days[5] = $days[7] = $days[8] = $days[10] = $days[12] = 31; $days_now = &Days($year +1900,$mon +1,$mday); $ps = $$; if ($ps eq '') { $ps = $date_num; } $tmp_file = "$ps\.tmp"; $ls = "$tmp_dir\/*.*"; 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'); $value =~ s/\&/&/g; $value =~ s/\"/"/g; $value =~ s//>/g; $value =~ s/\t//g; $value =~ s/\r\n/\r/g; $value =~ s/\n/\r/g; $FORM{$name} = $value; } $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name,$value) = split(/=/,$pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{$reload}); foreach $pair (@pairs) { ($name,$value) = split(/:/,$pair); $COOKIE{$name} = $value; } if (-z "$tmp_dir\/$file") { $first = 1; } if ($first) { &setmaster; } elsif ($FORM{'action'} eq 'remove') { &remove; } elsif ($FORM{'action'} eq 'regist') { ®ist; } elsif ($FORM{'action'} eq 'edit') { &edit; exit; } elsif ($FORM{'action'} eq 'newreg') { &newreg; exit; } elsif ($FORM{'action'} eq 'rereg') { &rereg; } elsif ($FORM{'action'} eq 'complete') { &complete; } elsif ($FORM{'action'} eq 'sortlist') { &sortlist; } elsif ($FORM{'action'} eq 'exit') { &exit; } &search; &html; exit; #------------------ sub search { if ($FORM{'search'} ne '') { $i = $FORM{'search'}; $i =~ s/　/ /g; $keys = $i; &jcode'convert(*i,'euc'); $i =~ s/(\W)/\\$1/g; $target = $i; @keys = split(/\\\s+/,$target); } if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; unless ($master =~ /^TODOList:(.*)$/) { &error('エラー','データの形式が違います.'); } if ($FORM{'page'} eq '') { $page = 1; } else { $page = $FORM{'page'}; } $page_control = $hit = $allhits = $all = 0; if ($FORM{'action'} ne 'remove') { $start = (times)[0]; } while () { $string = $string_s = $_; $page_control++; if ($page > $page_control) { next; } if ($FORM{'search'} ne '') { if ($FORM{'page'} eq '') { $all++; } &jcode'convert(*string,'euc'); if ($FORM{'mode'} eq 'or') { $match = 1; foreach $term (@keys) { if ($string =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$term/i) { $match = 0; } } } else { $match = 0; foreach $term (@keys) { if (!($string =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$term/i)) { $match = 1; } } } if ($match) { next; } if ($FORM{'page'} ne '') { $allhits = $FORM{'allhits'}; if ($hit == $def) { $next_num = $page_control; last; } else { push(@PICKUP,$string_s); $hit++; } } else { if ($end != 1 && $hit == $def) { $end = 1; $next_num = $page_control; $allhits++; } elsif ($hit >= $def) { $allhits++; } else { push(@PICKUP,$string_s); $hit++; $allhits++; } } } else { $hit++; if ($hit > $def) { $next_num = $page_control; last; } else { push(@PICKUP,$string_s); } } } if ($FORM{'action'} ne 'remove') { $end = (times)[0]; } $cpu = sprintf("%.3f",$end - $start); close(READ); } sub html { if (!@PICKUP && $page != 0) { $FORM{'page'} = $page - 1; &search; } $nj = ''; @char = ('a'..'z','A'..'Z','0'..'9'); srand(time|$$); foreach (0..9) { { local(@temp); push(@temp,splice(@char,rand(@char),1)) while @char; @char = @temp; } $nj = $char[($_)] . $nj; } print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "$body\n"; print "

$title

\n"; if ($FORM{'mode'} eq 'or') { $OR = 'checked'; $MODE = '(または)'; } elsif ($FORM{'mode'} eq 'and' || $FORM{'mode'} eq '') { $AND = 'checked'; $MODE = '(かつ)'; } unless ($keys =~ / /) { $MODE = ''; } if ($next_num ne '') { $page_end = $page + $hit - 2; } else { $page_end = $page + $hit - 1; } print "

"; print "

"; print ""; print ""; print ""; print "

　検索文字列　"; print "AND　OR　"; print "

"; print "

\n"; print "
\n"; if ($page_end <= 0) { if ($FORM{'search'} ne '') { print "指定の文字列を含む記事はありません. (検索時間 $cpu CPU秒)
\n"; } else { print "記事はありません.
\n"; } } elsif ($page <= $page_end && $FORM{'search'} eq '' && !$next_num) { print "最大 $max 件まで記録可能\です。現在" . &getmaxnumber . "件が登録されています。
\n"; print "No：" . sprintf("%03d", $page) . " → 最終"; } else { if ($FORM{'search'} ne '') { if ($all == 0) { $all = $FORM{'all'}; } print "《検索モード》文字列 "$keys" $MODE "; if ($FORM{'action'} ne 'remove') { print "抽出数 $allhits "; print "抽出位置 $page_/総数$all～ "; print "検索時間 $cpu CPU秒
\n"; } else { print "
\n"; } } else { print "最大 $max 件まで記録可能\です。現在" . &getmaxnumber . "件が登録されています。
\n"; print "No：" . sprintf("%03d", $page) . " → No：" . sprintf("%03d", $page_end); print ""; } } print "( $\"New!\"$ は$update日以内の記事)
\n"; if ($page_end > 0) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; foreach (@PICKUP) { ($id,$number,$name,$email,$date,$subject,$how,$link,$value,$value2,$shimekiribi,$kanryoubi,$nj) = split(/\t/); if ($number =~ /^(\d\d\d\d)(\d\d)(\d\d)/) { $y = $1; $m = sprintf("%d",$2); $d = sprintf("%d",$3); } $days = &Days($y,$m,$d); $upd = $days_now - $days; if ($upd <= $update) { $new = " $\"New!\"$ "; } else { $new = ""; } $value =~ s/"/\"/g; $value =~ s/&/\&/g; if ($link == 1) { $value =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1\:$2<\/a>/ig; } if (length($value) == 0) { $value = "　"; } $value2 =~ s/"/\"/g; $value2 =~ s/&/\&/g; if ($link == 1) { $value2 =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1\:$2<\/a>/ig; } if (length($value2) == 0) { $value2 = "　"; } $border++; if ($border % 2 != 0) { $bgcolor = "bgcolor=#eeeeff"; } else { $bgcolor = ""; } print "\n"; print "\n"; if ($how == 1) { print "\n"; print "\n"; } elsif ($how == 2) { $value =~ s/\r/
\r/g; $value2 =~ s/\r/
\r/g; print "\n"; print "\n"; } else { print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; } else { print "$name\n"; } print "\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 "\n"; print "\n"; } } print "

TODO

詳細

進捗状況

No.$id：$subject $new

$value

$value2

$value

$value2

$value

$value2

担当者："; if ($email ne '') { print "$name

登録日：$date

締切日：$shimekiribi

完了日：$kanryoubi

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

"; print "表\示順："; print "

"; print ""; print ""; print ""; print "

"; print " 段階 "; print "

"; print ""; print ""; print "

"; print "

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

"; print ""; print ""; print ""; print "

"; print "　担当者を："; print "

"; print ""; print "

\n"; print "

\n"; print "\n"; if (($page >= 2) && ($page <= $page_end) && ($FORM{'search'} eq '')) { $prev_num = $page - $def; print "\n"; } if (($next_num ne '') && ($FORM{'search'} eq '')) { print "\n"; } print "

\n"; print "
\n ページのトップへ
"; # このスクリプトの著作権表示（かならず表示してください） print "

\n"; print "Original: $\"MiniBBS$
\n"; print "Remodeled by WackyFactory
\n"; print "

\n"; print "\n"; } sub complete { &lock1; if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; if (!open(WRITE,"> $tmp_dir\/$tmp_file")) { &error('エラー','テンポラリーファイルが作成できません.'); } print WRITE $master; $max_control = 0; while ( $line = ) { $max_control++; ($id,$num,$name,$email,$date,$subject,$how,$link,$value,$value2,$shimekiribi,$kanryoubi,$nj) = split(/\t/, $line); if ($num =~ /$FORM{'number'}/) { print WRITE "$id\t$num\t$name\t$email\t$date\t$subject\t$how\t$link\t$value\t$value2\t$shimekiribi\t$date_today\t$nj"; } else { print WRITE $line; } if ($max_control == $max - 1) { last; } } close(WRITE); close(READ); &lock2; } sub exit { print "Location: $modoru\n\n"; } sub edit { if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; while ( ) { ($id,$number,$name,$email,$date,$subject,$how,$link,$value,$value2,$shimekiribi,$kanryoubi,$nj) = split(/\t/); if ($number =~ /$FORM{'number'}/) { print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "\n"; print "\n"; print "$body\n"; print "

$title 編集\モード

\n"; print "

\n"; print "赤字は必須項目です。
"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($date eq '') { $regdate = $date_today; } else { $regdate = $date; } 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 "

TODO	詳細	進捗状況
項目名：\n"; print "	$value	$value2
担当者：
e-mail：
登録日：$regdate
締切日：
完了日：

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($how == 0){ $howchecked0 = 'CHECKED';} elsif ($how == 1){ $howchecked1 = 'CHECKED';} elsif ($how == 2){ $howchecked2 = 'CHECKED';} print "詳細、進捗状況の表\示方法："; print "通常(改行有功) "; print "改行無効 "; print "図/表\モード(等幅フォントで表\示)

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

\n"; print "[戻る]\n"; print "\n"; } } close (READ); } sub newreg { $nj = ''; @char = ('a'..'z','A'..'Z','0'..'9'); srand(time|$$); foreach (0..9) { { local(@temp); push(@temp,splice(@char,rand(@char),1)) while @char; @char = @temp; } $nj = $char[($_)] . $nj; } $newid = sprintf("%03d", (&getmaxnumber + 1)); if ($date eq '') { $regdate = $date_today; } else { $regdate = $date; } print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "\n"; print "\n"; print "$body\n"; print "

$title 新規登録

\n"; print "

\n"; 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"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

TODO	詳細	進捗状況
項目名：
担当者：
e-mail：
登録日：$regdate
締切日：

\n"; print "詳細、進捗状況の表\示方法："; print "通常(改行有功) "; print "改行無効 "; print "図/表\モード(等幅フォントで表\示)
\n"; print "URLの自動リンク
\n"; print "名前、メールアドレスをブラウザに記憶させる

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

\n"; print "[戻る]\n"; print "\n"; } sub rereg { if ($ref_axs) { $ref = $ENV{'HTTP_REFERER'}; $ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; if (!($ref =~ /$reload/)) { &error('利用不可',"次のページ以外からの投稿は受け付けられません.
→ $reload"); } } if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; unless ($master =~ /^TODOList:(.*)$/) { &error('エラー','データの形式が違います.'); } if ($FORM{'name'} eq '') { &error('入力ミス','担当者名を記入してください.'); } if ($FORM{'name'} =~ /\:/) { &error('入力ミス','担当者名にコロンは使えません.'); } if ($FORM{'name'} =~ /\;/) { &error('入力ミス','担当者名にセミコロンは使えません.'); } if ($FORM{'name'} =~ /\,/) { &error('入力ミス','担当者名にカンマは使えません.'); } if ($FORM{'email'} ne '' && !($FORM{'email'} =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/)) { &error('入力ミス','Ｅメールの形式が間違っています.'); } if ($FORM{'email'} =~ /\:/) { &error('入力ミス','Ｅメールにコロンは使えません.'); } if ($FORM{'email'} =~ /\;/) { &error('入力ミス','Ｅメールにセミコロンは使えません.'); } if ($FORM{'email'} =~ /\,/) { &error('入力ミス','Ｅメールにカンマは使えません.'); } if ($FORM{'subject'} eq '') { &error('入力ミス','項目名を記入してください.'); } if ($FORM{'value'} eq '') { &error('入力ミス','詳細を記入してください.'); } close(READ); $y0="Sunday"; $y1="Monday"; $y2="Tuesday"; $y3="Wednesday"; $y4="Thursday"; $y5="Friday"; $y6="Saturday"; @youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6); $m0="Jan"; $m1="Feb"; $m2="Mar"; $m3="Apr"; $m4="May"; $m5="Jun"; $m6="Jul"; $m7="Aug"; $m8="Sep"; $m9="Oct"; $m10="Nov"; $m11="Dec"; @monthg = ($m0,$m1,$m2,$m3,$m4,$m5,$m6,$m7,$m8,$m9,$m10,$m11); $date_gmt = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT",$youbi[$wdayg],$mdayg,$monthg[$mong],$yearg +1900,$hourg,$ming,$secg); if ($FORM{'cookie'} eq 'on') { $cook="name\:$FORM{'name'}\,email\:$FORM{'email'}"; print "Set-Cookie: $reload=$cook; expires=$date_gmt\n"; $COOKIE{'name'} = $FORM{'name'}; $COOKIE{'email'} = $FORM{'email'}; } else { print "Set-Cookie: $reload=\n"; $COOKIE{'name'} = $COOKIE{'email'} = ''; } $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if ($host eq '') { $host = $addr; } if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; } &lock1; if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; if (!open(WRITE,"> $tmp_dir\/$tmp_file")) { &error('エラー','テンポラリーファイルが作成できません.'); } print WRITE $master; $max_control = 0; while () { $max_control++; ($i,$number,$i,$i,$i,$i,$i,$i,$i,$i,$i,$i,$i) = split(/\t/); if ( $number =~ /$FORM{'number'}/ ) { print WRITE "$FORM{'id'}\t$number\t$FORM{'name'}\t$FORM{'email'}\t$FORM{'date'}\t$FORM{'subject'}\t$FORM{'how'}\t$FORM{'link'}\t$FORM{'value'}\t$FORM{'value2'}\t$FORM{'shimekiribi'}\t$FORM{'kanryoubi'}\t$FORM{'nj'}\n"; } else { print WRITE; } if ($max_control == $max - 1) { last; } } close(WRITE); close(READ); &lock2; } sub regist { if ($ref_axs) { $ref = $ENV{'HTTP_REFERER'}; $ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; if (!($ref =~ /$reload/)) { &error('利用不可',"次のページ以外からの投稿は受け付けられません.
→ $reload"); } } if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; unless ($master =~ /^TODOList:(.*)$/) { &error('エラー','データの形式が違います.'); } if ($FORM{'name'} eq '') { &error('入力ミス','担当者名を記入してください.'); } if ($FORM{'name'} =~ /\:/) { &error('入力ミス','担当者名にコロンは使えません.'); } if ($FORM{'name'} =~ /\;/) { &error('入力ミス','担当者名にセミコロンは使えません.'); } if ($FORM{'name'} =~ /\,/) { &error('入力ミス','担当者名にカンマは使えません.'); } if ($FORM{'email'} ne '' && !($FORM{'email'} =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/)) { &error('入力ミス','Ｅメールの形式が間違っています.'); } if ($FORM{'email'} =~ /\:/) { &error('入力ミス','Ｅメールにコロンは使えません.'); } if ($FORM{'email'} =~ /\;/) { &error('入力ミス','Ｅメールにセミコロンは使えません.'); } if ($FORM{'email'} =~ /\,/) { &error('入力ミス','Ｅメールにカンマは使えません.'); } if ($FORM{'subject'} eq '') { &error('入力ミス','項目名を記入してください.'); } if ($FORM{'value'} eq '') { &error('入力ミス','詳細を記入してください.'); } $j = 0; while () { $j++; if ($j > $njmax) { last; } ($i,$i,$i,$i,$i,$i,$i,$i,$i,$i,$i,$i,$nj) = split(/\t/); if ($nj =~ /$FORM{'nj'}/) { &error('二重(連続)投稿の禁止',"ＯＫボタンを２回以上押した可能\性がありますので、投稿されているかどうかご確認ください.
再投稿は更新してからご利用ください."); } } close(READ); $y0="Sunday"; $y1="Monday"; $y2="Tuesday"; $y3="Wednesday"; $y4="Thursday"; $y5="Friday"; $y6="Saturday"; @youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6); $m0="Jan"; $m1="Feb"; $m2="Mar"; $m3="Apr"; $m4="May"; $m5="Jun"; $m6="Jul"; $m7="Aug"; $m8="Sep"; $m9="Oct"; $m10="Nov"; $m11="Dec"; @monthg = ($m0,$m1,$m2,$m3,$m4,$m5,$m6,$m7,$m8,$m9,$m10,$m11); $date_gmt = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT",$youbi[$wdayg],$mdayg,$monthg[$mong],$yearg +1900,$hourg,$ming,$secg); if ($FORM{'cookie'} eq 'on') { $cook="name\:$FORM{'name'}\,email\:$FORM{'email'}"; print "Set-Cookie: $reload=$cook; expires=$date_gmt\n"; $COOKIE{'name'} = $FORM{'name'}; $COOKIE{'email'} = $FORM{'email'}; } else { print "Set-Cookie: $reload=\n"; $COOKIE{'name'} = $COOKIE{'email'} = ''; } $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if ($host eq '') { $host = $addr; } if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; } &lock1; if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; if (!open(WRITE,"> $tmp_dir\/$tmp_file")) { &error('エラー','テンポラリーファイルが作成できません.'); } print WRITE $master; $max_control = 0; while () { $max_control++; print WRITE; if ($max_control == $max - 1) { last; } } print WRITE "$FORM{'id'}\t$date_num\t$FORM{'name'}\t$FORM{'email'}\t$FORM{'date'}\t$FORM{'subject'}\t$FORM{'how'}\t$FORM{'link'}\t$FORM{'value'}\t$FORM{'value2'}\t$FORM{'shimekiribi'}\t$FORM{'kanryoubi'}\t$FORM{'nj'}\n"; close(WRITE); close(READ); &lock2; } sub error { print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "\n"; print "$body\n"; print "

$_[0]

\n"; print "

$_[1]

\n"; print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.

\n"; print "\n"; exit; } sub remove { &lock1; if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; if (!open(WRITE,"> $tmp_dir\/$tmp_file")) { &error('設定ミス','テンポラリーファイルが作成できません.'); } print WRITE $master; $start = (times)[0]; $i=1; while ($line = ) { ($id,$number,$name,$email,$date,$subject,$how,$link,$value,$value2,$shimekiribi,$kanryoubi,$nj) = split(/\t/, $line); if ($number =~ /$FORM{'number'}/) { next; } $idf = sprintf("%03d",$i); $line =~ s/^([0-9]+)\t/$idf\t/; print WRITE $line; $i++; } $end = (times)[0]; close(WRITE); close(READ); &lock2; } sub sortlist { &lock1; if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master= ; @lines = ; close(READ); $maxline = @lines; foreach $line (@lines) { if ($line =~ /^$FORM{'id'}/) { $newline = $line; if ($FORM{'sort'} eq '↑上げる'){ if ($FORM{'step'} > $FORM{'id'} - 1) { $FORM{'step'} = $FORM{'id'} - 1; } $newid = $FORM{'id'} - $FORM{'step'}; } else { if ($FORM{'step'} > $maxline - $FORM{'id'}) { $FORM{'step'} = $maxline - $FORM{'id'}; } $newid = $FORM{'id'} + $FORM{'step'}; } $newidf = sprintf("%03d",$newid); $newline =~ s/$FORM{'id'}/$newidf/; } else { push(@newlines, $line); } } if (!open(WRITE,"> $tmp_dir\/$tmp_file")) { &error('設定ミス','テンポラリーファイルが作成できません.'); } print WRITE $master; $i = 1; foreach $line (@newlines) { if ($i == $newid){ print WRITE $newline; $i++; } $idf = sprintf("%03d",$i); $line =~ s/^([0-9]+)\t/$idf\t/; print WRITE $line; $i++; } if ($newid == $maxline){ print WRITE $newline; } close (WRITE); &lock2; } sub getmaxnumber { if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; local($maxid) = 0; while ( ) { $maxid++; } close(READ); return $maxid; } sub setmaster { &lock1; if (!open(WRITE,"> $tmp_dir\/$tmp_file")) { &error('エラー','テンポラリーファイルが作成できません.'); } print WRITE "TODOList:\n"; close(WRITE); &lock2; } sub lock1 { $list = `ls $ls` || &error("システムエラー1",''); if ($list eq '') { &error("システムエラー2",''); } @lists = split(/\s+/,$list); @lists = grep(/\.tmp/,@lists); local($retry) = 3; while (@lists) { if (--$retry <= 0) { foreach (@lists) { if (-e $_) { unlink; }} &error("Busy(1)",'ただ今混雑しております.
時間をおいて再度実行してください.'); } sleep(1); $list = `ls $ls`; @lists = split(/\s+/,$list); @lists = grep(/\.tmp/,@lists); } } sub lock2 { $list = `ls $ls`; @lists = split(/\s+/,$list); @lists = grep(/\.tmp/,@lists); @lists = grep(!/$tmp_file/,@lists); if (@lists) { if (-e "$tmp_dir\/$tmp_file") { unlink("$tmp_dir\/$tmp_file"); } &error("Busy(2)",'書き込みに失敗しました.
再度実行してください.'); } if (!rename("$tmp_dir\/$tmp_file","$tmp_dir\/$file")) { &error("Busy(3)",'書き込みに失敗しました.
再度実行してください.'); } ; chmod 0666,"$tmp_dir\/$file"; } sub Days { local ($year,$month,$day) = @_; local ($base,$i,$y); $days[2] = 28; unless ($year % 4) { $days[2] = 29; } unless ($year % 100) { $days[2] = 28; } unless ($year % 400) { $days[2] = 29; } $y = $year - 1; $base = ($y * 365) + ($y / 4) - ($y / 100) + ($y / 400) - 1; $i = $month; while ( --$i ) { $base += $days[$i]; } return int($base + $day); } sub new { @array = ( "47","49","46","38","39","61","16","00","0a","00","b3","02","00","00","00","00","ff","d6","00","ff", "ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff", "ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff","ff", "ff","21","f9","04","01","00","00","02","00","2c","00","00","00","00","16","00","0a","00","40","04", "37","50","c8","29","02","ad","77","06","60","2b","0f","60","b8","71","00","e7","99","db","88","7e", "21","ab","81","65","1c","be","70","4d","8a","69","6e","66","38","98","49","29","e0","4d","b4","f3", "d8","8e","3e","c1","67","59","3b","a9","4a","47","54","12","c3","eb","09","22","00","3b"); print "Content-type: image/gif\n\n"; foreach (@array) { $data = pack('C*',hex($_)); print $data; } exit; } sub copyright { @array = ( "47","49","46","38","39","61","27","00","1a","00","b3","00","00","00","00","00","ff","ff","ff","00", "00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00", "00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","92","92","92","00","00", "00","21","f9","04","01","00","00","00","00","2c","00","00","00","00","27","00","1a","00","40","04", "b6","10","c8","49","ab","bd","d8","86","e0","b6","fb","1b","d7","01","5e","08","92","60","19","5c", "62","e7","b9","9f","2b","be","e1","86","d5","38","89","87","d2","6e","67","93","d6","88","33","eb", "f1","76","41","5e","c5","c7","6c","fa","58","29","14","cc","25","f5","9d","80","ad","df","2b","75", "bd","75","7b","d3","52","2a","2b","8c","6d","57","46","22","6d","cd","e6","ca","be","94","b2","59", "7e","da","c2","e3","f2","5a","6c","2e","e5","b3","da","6f","81","6c","44","40","69","3f","86","48", "19","35","1a","59","3a","73","34","58","70","62","81","63","6a","2a","32","25","1a","61","61","8e", "6f","26","82","4b","94","67","55","55","2a","45","14","7b","97","a9","a9","00","66","7b","ac","7f", "4e","4c","88","87","7f","63","b7","82","a6","54","8a","b8","9f","be","67","b5","50","bd","64","45", "9f","77","71","75","33","c5","ca","23","28","c1","41","ad","af","c6","a9","d3","51","85","d7","d8", "19","11","00","00","3b"); print "Content-type: image/gif\n\n"; foreach (@array) { $data = pack('C*',hex($_)); print $data; } exit; }