My test perl plugin

don.pl (text/plain), 932 bytes, created by Don Seiler (RETIRED) on 2004-06-30 07:11:39 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 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!");
}

sub plugin_unload
{
    my $plugin = shift;
}