#!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 $password = <$sk>){
while (my $line = <$sk>){
if ($line =~ /^PING (:[^ ]+)$/i) {
print $sk "PONG :$1\r\n";
}
###############################LOGIN##############################
sub privmsg()
{
        my ($chi,$cosa)=@_;
        print $sk "PRIVMSG ".$chi." :".$cosa."\r\n";
}
if($line =~ /\!login\s+(.*)/){
my $login = $1;
$login =~ s/[\r\n]//g;
$password =~ s/[\r\n]//g;
&login($login);
}
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";
}

if($line =~ /\:!join\s+(.*)/){
my $login = $1;
$login =~ s/[\r\n]//g;
my @array = split(" ", $line);
print "USERNAME: ".@array[4];
print "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!");
                }
            }
}
}
}