/[pdpsoft]/nl.nikhef.pdp.fetchcrl/trunk/OSSL.pm
ViewVC logotype

Diff of /nl.nikhef.pdp.fetchcrl/trunk/OSSL.pm

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

revision 1776 by davidg, Fri Jun 11 15:41:40 2010 UTC revision 1777 by davidg, Sat Jun 12 15:04:48 2010 UTC
# Line 127  sub Exec3pipe($$@) { Line 127  sub Exec3pipe($$@) {
127    
128    my ($tmpfh,$tmpname);    my ($tmpfh,$tmpname);
129    $datain and do {    $datain and do {
130     ($tmpfh,$tmpname) = tempfile("fetchcrl3.XXXXXX", DIR=>'/tmp', UNLINK=>1);     ($tmpfh,$tmpname) = tempfile("fetchcrl3.XXXXXX", DIR=>'/tmp');
131     $|=1;     $|=1;
132     print $tmpfh $datain;     print $tmpfh $datain;
133     close $tmpfh;     close $tmpfh;
# Line 194  sub Exec3file($$@) { Line 194  sub Exec3file($$@) {
194    $|=1;    $|=1;
195    $datain and do {    $datain and do {
196     ($tmpin,$tmpinname) = tempfile("fetchcrl3in.XXXXXX",     ($tmpin,$tmpinname) = tempfile("fetchcrl3in.XXXXXX",
197                                    DIR=>$tmpdir, UNLINK=>1);                                    DIR=>$tmpdir);
198     print $tmpin $datain;     print $tmpin $datain;
199     close $tmpin;     close $tmpin;
200    };    };
201    ($tmpout,$tmpoutname) = tempfile("fetchcrl3out.XXXXXX",    ($tmpout,$tmpoutname) = tempfile("fetchcrl3out.XXXXXX",
202                                     DIR=>$tmpdir, UNLINK=>1);                                     DIR=>$tmpdir);
203    ($tmperr,$tmperrname) = tempfile("fetchcrl3out.XXXXXX",    ($tmperr,$tmperrname) = tempfile("fetchcrl3out.XXXXXX",
204                                     DIR=>$tmpdir, UNLINK=>1);                                     DIR=>$tmpdir);
205    
206    my $pid = fork();    my $pid = fork();
207    

Legend:
Removed from v.1776  
changed lines
  Added in v.1777

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