GAIM::register("gaim-osd", "0.0.1", "shutdown", "");
GAIM::add_event_handler("event_buddy_signon", "signon");
GAIM::add_event_handler("event_buddy_signoff", "signoff");

# GAIM-OSD - written by James Powell - August 2002
# http://www.webscalability.com/
# This code is licensed under the GPL

use X::Osd;

my $osd = X::Osd->new("-*-lucidatypewriter-medium-r-normal-*-*-200-*-*-*-*-*-*","Red",3,XOSD_bottom,1,2);

sub signon {
    my ($index, $who) = @_;
#    GAIM::print_to_conv($index, $who, "Hello", 0);
    $osd->string(0,"$who signed on");
}

sub signoff {
    my ($index, $who) = @_;
    $osd->string(0,"$who signed off");
}


sub shutdown {
    $osd->string(0,"GAIM-OSD shutting down");
}