Changeset 27840 for branches/simtest_nebulous_branches/ippScripts/scripts/rcserver_checkstatus.pl

Timestamp:

May 3, 2010, 8:50:52 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/simtest_nebulous_branches

Files:

• . (modified) (1 prop)
• ippScripts/scripts/rcserver_checkstatus.pl (modified) (2 diffs)

branches/simtest_nebulous_branches/ippScripts/scripts/rcserver_checkstatus.pl

@@ -8 +8 @@
 use Sys::Hostname;
 my $host = hostname();
+my $date = `date`;
 print "\n\n";
-print "Starting script $0 on $host\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use vars qw( $VERSION );
@@ -40 +41 @@
 
 # Parse the command-line arguments
-my ($dest_id, $prod_id, $status_uri, $last_fileset, $limit);
+my ($dest_id, $status_uri, $last_fileset, $limit);
 my ($dbname, $save_temps, $verbose, $no_update, $logfile);
 
 GetOptions(
            'dest_id=s'      => \$dest_id,    # destination identifier
-           'prod_id=s'      => \$prod_id,    # product identifier
            'status_uri=s'   => \$status_uri, # uri for the desination's status data store product
            'last_fileset=s' => \$last_fileset, # name of last fileset seen on this datastore