Mercurial > pidgin
view plugins/test.pl @ 8573:7dcd6f26e4a7
[gaim-migrate @ 9321]
" This patch reimplements the system log. It writes
system log to
~/.gaim/logs/<protocol>/<username>/.system/<timestamp>.(txt|html),
where <timestamp> is the time that the account
<username> with <protocol> signs on. Nathan (faceprint)
and LSchiere suggested this logging scheme. No code is
currently written to read the old system logs.
Note that if you change the logging format, you need to
re-login the accounts for the change to take effect."
--Ka-Hing (javabsp) Cheung
who continues:
"Now this one applies, also contains a rider patch that, if
you enable sound for "Someone says your name in chat", it
will not play a sound if the message is a system message,
like if jabber chat tells you that "*** becomes available"
and *** is you, it won't play a sound."
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Sat, 03 Apr 2004 18:34:29 +0000 |
parents | b1ea29d1293e |
children |
line wrap: on
line source
#!/usr/bin/perl -w use Gaim; %PLUGIN_INFO = ( perl_api_version => 2, name => 'Test Perl Plugin', version => '1.0', summary => 'Provides as a test base for the perl plugin.', description => 'Provides as a test base for the perl plugin.', author => 'Christian Hammond <chipx86@gnupdate.org>', url => 'http://gaim.sf.net/', load => "plugin_load", unload => "plugin_unload" ); sub account_away_cb { Gaim::debug_info("perl test plugin", "In account_away_cb\n"); my ($account, $state, $message, $data) = @_; Gaim::debug_info("perl test plugin", "Account " . $account->get_username() . " went away.\n"); Gaim::debug_info("perl test plugin", $data . "\n"); } sub plugin_init { return %PLUGIN_INFO; } sub plugin_load { Gaim::debug_info("perl test plugin", "plugin_load\n"); my $plugin = shift; Gaim::debug_info("perl test plugin", "Listing accounts.\n"); foreach $account (Gaim::accounts()) { Gaim::debug_info("perl test plugin", $account->get_username() . "\n"); } Gaim::debug_info("perl test plugin", "Listing buddy list.\n"); foreach $group (Gaim::BuddyList::groups()) { Gaim::debug_info("perl test plugin", $group->get_name() . ":\n"); foreach $buddy ($group->buddies()) { Gaim::debug_info("perl test plugin", " " . $buddy->get_name() . "\n"); } } Gaim::signal_connect(Gaim::Accounts::handle, "account-away", $plugin, \&account_away_cb, "test"); } sub plugin_unload { my $plugin = shift; }