プログラムスレッド

13：女傑 ◆nDpXSJz8i.：2012/03/16(金) 05:16:37 ID:hQMLjY7Y0: #!/usr/bin/perl

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error; }

@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/>/>/g;
}

if ($ENV{'REQUEST_METHOD'} eq "POST") { $file = "./$value\.cgi"; }
else { $file = "./$buffer\.cgi"; }

if (!-e $file) { &error; }
if (!open(DB,"$file")) { &error; }
@lines = <DB>;
close(DB);
$youso = shift(@lines);
chop($youso) if $youso =~ /\n$/;
($01,$02,$03,$04,$05,$06,$07) = split(/,/,$youso);

push(@lines,"$act $01,$02,$03,$04,$05,$06,$07\n");

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

<html><head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=EUC-JP">
<title>$01$02のページ</title></head>
<body bgcolor=#$06>
<center><caption>$01$02</caption></center><br>
<table border=5 width=250 align=center>
<tr bgcolor="#cccccc">
<th>要素</th>
<th>数値</th>
</tr>
<tr align=center>
<td>メーカー</td>
<td>$01</td>
</tr>
<tr align=center>
<td>商品名</td>
<td>$02</td>
</tr>
<tr align=center>
<td>容量</td>
<td>$03</td>
</tr>
<tr align=center>
<td>入数</td>
<td>$04</td>
</tr>
<tr align=center>
<td>販売期限</td>
<td>$05</td>
</tr>
</table>
<br>
<table align=center>
<tr align=center>
<td><img src=./barcode.php?code=$07&encoding=EAN&scale=1&mode=jpg></td>
</tr>
<tr align=center>
<td><img src=https://chart.googleapis.com/chart?cht=qr&chs=128x128&chl=$02+$07&choe=UTF-8&chld=L|2></td>
</tr>
</table>
</body></html>

EOF

exit;

sub error {

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

<html><head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=EUC-JP">
<title>エラー</title></head>
<body>
<h3>エラー</h3>
<p></body></html>

EOF

exit;

}

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板