|
Lines 821-840
sub convdata {
Link Here
|
| 821 |
print $wtfh "$opts->{'data'}\n"; |
821 |
print $wtfh "$opts->{'data'}\n"; |
| 822 |
while(<$rdfh>){ |
822 |
while(<$rdfh>){ |
| 823 |
$ext .= $_; |
823 |
$ext .= $_; |
| 824 |
# print STDERR "DEBUG: cmd ret: $_"; |
824 |
# print STDERR "DEBUG: cmd ret: $_"; |
| 825 |
}; |
825 |
}; |
| 826 |
waitpid($pid, 0); |
826 |
waitpid($pid, 0); |
| 827 |
$ret = $?>>8; |
827 |
$ret = $?>>8; |
| 828 |
|
828 |
|
| 829 |
if(($ret != 0 && $opts->{'cmd'} ne 'crl') || |
829 |
if($ret != 0) { |
| 830 |
($ret != 0 && $opts->{'outform'} ne 'TEXT' && $opts->{'cmd'} eq 'crl') || |
830 |
unlink($file); |
| 831 |
($ret != 1 && $opts->{'outform'} eq 'TEXT' && $opts->{'cmd'} eq 'crl')) { |
831 |
return($ret, undef, $ext); |
| 832 |
unlink($file); |
832 |
} else { |
| 833 |
return($ret, undef, $ext); |
833 |
$ret = 0; |
| 834 |
} else { |
|
|
| 835 |
$ret = 0; |
| 836 |
} |
834 |
} |
| 837 |
|
835 |
|
| 838 |
open(IN, $file) || do { |
836 |
open(IN, $file) || do { |
| 839 |
my $t = sprintf(gettext("Can't open file %s: %s"), $file, $!); |
837 |
my $t = sprintf(gettext("Can't open file %s: %s"), $file, $!); |
| 840 |
GUI::HELPERS::print_warning($t); |
838 |
GUI::HELPERS::print_warning($t); |
