#!/usr/bin/perl -w
#Just a silly thing to show when the server ping's you
#If your using notify, of course, you probably wont need this
# by kyhwana kyhwana@world-net.co.nz

IRC::register("Ping Pong script", "1.0", "", "");
IRC::print "Loading Ping Pong script\n";
IRC::add_message_handler("PING", "ping_handler");

sub ping_handler
{  
  my $pline = shift(@_);
  $pline =~ /PING :(.*)/;
  IRC::print "Ping Pong\n";
  IRC::send_raw "PONG :$1\r\n";
  return 1;
}