# HG changeset patch
# User heiko
# Date 1168950315 0
# Node ID 9c16227f96aa484a319b7a1d14ce97486c7c66b5
# Parent  ed68e784c318f2f05944f0702c5c5a408cfd0bd0
Rounds the percentage better now.

diff -r ed68e784c318 -r 9c16227f96aa exigrey.pl
--- a/exigrey.pl	Mon Jan 15 23:01:44 2007 +0000
+++ b/exigrey.pl	Tue Jan 16 12:25:15 2007 +0000
@@ -98,9 +98,9 @@
 	    $_ = <<__;
 	    date: %s
 	      db: $db (ls: %.1f MB / du: %.1f MB)
-	   total: $seen
-        returned: %*d (%2d%%)
-    not returned: %*d (%2d%%)
+	   total: $seen (100%%)
+        returned: %*d (%3d%%)
+    not returned: %*d (%3d%%)
 oldest (created): %.1f days (%s)
    oldest (used): %.1f days (%s)
 __
@@ -108,8 +108,8 @@
 		    scalar(localtime), 
 		    (-s $db) / (1024*1024),
 		    ((stat $db)[12]*512)/(1024*1024),
-		    length($seen), $returned, int(100 * ($returned/$seen)),
-		    length($seen), $seen - $returned, int(100 * ($seen-$returned)/$seen), 
+		    length($seen), $returned, int(0.5 + 100 * ($returned/$seen)),
+		    length($seen), $seen - $returned, int(0.5 + 100 * ($seen-$returned)/$seen), 
 		    ((time - $oldest_c) / 86400), scalar(localtime $oldest_c),
 		    ((time - $oldest_u) / 86400), scalar(localtime $oldest_u);
 	    print "\n" if @ARGV;