Skip to content

print warnings to STDERR #37

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
xthk wants to merge 1 commit into
base: master
Choose a base branch
from
Open

print warnings to STDERR #37

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 5 additions & 5 deletions o-saft.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -121,7 +121,7 @@ sub _warn {
#? print warning if wanted
#return if ($warning <= 0);
return if (grep(/(:?--no.?warn)/i, @ARGV) > 0); # ugly hack 'cause we won't pass $warning
local $\ = "\n"; print("**WARNING: ", join(" ", @_));
local $\ = "\n"; print STDERR ("**WARNING: ", join(" ", @_));
# TODO: in CGI mode warning must be avoided until HTTP header written
}
sub _print_read($$) { printf("=== reading: %s (%s) ===\n", @_) if (grep(/(:?--no.?header|--cgi)/i, @ARGV) <= 0); }
Expand Down Expand Up @@ -2190,10 +2190,10 @@ ($$)
# malloc() problems, in this case print an additional warning.
# Note that low memory affects external calls only *but not* further
# control flow herein as perl already managed to load the script.
print "**WARNING: perl returned error: '$error'\n";
print STDERR "**WARNING: perl returned error: '$error'\n";
if ($error =~ m/allocate memory/) {
print "**WARNING: using external programs disabled.\n";
print "**WARNING: data provided by external openssl may be shown as: <<openssl>>\n";
print STDERR "**WARNING: using external programs disabled.\n";
print STDERR "**WARNING: data provided by external openssl may be shown as: <<openssl>>\n";
}
$cmd{'extopenssl'} = 0;
$cmd{'extsclient'} = 0;
Expand All @@ -2204,7 +2204,7 @@ ($$)
push(@{$cfg{'ca_paths'}}, $arg);
}
if ($status != 0) {
print "**WARNING: perl returned status: '$status' ('" . ($status>>8) . "')\n";
print STDERR "**WARNING: perl returned status: '$status' ('" . ($status>>8) . "')\n";
}
$arg = "";
}
Expand Down