Net::IRC: Wie Aktionen ausfuehren? - #37732 (Netzwerkprogrammierung und Netzwerke mit Perl)

smp

2005-05-03 20:09

User since
2005-05-03
12 Artikel
BenutzerIn
[default_avatar]

Also so?

Code: (dl )

$self->privmsg($target, "".$msg."/me");

So faengt er Emotes ab:

Code: (dl )

sub on_action {
    my ($self, $event) = @_;
    my ($nick, @args) = ($event->nick, $event->args);

    print "* $nick @args\n";
}

Tests zuvor mit 'caction' hatten aber kein Erfolg.

Edit:
Habs nun mal mit '/me' und '\me', jeweils vor und auch hinter $msg getestet. Funktioniert leider nicht.