#!/usr/local/bin/perl

# $_[0] = name for this module (surely you already know this, but still)
# $_[1] = sending nickname
# $_[2] = sending username
# $_[3] = sending hostmask
# $_[4] = sending channel (or botnick in case of PM)
# $_[5] = current value for $modchan
# $_[6] = current value for $botnick
# $_[7] = first argument given in IRC
# $_[8] = second argument given in IRC etc.

package test;
use LWP::Simple; # Requires libwww-perl to be installed.
use LWP::UserAgent;

sub uptime {
	$iurl = "http://www.insomnia247.nl/uptime.php";
	$rurl = "http://rootedker.nl/uptime.php";

	$iresult = get($iurl);
	nanobot::snd("PRIVMSG $_[4] :Insomnia 24/7: $iresult");

	$rresult = get($rurl);
	nanobot::snd("PRIVMSG $_[4] :Rootedker.nl:  $rresult");

}

1;