Changeset 32602 for trunk/tools/diskspace/nebulous_data.pl

Timestamp:

Nov 2, 2011, 2:46:41 PM (15 years ago)

Author:

watersc1

Message:

Add date options as needed. Handle non-nebulous space in a way that allows it to be accounted better.

File:

• trunk/tools/diskspace/nebulous_data.pl (modified) (3 diffs)

trunk/tools/diskspace/nebulous_data.pl

@@ -61 +61 @@
 my $neb_dir = "/data/${neb}/nebulous/";
 
+my $total_volume = 0;
+my $used_volume  = 0;
+open(DF,"df -B 1 /data/${neb}/ |") || die "Cannot run df\n";
+while(<DF>) {
+    chomp;
+    if ($_ =~ /${neb}/) {
+        $used_volume = (split /\s+/, $_)[2];
+    }
+}
+close(DF);
+
 open(FIND,"find $neb_dir -type f -printf \"%f %s\n\" |") || die "Cannot run find.\n";
+
+
 while (<FIND>) {
     chomp;
@@ -88 +101 @@
     $count{$stage}{$product} += 1;
     $volume{$stage}{$product} += $size;
+    $total_volume += $size;
 }
 close(FIND);
+
 
 
@@ -98 +113 @@
     }
 }
+my $external_volume = $used_volume - $total_volume;
+print $out_fh "EXTERNAL UNKNOWN 1 $external_volume\n";
 
 close($out_fh);