#!/usr/bin/perl
#===============================================================================
#
#         FILE:  lak1.pl
#
#        USAGE:  ./lak1.pl 
#
#  DESCRIPTION:  
#
#      OPTIONS:  ---
# REQUIREMENTS:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:   (), <>
#      COMPANY:  
#      VERSION:  1.0
#      CREATED:  04/06/09 13:08:10 IST
#     REVISION:  ---
#===============================================================================

use strict;
use warnings;
use strict;
use warnings;
use LWP;
use XML::Simple;
use Daemon;
use Tk;

my $obj=new Daemon;
$obj->Daemonize;
while(1)
{
	my $oldnode_id=0;
	if ( -e "./.perlmonks_recent" )
	{
		open (FILE,"./.perlmonks_recent") or die "Cannot open the file .perlmonks\n";
		$oldnode_id=<FILE>;
		chomp $oldnode_id;
		close FILE;
	}
	my $browser = LWP::UserAgent->new;
	my $response = $browser->get('http://www.perlmonks.org/?node_id=30175;types=perlquestion');
	my $ticker=XMLin($response->content);
	my $currnode_id=$ticker->{NODE}[0]->{node_id};
	if($currnode_id > $oldnode_id)
	{
		my $mw=new MainWindow;
		$mw->withdraw();
		$mw->messageBox(-icon => 'info', -message =>"Hai Lakshmanan! There is a new node titled $ticker->{NODE}[0]->{content}", -title => "$ticker->{NODE}[0]->{authortitle}", -type => 'ok');
		$mw->destroy();
	}
	open (FILE,'>',"./.perlmonks_recent") or die "Cannot open the file\n";
	print FILE $currnode_id;
	close FILE;
	sleep(300);
}