ギコタクの「だから逝ってないでしょ」出張所 (427ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
ﾘﾛｰﾄﾞ規制です｡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;
}
}
83: 16 [] 2001/07/02(月) 11:35 ID:jXUn5Xms(2/5) AAS
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 不可視・浮上不可実験(10000) http://corn.2ch.net/test/read.cgi?bbs=php&key=982688337
| なんてところに書き込んでるんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ sageとけばなにしても問題ないだろそのスレは。ｹｻﾚﾃﾓｲｲｼ・・・
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
write_res()への引数はお恥ずかしい。
post($url, $contents,
Cookie => "$name; $mail", Referer => "http://$server/$dir/index2.html");
で問題なさそう。
84: 16 [] 2001/07/02(月) 12:16 ID:jXUn5Xms(3/5) AAS
∧＿∧ ｶﾀｶﾀ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ） ∧ ∧ ＜ とりあえずテスト書き込み、っと・・・・
（ ） (,,ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ほう、ついに書き込みができるようになったんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ これがちゃんと書けたらアップロードするぞ
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
85(1): 16 [] 2001/07/02(月) 12:37 ID:jXUn5Xms(4/5) AAS
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| ついにかけるようになったんですか？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ http://xbbs21.virtualave.net/xbbs/up/src/up052.lzh だぞ
（ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
えーと、アップした後気づいた。
340行目くらいからのprint連打うざいから削って使ってください。
195: 16 [] 2001/08/02(木) 19:33 ID:jXUn5Xms(5/5) AAS
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| なんかすごい勢いでカウンタ回ってますね？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀・） ∧ ∧ ＜ 自分で作ったページにこんなにアクセスあるのはじめてだ・・・
（ ⊃ ） (ﾟДﾟ；) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 今回はブックマークと？
＼
￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣￣
（ ・∀） ∧ ∧ ＜ っつーか自分が使わない機能はどうすればいいかがいまいち・・・
（ ） (；ﾟДﾟ) ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| Ｌｅｔ’ｓ |＼
￣ ======= ＼
http://www.gooside.com/perltk/
>>192 「何か機能を」って言われても・・・・・何をすれば？？
>>193 ありがとーございますー。
>>194 なんかつくってくださいーーー。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.022s