Anonymous

#!/usr/bin/perl
# Carlos Francisco Ferry, a.k.a zOrK
# Crawli BOT
use Net::IRC;
use strict;
use Switch;
use warnings;
my $conf = "crawli.conf";
my $botnick;
my $server = "mqnet.irc.cl";
my $port = "6667";
my $ircname = "Crawling the whole web.";

sub load_conf {
my $var_conf;
my $var_data;
open (FILE, $conf);
my @data=<FILE>;
close (FILE);

foreach my $conf_line (@data) {
 chomp($conf_line);
 ($var_conf,$var_data) = split(/=/,$conf_line);
 switch ($var_conf) { 
   case 'nick' {
     $botnick = $var_data; 
               }

    }         
  }
}

sub connect {
my $irc =  new Net::IRC;
my $con = $irc->newconn(Nick => $botnick,
                     Server => $server,
                     Port   => $port,
                     Ircname => $ircname);

$irc->start;

}
&load_conf();
&connect();