#!/usr/bin/perl

$file = "/usr/games/fortune";

$pgm = "eski fortune profiler";

# program version
$ver = "1.0";

$ar = 0;

GAIM::register($pgm, $ver, "", "");
GAIM::add_event_handler("event_im_send", "needsetup");
GAIM::print("The fortune replier has been loaded.", "$pgm $ver plugin loaded.");

sub needsetup {
    my ($x,$u,$m) = @_;
    if ($m =~ '\!fortuneprofile on')
    {
	$ar = 1;
      GAIM::print("On","Fortune Profile is turned on");
      #GAIM::add_timeout_handler(120, "updateprofile", "");
	&updateprofile;
	return 1;
    }
    elsif ($m =~ '\!fortuneprofile off')
    {
	$ar = 0;
      GAIM::print("Off","Fortune Profile is turned off");
	return 1;
    }
}

sub updateprofile {
    if ($ar == 1)
    {
	@allme = GAIM::get_info(1);
      GAIM::add_timeout_handler(600, "updateprofile", "");
	system("$file > ./fortune");
	open(BOB,"./fortune");
	@BOB = <BOB>;
	close(BOB);
	$m = join('<br>',@BOB);
	foreach $u (@allme)
	{
	  GAIM::command("info",$u,$m);
	}
    }
}