/[pdpsoft]/nl.nikhef.pdp.fetchcrl/tags/fetch-crl-3.0.19/fetch-crl3.pl.cin
ViewVC logotype

Diff of /nl.nikhef.pdp.fetchcrl/tags/fetch-crl-3.0.19/fetch-crl3.pl.cin

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2783 by davidg, Thu Apr 30 10:44:41 2015 UTC revision 3107 by davidg, Fri Sep 9 15:32:11 2016 UTC
# Line 108  if ( $::cnf->{_}->{parallelism} ) { Line 108  if ( $::cnf->{_}->{parallelism} ) {
108    &process_metafiles( @metafiles );    &process_metafiles( @metafiles );
109  }  }
110    
111    # run any post-processing
112    if ( $::cnf->{_}->{"postexec"} ) {
113      my @args = ( $::cnf->{_}->{"postexec"},
114        "v1", "global",
115        $::cnf->{_}->{"infodir"}, $::cnf->{_}->{"cadir"}, $::cnf->{_}->{"output"} );
116      $::log->verb(2,"Executing global postscript @args");
117      my $postrc = system(@args);
118      if ( $postrc == -1 ) {
119        $::log->err("Cannot execute global postexec program: $!");
120      } elsif ( $postrc > 0 ) {
121        $::log->err("Global postexec program returned error code ".($? >> 8));
122      }
123    }
124    
125  $log->flush;  $log->flush;
126  exit($log->exitstatus);  exit($log->exitstatus);
127    
# Line 358  sub process_metafiles(@) { Line 372  sub process_metafiles(@) {
372        my $writer = CRLWriter->new($ta);        my $writer = CRLWriter->new($ta);
373        $writer->writeall() or next;        $writer->writeall() or next;
374        $ta->saveState() or next;        $ta->saveState() or next;
375    
376          if ( $::cnf->{$ta->{"alias"}}->{"postexec"} ) {
377            my @args = ( $::cnf->{$ta->{"alias"}}->{"postexec"},
378              "v1", "ta",
379              $ta->{"alias"}, $ta->{"filename"}, $::cnf->{_}->{"cadir"}, $::cnf->{_}->{"output"} );
380            $::log->verb(2,"Executing postscript for ".$ta->{"alias"}.": @args");
381            my $postrc = system(@args);
382            if ( $postrc == -1 ) {
383              $::log->err("Cannot execute postexec program for".$ta->{"alias"}.": $!");
384            } elsif ( $postrc > 0 ) {
385              $::log->err("postexec program for ".$ta->{"alias"}." returned error code ".($? >> 8));
386            }
387          }
388        $ta->restoreLogMode();        $ta->restoreLogMode();
389    }    }
390    

Legend:
Removed from v.2783  
changed lines
  Added in v.3107

grid.support@nikhef.nl
ViewVC Help
Powered by ViewVC 1.1.28