Index: /trunk/tools/diskspace/nebulous_data.pl
===================================================================
--- /trunk/tools/diskspace/nebulous_data.pl	(revision 32232)
+++ /trunk/tools/diskspace/nebulous_data.pl	(revision 32233)
@@ -3,5 +3,5 @@
 
 use Sys::Hostname;
-
+use PS::IPP::Config;
 %stages = ("RAW" => '.ota',
 	   "DIST" => 'dist',
@@ -14,7 +14,5 @@
 	   "MAGIC" => '.mgc.',
 	   "DETREND" => '.det'
-
     );
-
 
 @products = ('.log','.trace','.mdc$','.stats$',
@@ -51,4 +49,14 @@
     $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,12 +90,16 @@
     $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);
+