NET::IRC

Hvorfor ikke gøre det eventdriven, as in:

use Net::IRC;
use strict;
use constant  (IRCNAME => \'Perl Net::IRC bot\',
              PORT => 6667 );

my botname = shift( ) or \'PerlWh0re\';
my server = shift( ) or \'irc.pushers.net\';

my $irc = new Net::IRC;
$irc->newconn( Nick => $botname,
              Server => $server,
              Port => PORT,
              Ircname => IRCNAME );

$irc->add_handler( \'376\', \\&on_connect( ) );

sub on_connect
{
    my $self = shift( );
    $self->join( \'#digitalunderground\' );
    $self->privmsg( \'#digitalunderground\', \'Hi - please kill me!\' );
}

$irc->start( );

Iøvrigt kan jeg anbefale, hvis du har nok panodiler til at klare at dit hoved bliver ørt det første stykke tid, at benytte POE til den slags her ( poe.perl.org ), de har det glimrende modul POE::Component::IRC, som kan findes på CPAN.

det virker fint med $irc->start, men den skal samtidig have input fra nogle andre sockets, og det kan den vel ikke med irc-> start. derfor har jeg lavet en while løkke der kører $irc->start, og derefter henter hvad der skal hentes fra de forskellige sockets

Hvilke andre sockets ?

Er det en daemon der skal outputte noget fra andre daemons som den snakker med over TCP/UDP på IRC ?

prorgammet lytter på nogle sockets efter en counterstricke log der blvier sent fra nogle games servere. disse logs kigger den så igennem og skriver noget af det ud på irc. det sjove er, at det virker fint, men hvis jeg så et eller andet sted f.eks fjerner et print statement så virker det ligepludselig ikke

Okay - mit forslag ville så være at du kunne lave et mellemled, fx en database, som du samtidig kunne bruge til at lave webstats udfra, hvilket jeg antager er en del af din fremtidige TODO liste. :-)

Men spørgsmålet er - skal reaktionen komme fordi at der kommer nye data, eller fordi at en bruger beder om det fra IRC ?

det skal skrive ud når der er en der slår en teammate ihjel, og når der er nogen der skriver admin inde i spillet. det virker fint det med admin. Det skal også vise en spillerliste og kicke eller banne dem fra irc. alt dette virker, men jeg forstår ikke hvorfor den ikke vil connecte ordentligt til irc serveren hvis man retter et eller andet ligegyldigt i koden
det kan være hvis man bare fjerner \\n i slutningen af et print statement

Kan jeg få den sub at se der indeholder do_one_loop( ) ?

while (1)
{
    &readline(\'server 1\', $log1);
    &readline(\'server 2\', $log2);
    &readline(\'server 3\', $log3);
    &readline(\'server 4\', $log4);
    &readline(\'server 5\', $log5);
    &readline(\'server 6\', $log6);
    &readline(\'server 7\', $log7);
    $irc->do_one_loop;
}

sub sortlog
{
    my ($server, $logline) = @_;
    my $line = substr($logline, 34); #DETTE VIRKER
    my $pos = rindex($line, \'say \"admin\');
    if ($pos > 0)
    {
        my $msg = substr($line, ($pos + 4)); #til at finde admin beskeden VIRKER
        $pos = rindex($line, \'<\');
        $line = substr($line, 0, $pos);
        $pos = rindex($line, \'<\');
        my $wonid = substr($line, $pos, (length($line)-$pos));
        $line = substr($line, 0, $pos);
        $pos = rindex($line, \'<\');
        my $nick = substr($line, 0, $pos);
        $conn->privmsg($chan, \"$server $nick $wonid $msg\");
        return;
    } else
    {
        return;
    }
}

sub readline
{
    ($server, $log) = @_;
    my $rv = sysread($log, my $logline, 1024);
    if (defined($rv))
    {
        &sortlog($server, $logline);
        return;
    }
    else
    {
        if ($! == EAGAIN)
        {
            return 0;
        }
    }
}

Hvor var det du pillede den print STDOUT \"\\n\"; ud ?

jeg ændrede
print \"starting...\";
til
print \"starting...\\n\";
så virkede det ikke

Hvorhenne i dit script kan jeg så spørge igen. ;-P

du kan lige få hele scriptet. har du en email?

info@effectus.dk