#!/usr/bin/perl -w

# irc.pl

# A simple IRC robot.

# Usage: perl irc.pl



use strict;


# We will use a raw socket to connect to the IRC server.

use IO::Socket;



# The server to connect to and our details.

my $server = "irc.slashnet.org";

my $nick = "botibot";

my $login = "botibot";
my $ok = 0;
my $ok2 =0;
my $master ="KiPSeRoN";
# The channel which the bot will join.

my $channel = "#ksss";



# Connect to the IRC server.

my $sock = new IO::Socket::INET(PeerAddr => $server,

                                PeerPort => 6667,

                                Proto => 'tcp') or

                                    die "Can't connect\n";



# Log on to the server.

print $sock "NICK $nick\r\n";

print $sock "USER $login 8 * :$master robot!!\r\n";



# Read lines from the server until it tells us we have connected.

while (my $input = <$sock>) {

    # Check the numerical responses from the server.

    if ($input =~ /004/) {

        # We are now logged in.

        last;

    }

    elsif ($input =~ /433/) {

        die "Nickname is already in use.";

    }

}



# Join the channel.

print $sock "JOIN $channel\r\n";
print $sock "PRIVMSG $channel :hi i am $master BoT =]\r\n";
#PRIVMSG  #irchacks :Hello everybody! 

# Keep reading lines from the server.

while (my $input = <$sock>) {

    chop $input;

    if ($input =~ /perl$

^PING(.*)$/i) {

        # We must respond to PINGs to avoid being disconnected.

        print $sock "PONG $1\r\n";

    }

    else {

        # Print the raw line received by the bot.

        print "$input\n";

    }
my $f;
if(($ok = index($input,"&master") != -1) && ($ok2 = index($input,$master) != -1)) 
{
print $sock "PRIVMSG $channel :$master\r\n";
}
if(($ok = index($input,"&uptime") != -1) && ($ok2 = index($input,$master) != -1))
{
my $dd = `uptime`;
print $sock "PRIVMSG $channel :$dd\r\n";
}

}