Hallo,
ich habe folgendes Script für einen IRC bot. Der soll jeden der einen Channel joined grüssen, allerdings grüßt er auch sich selbst und das soll nicht sein. Was muß ich abändern ?
#!/usr/bin/perl -w
use Net::IRC;
use strict;
my $irc = new Net::IRC;
my $conn = $irc->newconn(
Server => server’,
Port => ‚6667‘,
Nick => ‚test‘,
Ircname => ‚test‘,
Username => ‚test‘
);
$conn->{channel} = ‚#channel‘;
sub on_connect {
my $conn = shift;
$conn->join($conn->{channel});
$conn->privmsg($conn->{channel}, ‚Hallo !‘);
$conn->{connected} = 1;
}
sub on_join {
my ($conn, $event) = @_;
my $nick = $event->{nick};
$conn->privmsg($conn->{channel}, „Hallo, $nick!“);
}
$conn->add_handler(‚join‘, &on_join);
$conn->add_handler(‚376‘, &on_connect);
$irc->start();
Danke schon mal für die Hilfe,
Micha