";
# print "";
if ($title99 ne "")
{
print ">$title99";
}
else
{ print ">・・・・";
}
print " 投稿者:";
# if ($mail99 ne "")
# {
#print "$name99";
#
# }
# else
# {
print "$name99";
#
# }
if ($http99 ne "")
{
print " ";
}
print " ";
print " | ";
## print "$date \n"; ##-$host \n";
print "$date
\n"; ##==> $host
\n"; ##-$host \n";
# print "";
print "$message99\n";
# print " | ";
} # end if
} # end foreach
#### 表示終わり####
print " \n";
## print " \n";
# print "MM718B10.LZH \n";
# print "MM717B3.LZH \n";
# print "mm703b2.lzh \n";
# print "MM651b3.lzh \n";
print "過去の投稿--> ";
print "2014/03/22\n";
print "2012/04/30\n";
print "2009/11/23\n";
print "2008/03/19 \n";
print "2006/12/28\n";
print "2005/10/27\n";
print "2005/04/25\n";
print "2004/05/27 \n";
print "2003/12/30\n";
print "2003/07/17\n";
print "2003/04/11\n";
print "2003/02/27 \n";
print "2002/12/25\n";
print "2002/09/09\n";
print "2002/06/10\n";
print "2002/04/17\n";
print "2002/01/26 \n";
print "2001/12/18\n";
print "2001/11/10\n";
print "2001/09/20\n";
print "2001/08/02\n";
print "2001/05/29\n";
print "2001/04/09\n";
print "2001/02/22 \n";
print "mmqa2000.lzh 2000年度の掲示板・質疑応答のテキスト版 157kb (org 438kb) \n";
print "mmqa1999.lzh 1999年度の掲示板・質疑応答のテキスト版 245kb (org 694kb) \n";
print "mmqa1998.lzh 1998年度の掲示板・質疑応答のテキスト版 209kb (org 588kb)\n";
# print " ";
# print " \n";
# print " \n";
print "\n";
exit;
#http://www.am-corp2.com/mcount.exe?I=/home/client/n0750000/www/htdocs/temp/mcount.cnt
}
################ 書込み ################
sub write{
$passtitle = $INPUT{ 'title99' };
$passname = $INPUT{ 'name99' };
$passmail = $INPUT{ 'mail99' };
$passhttp = $INPUT{ 'http99' };
$passmessage = $INPUT{'message99'};
## タイトルチェック ##
if ( $passtitle eq "" ) {
$errmsg = "タイトル(表\題)を書きなはれ。";
&error;
}
if ( $passtitle =~ / site/ )
{
$errmsg = "メールアドレスが違います、まちがっとります。";
&error;
}
if ( $passtitle =~ /http:/ )
{
$errmsg = "メールアドレスが違います、まちがっとります。";
&error;
}
## 名前チェック ##
if ( $passname eq "" ) {
$errmsg = "名前を書きなはれ01。";
&error;
}
if ( $passname eq "BIrrefrolo" ) {
$errmsg = "名前を書きなはれ02。";
&error;
}
if ( $passname eq "kolotna" ) {
$errmsg = "上を向きなはれ03。";
&error;
}
if ( $passname =~ /http:/ )
{
$errmsg = "メールアドレスが違います、まちがっとります03。";
&error;
}
## メールアドレスチェック ##
if ( $passmail eq "" )
# if ( $passmail = " " )
{ ; }
# { $errmsg = "アドレスを書きなはれ。";
# &error;
# }
# elsif ( $passmail =~ /(.+)\@(.+)\.(.+)/ )
# { ; }
elsif ( $passmail ne "" )
{ $errmsg = "アドレスを書きなはれ11。";
&error;
}
else{
$errmsg = "メールアドレスがまちがっとります12。";
&error;
}
## ホームページアドレスチェック ##
if ( $passhttp eq "" ) { ; }
elsif ( $passhttp eq "http://" ) { $passhttp = ""; }
elsif ( $passhttp =~ /^http:\/\/(.+)\.(.+)\.(.+)/ ) { ; }
else{
$errmsg = "ホームページアドレスがまちがっとります。";
&error;
}
## メッセージの最終チェック ##
if ( $passmessage eq "" ) {
$errmsg = "内容が空白でっせ。";
&error;
}
##if($passmessage =~ /[\xA1-\xFE][\xA1-\xFE]/){print "全角文字列が含まれています。\n"; }
##if ($passmessage =~ /[\x80-\xff]/) { print "全角文字が含まれてます"; }
if ($passmessage =~ /[\x80-\xff]/) { ; } ##{ print "全角文字が含まれてます"; }
else
{
$errmsg = "メールアドレスが違っています。";
&error;
}
if ( $passmessage =~ /www./ )
{
$errmsg = "メールアドレスが違います、まちがっとります。w";
&error;
}
if ( $passmessage =~ /http:/ )
{
$errmsg = "メールアドレスが違います、まちがっとります。";
&error;
}
if ( $passmessage =~ /winzovirax/ )
{
$errmsg = "メールアドレスが違います、まちがっとります。";
&error;
}
if ( $passmessage =~ /gist.github.com/ )
{
$errmsg = "メールアドレスが違います、まちがっとります。";
&error;
}
if ( $dumword ne $INPUT{'dummy'} ){
$errmsg = "不正な書込みはあきまへんで。";
&error;
}
## host チェック
# $dummy2 = $ENV{'REMOTE_HOST'}; ## saganet.ne.jp Win NT
$dummy2 = $ENV{'REMOTE_ADDR'}; ## am-corp2.com linux
($id1, $id2, $id3, $id4) = split( /\./ , $dummy2 );
if( ( $id1 eq "218" && $id2 eq "226")
|| ( $id1 eq "219" && $id2 eq "110" && $id3 eq "187") ## 219.110.187.28 三井
|| ( $id1 eq "210" && $id2 eq "136" && $id3 eq "161") ## 210.136.161.11 三井
|| ( $id1 eq "210" && $id2 eq "153" && $id3 eq "84") ## 210.153.84.202 三井
|| ( $id1 eq "61" && $id2 eq "152" && $id3 eq "169") ## 61.152.169.27 中国
|| ( $id1 eq "218" && $id2 eq "83" && $id3 eq "155") ## 218.83.155.134 中国
|| ( $id1 eq "218" && $id2 eq "47" && $id3 eq "186") ## 218.47.186.151 石川
|| ( $id1 eq "120" && $id2 eq "39" && $id3 eq "19") ## 120.39.19.73
|| ( $id1 eq "120" && $id2 eq "39" && $id3 eq "18") ## 120.39.18.73
|| ( $id1 eq "178" && $id2 eq "137" && $id3 eq "18") ## 178.137.18.46 **2011/11/19
|| ( $id1 eq "110" && $id2 eq "82" && $id3 eq "153") ## 110.82.153.142 **2013/02/23
|| ( $id1 eq "222" && $id2 eq "77" && $id3 eq "251") ## 222.77.251.117 **2013/02/23
|| ( $id1 eq "27" && $id2 eq "153" ) ## 27.153.157.66, 27.153.213.40 **2013/02/23
|| ( $id1 eq "46" && $id2 eq "161" && $id3 eq "9") ## 46.161.9.4 **2017/01/23
|| ( $id1 eq "31" && $id2 eq "184" && $id3 eq "238") ## 31.184.238.148 **2018/12/22
)
## if( $id1 eq "210" && $id2 eq "191") ## miyamiya
{
## if( $id3 eq "13" || $id3 eq "15" )
$errmsg = "ホームページアドレスがまちがっとります22。";
&error;
}
#### タイムスタンプ ####
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($sec < 10) { $sec = "0$sec"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
$yyy = ($year + 1900);
$month = ($mon + 1);
$y0="日"; $y1="月"; $y2="火"; $y3="水"; $y4="木"; $y5="金"; $y6="土";
$youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6) [(localtime)[6]];
$date = "$yyy年$month月$mday日($youbi)$hour時$min分";
#### データを付け加えてから ####
# $dummy = $ENV{'REMOTE_HOST'}; ## saganet.ne.jp Win NT
$dummy = $ENV{'REMOTE_ADDR'}; ## am-corp2.com linux
unshift( @data , "DATE$date , $passname , $passmail , $passmessage , $dummy , $passtitle , $passhttp\n" );
if ( @data >= $max ){
$dummy = pop( @data );
}
#### 書込みします ####
if ( open( OUT , ">$datafile" ) ){
foreach $line ( @data ){
print OUT "$line";
}
close(OUT);
chmod( 0666 , "$datafile" );
}
else{
$errmsg = "データファイルがご機嫌ななめな状態です。書込みを拒否されました。";
&error;
}
&displaydata;
}
##################################################################################
sub error {
print <<"_End_of_HTML_";
$title99
$htmlbody
$title99 エラーです!!
ブラウザのリロードボタンまたはバックボタンを押してください。
|