$title

\n"; print "全$count件が記録されています。
\n"; print "１ページに\n"; print "$pmax件ずつ表\示されます\n"; if($count > $pmax){ print < EOM } print <

EOM # ここから下６行は削除しないで下さい(Copyright) print < EasyJoho Ver1.1 EOM } # --------------------------------------------------------------- sub go_next{ if($in{'modori'} eq '0'){ &html; }else{ print "Content-type: text/html\n\n"; print < $title

$title

EOM if($in{'okuri'} ne ''){ $i = $in{'okuri'}; $ini = $i; #このページの最初の行 }elsif($in{'modori'} ne ''){ $i = $in{'modori'}; $ini = $i; } &read_file; $okuri = $i; #次のページの最初に読み出す行になる $modori = ($ini - $pmax); #前のページの最初に読み出す行 $ini_end = ($i - 1); #このページの最後の行 $ini_end_view = $ini_end + 1; print < 全$count件中、このページには$ini件～$ini_end_view件を\表\示しています

EOM if($i eq $count){ print "このページが最後です\n"; }else{ print "

; flock(OUT,8); close(OUT); $count = @DATA; if($count < $pmax){ $pmax_new = $count; }elsif(($count - $i) < $pmax){ $pmax_new = ($count - $i); }else{ $pmax_new = $pmax; } while($pmax_new > 0){ ($cnt,$date,$subject,$comment) = split(/\,/,$DATA[$i]); print <

$subject	$date
$comment

EOM $i ++; $pmax_new --; } } # ------------------------------------------------------------------------------------------ # 管理者フォームHTML出力サブルーチン sub kanri_html { print "Content-type: text/html\n\n"; print < 管理者用画面

管理者用画面

一般画面に戻る

削除する記事をチェックして「削除する」を押して下さい

EOM if(!open(OUT,"$file")){&error(file_er);} flock(OUT,2); @DATA = ; flock(OUT,8); close(OUT); $count = @DATA; $i = 0; while($count > 0){ ($cnt,$date,$subject,$comment) = split(/\,/,$DATA[$i]); print "$date,$subject,$comment
\n"; $i ++; $count --; } print < EOM } # ------------------------------------------------------------------------------ # 削除サブルーチン sub delete{ if(!open(OUT,"$file")){&error(file_er);} flock(OUT,2); @DATA = ; flock(OUT,8); close(OUT); $count = @DATA; @code = split(/\0/,$in{'delete'}); $countcode = @code; $i = 0; $j = 0; while(($count > 0) || ($countcode > $j)){ ($cnt,$date,$subject,$comment) = split(/\,/,$DATA[$i]); if($cnt eq $code[$j]){ $DATA[$i] = ''; $j ++; } $i ++; $count --; } if(!open(OUT,">$file")){&error(file_er);} flock(OUT,2); print OUT @DATA; flock(OUT,8); close(OUT); } # ----------------------------------------------------------------------------- # 書き込みサブルーチン sub kakikomi { $dai = $in{'dai'}; $in_comment = $in{'comment'}; &jcode'convert(*in_comment,"sjis"); &jcode'convert(*dai,"sjis"); $in_comment =~ s/\n/
/g; $in_comment =~ s/\r//g; $in_comment =~ s/\"//g; $in_comment =~ s/,//g; $in_comment =~ s/\,/\./g; $dai =~ s/\"//g; $dai =~ s/\,/\./g; # 時間の取得 ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime; $mon++; @week = ('日','月','火','水','木','金','土'); $wday = $week[$wday]; $mon = sprintf("%.2d",$mon); $mday = sprintf("%.2d",$mday); $hour = sprintf("%.2d",$hour); $min = sprintf("%.2d",$min); $sec = sprintf("%.2d",$sec); $year = substr($year,1,2); if(!open(OUT,"$file")){&error(file_er);} flock(OUT,2); $line1 = ; flock(OUT,8); close(OUT); if($dai eq ''){ &error(dai_er); }elsif($in_comment eq ''){ &error(comment_er); }else{ ($cnt,$date,$subject,$comment) = split(/\,/,$line1); $cnt ++; $new_comment = "$cnt,$year/$mon/$mday($wday)$hour:$min:$sec,$dai,$in_comment\n"; if(!open(OUT,"$file")){&error(file_er);} flock(OUT,2); @DATA = ; flock(OUT,8); close(OUT); unshift(@DATA,$new_comment); $i = 0; foreach $line(@DATA){ $i ++; if($i > $max){last;} push(@NEWDATA,$line); } if(!open(IN,">$file")){&error(file_er);} flock(IN,2); print IN @NEWDATA; flock(IN,8); close(IN); } } # ---------------------------------------------------------------------------------- # プレビュー画面サブルーチン sub preview { $dai = $in{'dai'}; $in_comment = $in{'comment'}; &jcode'convert(*in_comment,"sjis"); &jcode'convert(*dai,"sjis"); $in_comment =~ s/\n/
/g; $in_comment =~ s/\r//g; $in_comment =~ s/\"//g; $in_comment =~ s/\,/\./g; $dai =~ s/\,/\./g; $dai =~ s/\"//g; # 時間の取得 ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime; $mon++; @week = ('日','月','火','水','木','金','土'); $wday = $week[$wday]; $mon = sprintf("%.2d",$mon); $mday = sprintf("%.2d",$mday); $hour = sprintf("%.2d",$hour); $min = sprintf("%.2d",$min); $sec = sprintf("%.2d",$sec); $str_length = length($year); if($str_length > 2){ $year = substr($year,1,2); } print "Content-type: text/html\n\n"; print "PREVIEW\n"; print "\n"; print "

プレビュー画面

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

\n"; print "$dai	\n"; print "$year/$mon/$mday($wday)$hour:$min:$sec
$in_comment

\n"; print "\n

\n"; print < 変更する場合はここをクリックして戻る

確定して送信するときは下のボタンを押して下さい

EOM } # ----------------------------------------------------------------------------- # エラーサブルーチン sub error{ $error = $_[0]; if($error eq "comment_er"){ $msge = 'コメントが正しく記入されていません'; }elsif($error eq "dai_er"){ $msge = 'タイトルを記入して下さい'; }elsif($error eq "file_er"){ $msge = '記録ファイルをオープン出来ません'; }else{ $msge = 'パスワードが違います'; } print "Content-type: text/html\n\n"; print "ERROR\n"; print "\n"; print "

$msge

\n"; print "BACK\n"; exit; }