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: Slurp.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::Slurp; use strict; use lib '/usr/local/csf/lib'; use Fcntl qw(:DEFAULT :flock); use Carp; use Exporter qw(import); our $VERSION = 1.02; our @ISA = qw(Exporter); our @EXPORT_OK = qw(slurp); our $slurpreg = qr/(?>\x0D\x0A?|[\x0A-\x0C\x85\x{2028}\x{2029}])/; our $cleanreg = qr/(\r)|(\n)|(^\s+)|(\s+$)/; # end main ############################################################################### # start slurp sub slurp { my $file = shift; if (-e $file) { sysopen (my $FILE, $file, O_RDONLY) or carp "*Error* Unable to open [$file]: $!"; flock ($FILE, LOCK_SH) or carp "*Error* Unable to lock [$file]: $!"; my $text = do {local $/; <$FILE>}; close ($FILE); return split(/$slurpreg/,$text); } else { carp "*Error* File does not exist: [$file]"; } return; } # end slurp ############################################################################### # start slurpreg sub slurpreg { return $slurpreg; } # end slurpreg ############################################################################### # start cleanreg sub cleanreg { return $cleanreg; } # end cleanreg ############################################################################### 1;
Save