#!/usr/local/bin/perl

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#
#              The Endless Battle program Satellite
#       Copyright Net Game Communications All Rights reserved
#                       メインスクリプト
#
#         フリーウェアですが、著作権は放棄していません。
#			再配布、商用利用する場合はご報告願います。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#
#              The Endless Battle sub program 
#       Copyright masimaro All Rights reserved
#                       掲示板スクリプト
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#設定
$SCRIPTNM="bbs.cgi";       #掲示板スクリプト名（パーミッション７５５）
$logfile="bbslog.cgi";     #ログファイル名（パーミッション６６６）
$timer = "60";             #使用できる時間の間隔（秒）
$bbstitle ="専用掲示板";   #掲示板名
$maxlog="300";             #ログ保存数
$maxlines="30";            #表示件数
$tate="30";                #アイコン縦サイズ
$yoko="30";                #アイコン横サイズ
$mojisuu="100";            #投稿最大文字数
$siyouflag="0";            #無国籍の使用可否：0 で使用不可 / 1 で使用可 
#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

require 'ebs_sub1.cgi';


&ERROR('直リンクは禁止です','入り口からのアクセスお願いします。') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST';

!$SUB && ($SUB='BBS');
&$SUB;

sub BBS		{&BBSNANCE;}
sub TOUKOU              {&TOUKOU2;}
sub SYUSEI		{&SYUSEI2;&TOUKOU2;}

sub BBSNANCE{
		@pair = split(/;/, $ENV{'HTTP_COOKIE'});
		foreach (@pair) {my($key, $value) = split(/=/, $_);$DUMMY{$key} = $value;}
	@pairs = split(/,/, $DUMMY{EB});
		foreach (@pairs) {my($key, $value) = split(/:/, $_);$COOKIE{$key} = $value;}

	&HEADER;
        if($FORM{'medal'} eq ''){$FORM{'medal'}=0;}
	print << "	-----END-----";

	<table width=100% height=100%><tr><td align=center>
		<table border=0 cellpadding=0 cellspacing=0 bgcolor="#909090" align=center
		 style="border:1px outset #909090;font-size:16px;">
		<form action=$SCRIPTNM method=POST><input type=hidden name="cmd" value="TOUKOU">
		<tr><td style="background-color:#404040;" colspan=2>
		&nbsp;BBS Mode</td></tr>
                <tr><td align=center><b style="color:#000000;">ID</b></td>
		<td><input type=hidden name="plname" value="$COOKIE{'pname'}" style="height:21px; color:#ffffff; font-size:16px; background:#000000; border:1 inset #c0c0c0;">$COOKIE{'pname'}

		<tr><td align=center><b style="color:#000000;">PASS</b></td>
		<td><input type=hidden name="pass" value="$COOKIE{'pass'}" style="height:21px; color:#ffffff; font-size:16px; background:#000000; border:1 inset #c0c0c0;">$COOKIE{'pass'}
		<input type=submit value=Login $STYLE_B1>
		</td></tr></form></table>
	<form action=$MAIN_SCRIPT method=POST>
	<input type=submit value=戻る $STYLE_B1>

	</form>
	</td></tr></table>
		
	-----END-----
}

sub TOUKOU2{
&ERROR('ID入力エラー！！') if $FORM{'plname'} eq '';
&ERROR('パスワードエラー！！') if $FORM{'pass'} eq '';

&DBM_INPORT(P);

@VALS = split(/\s/,$P{"$FORM{'plname'}"});
&ERROR('パスワードエラー！！') if crypt ($FORM{'pass'},eb) ne "$VALS[2]";
&HEADER;

&LOCK;
    open(IN,"$logfile");
    @bbslines = <IN>;
    close(IN);

&UNLOCK;
if($VALS[5] eq ''){$NATION=$NONE_NATIONALITY;}else{$NATION=$VALS[5];}
if($siyouflag == 0 and $NATION eq $NONE_NATIONALITY){&ERROR('どこの国にも属していない方のご利用はできません')}
print << "-----END-----";
<table width=100% height=100%><tr><td align=center><center><b>[ $NATION $bbstitle ]</b></center>
<table cellspacing=2 cellpadding=3 bgcolor="#909090" style="font-size:16px;">
-----END-----
print "<tr><td></td><td align=center><font color=GREN>【$FORM{'plname'}】</font></td><td>現在時刻</td><td>".&DATE_DECORD($DATE);
print "</td></tr>";
print "<tr><td></td><td align=center><font color=red>$info</font></td><td>更新時刻</td><td>".&DATE_DECORD($VALS[26]);
print "</td></tr>";

print << "-----END-----";
<tr><td>
	<form action=$SCRIPTNM method=POST>
	<input type=hidden name="cmd" value=SYUSEI>
	<input type=hidden name="plname" value=$FORM{'plname'}>
        <input type=hidden name="pnation" value=$NATION>
        <input type=hidden name="picon" value=$VALS[27]>
        <input type=hidden name="ptime" value=$VALS[26]>

        発言</td><td><input type="text" name="com" size="70" maxlength=$mojisuu value="" $STYLE_L>
        </td><td><input type=submit value="　決定　" $STYLE_B1>
        </td><td><input type="reset" value="　クリア　" $STYLE_B1></td>
	<input type=hidden name="pass" value="$FORM{'pass'}">

        </form>

-----END-----

    print "<tr><td colspan=4><hr>\n";

    $bb=0;
    foreach (@bbslines) {
($pname,$pcountry,$pcomment,$pdate,$picon) = split(/<>/);
    if($maxlines <= $bb) { last; }
       if($NATION eq $pcountry){ 
print "<table border=1><tr><td><img src=\"$IMG_FOLDER2/$picon.gif\" width=$yoko height=$tate></td><td>$pname</td><td width=500>$pcomment</td><td>".&DATE_DECORD($pdate);
print "</td></tr></table>";
       $bb++;
       }
    }

print << "-----END-----";
<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="BBS">
<input type=hidden name="pass" value=\"$FORM{'pass'}\"><tr><td colspan=35>

<input type=submit value=戻る $STYLE_B1>
</td></tr></table>
-----END-----
	print "<BR><center>掲示板：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a></center>";
&FOOTER;
print "</td></tr></table></form></body>";
}

sub SYUSEI2{

    if($FORM{'com'} ne '' and $FORM{'ptime'} < time-$timer){

&LOCK;
    open(IN,"$logfile");
    @bbslines = <IN>;
    close(IN);

	$mes_max = @bbslines;

	if($mes_max >= $maxlog) { pop(@bbslines); }

	unshift(@bbslines,"$FORM{'plname'}<>$FORM{'pnation'}<>$FORM{'com'}<>$DATE<>$FORM{'picon'}<>\n");

	open(OUT,">$logfile");
	print OUT @bbslines;
	close(OUT);
        chmod(0666,"$logfile");

	dbmopen (%P,"$DBM_P",0666);
		@VALS = split(/\s/,$P{"$FORM{'plname'}"});
                $VALS[26] = $DATE ;
		$P{"$FORM{'plname'}"}="@VALS";
	dbmclose %P;

&UNLOCK;
    }elsif($FORM{'ptime'} >= time-$timer){$info="更新時刻から$timer秒以内の投稿はできません";
    }elsif($FORM{'com'} eq ''){$info="コメントが未入力です";}

}