report refresh_file_list errors

[cloudstore.git] / gearman-top.pl

diff --git a/gearman-top.pl b/gearman-top.pl
index 12ab1e5..59d0c67 100755 (executable)
--- a/gearman-top.pl
+++ b/gearman-top.pl
@@ -13,12 +13,15 @@ my $sock = IO::Socket::INET->new(
 
 print "\e[2J"; # Erase Screen
 
+my $t = time();
 my $max;
 
 while(1) {
+       my $uptime = time() - $t;
+       print "\e[2J" if $uptime % 30 == 0;
        print "\e[0;0H"; # Cursor Home
-       print "Gearman " . localtime(time()) . "\n";
-       printf "\e[4mqueued  running  wrk function \e[34mmax\e[0m\n";
+       print "Gearman " . localtime(time()) . "\t\e[34mmax update: $uptime\e[0m\n"; 
+       printf "\e[4mqueued  running  wrk function\e[0m\n";
 
        print $sock "STATUS\n";