« アメリカに行くまでに作るぞ !! （その2） | Top | さくらというところは »
March 05, 2005
PING送信
delicious BINARY?さんのを丸のみにして
Ping.cgiを作成
-----------------------------------------------
#!/usr/bin/perl -w
use strict;
use warnings;
use lib './mt/extlib';
use XMLRPC::Transport::HTTP;
XMLRPC::Transport::HTTP::CGI->dispatch_to('weblogUpdates')->handle;
package weblogUpdates;
sub ping {
my $self = shift;
my ($name, $url) = @_;
my $logfile = 'log.txt';
open (FILE, ">>$logfile");
print FILE "Client Name: $name\n";
print FILE "Client URL : $url\n";
my $time = localtime(time);
print FILE "Pinged Date: $time\n";
close FILE;
return { flerror => XMLRPC::Data->type('boolean', 0),
message => "Thanks for the ping" };
}
-----------------------------------------------
log.txtを見てみると、、、
-----------------------------------------------
Client Name: araitatsuya.net
Client URL : http://araitatsuya.net/
Pinged Date: Sat Mar 5 23:38:02 2005
Client Name: araitatsuya.net
Client URL : http://araitatsuya.net/
Pinged Date: Sun Mar 6 00:02:48 2005
Client Name: araitatsuya.net
Client URL : http://araitatsuya.net/
Pinged Date: Sun Mar 6 01:58:24 2005
Client Name: araitatsuya.net
Client URL : http://araitatsuya.net/
Pinged Date: Sun Mar 6 02:27:29 2005
Client Name: 南谷研究室BLOG
Client URL : http://blog.goo.ne.jp/mntlab/
Pinged Date: Sun Mar 6 02:29:24 2005
-----------------------------------------------
ほう！来てる来てる。
つぎはchanges.xmlってのがキーらしい。
| March 5, 2005 11:59 PM |
トラックバック
このエントリーのトラックバックURL:
http://www.araitatsuya.net/MT3/mt-tb.cgi/232