Changeset 32265 for trunk/tools/diskspace/run_counter.pl

Timestamp:

Aug 31, 2011, 5:18:37 PM (15 years ago)

Author:

watersc1

Message:

Updates to finish migration of summarization code into nebulous outputs

File:

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

trunk/tools/diskspace/run_counter.pl

@@ -1 @@
-#! /usr/local/bin/perl -w
+#! /usr/bin/env perl
+use warnings;
 
+use DateTime;
+use Sys::Hostname;
+use PS::IPP::Config;
 use DBI;
-use Getopt::Std;
 
-getopts('I',\%opt);
 # Set up the database
 use constant DB_SOCKET => '/var/run/mysqld/mysqld.sock';
@@ -41 +43 @@
 $im_query = 'select data_state,count(data_state) AS N from TABLETABLE GROUP BY data_state';
 
-if (exists($opt{I})) {
-    foreach $k (keys %im_stages) {
-        $stages{$k} = $im_stages{$k};
-    }
+foreach $k (keys %im_stages) {
+    $stages{$k} = $im_stages{$k};
 }
+
+my $ipprc = PS::IPP::Config->new("GPC1");
+my $nebcon = $ipprc->nebulous();
+
+my @lt = gmtime;
+$dt = DateTime->now;
+$dt->subtract( days => $lt[6]);
+my $datestring = $dt->ymd;
+my $outfile = "neb:///ipp_diskspace/${datestring}/run_im_counts.dat";
+my $out_fh = $ipprc->file_create_open($outfile);
 
 foreach $s (keys %stages) {
     my $query = $base_query;
-    if (exists($opt{I}) && exists($im_stages{$s})) {
+    if (exists($im_stages{$s})) {
         $query = $im_query;
     }
@@ -57 +67 @@
     foreach $rr (@{ $dr }) {
         my ($state,$count) = @{ $rr };
-        print "$s $state $count\n";
+        print $out_fh "$s $state $count\n";
     }
 }
-           
+close($out_fh);
+