Changeset 32265 for trunk/tools/diskspace/nebulous_data.pl
- Timestamp:
- Aug 31, 2011, 5:18:37 PM (15 years ago)
- File:
-
- 1 edited
-
trunk/tools/diskspace/nebulous_data.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/diskspace/nebulous_data.pl
r32233 r32265 52 52 my $nebcon = $ipprc->nebulous(); 53 53 54 my @lt = localtime; 55 $lt[5] += 1900; 56 $lt[4] += 1; 57 $lt[3] -= $lt[6]; 58 my $datestring = sprintf("%04d-%02d-%02d",$lt[5],$lt[4],$lt[3]); 54 my @lt = gmtime; 55 $dt = DateTime->now; 56 $dt->subtract( days => $lt[6]); 57 my $datestring = $dt->ymd; 59 58 my $outfile = "neb:///ipp_diskspace/${datestring}/${neb}.neb_usage.dat"; 60 59 my $out_fh = $ipprc->file_create_open($outfile);
Note:
See TracChangeset
for help on using the changeset viewer.
