make log_it() put out a little more info if called prematurely
This commit is contained in:
parent
98720c1bba
commit
ceb11543b1
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue