irc dcc - ueber irc daten empfangen - #116329 (Netzwerkprogrammierung und Netzwerke mit Perl)

roooot

2008-11-17 15:57

User since
2008-03-03
276 Artikel
BenutzerIn
[default_avatar]

Ich habe mal mit POE::Component::IRC einen IRC Bot gebaut.

Bevor du dir irgendwelche anderen Mühen machst: Hast du die Ports offen? Zum Versenden brauchst du die, zum Empfangen aber nicht. Mein Bot hatte damals ohne Probleme DCCs verschickt.

Code (perl): (dl )

                my $dlname = $main::einstellungen{'download'};
                my $groesse = -s "./data/$dlname.rar";
                $groesse = $groesse/(1024*1024);
                $groesse = sprintf("%.2f", $groesse);
                
                if ($rechte_sql >= 1) {
                        # neues DOWNLOADSYSTEM
                        $kernel->post( bot => notice => $nick, "1,1.0,1Du bekommst nun $dlname ($groesse MB) per DCC geschickt..1,1." );
                        
                        $kernel->post( bot => dcc => $nick, "SEND","./data/$dlname.rar" );

Kernel usw sind parallel zu den üblichen Beispielen.

Das Script ist allerdings schon ein paar Jährchen alt.

Viele Grüße :)