| Subject: | Strange rouble |
The first - sorry for my english, I'm from Russia
I have a trouble with one module - its Net::IRC
If I'm wrong, please, redirect my letter to right mail.
This is the problem:
Code:
#This is HeiVa Bot
#####################
#Created by DarkWizard#
#####################
#This version is 0.3 uses NET::IRC
#Visit our team www.heivacoders.com
#!/usr/bin/perl
use Net::IRC;
# Create connect
$irc = new Net::IRC;
$conn = $irc->newconn(Server => ($ARGV[0] || 'irc.dalnet.ru'),
Nick => 'HeiVaBot',
Port => 6667, # use cp1251 codepage
ircname => 'This bot created by DarkWizard from HeiVa Coders team',
username => 'HeiVaBot')
or die "Can't connect to server\n\a";
$irc->start;
# If successfully connect
sub on_connect {
my $self = shift;
print "Joining #heivacoders...\n";
$self->join("#heivacoders");
$self->privmsg("#heivacoders", "Hi everybody");
}
I'm trying to do it, but:
[darkwizard@localhost v0.3]$ perl heiva.pl
Can't connect to irc.dalnet.ru:6667! at
/usr/lib/perl5/site_perl/5.8.1/Net/IRC.pm line 192
Can't connect to server
at heiva.pl line 15.
[darkwizard@localhost v0.3]$
And if I try to do
perl irctest (wich was in the Net-IRC-0.73.tar.gz) I have the some error.
How I can fix my problems?
Please write me to darkwizard@inbox.ru
Thanks
Yes: Perl version - v5.8.1
Net:IRC version 0.73
[darkwizard@localhost v0.3]$ uname -a
Linux localhost 2.4.22-10mdk #1 Thu Sep 18 12:30:58 CEST 2003 i686 unknown unknown GNU/Linux