Index: trunk/tools/diskspace/run_counter.pl
===================================================================
--- trunk/tools/diskspace/run_counter.pl	(revision 32230)
+++ trunk/tools/diskspace/run_counter.pl	(revision 32265)
@@ -1,8 +1,10 @@
-#! /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,13 +43,21 @@
 $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,6 +67,7 @@
     foreach $rr (@{ $dr }) {
 	my ($state,$count) = @{ $rr };
-	print "$s $state $count\n";
+	print $out_fh "$s $state $count\n";
     }
 }
-	   
+close($out_fh);
+