GPL v3 Release

csf/ConfigServer/Slurp.pm

@@ -0,0 +1,68 @@
+###############################################################################
+# 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::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;