view release on metacpan or  search on metacpan

bin/utv_usage_applet.pl  view on Meta::CPAN

43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
                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

68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
                        $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