Changeset 24446 for branches/pap_mops/ippScripts/scripts/publish_file.pl

Timestamp:

Jun 16, 2009, 2:57:19 PM (17 years ago)

Author:

Paul Price

Message:

Adding path_base for error

File:

• branches/pap_mops/ippScripts/scripts/publish_file.pl (modified) (3 diffs)

branches/pap_mops/ippScripts/scripts/publish_file.pl

@@ -63 +63 @@
     defined $workdir;
 
+my $outroot = "$workdir/$product.$pub_id"; # Output root name
+
 my $ipprc = PS::IPP::Config->new() or
     &my_die( "Unable to set up", $pub_id, $PS_EXIT_CONFIG_ERROR ); # IPP configuration
@@ -113 +115 @@
 # Prepare for data store input
 my ($listFile, $listFileName) = tempfile("/tmp/publish.$pub_id.list.XXXX", UNLINK => !$save_temps );
-
-my $outroot = "$workdir/$product.$pub_id";
 
 # Process each file
@@ -173 +173 @@
         my $command = "$pubtool -add";
         $command .= " -pub_id $pub_id";
+        $command .= " -path_base $outroot";
         $command .= " -fault $fault";
         $command .= " -dbname $dbname" if defined $dbname;