#!/usr/local/bin/perl
##############################################################################
# shiromukuHTPASSWD version 2.12
# Created 10/08/2002
# Copyright 2002 Shiromuku
# Available at http://www.t-okada.com/cgi/
###############################################################################
# COPYRIGHT NOTICE （著作権の告示）  
# Copyright 2002 Shiromuku All Rights Reserved.
# This script can be used and modified free of charge as long as you don't change this header or any of the parts that give me credit for writing this. （このスクリプトは無償で使用または改変できます。ただしこの著作権の告知と上記のコメント、及びCGIにより生成されるHTML表示下部にある著作権表示部は変えないで下さい。）
# By using this script you agree to indemnify me from any liability that might arise from its use.  In simple English, if this script somehow makes your computer run amuck and kill the pope, it's not my fault.（このスクリプトを使用することにより、使用者はその使用によって起こる可能性のあるいかなる事柄に対する責務についても、私Shiromukuに免責の保証を与えることに同意したものとします。）
# Redistributing and selling the code for this program without prior written consent is expressly forbidden.（前もって書面での承諾を得ることなくこのプログラムのコードを再配布したり売ったりすることは 明確に禁じられています。）

#######################
require './jcode.pl';
require './s_htpasswd_lib.cgi';

#######################
use strict;
my $gl = &get_globals("s_htpasswd_gl.cgi");
$gl->{version} = "version 2.12";
$gl->{userip} = $ENV{'REMOTE_ADDR'};
#$gl->{hosts} = gethostbyaddr(pack('C4',split(/\./,$gl->{userip})),2);
if ($gl->{hosts} eq "") {$gl->{hosts} = $gl->{userip};}
$gl->{hosts}="$gl->{hosts}--$ENV{'HTTP_USER_AGENT'}";

my ($form, $cform, $sform, $filename, $h_filename, $key);
if ($ENV{'CONTENT_LENGTH'}) {($form, $cform, $sform) = &parse_data($gl);}
my$config = &open_config ($gl, $form);

my %HoD = ();
@HoD{"gl", "config", "form", "cform", "sform"} = ($gl, $config, $form, $cform, $sform);

#foreach $key (keys (%{$HoD{config}})) {
	#if ($key =~ /^c2_/) {$HoD{config}{$key} =~ s/<br>/\n/g;}
#}

$filename = "$gl->{basedir}/$gl->{passfile}";
if (-e $filename) {
	if($config->{allow_submit}) {&return_main (\%HoD);}
	else {&return_admin_enter(\%HoD);}
}
else {
	open(FILE,">$gl->{basedir_h}/isweb_htaccess") || &error("$gl->{basedir_h}/\.htaccessがオープンできません。1\n");
	print FILE <<"HERE";
AuthUserFile     $gl->{userfile}
AuthGroupFile    /dev/null
AuthName         ByPassword
AuthType         Basic
<Limit POST GET PUT>
require valid-user
</Limit>
<Files isweb_htaccess>
order deny,allow
deny from all
</Files>
HERE
	close(FILE);
	chmod 0666, "$gl->{basedir_h}/\.htaccess";
	&head("管理用ページ", \%HoD);
	print "<BR><CENTER><H4>IDとパスワードの設定をする</H4></CENTER>\n";
	print "<BR><CENTER>まず最初にIDとパスワードの設定をして下さい<BR></CENTER>\n";
	print "<BR><FORM METHOD=\"POST\"  ACTION=\"$gl->{cgi_a}\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"make_pass\">\n";
	print "<CENTER><TABLE BORDER=1 CELLPADDING=5 CELLSPACING=0>\n";
	print "<TR><TD>ユーザID</TD><TD><INPUT TYPE=\"text\" NAME=\"username\" maxlength=8><BR>（半角英数字で８文字以内にして下さい。）</TD></TR>\n";
	print "<TR><TD>パスワード</TD><TD><INPUT TYPE=\"password\" NAME=\"password\" maxlength=8><BR>（半角英数字で８文字以内にして下さい。）</TD></TR>\n";
	print "<TR><TD>パスワード</TD><TD><INPUT TYPE=\"password\" NAME=\"password1\" maxlength=8><BR>（確認のためもう一度）</TD></TR></TABLE></CENTER>\n";
	print "<BR><CENTER><INPUT TYPE=\"SUBMIT\" NAME=\"config\" VALUE=\"設定をする\"></CENTER>\n";
	print "</FORM>\n";
	print "</BODY></HTML>\n";
	exit;
}

############################
sub parse_data {
	my $gl = shift;
	my ($buffer, @pairs, $pair, $name, %form, %cform, %sform, $value, $value_count, $value_count1); 
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		&check_referer($gl);
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
		@pairs = split(/&/, $buffer);
		foreach $pair (@pairs) {
			($name, $value) = split(/=/, $pair);
			$value =~ tr/+/ /;
			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
			$value =~ s/\|\|\|//g;
			$value =~ s/</&lt;/ig; 
			$value =~ s/>/&gt;/ig;
			if (($name eq "id") || ($name eq "pass")){$value =~ s/\://g;}
			if ($name =~ /^c1_/) {
				$value =~ s/&quot;/"/g;
				$value_count = $value =~ tr/"/"/;
				if ($value_count == 1) { $value .= "\"";}
				else {
					$value_count && ($value_count1 = $value_count % 2);
					if ($value_count1 == 1) { $value .= "\"";}
				}
			}
			if ($name =~ /^c2_/) {
				$value =~ s/<br>/<BR>/g;
				$value =~ s/\r\n/<br>/g;
				$value =~ s/\r/<br>/g;
				$value =~ s/\n/<br>/g;
			}
			else {
				$value =~ s/\r\n/<BR>/g;
				$value =~ s/\r/<BR>/g;
				$value =~ s/\n/<BR>/g;
			}
			if ($value =~ /^http\:\/\/$/) {$value = "";}
			jcode::convert(\$value,$gl->{mycode});
			if ($gl->{mycode} eq 'sjis') {jcode::h2z_sjis(\$value); }
			if ($gl->{mycode} eq 'euc')  {jcode::h2z_euc(\$value); }
			if ($name eq "removesection") {
				$form{$name} .= $value . ",";
			}
			elsif ($name =~ /^(\w+)\*(\w+)$/) {
				$sform{$1}{$2} = $value;
			}
			elsif ($name=~ /change_(\d+)/) {
				$cform{$1} = $value;
			}
			else {$form{$name} = $value;}
		}
	}
	return (\%form, \%cform, \%sform);
}

############################
#メインページ
sub return_main {
	my$HoD = shift;
	print "Content-type: text/html\n\n";
	&head_html(\*STDOUT,$HoD);
	print "$HoD->{config}{c2_title}\n";
	print "$HoD->{config}{c2_introduction}\n";
	print "<CENTER><H4>新規登録</H4>\n";
	print "<TABLE WIDTH=60%><TR><TD><FONT SIZE=2>メールアドレスと登録したいIDを記入して「送信」ボタンを押して下さい。</FONT></TD></TR></TABLE></CENTER>\n";
	print "<FORM METHOD=\"POST\"  ACTION=\"$HoD->{gl}{cgi_a}\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"regist_go_u\">\n";
	print "<CENTER><TABLE  WIDTH=60% BORDER=1 CELLPADDING=2 CELLSPACING=0>\n";
	if ($HoD->{config}{allow_submit} == 2) {
		print "<TR><TD><FONT SIZE=2>お名前</FONT></TD><TD><INPUT TYPE=\"text\" NAME=\"name\" SIZE=40><FONT SIZE=2>必須</FONT></TD></TR>\n";
		print "<TR><TD><FONT SIZE=2>メッセージ</FONT></TD>\n";
		print "<TD><TEXTAREA WRAP=\"soft\" ROWS=\"3\" COLS=\"30\" NAME=\"comment\"></TEXTAREA>\n";
		print "</TD></TR>\n";
	}
	print "<TR><TD><FONT SIZE=2>E-mail</FONT></TD><TD><INPUT TYPE=\"text\" NAME=\"email\" SIZE=40><FONT SIZE=2>正確にご記入下さい</FONT></TD></TR>\n";
	print "<TR><TD><FONT SIZE=2>I D</FONT></TD><TD><INPUT TYPE=\"text\" NAME=\"id\"><FONT SIZE=2>8文字以内の半角英数字で</FONT></TD></TR>\n";
	print "<TR><TD ALIGN=center COLSPAN=2><INPUT TYPE=\"SUBMIT\" VALUE=\"登録\" NAME=\"regist\" ></TD></TR></TABLE></CENTER>\n";
	print "</FORM>\n";
	print "<BR><BR><CENTER><H4>パスワード変更</H4>\n";
	print "<TABLE WIDTH=60%><TR><TD><FONT SIZE=2>メールアドレスと登録済みIDとパスワード及び希望する新パスワードを記入して「変更」ボタンを押して下さい。</FONT></TD></TR></TABLE></CENTER>\n";
	print "<FORM METHOD=\"POST\"  ACTION=\"$HoD->{gl}{cgi_a}\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"change_go_u\">\n";
	print "<CENTER><TABLE  WIDTH=60% BORDER=1 CELLPADDING=2 CELLSPACING=0>\n";
	print "<TR><TD><FONT SIZE=2>E-mail</FONT></TD><TD><INPUT TYPE=\"text\" NAME=\"email\" SIZE=40><FONT SIZE=2>正確にご記入下さい</FONT></TD></TR>\n";
	print "<TR><TD><FONT SIZE=2>I D</FONT></TD><TD><INPUT TYPE=\"text\" NAME=\"id\"><FONT SIZE=2>8文字以内の半角英数字で</FONT></TD></TR>\n";
	print "<TR><TD><FONT SIZE=2>旧パスワード</FONT></TD><TD><INPUT TYPE=\"password\" NAME=\"old_pass\"></TD></TR>\n";
	print "<TR><TD><FONT SIZE=2>新パスワード</FONT></TD><TD><INPUT TYPE=\"password\" NAME=\"new_pass\"><FONT SIZE=2>8文字以内の半角英数字で</FONT></TD></TR>\n";
	print "<TR><TD><FONT SIZE=2>新パスワード</FONT></TD><TD><INPUT TYPE=\"password\" NAME=\"new_pass1\"><FONT SIZE=2>確認用にもう一度</FONT></TD></TR>\n";
	print "<TR><TD ALIGN=center COLSPAN=2><INPUT TYPE=\"SUBMIT\" VALUE=\"変更\" NAME=\"regist\" ></TD></TR></TABLE></CENTER>\n";
	print "</FORM>\n";
	print "<BR><BR><CENTER><H4>パスワード再発行</H4>\n";
	print "<TABLE WIDTH=60%><TR><TD><FONT SIZE=2>パスワードを忘れた場合はメールアドレスと登録済みIDを記入して「再発行」ボタンを押して下さい。</FONT></TD></TR></TABLE></CENTER>\n";
	print "<FORM METHOD=\"POST\"  ACTION=\"$HoD->{gl}{cgi_a}\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"change_go_u1\">\n";
	print "<CENTER><TABLE  WIDTH=60% BORDER=1 CELLPADDING=2 CELLSPACING=0>\n";
	print "<TR><TD><FONT SIZE=2>E-mail</FONT></TD><TD><INPUT TYPE=\"text\" NAME=\"email\" SIZE=40><FONT SIZE=2>正確にご記入下さい</FONT></TD></TR>\n";
	print "<TR><TD><FONT SIZE=2>I D</FONT></TD><TD><INPUT TYPE=\"text\" NAME=\"id\"><FONT SIZE=2>8文字以内の半角英数字で</FONT></TD></TR>\n";
	print "<TR><TD ALIGN=center COLSPAN=2><INPUT TYPE=\"SUBMIT\" VALUE=\"再発行\" NAME=\"regist\" ></TD></TR></TABLE></CENTER>\n";
	print "</FORM>\n";
	print "$HoD->{config}{c2_back}\n";
	print "<DIV ALIGN=\"right\">\n";
	print "<FORM METHOD=\"POST\" ACTION=\"$HoD->{gl}{cgi_a}\">\n";
	print "<INPUT TYPE=\"HIDDEN\" NAME=\"action\" VALUE=\"admin_enter\">\n";
	print "<INPUT TYPE=\"SUBMIT\" VALUE=\"Admin\">\n";
	print "</FORM>\n";
	print "<FONT SIZE=2><A HREF=\"http://www.t-okada.com/cgi/\" TARGET=_top>shiromukuHTPASSWD</A>&nbsp;$HoD->{gl}{version}</FONT></DIV>\n";
	if ($HoD->{config}{c2_adsbanner_bottom}) {
		print "<BR><CENTER>$HoD->{config}{c2_adsbanner_bottom}</CENTER>";
	}
	print "</BODY></HTML>\n";
}