#!/usr/bin/perl
##############################################################################
#                                                                            #
# hboard_std_admin.cgi Rev 1.0  (10/12/1998)                                 #
#                                                                            #
##############################################################################
#                                                                            #
# 返事が書ける掲示板の管理メニュー                                           #
#                                                                            #
# Copyright (C) 1998 Ｗｅｂ新撰組                                            #
# WWW: http://www.web-shinsengumi.com                                              #
# 無断転載・複製を禁ずる                                                     #
#                                                                            #
# 作成：萩原　逸郎(eMail:hagi2@kh.rim.or.jp)                                 #
#                                                                            #
##############################################################################

require './hmkpasswd.pl';


# 初期設定
# 初期設定以外はいじらんで下さい

$cginame='./hboard_std_admin.cgi'; # このCGIのファイル名
$logdata="./hboard_std.log";		  # ログファイル名
$passwd_file="./passwd";	  # パスワードファイル
$HOME='http://www.web-shinsengumi.com'; # ホームページのURL
$CGI_TITLE='普通の掲示板管理メニュー'; # このCGIの見出し

# 初期設定ここまで


%FORM=&get_formdata;

if($FORM{'action'}){
    $action=$FORM{'action'};
    $action =~ s/\n//g;
}else{
    $action='show';
}

if($action eq 'show'){

    &print_head;
    &print_form;
    &print_foot;    

}elsif($action eq 'purge_data'){

    if($FORM{'passwd'}){
	$passwd=$FORM{'passwd'};
    }else{
	&error(100,'パスワードがありませぬ');
    }

    &check_passwd($passwd);

    if($FORM{'dnum'}){
	$purgenum=$FORM{'dnum'};
    }else{
	&error(101,'消去する番号を入れて下さい');
    } 

    if($purgenum =~ /\D/){
	&error(102,'しっぱい');
    }

    &purge_data($purgenum);

    &print_head;
    print "<font size=7>OK</font>\n";
    &print_foot;   
    
}elsif($action eq 'change_passwd'){

    if($FORM{'passwd'}){
	$passwd=$FORM{'passwd'};
    }else{
	&error(200,'パスワードがありませぬ');
    }

    &check_passwd($passwd);

    if($FORM{'passwd_a'}){
	$passwd_a=$FORM{'passwd_a'};
    }else{
	&error(201,'パスワードが足りませぬ');
    }

    if($FORM{'passwd_b'}){
	$passwd_b=$FORM{'passwd_b'};
    }else{
	&error(202,'パスワードが足りませぬ');
    }

    if($passwd_a ne $passwd_b){
	&error(203,'パスワードがちゃいまする');
    }

    $new_passwd=&hmkpasswd($passwd_a);

    open(OUT,"> $passwd_file");
    print OUT $new_passwd;
    close(OUT);

    &print_head;
    print "<font size=7>OK</font>\n";
    &print_foot;   

}elsif($action eq 'bomb'){

    if($FORM{'passwd'}){
	$passwd=$FORM{'passwd'};
    }else{
	&error(200,'パスワードがありませぬ');
    }
	&check_passwd($passwd);
    open(OUT,"> $logdata");
    close(OUT);

    &print_head;
    print "<font size=7>OK</font>\n";
    &print_foot;   

}


exit;


sub check_passwd {
    local($passwd)=@_;

    open(IN,"$passwd_file");
    $enc_passwd=<IN>;
    close(IN);

    $enc_passwd =~ s/\n//g;

    $dmy=crypt($passwd,$enc_passwd);

    &error(500,'パスワードがちゃいます') if($dmy ne $enc_passwd);

}

sub purge_data{
    local($purgenum)=@_;


    open(IN,"$logdata");
    flock(IN,2);
    while(<IN>){
	$data=$_;
	chop($data);
	push(@old,$data);
    }
    flock(IN,8);
    close(IN);

    for($i=0;$i<=$#old;$i++){
	$data=$old[$i];
	if($data =~ /^<!--start:/){
	    $num=$data;
	    $num =~ s/\D//g;
	    if($num == $purgenum){
		while(1){
		    $i++;
		    $dmy=$old[$i];
		    last if($dmy eq '<!--end-->');
		}
	    }else{
		undef($bwd);
		undef($new_bwd);
		undef(@bwds);
		push(@new,$data);
		$i++;
		$data=$old[$i];
		if($data =~ /\d/){
		    if($data =~ /\,/){
			@bwds=split(/\,/,$data);
		    }else{
			$bwds[0]=$data;
		    }
		    foreach $bwd (@bwds) {
			if($bwd != $purgenum){
			    $new_bwd = $new_bwd . "\," . $bwd;
			}
		    }
		    $new_bwd =~ s/^\,//;
		}else{
		    $new_bwd=$data;
		}
		push(@new,$new_bwd);

		undef($bwd);
		undef($new_bwd);
		undef(@bwds);
		$i++;
		$data=$old[$i];
		if($data =~ /\d/){
		    if($data =~ /\,/){
			@bwds=split(/\,/,$data);
		    }else{
			$bwds[0]=$data;
		    }
		    foreach $bwd (@bwds) {
			if($bwd != $purgenum){
			    $new_bwd = $new_bwd . "\," . $bwd;
			}
		    }
		}else{
		    $new_bwd=$data;
		}
		$new_bwd =~ s/^\,//;
		push(@new,$new_bwd);
	    }
	}else{
	    push(@new,$data);
	}
    }

    flock(IN,8);
    close(IN);

    open(OUT,"> $logdata");
    flock(OUT,2);
    foreach $data (@new){
	print OUT $data,"\n";
    }
    flock(OUT,8);
    close(OUT);
}




sub print_head {

    print <<"EOL";
Content-type: text/html

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=x-sjis">

<TITLE>$CGI_TITLE</TITLE>
<BODY BGCOLOR="#AAAAFF">

[<A HREF="$HOME">HOME</A>]<p>

<CENTER>
<FONT SIZE="6">
<B>$CGI_TITLE</B>
</FONT>
</CENTER>

EOL

    $head_chk=1;
}


sub print_form {

    print <<"EOL";

<FONT SIZE=+2 COLOR="#ff0055">データを消す</FONT><BR>
<form action="$cginame" method=post>
<input type=hidden name="action" value="purge_data">

<table>
<tr>
    <td align=right>データ番号</td>
    <td><input type=text name="dnum" size=20></td>
</tr>
<tr>
    <td align=right>管理者パスワード</td>
    <td><input type=password name="passwd" size=20></td>
</tr>
<tr>
    <td></td>
    <td><input type=submit value="行く"><input type=reset value="やめる"></td>
</tr>
</table>
</form>

<FONT SIZE=+2 COLOR="#ff0055">パスワード変更</FONT><BR>
<form action="$cginame" method=post>
<input type=hidden name="action" value="change_passwd">

<table>
<tr>
    <td align=right>今のパスワード</td>
    <td><input type=password name="passwd" size=20></td>
</tr>
<tr>
    <td align=right>新しいパスワード</td>
    <td><input type=password name="passwd_a" size=20></td>
</tr>
<tr>
    <td align=right>新しいパスワード(確認用)</td>
    <td><input type=password name="passwd_b" size=20></td>
</tr>
<tr>
    <td></td>
    <td><input type=submit value="行く"><input type=reset value="やめる"></td>
</tr>
</table>
</form>


<FONT SIZE=+2 COLOR="#ff0055">爆発</FONT><BR>
<form action="$cginame" method=post>
<input type=hidden name="action" value="bomb">
<table>
<tr>
    <td align=right>管理者パスワード</td>
    <td><input type=password name="passwd" size=20></td>
</tr>
<tr>
<td colspan=2 align=center><input type=submit value="後悔しても知らんで"></td>
</tr>
</table>
</form>

EOL


}


sub print_foot {
    print "</body></html>\n";
}


sub error {
    local($num,$line)=@_;

    if(!$head_chk){
	&print_head;
    }

    print "<font size=7>\nError $num<br>\n$line<br>\n</body>\n</html>\n";

    &print_foot;

    exit;
}



sub get_formdata{
    local($buffer,@pairs,%FORM,$name,$value,$ename);

    if ($ENV{'REQUEST_METHOD'} eq "POST"){
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    } else {
	$buffer = $ENV{'QUERY_STRING'};
    }
    @pairs = split(/&/,$buffer);
    foreach (@pairs) {
	($name, $value) = split(/=/, $_);
	$value =~ tr/+/ /;
	$value =~ s/%(\w\w)/pack("C", hex($1))/eg;
	$value =~ s/[\r\n]//g;
	$FORM{$name} = $value;
    }
    return(%FORM);
}