Untitled

#!/usr/bin/perl
# Carlos Francisco Ferry, a.k.a zOrK - carlos@gnu.cl
# Crawli BOT - released under the GPL.

require 'lib/Net-IRC-0.75/IRC.pm';
use strict;
use Switch;
use warnings;
use Cwd;
my $cwd = getcwd;
my $fileconf = $cwd . "/crawli.conf";
my $botnick;
my $username;
my $server;
my $port;
my $ircname;

sub load_conf {
my $var_conf;
my $var_data;
my $mode;
open (FILE, $fileconf) or die "Dying, Can't open $fileconf : $!";
my @data=<FILE>;
close (FILE);
print "Reading conf..\n";
foreach my $conf_line (@data) {
next if $conf_line =~ /^\#/;
chomp($conf_line);
($var_conf,$var_data) = split(/: /,$conf_line);
switch ($var_conf) { 
case  'nick' {
     $botnick = $var_data; 
     }
case  'server' {
     $server = $var_data;
     }
case  'port' {
     $port = $var_data;
     }
case 'ircname' {
     $ircname = $var_data;
     }
case 'username' { 
     $username = $var_data;
     }      

    }         
  }
}

sub on_connect {
my $self = shift;
print "Connected to $server:$port\n";
$self->join("#Linuxers");
$self->privmsg('zOrK','hola');
}

sub start {
print "Trying to connect to $server:$port as $botnick!$username:$ircname\n";
my $irc =  new Net::IRC;
my $con = $irc->newconn(Nick => $botnick,
                        Server => $server,
                        Port   => $port,
                        Username => $username,
                        Ircname => $ircname);                     

#$con->add_global_handler('376', \&on_connect);
#$con->add_handler('cping', \&on_cping);
$irc->start;
}

&load_conf();
&start();