なるほどTrackbackスパムが多いわけだ。
公開日 : 2007-04-20 02:40:07
#!/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スパムが多いわけだ。
