Changeset 18247 for trunk/pstamp/scripts

Timestamp:

Jun 20, 2008, 3:08:02 PM (18 years ago)

Author:

bills

Message:

more tweaks.

Location:

trunk/pstamp/scripts

Files:

• pstamp_listjobs.pl (modified) (4 diffs)
• pstamp_queue_requests.pl (modified) (1 diff)
• pstamp_webrequest.pl (modified) (2 diffs)

trunk/pstamp/scripts/pstamp_listjobs.pl

@@ -8 +8 @@
 use warnings;
 use strict;
+use Getopt::Long qw( GetOptions );
+
+my $verbose;
+my $dbname;
+
+GetOptions(
+    'verbose'   =>  \$verbose,
+    'dbname=s'  =>  \$dbname,
+);
 
 if (@ARGV != 1) {
@@ -15 +24 @@
 my $request_id = $ARGV[0];
 
-my $verbosity = 0;
 
 use Sys::Hostname;
@@ -21 +29 @@
 
 ## This isn't a script to be launched by pantasks we probably want go get rid of this
-if ($verbosity) {
+if ($verbose) {
     print STDERR "\n\n";
     print STDERR "Starting script $0 on $host\n\n";
@@ -59 +67 @@
 {
     my $command = "$pstamptool -listjob -req_id $request_id";
+    $command .= " -dbname $dbname" if $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbosity);
+        run(command => $command, verbose => $verbose);
     unless ($success) {
         die("Unable to perform pstamptool -pendingreq: $error_code");

trunk/pstamp/scripts/pstamp_queue_requests.pl

@@ -17 +17 @@
 my $verbose;
 my $dbname;
+my $limit;
 
 GetOptions(
     'verbose'       =>  \$verbose,
     'dbname=s'      =>  \$dbname,
+    'limit=s'       =>  \$limit,
 );
 

trunk/pstamp/scripts/pstamp_webrequest.pl

@@ -68 +68 @@
 # if -list is used, it must be the first argument
 my $listMode;
-if ($ARGV[0] eq "-list" ) {
+if ($ARGV[0] eq "-list_uri" ) {
     $listMode=1;
 } else  {
@@ -92 +92 @@
     ### In list mode just parse the file print the output and we're done
     ###
-    my $command = "$pstampparse $request_file";
+    ### XXX TODO: I shouldn't need this -mode list_uri since it's in the request file
+    my $command = "$pstampparse -mode list_uri $request_file";
     $command .= " -dbname $dbname" if $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =