mirror of
https://github.com/waytotheweb/scripts.git
synced 2026-03-29 16:57:07 +00:00
131 lines
3.5 KiB
Perl
131 lines
3.5 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::Service;
|
|
|
|
use strict;
|
|
use lib '/usr/local/csf/lib';
|
|
use Carp;
|
|
use IPC::Open3;
|
|
use Fcntl qw(:DEFAULT :flock);
|
|
use ConfigServer::Config;
|
|
|
|
use Exporter qw(import);
|
|
our $VERSION = 1.01;
|
|
our @ISA = qw(Exporter);
|
|
our @EXPORT_OK = qw();
|
|
|
|
my $config = ConfigServer::Config->loadconfig();
|
|
my %config = $config->config();
|
|
|
|
open (my $IN, "<", "/proc/1/comm");
|
|
flock ($IN, LOCK_SH);
|
|
my $sysinit = <$IN>;
|
|
close ($IN);
|
|
chomp $sysinit;
|
|
if ($sysinit ne "systemd") {$sysinit = "init"}
|
|
|
|
# end main
|
|
###############################################################################
|
|
# start type
|
|
sub type {
|
|
return $sysinit;
|
|
}
|
|
# end type
|
|
###############################################################################
|
|
# start startlfd
|
|
sub startlfd {
|
|
if ($sysinit eq "systemd") {
|
|
&printcmd($config{SYSTEMCTL},"start","lfd.service");
|
|
&printcmd($config{SYSTEMCTL},"status","lfd.service");
|
|
} else {
|
|
&printcmd("/etc/init.d/lfd","start");
|
|
}
|
|
|
|
return;
|
|
}
|
|
# end startlfd
|
|
###############################################################################
|
|
# start stoplfd
|
|
sub stoplfd {
|
|
if ($sysinit eq "systemd") {
|
|
&printcmd($config{SYSTEMCTL},"stop","lfd.service");
|
|
}
|
|
else {
|
|
&printcmd("/etc/init.d/lfd","stop");
|
|
}
|
|
|
|
return;
|
|
}
|
|
# end stoplfd
|
|
###############################################################################
|
|
# start restartlfd
|
|
sub restartlfd {
|
|
if ($sysinit eq "systemd") {
|
|
&printcmd($config{SYSTEMCTL},"restart","lfd.service");
|
|
&printcmd($config{SYSTEMCTL},"status","lfd.service");
|
|
}
|
|
else {
|
|
&printcmd("/etc/init.d/lfd","restart");
|
|
}
|
|
|
|
return;
|
|
}
|
|
# end restartlfd
|
|
###############################################################################
|
|
# start restartlfd
|
|
sub statuslfd {
|
|
if ($sysinit eq "systemd") {
|
|
&printcmd($config{SYSTEMCTL},"status","lfd.service");
|
|
}
|
|
else {
|
|
&printcmd("/etc/init.d/lfd","status");
|
|
}
|
|
|
|
return 0
|
|
}
|
|
# end restartlfd
|
|
###############################################################################
|
|
# start printcmd
|
|
sub printcmd {
|
|
my @command = @_;
|
|
|
|
if ($config{DIRECTADMIN}) {
|
|
my $doublepid = fork;
|
|
if ($doublepid == 0) {
|
|
my ($childin, $childout);
|
|
my $pid = open3($childin, $childout, $childout, @command);
|
|
while (<$childout>) {print $_}
|
|
waitpid ($pid, 0);
|
|
exit;
|
|
}
|
|
waitpid ($doublepid, 0);
|
|
} else {
|
|
my ($childin, $childout);
|
|
my $pid = open3($childin, $childout, $childout, @command);
|
|
while (<$childout>) {print $_}
|
|
waitpid ($pid, 0);
|
|
}
|
|
return;
|
|
}
|
|
# end printcmd
|
|
###############################################################################
|
|
|
|
1; |