#!/usr/local/bin/perl # # MessageBoard System Ver 1.1 # 1997/11/1 # Created by y.shima E-mail:shima@aries.bekkoame.or.jp # Copyright y.shima # # w.cgi,show.cgi,wri.cgi,delete.cgi require 'jcode.pl'; $mesdat = "mes.dat"; $showcgi = "show.cgi"; $wricgi = "wri.cgi"; $delcgi = "delete.cgi"; $htmlsub = "東区ネットワークコミュニティの掲示板"; $debug = 0; $debugf = "testw.txt" if $debug != 0; open (TEST,">$debugf")||die $! if $debug != 0; open(MES,"$mesdat")|| die $!; @lines = ; close(MES); $line = @lines; print "Content-type: text/html\n\n"; print "$htmlsub\n"; print "
$htmlsub
\n"; print "
\n"; print "
[ 新規に書く ]
\n"; print "
\n"; $i = 0; for (@lines){ ($num1[$i],$num2[$i],$name[$i],$email[$i],$subject[$i],$date[$i],$htsub[$i],$ht[$i],$mes[$i]) = split (/ --- /); $dis[$i] = 1; print "[$num1[$i]][$num2[$i]]\n" if $debug != 0; $i++; } print "\n"; print "\n"; print "
\n"; print "
戻る
\n"; print "\n"; ################################################ #引数の番号へ返事をしたメッセージ番号($num1)は？ ################################################ sub saki{ local($nummoto) = $_[0]; local(@moto,$loop,$bbb); print " nummoto is [$nummoto]\n" if $debug != 0; for ($loop = 0 ; $loop < $line; $loop ++){ if ($num2[$loop] == $nummoto){ push(@moto,$num1[$loop]); print " ok!! $num2[$loop],$num1[$loop]\n" if $debug != 0; } } if(@moto){print "\n";} } ################################################ #引数の番号のメッセージは、配列の何行目？ ################################################ sub noha{ local($numnum) = $_[0]; local($loop,$numr); for ($loop = 0 ; $loop < $line; $loop++){ if($num1[$loop] == $numnum){ $numr = $loop; print " numnum is[$numnum],numr is [$numr]\n" if $debug != 0; } } $numr; }