$function = '
global $irc;
$parts = explode(" ", $data);
if ($data{0} == ":" && $parts[1] == "PING")
  $irc->send_cmd("PONG ".$irc->me[server]." ".trim($parts[2]));
elseif ($parts[2])
  $irc->send_cmd("PONG ".preg_replace("/^\:/", "", trim($parts[2]))." ".trim($parts[1]));
else
  $irc->send_cmd("PONG ".$irc->me[server]." ".preg_replace("/^\:/", "", trim($parts[1])));
return true;
';
$irc->add_rx_hook("pingpong", "PING", create_function('$data', $function));
$irc->log("Module pingpong.mod.php loaded successfully.");