#!/usr/bin/perl
use strict;
use Frontier::Client;

sub pingThemAll
{
  my $sourceTitle=shift;
  die "Usage: pingThemAll(sourceTitle)"
    unless defined($sourceTitle);
  my $sourceURL="http://news.saugus.net/Group/".$sourceTitle;
  my $retVal="";
  my @servers = ("http://rpc.weblogs.com/RPC2",
                 "http://rpc.blogrolling.com/pinger/",
                 "http://rpc.technorati.com/rpc/ping",
                 "http://ping.blo.gs/",
                 "http://xping.pubsub.com/ping/",
                 "http://api.my.yahoo.com/RPC2",
                 "http://javablogs.com/xmlrpc",
                 "http://api.feedster.com/ping",
                 "http://www.blogdigger.com/RPC2",
                 "http://www.blogpeople.net/servlet/weblogUpdates",
                 "http://bulkfeeds.net/rpc",
                 "http://ping.amagle.com/",
                 "http://ping.feedburner.com",
                 "http://ping.syndic8.com/xmlrpc.php",
                 "http://pingoat.com/goat/RPC2",
                 "http://bblog.com/ping.php");
  unlink("/home/www/data/news.saugus.net/spool/" . $sourceTitle . "-cache.txt");
  unlink("/home/www/data/news.saugus.net/spool/" . $sourceTitle . "-info.txt");
  sleep 50;
  my $serverURL;
  foreach $serverURL(@servers)
  {
    eval
    {
      my $server = Frontier::Client->new('url' => $serverURL);
      my $result = $server->call('weblogUpdates.ping',$sourceTitle,$sourceURL);
      $retVal.=$result."\n";
    };
  }
  $serverURL="http://rpc.icerocket.com:10080/";
  eval
  {
    my $server = Frontier::Client->new('url' => $serverURL);
    my $result = $server->call('weblogUpdates.ping',$sourceURL);
  };
  return $retVal;
}

return 1;