ギコタクの「だから逝ってないでしょ」出張所 (427ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

79(1): 16 [] 2001/07/02(月) 01:52 ID:jXUn5Xms(1/5) AAS
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 　まだ書き込みできないのかね？
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　 ∧＿∧　　　　　　　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　（∀・　；） 　 |＼|＼　　　＜　なんでこれでおかしいのか教えてくださいよー。
　（　　　　）　 (；　　 )　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣⊂＿　＼丿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
　　　 　 　￣　　　 =======　 ＼
うう・・・なんで書き込みできないのかほんとにわからん。

#!/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;
}
}

---

80: 名無しさん＠お腹いっぱい。 [0] 2001/07/02(月) 02:45 ID:??? AAS
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>79
|　http://teri.2ch.net/test/read.cgi?bbs=accuse&key=993974693&ls=100
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 　∧ ∧ 　　　
　　　　　　 　　 　 (,,ﾟДﾟ)y━~~　
　￣￣￣￣￣￣ （つ ＿＿＿
　￣￣￣日∇￣￣＼|.LibL1.|＼
　　　　 　 　￣　　 　　=======　 ＼

---

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

---

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

---

ぬこの手 ぬこTOP 0.024s