Net::IRC

Det skal lige siges at dette script virkede fint på et andet linux-system. Så det er ikke selve scriptet den er gal med.

copy&paste fra IRC.pm

190 sub newconn {
191    my $self = shift;
192    my $conn = Net::IRC::Connection->new($self, @_);
193
194    return if $conn->error;
195    return $conn;
196 }

copy&paste fra sub new i modulet Net::IRC::Connection:

sub new {
    my $proto = shift;

    my $self = {                # obvious defaults go here, rest are user-set
                _debug      => $_[0]->{_debug},
                _port      => 6667,
                # Evals are for non-UNIX machines, just to make sure.
                _username  => eval { scalar getpwuid($>) } || $ENV{USER}
                || $ENV{LOGNAME} || \"japh\",
                _ircname    => $ENV{IRCNAME} || eval { (getpwuid($>))[6] }
                || \"Just Another Perl Hacker\",
                _nick      => $ENV{IRCNICK} || eval { scalar getpwuid($>) }
                || $ENV{USER} || $ENV{LOGNAME} || \"WankerBot\",  # heheh...
                _ignore    => {},
                _handler    => {},
                _verbose    =>  0,      # Is this an OK default?
                _parent    =>  shift,
                _frag      =>  \'\',
                _connected  =>  0,
                _maxlinelen =>  510,    # The RFC says we shouldn\'t exceed this.
                _format    => {
                    \'default\' => \"[%f:%t]  %m  <%d>\",
                },
              };

    bless $self, $proto;
    # do any necessary initialization here
    $self->connect(@_) if @_;

    return $self;
}

copy&paste fra selve scriptet (botten.pl) der hvor forbindelsen bliver etableret (burde jeg jo nok havde startet med at skrive):

#
#  Create the IRC and Connection objects
#

my $irc = new Net::IRC;

print \"<$ircbot> Etablerer forbindelse til IRC-serveren...\\n\";

my $conn = $irc->newconn(Server  => ($ARGV[0]  ||  \'eu.undernet.org\'),
                        Port    => 6667,
                        Nick    => \'Botten\',
                        Ircname  => \'Jeg er en bot\',
                        Username => \'Botten\')
    or die \"<$ircbot> Can\'t connect to IRC server.\\n\";

okey... jeg er nået så langt at jeg har fundet ud af at fejlen ligger i dette stykke kode:

  # This bind() stuff is so that people with virtual hosts can select
  # the hostname they want to connect with. For this, I dumped the
  # astonishingly gimpy IO::Socket. Talk about letting the interface
  # get in the way of the functionality...

  if ($self->hostname) {
      unless (bind( $sock, sockaddr_in( 0, inet_aton($self->hostname) ) )) {
          carp \"Can\'t bind to\", $self->hostname, \": $!\";
          $self->error(1);
          return;
      }
  }

Hm du skal nok ha pbnet noget porte på din router!

hmmm.... nu har du konfigget dit hostname og ting right ?
mener jeg har set noget lignende.
/etc/hosts
kunne være den ikke kan look\'e hostname op *shrug*
// Lars Advice A/S

# This bind() stuff is so that people with virtual hosts can select
# the hostname they want to connect with. For this, I dumped the
# astonishingly gimpy IO::Socket. Talk about letting the interface
# get in the way of the functionality...
     
if ($self->hostname) {
  unless (bind( $sock, sockaddr_in( 0, inet_aton($self->hostname) )
)) {
      carp \"Can\'t bind to \", $self->hostname, \": $!\";
      $self->error(1);
      return;
  }
}
og comment det hele ud. Så skulle det virke

hov. der manglede lige noget. Dette findes omkring linie 250 i Connection.pm , og skal bare commentes væk og så skulle det virke. Det gjorde det hvert fald for mig