なるほどTrackbackスパムが多いわけだ。

| コメント(0) | トラックバック(1)
#!/usr/bin/perl -w

use strict;
use HTTP::Request::Common;
use LWP::UserAgent;

print "content-type: text/html¥n¥n";
print <<'HTML';
<?xml version="1.0" encoding="UTF-8"?>
<html>
<head>
<body><pre>
HTML

my $url = 'http://trackbackurl;
my %TBdata = (
	'url' => 'http://trackbackurl_from',
	'blog_name' => 'Junnama Online',
	'title' => 'エントリータイトル',
	'excerpt'=> 'エントリーの要約');
my $request  = POST($url, [%TBdata]);
my $ua = LWP::UserAgent->new;
my $res = $ua->request($request);
print $res->as_string;

これだけで送れるのだから...なるほどTrackbackスパムが多いわけだ。

トラックバック(1)

トラックバックURL: http://junnama.alfasado.net/cgi/mt/mt-tb.cgi/379

鯖とか書いたりして... データセンターにおいてあるサーバではクリティカルなものが動いているのと余計な負荷をかけたくないということもあって、会社のオフィ... 続きを読む

コメントする

Facebook

Twitter

このブログ記事について

このページは、Junnama Nodaが2007年4月20日 02:40に書いたブログ記事です。

ひとつ前のブログ記事は「Unicode::Normalizeプラグイン(MT)。」です。

次のブログ記事は「IfMatchEntryプラグイン(MT)。」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。

Powered by Movable Type 6.2.6