mirror of
https://github.com/waytotheweb/scripts.git
synced 2026-03-29 18:07:07 +00:00
83 lines
2.4 KiB
Perl
83 lines
2.4 KiB
Perl
|
###############################################################################
|
||
|
|
# Copyright (C) 2006-2025 Jonathan Michaelson
|
||
|
|
#
|
||
|
|
# https://github.com/waytotheweb/scripts
|
||
|
|
#
|
||
|
|
# This program is free software; you can redistribute it and/or modify it under
|
||
|
|
# the terms of the GNU General Public License as published by the Free Software
|
||
|
|
# Foundation; either version 3 of the License, or (at your option) any later
|
||
|
|
# version.
|
||
|
|
#
|
||
|
|
# This program is distributed in the hope that it will be useful, but WITHOUT
|
||
|
|
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||
|
|
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
||
|
|
# details.
|
||
|
|
#
|
||
|
|
# You should have received a copy of the GNU General Public License along with
|
||
|
|
# this program; if not, see <https://www.gnu.org/licenses>.
|
||
|
|
###############################################################################
|
||
|
|
## no critic (RequireUseWarnings, ProhibitExplicitReturnUndef, ProhibitMixedBooleanOperators, RequireBriefOpen)
|
||
|
|
# start main
|
||
|
|
package ConfigServer::Logger;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use lib '/usr/local/csf/lib';
|
||
|
|
use Carp;
|
||
|
|
use Fcntl qw(:DEFAULT :flock);
|
||
|
|
use ConfigServer::Config;
|
||
|
|
|
||
|
|
use Exporter qw(import);
|
||
|
|
our $VERSION = 1.02;
|
||
|
|
our @ISA = qw(Exporter);
|
||
|
|
our @EXPORT_OK = qw(logfile);
|
||
|
|
|
||
|
|
my $config = ConfigServer::Config->loadconfig();
|
||
|
|
my %config = $config->config();
|
||
|
|
my $hostname;
|
||
|
|
if (-e "/proc/sys/kernel/hostname") {
|
||
|
|
open (my $IN, "<", "/proc/sys/kernel/hostname");
|
||
|
|
flock ($IN, LOCK_SH);
|
||
|
|
$hostname = <$IN>;
|
||
|
|
chomp $hostname;
|
||
|
|
close ($IN);
|
||
|
|
} else {
|
||
|
|
$hostname = "unknown";
|
||
|
|
}
|
||
|
|
my $hostshort = (split(/\./,$hostname))[0];
|
||
|
|
|
||
|
|
my $sys_syslog;
|
||
|
|
if ($config{SYSLOG}) {
|
||
|
|
eval('use Sys::Syslog;'); ##no critic
|
||
|
|
unless ($@) {$sys_syslog = 1}
|
||
|
|
}
|
||
|
|
|
||
|
|
# end main
|
||
|
|
###############################################################################
|
||
|
|
# start logfile
|
||
|
|
sub logfile {
|
||
|
|
my $line = shift;
|
||
|
|
my @ts = split(/\s+/,scalar localtime);
|
||
|
|
if ($ts[2] < 10) {$ts[2] = " ".$ts[2]}
|
||
|
|
|
||
|
|
my $logfile = "/var/log/lfd.log";
|
||
|
|
if ($< != 0) {$logfile = "/var/log/lfd_messenger.log"}
|
||
|
|
|
||
|
|
sysopen (my $LOGFILE, $logfile, O_WRONLY | O_APPEND | O_CREAT);
|
||
|
|
flock ($LOGFILE, LOCK_EX);
|
||
|
|
print $LOGFILE "$ts[1] $ts[2] $ts[3] $hostshort lfd[$$]: $line\n";
|
||
|
|
close ($LOGFILE);
|
||
|
|
|
||
|
|
if ($config{SYSLOG} and $sys_syslog) {
|
||
|
|
eval {
|
||
|
|
local $SIG{__DIE__} = undef;
|
||
|
|
openlog('lfd', 'ndelay,pid', 'user');
|
||
|
|
syslog('info', $line);
|
||
|
|
closelog();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
# end logfile
|
||
|
|
###############################################################################
|
||
|
|
|
||
|
|
1;
|