#!/usr/local/bin/perl -w

use IO::Socket;
### INSERIMENTO DATI NELLE VARIABILI ###
my $server = "irc.unitx.net";
my $nick = "BotSenzascopo";
my $user = "BotSenzascopo";
my $pass = "tuamamma";
my $login = "BotSenzascopo";
my $channel = "#unit-x";

### CONNESSIONE AL SERVER ###


my $sock = new IO::Socket::INET(PeerAddr => $server,
                                PeerPort => 6667,
                                Proto => 'tcp') or
                                    die "Non posso connettermi a $server\n";


### LOGIN ###
print $sock "PASS $pass\r\n";
print $sock "NICK $nick\r\n";
print $sock "USER $login 8 * :$nick\r\n";



print $sock "MODE $channel +m $nick\n";

print $sock "JOIN $channel\r\n";

print $sock "PRIVMSG $channel :Ciao a tutti! ;)\r\n";



### AZIONI DEL BOT ###
while (my $input = <$sock>) {
   chomp $input;
    if ($input =~ /^PING(.*)$/i) {

        print $sock "PONG $1\r\n";
    }
    else {

        print "$input\n";
        }



}



 if($input =~ /^:?(.+?)!~?(.+?)@.?: ciao|salve|buongiorno|buonasera|hi|hola|hello|bella/i)
  {
    print $sock "PRIVMSG $channel :Ciao e benvenuto $1 !\r\n";

  }