Changeset 32233

Timestamp:

Aug 30, 2011, 8:55:46 PM (15 years ago)

Author:

watersc1

Message:

Put output files into nebulous.

File:

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

trunk/tools/diskspace/nebulous_data.pl

@@ -3 +3 @@
 
 use Sys::Hostname;
-
+use PS::IPP::Config;
 %stages = ("RAW" => '.ota',
            "DIST" => 'dist',
@@ -14 +14 @@
            "MAGIC" => '.mgc.',
            "DETREND" => '.det'
-
     );
-
 
 @products = ('.log','.trace','.mdc$','.stats$',
@@ -51 +49 @@
     $neb = "${hostname}.0";
 }
+my $ipprc = PS::IPP::Config->new("GPC1");
+my $nebcon = $ipprc->nebulous();
+
+my @lt = localtime;
+$lt[5] += 1900;
+$lt[4] += 1;
+$lt[3] -= $lt[6];
+my $datestring = sprintf("%04d-%02d-%02d",$lt[5],$lt[4],$lt[3]);
+my $outfile = "neb:///ipp_diskspace/${datestring}/${neb}.neb_usage.dat";
+my $out_fh = $ipprc->file_create_open($outfile);
 
 my $neb_dir = "/data/${neb}/nebulous/";
@@ -82 +90 @@
     $volume{$stage}{$product} += $size;
 }
+close(FIND);
+
+
 
 foreach $s (sort (keys %count)) {
     foreach $p (sort (keys %{ $count{$s} })) {
-        
-        print "$s $p $count{$s}{$p} $volume{$s}{$p}\n";
+        print $out_fh "$s $p $count{$s}{$p} $volume{$s}{$p}\n";
     }
 }
 
+close($out_fh);
+