Pinging Google

[edatz]

Hi, I've had a blowout on an old script to ping a search engine for my page and am wondering if this one is right.

Has anyone experience with these things?
I did check Google's page about this and the xml appears to be in line with what they say there.
I know that using a pinging service can take ages, which is why I'm just pinging Google direct.


#!/usr/bin/perl

use strict;
use warnings;
require LWP::UserAgent;

my $site_name = 'Site Name';
my $site_url = 'http://www.msite.com/';
my $site_rss = 'myblog.xml';

my %urls = (
'Google' => 'http://blogsearch.google.com/ping/RPC2',
);

my $content = <<EOF;
<?xml version="1.0"?>
<methodCall>
<methodName>weblogUpdates.ping</methodName>
<params>
<param><value>$site_name</value></param>
<param><value>$site_url</value></param>
<param><value>$site_rss</value></param>
</params>
</methodCall>
EOF

foreach my $site (keys %urls) {
print "Pinging $site...";

my $req = HTTP::Request->new('POST', $urls{$site});
$req->content_type('text/xml');
$req->content($content);

my $ua = LWP::UserAgent->new;
$ua->request($req)->as_string;
}


Any help would be appreciated,
many thanks

[edatz]

Turns out this is okay, but it doesn't tell me when it has finished like my old one did.