#!/usr/local/bin/perl

#require './jcode.pl';  #必要に応じて先頭の#をコメントアウトー。

#↓設定

$mypassword = 'password'; #更新パスワード

$viewpassword = 'viewpass'; #html表示用パスワード

$myhtml = '../myhtml.html'; #更新対象html名

$cginame = './board.cgi'; #このスクリプトの名前

#↑設定おわりー。

#これは、もなみんソフト製ですー。

#別にライセンストカ言うつもりはありませんので、勝手に使っちゃって

#構わないですよー。

#「もなみんからもらった」トカ書いてくれたら嬉しかったりー。

#ついでにリンクまでしてくれたら、もっと嬉しかったりー。

#改良なんかしてくれた日には泣いちゃうカモーｗ

#ただし、ご利用は自己責任でどうぞー。



print "Content-type: text/html\n\n";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@a = split(/&/, $buffer);

foreach $x (@a) {

  ($name, $value) = split(/=/, $x);

  $FORM{$name} = $value;

}

$password = $FORM{'password'};

$toukou = $FORM{'toukou'};

$dummy = $FORM{'dummy'};



if ($password ne $mypassword) {

  if ($password ne $viewpassword){

    #password入力要求

    print "<form method=post action=$cginame>\n";

    print "<input type=password name=password size=20><br>\n";

    print "<input type=hidden name=dummy value=view>";

    print "<BR><input type=submit value=html\表\示></form>\n";

  }else{

    #更新View

    print "<form method=post action=$cginame>\n";

    print "password<input type=password name=password size=20><br>\n";

    print "<textarea rows=20 cols=80 wrap=off name=toukou>\n";

    open(DB,$myhtml);

    print while(<DB>);

    close(DB);

    print "</textarea>\n";

    print "<BR><input type=submit value=\更\新></form>\n";

  }

}else{

  #更新

  if (length($dummy) > 0){

    print "\表\示\用password\と\間\違\え\て\ま\せ\ん\か\？";

  }else{

    $toukou =~ tr/+/ /;

    $toukou =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    #&jcode'convert(*toukou,'sjis');  #必要に応じて先頭の#をコメントアウトー。

    open(DB,"> $myhtml");

    print DB $toukou;

    close(DB);

    print "ok!";

  }

}

exit;