Changeset 18380

Timestamp:

Jun 30, 2008, 10:02:15 AM (18 years ago)

Author:

bills

Message:

move functionality from C pstampparse to perl script

Location:

trunk/pstamp/scripts

Files:

• pstamp_parser_run.pl (modified) (2 diffs)
• pstampparse.pl (added)

trunk/pstamp/scripts/pstamp_parser_run.pl

@@ -67 +67 @@
 
 my $pstamptool  = can_run('pstamptool')  or (warn "Can't find pstamptool"  and $missing_tools = 1);
-my $pstampparse = can_run('pstampparse') or (warn "Can't find pstampparse" and $missing_tools = 1);
+my $pstampparse = can_run('pstampparse.pl') or (warn "Can't find pstampparse.pl" and $missing_tools = 1);
 my $dqueryparse = can_run('dqueryparse.pl') or (warn "Can't find dqueryparse.pl" and $missing_tools = 1);
 my $dsget = can_run('dsget') or (warn "Can't find dsget" and $missing_tools = 1);
@@ -179 +179 @@
 my $parse_cmd;
 if ($request_type eq "PS1_PS_REQUEST") {
-    $parse_cmd = $pstampparse . " -mode queue_job -req_id $request_id -out_dir $outdir $uri";
+    $parse_cmd = $pstampparse . " -mode queue_job -req_id $request_id -out_dir $outdir -file $uri";
     $parse_cmd .= " -dbname $dbname" if $dbname;
 } elsif ($request_type eq "MOPS_DETECTABILITY_QUERY") {