Mercurial > pidgin.yaz
view plugins/perl/scripts/plugin_action.pl @ 13664:4132d997ccec
[gaim-migrate @ 16066]
Fix Coverity CID 45: Check to make sure a channel 2 ICBM actually
contains an IP address TLV before attempting to use it. This
avoids a crash when the server sends us an abnormal channel 2
ICBM. I'm not sure if that ever happens.
Fix Coverity CID 204: Don't attempt to send data over a FLAP
BOS connection that doesn't exist. This should never happen
because the account should get disconnected first.
Fix Coverity CID 205: Don't check that a variable 'od' which
we know is valid is not equal to NULL in aim_search_address()
in family_userlookup.c
Fix Coverity CID 206: Don't check that the variable 'od' which
we know is valid is not equal to NULL in aim_chat_join() in
family_oservice.c
Fix Coverity CID 207: I neglected to remove a "return;" line from
aim_admin_setnick() in family_admin.c which caused setting your
AIM screen name formatting to not work.
Fix Coverity CID 208: Remove a duplicate call to
gaim_connection_get_account() in peer_connection_propose() in peer.c.
Fix Coverity CID 209: Remove the unused variable "username" from
incomingim_chan2() in oscar.c.
Fix Coverity CID 210: Remove the unused variable "account"
from peer_connection_listen_cb() in peer.c.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Thu, 20 Apr 2006 04:45:06 +0000 |
parents | b457aa723bab |
children |
line wrap: on
line source
$MODULE_NAME = "Plugin Action Test Plugin"; use Gaim; sub plugin_init { return %PLUGIN_INFO; } sub plugin_load { my $plugin = shift; } sub plugin_unload { my $plugin = shift; } sub fun1 { print "1\n"; } sub fun2 { print "2\n"; } sub fun3 { print "3\n"; } %plugin_actions = ( "Action 1" => \&fun1, "Action 2" => \&fun2, "Action 3" => \&fun3 # "Action 1" => sub { print "1\n"; }, # "Action 2" => sub { print "2\n"; }, # "Action 3" => sub { print "3\n"; } ); sub plugin_action_names { foreach $key (keys %plugin_actions) { push @array, $key; } return @array; } # All the information Gaim gets about our nifty plugin %PLUGIN_INFO = ( perl_api_version => 2, name => "Perl: $MODULE_NAME", version => "0.1", summary => "Test plugin for the Perl interpreter.", description => "Just a basic test plugin template.", author => "Etan Reisner <deryni\@gmail.com>", url => "http://sourceforge.net/users/deryni9/", load => "plugin_load", unload => "plugin_unload", plugin_action_sub => "plugin_action_names" );