Changeset 32602 for trunk/tools/diskspace/sizes_from_counts.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/sizes_from_counts.pl (modified) (1 diff)

trunk/tools/diskspace/sizes_from_counts.pl

@@ -1 +1 @@
 #! /usr/local/bin/perl -w
+
+
+use Getopt::Std;
+use DateTime;
+use PS::IPP::Config;
+
+getopts('D:',\%opt);
+
 my $count_list = shift;
+my $ipprc = PS::IPP::Config->new("GPC1");
+my $nebcon = $ipprc->nebulous();
+
+
+if (exists($opt{D})) {
+    my $datestring = $opt{D};
+    my $usage_data = "neb:///ipp_diskspace/${datestring}/usage_report.dat";
+    my $real_file  = $ipprc->file_resolve($usage_data);
+    open(DATA,$real_file) || die "Cannot find usage_report.dat\n";
+}
 
 while(<DATA>) {
     chomp;
+    if ($_ =~ /^\s+/) {
+        next;
+    }
     ($stage,$state,$label,undef,$rate,$count) = split /\s+/;
     $data{$stage}{$state}{L} = $label;