size of db file\
authorheiko
Tue, 02 Jan 2007 23:15:14 +0000
changeset 21 f47d0026ab09
parent 20 dab30914e25e
child 22 91803f1e2741
size of db file\
exigrey.pl
--- a/exigrey.pl	Tue Jan 02 23:06:06 2007 +0000
+++ b/exigrey.pl	Tue Jan 02 23:15:14 2007 +0000
@@ -81,14 +81,15 @@
 
 	$_ = <<__;
         date: %s
-          db: $db (%.1f MB)
+          db: $db (ls: %.1f MB / du: %.1f MB)
        total: $seen
 not returned: %d (%d%%)
       oldest: %.1f days (%s)
 __
 	printf $_, 
 		scalar(localtime), 
-		-s $db / (1024*1024),
+		(-s $db) / (1024*1024),
+		((stat $db)[12]*512)/(1024*1024),
 		$seen - $returned, 
 		int(100 * ($seen-$returned)/$seen), 
 		((time - $oldest) / 86400), scalar(localtime $oldest);