irc_bot_J

use strict;
use warnings;

use Net::IRC;

#option du server et pseudo
my $server = 'irc.root-me.org';
my $nick = 'Bot_Julien';

#option du bot
my $ircname ='Bot IRC Candy:!ep1';
my $username = 'Bot_Julien';
my $version = '1.0';

#Channel du serveur
my $channel ='#root-me_challenge';

#création objet IRC
my $irc= new Net::IRC;

#création de l'objet pour la connexion
my $conn = $irc->newconn(
    'Server'    => $server,
    'Port'      => 6667,
    'Nick'      => $nick,
    'Ircnames'  => $ircname,
    'Username'  => $username,
);

#Interaction flux serveru
$conn->add_handler('376', \&on_connect);
$conn->add_handler('public', \&on_public);


$irc->start();



#fonctions des gestion des flux serveur

sub on_connect
{
    my ($conn, $event) = @_;

    $conn->join($channel);
    print "<$nick>\t| Salutations !\n";

    $conn->{'connected'} = 1;
} # Fin on_connect

sub on_public
{
    my ($conn, $event) = @_;
    my $text = $event->{'args'}[0];
    print "<" . $event->{'nick'} . ">\t| $text\n";
}