*-- 登録状況 --*\n";
print "
（）内の数字はその地域の登録者数です。\n";
print "
\n";
print "\n";
$j = 1 ;
for ( $i = 0 ; $i <= $#AREATBL ; $i++ ) {
$i = sprintf("%02d",$i) ;
print "| $AREATBL[$i] | \n";
if ( $touroku{$i} ) {
print "登録数 ($touroku{$i}人) | \n";
} else {
print " | \n";
}
$j++ ;
if ( $j > 3 ) {
print "
\n";
print "\n" if ( $i != $#AREATBL ) ;
$j = 1 ;
}
}
print "
\n";
&footer;
exit;
}
###<--------------------------------------------------------------
###<--- エラー処理
###<--------------------------------------------------------------
sub error {
&header ;
print "
$_[0]\n";
&footer;
exit;
}
###<--------------------------------------------------------------
###<--- ファイルロック設定
###<--------------------------------------------------------------
sub filelock {
foreach (1 .. 5) {
if (-e $lockfile) { sleep(1); }
else {
open(LOCK,">$lockfile");
close(LOCK);
return;
}
}
&error("只今他の方が書き込み中です。ブラウザの「戻る」で戻って再度登録を行って下さい。");
}
###<--------------------------------------------------------------
###<--- ファイルロック解除
###<--------------------------------------------------------------
sub fileunlock {
if (-e $lockfile) { unlink($lockfile); }
}
###<-------------------------------------------------------------
###<--- パスワード暗号化
###<--------------------------------------------------------------
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 area_link {
$i = sprintf("%02d",$_[0]) ;
if ( $i != 99 ) {
if ( $sekaiwamadamada == 1 && $i > 46 && $i != 53 ) {
print "";
} else {
if ( $colorflg == 0 ) { #初期設定色を使用
print " | ";
} else { #登録人数によって色変更
$j = 0 ; $k = 0 ;
foreach $buf ( @COLOR_NUM ) {
if ( $buf <= $touroku{$i} ) { $j = $k ; }
$k++ ;
}
print " | ";
}
if ( $touroku{$i} eq '' ) { $wk = "0人" ; }
else { $wk = "$touroku{$i}人登録されています"; }
print "![\"$AREATBL[$i]…$wk\"](\"$gif_spacer\") ";
}
print " | \n";
} else {
print "
△地域をクリックすると記事が表\示されます
\n";
print "現在の登録者$total人を最新から表\示";
if ( $colorflg == 1 ) {
print "
\n";
foreach ( 0..$#COLOR_NUM ) {
print "| ■ | $COLOR_NUM[$_]人以上 |
";
}
print "
\n";
}
}
}
###<--------------------------------------------------------------
###<--- SendMail
###<--------------------------------------------------------------
sub SMail {
$ttl = $title;
$wkcomment = $FORM{'comment'} ;
$wkcomment =~ s/<//g;
$wkcomment =~ s/
/\n/g;
if ($FORM{'hp'} ne "") { $wk = "http://$FORM{'hp'}"; }
$DETAIL = <<"EOM";
-------------------------------------------------------------
投稿された内容は下記の通りです。
-------------------------------------------------------------
▼投稿日
$today
▼記事No
$no
▼お名前
$FORM{'name'}
▼メールアドレス
$FORM{'email'}
▼地域
$AREATBL[$FORM{'area'}]
▼性別
$SEXTBL[$FORM{'sex'}]
▼ホームページ
$wk
▼メッセージ
$wkcomment
▼パスワード
$FORM{'pass'}
-------------------------------------------------------------
EOM
#管理人用メール送信
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 .= "From: $email\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 .= $DETAIL ;
#漢字コードＪＩＳ変換＆改行コードLF変換。
&jcode'convert(*mailbuf,'jis');
print MAIL $mailbuf ;
close(MAIL);
}
\n";
print "\n";
print "