make log_it() put out a little more info if called prematurely

This commit is contained in:
Sitaram Chamarty 2012-02-14 20:17:00 +05:30
parent 98720c1bba
commit ceb11543b1

View file

@ -164,7 +164,9 @@ sub dos2unix {
sub log_it { sub log_it {
my ($ip, $logmsg); my ($ip, $logmsg);
open my $log_fh, ">>", $ENV{GL_LOG} or die "open log failed: $!\n"; open my $log_fh, ">>", $ENV{GL_LOG} or die
"open log failed: $!\n" .
"attempting to log: " . ( $_[0] || '(nothing)' ) . "\n";
# first space sep field is client ip, per "man ssh" # first space sep field is client ip, per "man ssh"
($ip = $ENV{SSH_CONNECTION} || '(no-IP)') =~ s/ .*//; ($ip = $ENV{SSH_CONNECTION} || '(no-IP)') =~ s/ .*//;
# the first part of logmsg is the actual command used; it's either passed # the first part of logmsg is the actual command used; it's either passed