package CUSTOM_COUNTER;

BEGIN {
		require 5.001;

#色の配列（★☆）
		@color_array=('','black','white','yellow','red','blue','salmon','gold','dimgray','chocolate','violet','skyblue','limegreen','lightgoldenrodyellow','mistyrose','gainsboro','papayawhip','lavender','paleturquoise','palegreen','crimson','pink','floralwhite','darkslategray','maroon','purple','deepskyblue','midnightblue','green','#7D011E','#f3ebd3','#e3caa9','#ffdcde','#f5f5da','#ede7d0','#DEBD73','#ADA5CE','#ADEFE7','#5a73a5','#444444','#a5735a','#cfcd6b','#ff6464','#944263','#885357');

#名前の色配列（日本語）（★☆）
		@color_outside=('','黒','白','黄色','赤色','青色','オレンジ','ゴールド','灰色','茶色','紫色','水色','緑色','薄い黄色','薄い赤','薄い灰色','薄い茶色','薄い紫','薄い水色','薄い緑','橙','ピンク','白雪色','濃い灰色','濃い茶色','濃い紫','濃い水色','濃い青','濃い緑','ワインレッド','ハート神殿背景色','英文スタンプ背景色','可憐な花びら背景色','古城の城壁背景色','紅葉の秋背景色','木目調背景色','和紙調背景色','怪しい調背景色','雪の結晶文字色','ハート神殿文字色','英文スタンプ文字色','暗闇のお魚文字色','可憐な花びら文字色','古城の城壁文字色','紅葉の秋文字色');

#背景イラストの配列
		@background_array=('','./IMAGE/background/night.gif','./IMAGE/background/flower.jpeg','./IMAGE/background/winter.gif','./IMAGE/background/autumn.jpeg','./IMAGE/background/block.gif','./IMAGE/background/temple.gif','./IMAGE/background/stamp.gif','./IMAGE/background/tree.gif','./IMAGE/background/paper.gif','./IMAGE/background/etc.gif');

#背景イラストの配列（日本語）
		@background_outside=('','暗闇のお魚','可憐な花びら','雪の結晶','紅葉の秋','古城の城壁','ハート神殿','英文スタンプ','木目調','和紙調','怪しい調');

#背景イラストの横ピクセル（見本表示用）
		@background_width=('','400','400','400','400','400','400','400','140','140','140');

#背景イラストの縦ピクセル（見本表示用）
		@background_height=('','60','50','60','100','60','40','60','100','100','100');

}

####################データ収集####################
sub ::custom_open{
		my ($custom_file,@custom)=@_;

		unless(-f $custom_file){
				my $line=join(',',@custom);
				open(DATA,">$custom_file");
				print DATA "$line";
				close(DATA);
		}
		elsif(open(DATA,"$custom_file")){
		        my $line = <DATA>;
		        close(DATA);
				(@custom) = split(/,/,$line) if($line ne '');
		}
		return (@custom);
}
####################修正データセーブ####################
sub ::repair_custom{
		my ($custom_file,@repair_)=@_;

		foreach(@repair_){
				$_=~ s/\r\n/<BR>/g;
				$_=~ s/\r/<BR>/g;
				$_=~ s/\n/<BR>/g;
				$_=~ s/\t/　/g;
				$_=~ s/<BR><BR>/<BR>　<BR>/g;#改行コードを変換
		}

		my $line=join(',',@repair_);

		if(open(DATA, ">$custom_file")){
				print DATA "$line";
				close(DATA);
		}
		return (@repair_);
}
###############カスタマイズhtml###############
sub ::custom_beginner{
		my ($script_url,$html_title,$titlecolor,$home_url,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$secret,$hooter,$secret_pass)=@_;

		$hooter=~s/<BR>　<BR>/<BR><BR>/g;
		$hooter=~s/<BR>/\n/g;#改行コードを変換
		if($hooter eq '0' || $hooter eq '1'){
				$hooter ="<A HREF=\"$home_url\" target=\"_top\">HOME</A>";
		}

print <<END_OF_TEXT;
<h1>カスタマイズ初心者用</h1>
　<p>
<form method="POST" action="$script_url">
<input type=hidden name="command" value="repair_custom_beginner">
<input type="hidden" name="secret_pass" value=$secret_pass>
<H2>カスタマイズする箇所を書き換えて下さい</H2>
（背景イラストを指定する時は、背景色に背景イラストと近似色を指定すると）<BR>
（綺麗に表\示されます）<p>

<table>
<TR><TD align=right>題名：</TD><TD align=left><input type="text" size=40 name="repair_1" value="$html_title"></TD></TR>
END_OF_TEXT
		my $selected_check;
		print ('<tr><td align=right>題名の色：</TD><td align=left><select name="repair_2">');
		for($i=0;$i<@color_array;$i++){
				my $selected;
				$selected='selected' if($color_array[$i] eq $titlecolor);
				$selected_check=1 if($color_array[$i] eq $titlecolor);
				print ('<option>') if($i==0);
				print ('<option ',$selected,' value="',$color_array[$i],'">',$color_outside[$i]) if($i>0);
		}
		print ('<option selected>',$titlecolor) if($selected_check==0);
		print '</select></td></tr>';

		$selected_check=0;
print <<END_OF_TEXT;

<TR><TD align=right>HOMEのURL：</TD><TD align=left><input type="text" size=40 name="repair_3" value="$home_url"></TD></TR>

END_OF_TEXT

		print ('<tr><td align=right>背景色：</TD><td align=left><select name="repair_4">');
		for($i=0;$i<@color_array;$i++){
				my $selected;
				$selected='selected' if($color_array[$i] eq $bgcolor);
				$selected_check=1 if($color_array[$i] eq $bgcolor);
				print ('<option>') if($i==0);
				print ('<option ',$selected,' value="',$color_array[$i],'">',$color_outside[$i]) if($i>0);
		}
		print ('<option selected>',$bgcolor) if($selected_check==0);
		print '</select></td></tr>';

		$selected_check=0;
		print ('<tr><td align=right>背景イラスト：</TD><td align=left><select name="repair_5">');
		for($i=0;$i<@background_array;$i++){
				my $selected;
				$selected='selected' if($background_array[$i] eq $background);
				$selected_check=1 if($background_array[$i] eq $background);
				print ('<option>') if($i==0);
				print ('<option ',$selected,' value="',$background_array[$i],'">',$background_outside[$i]) if($i>0);
		}
		print ('<option selected>',$background) if($selected_check==0);
		print '</select></td></tr>';

		$selected_check=0;
		print ('<tr><td align=right>文字色：</TD><td align=left><select name="repair_6">');
		for($i=0;$i<@color_array;$i++){
				my $selected;
				$selected='selected' if($color_array[$i] eq $textcolor);
				$selected_check=1 if($color_array[$i] eq $textcolor);
				print ('<option>') if($i==0);
				print ('<option ',$selected,' value="',$color_array[$i],'">',$color_outside[$i]) if($i>0);
		}
		print ('<option selected>',$textcolor) if($selected_check==0);
		print '</select></td></tr>';

		$selected_check=0;
		print ('<tr><td align=right>リンク色：</TD><td align=left><select name="repair_7">');
		for($i=0;$i<@color_array;$i++){
				my $selected;
				$selected='selected' if($color_array[$i] eq $linkcolor);
				$selected_check=1 if($color_array[$i] eq $linkcolor);
				print ('<option>') if($i==0);
				print ('<option ',$selected,' value="',$color_array[$i],'">',$color_outside[$i]) if($i>0);
		}
		print ('<option selected>',$linkcolor) if($selected_check==0);
		print '</select></td></tr>';

		$selected_check=0;
		print ('<tr><td align=right>Vリンク色：</td><td align=left><select name="repair_8">');
		for($i=0;$i<@color_array;$i++){
				my $selected;
				$selected='selected' if($color_array[$i] eq $vlinkcolor);
				$selected_check=1 if($color_array[$i] eq $vlinkcolor);
				print ('<option>') if($i==0);
				print ('<option ',$selected,' value="',$color_array[$i],'">',$color_outside[$i]) if($i>0);
		}
		print ('<option selected>',$vlinkcolor) if($selected_check==0);
		print '</select></td></tr>';

print <<END_OF_TEXT;
<TR><TD align=right>管理人専用パスワード：</TD><TD align=left><input type="text" size=15 name="repair_9" value="$secret"></TD></TR>

<TR><TD align=center colspan=2>フッター部分に挿入するタグ</TD></TR>
<TR><TD align=center colspan=2><textarea name="repair_10" rows="5" cols="60">$hooter</textarea></TD></TR>
</table>
<input type="submit" value="修正">
</form>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value="repair_custom_beginner">
<input type="hidden" name="repair_delete" value="begin">
<input type="hidden" name="secret_pass" value=$secret_pass>
<input type="submit" value="初期設定に戻す"><p>
</form>
<form method="POST" action="$script_url">
<input type="submit" value="トップに戻る"><p>
</form>
　<p>
END_OF_TEXT
}
###############カスタマイズhtml###############
sub ::custom_pro{
		my ($script_url,$html_title,$titlecolor,$home_url,$bgcolor,$background,$textcolor,$linkcolor,$vlinkcolor,$secret,$hooter,$secret_pass)=@_;

		$hooter=~s/<BR>　<BR>/<BR><BR>/g;
		$hooter=~s/<BR>/\n/g;#改行コードを変換
		if($hooter eq '0' || $hooter eq '1'){
				$hooter ="<A HREF=\"$home_url\" target=\"_top\">HOME</A>";
		}

print <<END_OF_TEXT;
<h1>カスタマイズ上級者用</h1>
　<p>
<form method="POST" action="$script_url">
<input type=hidden name="command" value="repair_custom_pro">
<input type="hidden" name="secret_pass" value=$secret_pass>
<H2>カスタマイズする箇所を書き換えて下さい</H2>
（背景イラストを指定する時は、背景色に背景イラストと近似色を指定すると）<BR>
（綺麗に表\示されます）<p>
<table>
<TR><TD align=right>題名：</TD><TD align=left><input type="text" size=40 name="repair_1" value="$html_title"></TD></TR>
<TR><TD align=right>題名の色：</TD><TD align=left><input type="text" size=15 name="repair_2" value="$titlecolor"></TD></TR>

<TR><TD align=right>HOMEのURL：</TD><TD align=left><input type="text" size=40 name="repair_3" value="$home_url"></TD></TR>
<TR><TD align=right>背景色：</TD><TD align=left><input type="text" size=15 name="repair_4" value="$bgcolor"></TD></TR>

<TR><TD align=right>背景イラスト：</TD><TD align=left><input type="text" size=40 name="repair_5" value="$background"></TD></TR>

<TR><TD align=right>文字色：</TD><TD align=left><input type="text" size=15 name="repair_6" value="$textcolor"></TD></TR>

<TR><TD align=right>リンク色：</TD><TD align=left><input type="text" size=15 name="repair_7" value="$linkcolor"></TD></TR>

<TR><TD align=right>Vリンク色：</TD><TD align=left><input type="text" size=15 name="repair_8" value="$vlinkcolor"></TD></TR>

<TR><TD align=right>管理人専用パスワード：</TD><TD align=left><input type="text" size=15 name="repair_9" value="$secret"></TD></TR>

<TR><TD align=center colspan=2>フッター部分に挿入するタグ</TD></TR>
<TR><TD align=center colspan=2><textarea name="repair_10" rows="5" cols="60">$hooter</textarea></TD></TR>
</table>
<input type="submit" value="修正">
</form>
<form method="POST" action="$script_url">
<input type="hidden" name="command" value="repair_custom_pro">
<input type="hidden" name="repair_delete" value="begin">
<input type="hidden" name="secret_pass" value=$secret_pass>
<input type="submit" value="初期設定に戻す"><p>
</form>
<form method="POST" action="$script_url">
<input type="submit" value="トップに戻る"><p>
</form>
　<p>
END_OF_TEXT
}
###############色見本html###############
sub ::color_list{
		my ($script_url)=@_;
print <<END_OF_TEXT;
<h1>背景・文字色候補</h1>
　<p>
<table border cellpadding=10 cols=7 width="80%" height="32">
END_OF_TEXT
		for($i=1;$i<@color_array;$i+=5){

				print('<tr align=center>') if(@color_array>$i);

				print"<th bgcolor=\"$color_array[$i]\">$color_outside[$i]</th>" if(@color_array>$i);

				print"<th bgcolor=\"$color_array[$i+1]\">$color_outside[$i+1]</th>" if(@color_array>$i+1);

				print"<th bgcolor=\"$color_array[$i+2]\">$color_outside[$i+2]</th>" if(@color_array>$i+2);

				print"<th bgcolor=\"$color_array[$i+3]\">$color_outside[$i+3]</th>" if(@color_array>$i+3);

				print"<th bgcolor=\"$color_array[$i+4]\">$color_outside[$i+4]</th>" if(@color_array>$i+4);

				print('</tr>') if(@color_array>$i);
		}
print <<END_OF_TEXT;
</table>
<form>
<input type="button" value="戻る" name="b1" onClick="history.back()">
</form>
<form method="POST" action="$script_url">
<input type="submit" value="トップに戻る"><p>
</form>
　<p>
END_OF_TEXT
}

###############背景イラストhtml###############
sub ::background_list{
		my ($script_url)=@_;
print <<END_OF_TEXT;
<h1>背景イラスト候補</h1>
　<p>
<table>
END_OF_TEXT
		for($i=1;$i<@background_array;$i++){

				print"<tr align=center><th>$background_outside[$i]</th></tr>" if(@background_array>$i);

				print"<tr align=center><td><img src=\"$background_array[$i]\" width=$background_width[$i] height=$background_height[$i]><P></td></tr>" if(@background_array>$i);

		}
print <<END_OF_TEXT;
</table>
<form>
<input type="button" value="戻る" name="b1" onClick="history.back()">
</form>
<form method="POST" action="$script_url">
<input type="submit" value="トップに戻る"><p>
</form>
　<p>
END_OF_TEXT
}



#############################################
1;