view release on metacpan or  search on metacpan

bin/utv_usage_applet.pl  view on Meta::CPAN

		print "Failed to get usage :(\n";
		exit(1);
	}
}
else
{
	print "Login failed :(\n";
	exit(1);
}

sub update_text
{
	my $usage = $utv->usage();
	my $up = $usage->{"upload"};
	my $down = $usage->{"download"};

	Gtk2::Label::set_text( $label , strftime( "%H:%M" , localtime() ) . " Up " . int($up) . " Down " . int($down ) );
	
	return 1;
}

bin/utv_usage_tray.pl  view on Meta::CPAN

			$usage = "ERROR - " . $Business::UTV::errstr;
		}
	}
	else
	{
		$usage = "ERROR - " . $Business::UTV::errstr;
	}
}	


sub updateUsageText_Timer
{
	my $text = getUsageText();
	$ni->Change( -name => "NI" , -id => 1, -icon => $icon, -tip => $text );
	return 1;
}


=head1 NAME 

utv_usage_tray.pl - Windows system tray icon displaying monthly bandwidth usage