機能追加１

色関係

#!/usr/local/bin/perl

# **********************************************************
# HTTP ヘッダの出力
# **********************************************************
print "Content-Type: text/html; Charset=shift_jis\n\n";

# **********************************************************
# 標準入力より生データを入力
# **********************************************************
read( STDIN, $data, $ENV{"CONTENT_LENGTH"} );

# **********************************************************
# 生データを "&" を区切り文字にして、配列へ保存
# **********************************************************
@Fields_Data = split(/&/, $data);

# **********************************************************
# データのセットを連想配列に保存
# **********************************************************
foreach ( @Fields_Data ) {
	($Name, $Value) = split( /=/, $_ );
	$Value =~ tr/+/ /;
	$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#	&jcode'convert(*Value, "sjis");
 	$Form{$Name} = $Value;
}

if ($ENV{'REQUEST_METHOD'} eq "POST" && $Form{"command"} eq '色設定' ) {

	open(IN,$Form{'Handle'} . ".dat");
	@Option = <IN>;
	close(IN);

	@Option[0] = $Form{"Color"} . "\n";

	open(OUT,">" . $Form{'Handle'} . ".dat");
	print OUT @Option;
	close(OUT);

}

if ($ENV{'REQUEST_METHOD'} eq "POST" && $Form{"command"} eq '送信' ) {

	open(IN,$Form{'Handle'} . ".dat");
	@Option = <IN>;
	close(IN);

	$color = $Option[0];

	open(IN,"lightbox.log");
	@lines = <IN>;
	close(IN);

	($sec,$min,$hour,$mday,$mon) = localtime(time);
	$date = sprintf("%02d/%02d-%02d:%02d:%02d",$mon+1,$mday,$hour,$min,$sec);

	open(OUT,">lightbox.log");
	$Form{"Data"} =~ s/\r//g;
	$Form{"Data"} =~ s/\n//g;
	unshift ( @lines, $Form{'Handle'} . "\t" . $date . "\t" . $Form{"Data"} . "\n" );
	print OUT @lines;
	close(OUT);

print <<RELOAD;
<SCRIPT language=JavaScript>

	parent.Output.location.reload(true);

</SCRIPT>
RELOAD

}

if ( 1 ) {
	print "<table  cellpadding=5>";
	while ( ($key,$val) = each %Form ) {
		print "<tr>\n";
		print "<td>$key</td>\n";
		print "<td>$val</td>\n";
		print "</tr>\n";
	}
	print "</table>";
}

print <<INPUT;
<HTML>

<HEAD>

<STYLE type="text/css">

	.doumi { background-color:$color }

</STYLE>

<META HTTP-EQUIV="Content-Type" Content="text/html; charset=shift_jis">
</HEAD>
<BODY class=doumi>
<FORM method="POST" target="Input" action="input.cgi">
	<TEXTAREA name="Data" cols="80" rows="10"></TEXTAREA>
	<INPUT type=hidden name=Handle value="$Form{'Handle'}">
	<INPUT type="submit" name="command" value="送信">
</FORM>

<FORM method="POST" target="Input" action="input.cgi">
	<INPUT type=text name=Handle value="$Form{'Handle'}">
	<INPUT type="submit" name="command" value="名前">
</FORM>

<FORM method="POST" target="Input" action="input.cgi">
	<SELECT name=Color>
	<OPTION>blue
	<OPTION>red
	<OPTION>pink
	<OPTION>black
	</SELECT>
	<INPUT type=hidden name=Handle value="$Form{'Handle'}">
	<INPUT type="submit" name="command" value="色設定">
</FORM>

</BODY>
</HTML>
INPUT