#!usr/bin/perl

use strict;
use warnings;
use IO::Socket::INET;
use IPC::Open2;
###########ConFigurazione############
my $server="irc.evolutioniRc.net";
my $porta="6667";
my $nick="Prova|BoT";
my $canale="#Programmazione";
##########FiNE######################
my $sk = IO::Socket::INET->new(PeerAddr=>"$server",PeerPort=>"$porta",Proto=>"tcp") or die "Can not connect on server!\n";
$sk->autoflush(1);

print $sk "NICK $nick\r\n";
print $sk "USER Bot Bot Bot Perl Bot\r\n";
print $sk "JOIN $canale\r\n";
while (my $line = <$sk>){
###### $line CONTIENE TUTTI I MESSAGGI DEL SERVER IN PROTOCOLLO IRC. USARLO DI CONSEGUENZA

if ($line =~ /^PING (:[^ ]+)$/i) {
print $sk "PONG :$1\r\n";
}
###############################LOGIN##############################

if($line =~ /\!login\s+(.*)/){
my $login = $1;
$login =~ s/[\r\n]//g;
my $password =~ s/[\r\n]//g;
&login($login);
}

if($line =~ /\!join\s+(.*)/){
my $login = $1;
$login =~ s/[\r\n]//g;
my @array = split(" ", $line);
print "PRIVMSG #programmazione :USERNAME: ".$array[4];
print "PRIVMSG #programmazione :PASSWORD: ".$array[5];
}
}

sub join() {
  my $join = <$sk>;
  my ($login) = @_;
  my $i=1;
  open(FILE,'<',"login.txt");
  while(my $riga = <FILE>) {
    $riga =~ s/[\r\n]//g;
    print "$i) $riga";
    if ($join == /$riga/) {
    &privmsg($canale,"  15Ok..Login Accettato");
    }
    elsif ($join =~ /$riga/) {
      &privmsg($canale,"  15Login Non Accettato!");
    }
}

sub login()
{
my $login = $_[0];
open(FILE,'>>',"login.txt");
print FILE $login."\n";
close (FILE);
print $sk "PRIVMSG $canale :15Aggiunto L'user: 9$login\r\n";
}

sub privmsg()
{
        my ($chi,$cosa)=@_;
        print $sk "PRIVMSG ".$chi." :".$cosa."\r\n";
}

############### INSERIRE CONSECUTIVAMENTE LE NUOVE SUBROUTINES