29.11.2010, 17:36
(Dieser Beitrag wurde zuletzt bearbeitet: 02.12.2010, 21:02 von Freakazoid.)
Hallo,
ich habe vor, einen simplen Chatbot zu schreiben, und muss daher auf eingehende Nachrichten zugreifen. Dazu hab ich mal was in Perl zusammengehackt:
Leider scheint weder $sender noch $msg sinnvolle Daten zu enthalten, stattdessen kommt in etwa so ein String dabei raus: (15:33:37) simplebot: xyz said: xyz
Interessant, leider nur nicht das was ich will. Weiß jemand Rat?
Edit by Freakazoid: Es kommen komische Zeichen raus. Ich habe die mal durch xyz ersetzt, weil die sonst den RSS-Feed kaputt machen.
ich habe vor, einen simplen Chatbot zu schreiben, und muss daher auf eingehende Nachrichten zugreifen. Dazu hab ich mal was in Perl zusammengehackt:
Code:
use Data::Dumper;
use Purple;
my %PLUGIN_INFO = (
perl_api_version => 2,
name => "Simplebot Plugin",
version => "0.1",
summary => "Test plugin for the Perl interpreter.",
description => "bla",
author => "ich",
url => "http://pidgin.im",
load => "plugin_load",
unload => "plugin_unload"
);
sub plugin_init {
return %PLUGIN_INFO;
}
sub plugin_load {
my $plugin = shift;
Purple::Debug::info("simplebot", "plugin_load() - Simplebot Loaded.\n");
Purple::Signal::connect(Purple::Conversations::get_handle(), "received-chat-msg", $plugin, \&msg_cb, "");
}
sub plugin_unload {
my $plugin = shift;
Purple::Debug::info("testplugin", "plugin_unload() - Test Plugin Unloaded.\n");
}
sub msg_cb {
my ($acc, $sender, $msg, $conv, $flags) = @_;
Purple::Debug::info("simplebot", $sender . " said: " . $msg . "\n");
}
Leider scheint weder $sender noch $msg sinnvolle Daten zu enthalten, stattdessen kommt in etwa so ein String dabei raus: (15:33:37) simplebot: xyz said: xyz
Interessant, leider nur nicht das was ich will. Weiß jemand Rat?
Edit by Freakazoid: Es kommen komische Zeichen raus. Ich habe die mal durch xyz ersetzt, weil die sonst den RSS-Feed kaputt machen.