#!/usr/bin/perl

use strict;
use warnings;

use Gtk2::Notify -init, "Idle";
use Time::HiRes qw( gettimeofday usleep );

my $start = [gettimeofday];
my $now = sprintf("%.0f",($start->[0]*1000) + ($start->[1]/1000));
my $end = $now + 30000;

while ($now < $end) {
	my $remaining = ($end - $now);
	my $notification = Gtk2::Notify::new('Idle', sprintf("%.0f",($remaining/1000)), '', "status_lock");
	$notification->set_hint_string('x-canonical-private-synchronous','idle');
	$notification->set_urgency('NOTIFY_URGENCY_LOW');
	$notification->set_hint_int32('value',($remaining/300));
	$notification->set_timeout(150);
	$notification->show();
	usleep(100);
	$now = utime( undef, undef );
	$start = [gettimeofday];
	$now = sprintf("%.0f",($start->[0]*1000) + ($start->[1]/1000));
}