updated example with Connection handler

don.pl (text/plain), 1.20 KB, created by Don Seiler (RETIRED) on 2004-06-30 10:53:48 UTC

# Don's Test Perl Plugin of DOOM

use Gaim;

%PLUGIN_INFO = (
    perl_api_version    => 2,
    name                => "Don's Test Perl Plugin of DOOM",
    version             => "0.1.0",
    summary             => "Test Perl Plugin",
    description         => "A quick little ditty so I can feel the joy of both gaim _and_ perl, two of my loves.",
    author              => "Don Seiler <don\@seiler.us>",
    url                 => "http://gaim.sourceforge.net",

    load                => "plugin_load",
    unload              => "plugin_unload"
);


sub timeout_cb
{
    my $data = shift;

    Gaim::debug_info("don", 
                     "Timeout callback called! data says: $data\n");
}

sub signed_on_cb
{
    my ($gc, $data) = @_;
    my $account = $gc->get_account();

    Gaim::debug_info("don",
                     "Account " . $account->get_username() . " signed on.\n");
}

sub plugin_init
{
    return %PLUGIN_INFO;
}

sub plugin_load
{
    my $plugin = shift;

    # Start a timeout for 5 seconds
    Gaim::timeout_add($plugin, 5, \&timeout_cb, "Hello!");
    Gaim::signal_connect(Gaim::Connections::handle, "signed-on", $plugin, \&signed_on_cb, $data);
}

sub plugin_unload
{
    my $plugin = shift;
}