ギコタクの「だから逝ってないでしょ」出張所

ギコタクの「だから逝ってないでしょ」出張所 (427ﾚｽ)
上下前次1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞
抽出解除必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞あぼーん

79: 16 [] 2001/07/02(月) 01:52 ID:jXUn5Xms

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 　まだ書き込みできないのかね？
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　 ∧＿∧　　　　　　　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　（∀・　；） 　 |＼|＼　　　＜　なんでこれでおかしいのか教えてくださいよー。
　（　　　　）　 (；　　 )　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣⊂＿　＼丿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
　　　 　 　￣　　　 =======　 ＼
うう・・・なんで書き込みできないのかほんとにわからん。

#!/usr/local/bin/perl

use LWP::UserAgent;
use strict;

my $server = "corn.2ch.net";
my $dir = "php";
my $key = "982688337";
my $name = "test";
my $mail = "sage";
my $text = "test kakiko";

my $ret = write_res($server, $dir, $name, $mail, $text);
print $ret;

sub write_res{
my ($server, $dir, $key, $name, $mail, $text) = @_;

$mail =~ s/(\W)/'%'. unpack('H2', $1)/eg;
$name =~ s/(\W)/'%'. unpack('H2', $1)/eg;
$text =~ s/(\W)/'%'. unpack('H2', $1)/eg;

my $url = "http://$server/test/bbs.cgi";
my $contents = "bbs=$dir&FROM=$name&mail=$mail&MESSAGE=$text&key=$key&time=".time;

return post($url, $contents);
}

sub post{
my $targeturl = shift;
my $content = shift;
my @header = @_;

my $hdrs = new HTTP::Headers(Accept => '*/*', @header);
my $url = new URI::URL($targeturl);
my $ua = new LWP::UserAgent;
$ua->agent("Monazilla/1.0 (compatible; writetest.pl; $^O)");
my $req = new HTTP::Request('POST', $url, $hdrs, $content);
my $resp = $ua->request($req);

if ($resp->is_success){
return $resp->content;
}
}

http://medaka.5ch.net/test/read.cgi/php/991966646/79

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 1.175s*