diff options
| -rw-r--r-- | lib/AdminPanel/Module/Hosts.pm | 20 | ||||
| -rw-r--r-- | lib/AdminPanel/Module/Services.pm | 366 | ||||
| -rw-r--r-- | lib/AdminPanel/Shared/Services.pm | 421 |
3 files changed, 566 insertions, 241 deletions
diff --git a/lib/AdminPanel/Module/Hosts.pm b/lib/AdminPanel/Module/Hosts.pm index 898bc91d..dbda87fb 100644 --- a/lib/AdminPanel/Module/Hosts.pm +++ b/lib/AdminPanel/Module/Hosts.pm @@ -65,10 +65,26 @@ has 'cfgHosts' => ( init_arg => undef ); +#============================================================= + +=head2 start + +=head3 INPUT + + $self: this object + +=head3 DESCRIPTION + + This method extends Module::start and is invoked to + start host manager + +=cut + +#============================================================= sub start { my $self = shift; - $self->manageHostsDialog(); + $self->_manageHostsDialog(); }; @@ -230,7 +246,7 @@ sub setupTable { } } -sub manageHostsDialog { +sub _manageHostsDialog { my $self = shift; ## TODO fix for adminpanel diff --git a/lib/AdminPanel/Module/Services.pm b/lib/AdminPanel/Module/Services.pm index 33326379..675646b5 100644 --- a/lib/AdminPanel/Module/Services.pm +++ b/lib/AdminPanel/Module/Services.pm @@ -1,29 +1,62 @@ # vim: set et ts=4 sw=4: -#***************************************************************************** -# -# Copyright (c) 2013 Angelo Naselli <anaselli@linux.it> -# from drakx services -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License version 2, as -# published by the Free Software Foundation. -# -# 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, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -#***************************************************************************** package AdminPanel::Module::Services; -#-###################################################################################### -#- misc imports -#-###################################################################################### +#============================================================= -*-perl-*- + +=head1 NAME + +AdminPanel::Module::Services - This module aims to manage service + with GUI + +=head1 SYNOPSIS + + my $serviceMan = AdminPanel::Module::Services->new(); + $serviceMan->start(); + +=head1 DESCRIPTION + + This module presents all the system service status and gives + the availability to administrator to stop, start and active at boot + them. + + From the original code drakx services. + +=head1 SUPPORT + + You can find documentation for this module with the perldoc command: + + perldoc AdminPanel::Module::Services::Module + +=head1 SEE ALSO + + AdminPanel::Module + +=head1 AUTHOR + +Angelo Naselli <anaselli@linux.it> + +=head1 COPYRIGHT and LICENSE + +Copyright (C) 2014, Angelo Naselli. + +This program is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License version 2, as +published by the Free Software Foundation. + +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, write to the Free Software +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + +=head1 FUNCTIONS + +=cut + use strict; @@ -42,13 +75,14 @@ use Moose; use yui; use AdminPanel::Shared; use AdminPanel::Shared::Services qw( + description services xinetd_services is_service_running restart_or_start stop set_service - ); + ); use File::Basename; @@ -62,7 +96,7 @@ has '+name' => ( default => N("AdminService"), ); -has 'services' => ( +has '_services' => ( traits => ['Array'], is => 'rw', isa => 'ArrayRef[Str]', @@ -77,7 +111,7 @@ has 'services' => ( }, ); -has 'xinetd_services' => ( +has '_xinetd_services' => ( traits => ['Array'], is => 'rw', isa => 'ArrayRef[Str]', @@ -122,6 +156,7 @@ has 'running_services' => ( sorted_running_services => 'sort', }, ); + =head1 VERSION Version 1.0.0 @@ -131,140 +166,22 @@ Version 1.0.0 our $VERSION = '1.0.0'; -sub description { - my %services = ( -acpid => N_("Listen and dispatch ACPI events from the kernel"), -alsa => N_("Launch the ALSA (Advanced Linux Sound Architecture) sound system"), -anacron => N_("Anacron is a periodic command scheduler."), -apmd => N_("apmd is used for monitoring battery status and logging it via syslog. -It can also be used for shutting down the machine when the battery is low."), -atd => N_("Runs commands scheduled by the at command at the time specified when -at was run, and runs batch commands when the load average is low enough."), -'avahi-deamon' => N_("Avahi is a ZeroConf daemon which implements an mDNS stack"), -chronyd => N_("An NTP client/server"), -cpufreq => N_("Set CPU frequency settings"), -crond => N_("cron is a standard UNIX program that runs user-specified programs -at periodic scheduled times. vixie cron adds a number of features to the basic -UNIX cron, including better security and more powerful configuration options."), -cups => N_("Common UNIX Printing System (CUPS) is an advanced printer spooling system"), -dm => N_("Launches the graphical display manager"), -fam => N_("FAM is a file monitoring daemon. It is used to get reports when files change. -It is used by GNOME and KDE"), -g15daemon => N_("G15Daemon allows users access to all extra keys by decoding them and -pushing them back into the kernel via the linux UINPUT driver. This driver must be loaded -before g15daemon can be used for keyboard access. The G15 LCD is also supported. By default, -with no other clients active, g15daemon will display a clock. Client applications and -scripts can access the LCD via a simple API."), -gpm => N_("GPM adds mouse support to text-based Linux applications such the -Midnight Commander. It also allows mouse-based console cut-and-paste operations, -and includes support for pop-up menus on the console."), -haldaemon => N_("HAL is a daemon that collects and maintains information about hardware"), -harddrake => N_("HardDrake runs a hardware probe, and optionally configures -new/changed hardware."), -httpd => N_("Apache is a World Wide Web server. It is used to serve HTML files and CGI."), -inet => N_("The internet superserver daemon (commonly called inetd) starts a -variety of other internet services as needed. It is responsible for starting -many services, including telnet, ftp, rsh, and rlogin. Disabling inetd disables -all of the services it is responsible for."), -ip6tables => N_("Automates a packet filtering firewall with ip6tables"), -iptables => N_("Automates a packet filtering firewall with iptables"), -irqbalance => N_("Evenly distributes IRQ load across multiple CPUs for enhanced performance"), -keytable => N_("This package loads the selected keyboard map as set in -/etc/sysconfig/keyboard. This can be selected using the kbdconfig utility. -You should leave this enabled for most machines."), -kheader => N_("Automatic regeneration of kernel header in /boot for -/usr/include/linux/{autoconf,version}.h"), -kudzu => N_("Automatic detection and configuration of hardware at boot."), -'laptop-mode' => N_("Tweaks system behavior to extend battery life"), -linuxconf => N_("Linuxconf will sometimes arrange to perform various tasks -at boot-time to maintain the system configuration."), -lpd => N_("lpd is the print daemon required for lpr to work properly. It is -basically a server that arbitrates print jobs to printer(s)."), -lvs => N_("Linux Virtual Server, used to build a high-performance and highly -available server."), -mandi => N_("Monitors the network (Interactive Firewall and wireless"), -mdadm => N_("Software RAID monitoring and management"), -messagebus => N_("DBUS is a daemon which broadcasts notifications of system events and other messages"), -msec => N_("Enables MSEC security policy on system startup"), -named => N_("named (BIND) is a Domain Name Server (DNS) that is used to resolve host names to IP addresses."), -netconsole => N_("Initializes network console logging"), -netfs => N_("Mounts and unmounts all Network File System (NFS), SMB (Lan -Manager/Windows), and NCP (NetWare) mount points."), -network => N_("Activates/Deactivates all network interfaces configured to start -at boot time."), -'network-auth' => N_("Requires network to be up if enabled"), -'network-up' => N_("Wait for the hotplugged network to be up"), -nfs => N_("NFS is a popular protocol for file sharing across TCP/IP networks. -This service provides NFS server functionality, which is configured via the -/etc/exports file."), -nfslock => N_("NFS is a popular protocol for file sharing across TCP/IP -networks. This service provides NFS file locking functionality."), -ntpd => N_("Synchronizes system time using the Network Time Protocol (NTP)"), -numlock => N_("Automatically switch on numlock key locker under console -and Xorg at boot."), -oki4daemon => N_("Support the OKI 4w and compatible winprinters."), -partmon => N_("Checks if a partition is close to full up"), -pcmcia => N_("PCMCIA support is usually to support things like ethernet and -modems in laptops. It will not get started unless configured so it is safe to have -it installed on machines that do not need it."), -portmap => N_("The portmapper manages RPC connections, which are used by -protocols such as NFS and NIS. The portmap server must be running on machines -which act as servers for protocols which make use of the RPC mechanism."), -portreserve => N_("Reserves some TCP ports"), -postfix => N_("Postfix is a Mail Transport Agent, which is the program that moves mail from one machine to another."), -random => N_("Saves and restores system entropy pool for higher quality random -number generation."), -rawdevices => N_("Assign raw devices to block devices (such as hard disk drive -partitions), for the use of applications such as Oracle or DVD players"), -resolvconf => N_("Nameserver information manager"), -routed => N_("The routed daemon allows for automatic IP router table updated via -the RIP protocol. While RIP is widely used on small networks, more complex -routing protocols are needed for complex networks."), -rstatd => N_("The rstat protocol allows users on a network to retrieve -performance metrics for any machine on that network."), -rsyslog => N_("Syslog is the facility by which many daemons use to log messages to various system log files. It is a good idea to always run rsyslog."), -rusersd => N_("The rusers protocol allows users on a network to identify who is -logged in on other responding machines."), -rwhod => N_("The rwho protocol lets remote users get a list of all of the users -logged into a machine running the rwho daemon (similar to finger)."), -saned => N_("SANE (Scanner Access Now Easy) enables to access scanners, video cameras, ..."), -shorewall => N_("Packet filtering firewall"), -smb => N_("The SMB/CIFS protocol enables to share access to files & printers and also integrates with a Windows Server domain"), -sound => N_("Launch the sound system on your machine"), -'speech-dispatcherd' => N_("layer for speech analysis"), -sshd => N_("Secure Shell is a network protocol that allows data to be exchanged over a secure channel between two computers"), -syslog => N_("Syslog is the facility by which many daemons use to log messages -to various system log files. It is a good idea to always run syslog."), -'udev-post' => N_("Moves the generated persistent udev rules to /etc/udev/rules.d"), -usb => N_("Load the drivers for your usb devices."), -vnStat => N_("A lightweight network traffic monitor"), -xfs => N_("Starts the X Font Server."), -xinetd => N_("Starts other deamons on demand."), - ); - my ($name) = @_; - my $s = $services{$name}; - if ($s) { - $s = translate($s); - } else { - my $file = "$::prefix/usr/lib/systemd/system/$name.service"; - if (-e $file) { - $s = cat_($file); - $s = $s =~ /^Description=(.*)/mg ? $1 : ''; - } else { - $file = find { -e $_ } map { "$::prefix$_/$name" } '/etc/rc.d/init.d', '/etc/init.d', '/etc/xinetd.d'; - $s = cat_($file); - $s =~ s/\\\s*\n#\s*//mg; - $s = - $s =~ /^#\s+(?:Short-)?[dD]escription:\s+(.*?)^(?:[^#]|# {0,2}\S)/sm ? $1 : - $s =~ /^#\s*(.*?)^[^#]/sm ? $1 : ''; - - $s =~ s/#\s*//mg; - } - } - $s =~ s/\n/ /gm; $s =~ s/\s+$//; - $s; -} +#============================================================= + +=head2 BUILD + +=head3 INPUT + + $self: this object + +=head3 DESCRIPTION + The BUILD method is called after a Moose object is created, + in this methods Services loads all the service information. + +=cut + +#============================================================= sub BUILD { my $self = shift; @@ -291,7 +208,7 @@ sub BUILD { sub start { my $self = shift; - $self->servicePanel(); + $self->_servicePanel(); }; @@ -318,15 +235,15 @@ sub loadServices { my ($l, $on_services) = AdminPanel::Shared::Services::services(); my @xinetd_services = map { $_->[0] } AdminPanel::Shared::Services::xinetd_services(); - $self->xinetd_services(); - $self->xinetd_services(\@xinetd_services); - $self->services(\@$l); + $self->_xinetd_services(); + $self->_xinetd_services(\@xinetd_services); + $self->_services(\@$l); $self->on_services(\@$on_services); - $self->refreshRunningServices(); + $self->_refreshRunningServices(); } -sub refreshRunningServices { +sub _refreshRunningServices { my $self = shift; my @running; @@ -338,11 +255,12 @@ sub refreshRunningServices { $self->running_services(\@running); } -## serviceInfo sets widgets accordingly to selected service status +## _serviceInfo sets service description accordingly to +## selected service status ## param ## 'service' service name ## 'infoPanel' service information widget -sub serviceInfo { +sub _serviceInfo { my ($self, $service, $infoPanel) = @_; yui::YUI::ui()->blockEvents(); @@ -351,18 +269,32 @@ sub serviceInfo { yui::YUI::ui()->unblockEvents(); } -sub serviceStatus { - my ($self, $tbl, $item) = @_; +sub _serviceStatusString { + my ($self, $serviceName) = @_; + my $started; - if (member($item->label(), $self->all_xinetd_services)) { + if (member($serviceName, $self->all_xinetd_services)) { $started = N("Start when requested"); } else { - $started = (member($item->label(), $self->all_running_services)? N("running") : N("stopped")); + $started = (is_service_running($serviceName)? N("running") : N("stopped")); } -# TODO add icon green/red led + + return $started; +} + +## _serviceStatus sets status label accordingly to selected item +## param +## 'service' yui CB table (service table) +## 'item' selected item (service) +sub _serviceStatus { + my ($self, $tbl, $item) = @_; + + my $started = $self->_serviceStatusString($item->label()); + + # TODO add icon green/red led my $cell = $tbl->toCBYTableItem($item)->cell(1); if ($cell) { $cell->setLabel($started); @@ -370,8 +302,36 @@ sub serviceStatus { } } -## draw service panel and manage it -sub servicePanel { + +## fill service table with service info +## param +## 'tbl' yui table +sub _fillServiceTable { + my ($self, $tbl) = @_; + + $tbl->deleteAllItems(); + my $itemCollection = new yui::YItemCollection; + foreach ($self->all_services) { + + my $serviceName = $_; + + my $item = new yui::YCBTableItem($serviceName); + my $started = $self->_serviceStatusString($serviceName); + + # TODO add icon green/red led + my $cell = new yui::YTableCell($started); + $item->addCell($cell); + + $item->check(member($serviceName, $self->all_on_services)); + $item->setLabel($serviceName); + $itemCollection->push($item); + $item->DISOWN(); + } + $tbl->addItems($itemCollection); +} + +## draw service panel and manage it (main dialog) +sub _servicePanel { my $self = shift; my $appTitle = yui::YUI::app()->applicationTitle(); @@ -381,9 +341,6 @@ sub servicePanel { ## set icon if not already set by external launcher yui::YUI::app()->setApplicationIcon($self->icon); -# my ($l, $on_services) = services(); -# my @xinetd_services = map { $_->[0] } xinetd_services(); - my $mageiaPlugin = "mga"; my $factory = yui::YUI::widgetFactory; my $mgaFactory = yui::YExternalWidgets::externalWidgetFactory($mageiaPlugin); @@ -403,30 +360,9 @@ sub servicePanel { ## service list (serviceBox) my $serviceTbl = $mgaFactory->createCBTable($hbox, $yTableHeader, $yui::YCBTableCheckBoxOnLastColumn); - my $itemCollection = new yui::YItemCollection; - foreach ($self->all_services) { - - my $serviceName = $_; - - my $item = new yui::YCBTableItem($serviceName); - my $started; - if (member($serviceName, $self->all_xinetd_services)) { - $started = N("Start when requested"); - } - else { - $started = (member($serviceName, $self->all_running_services)? N("running") : N("stopped")); - } - -# TODO add icon green/red led - my $cell = new yui::YTableCell($started); - $item->addCell($cell); - - $item->check(member($serviceName, $self->all_on_services)); - $item->setLabel($serviceName); - $itemCollection->push($item); - $item->DISOWN(); - } - $serviceTbl->addItems($itemCollection); + + $self->_fillServiceTable($serviceTbl); + $serviceTbl->setImmediateMode(1); $serviceTbl->setWeight(0, 50); @@ -453,12 +389,15 @@ sub servicePanel { my $aboutButton = $factory->createPushButton($hbox, N("About") ); $align = $factory->createRight($hbox); $hbox = $factory->createHBox($align); + + ### Service Refresh button ($refreshButton) + my $refreshButton = $factory->createPushButton($hbox, N("Refresh")); my $closeButton = $factory->createPushButton($hbox, N("Close") ); #first item status my $item = $serviceTbl->selectedItem(); if ($item) { - $self->serviceInfo($item->label(), $infoPanel); + $self->_serviceInfo($item->label(), $infoPanel); if (member($item->label(), $self->all_xinetd_services)) { $stopButton->setDisabled(); $startButton->setDisabled(); @@ -506,7 +445,7 @@ sub servicePanel { # service selection changed $item = $serviceTbl->selectedItem(); if ($item) { - $self->serviceInfo($item->label(), $infoPanel); + $self->_serviceInfo($item->label(), $infoPanel); if (member($item->label(), $self->all_xinetd_services)) { $stopButton->setDisabled(); $startButton->setDisabled(); @@ -523,28 +462,41 @@ sub servicePanel { set_service($item->label(), $item->checked()); # we can push/pop service, but this (slower) should return real situation - $self->refreshRunningServices(); + $self->_refreshRunningServices(); } } } elsif ($widget == $startButton) { $item = $serviceTbl->selectedItem(); if ($item) { + yui::YUI::app()->busyCursor(); restart_or_start($item->label()); # we can push/pop service, but this (slower) should return real situation - $self->refreshRunningServices(); - $self->serviceStatus($serviceTbl, $item); + $self->_refreshRunningServices(); + $self->_serviceStatus($serviceTbl, $item); + yui::YUI::app()->normalCursor(); } } elsif ($widget == $stopButton) { $item = $serviceTbl->selectedItem(); if ($item) { + yui::YUI::app()->busyCursor(); stop($item->label()); # we can push/pop service, but this (slower) should return real situation - $self->refreshRunningServices(); - $self->serviceStatus($serviceTbl, $item); + $self->_refreshRunningServices(); + $self->_serviceStatus($serviceTbl, $item); + yui::YUI::app()->normalCursor(); } } + elsif ($widget == $refreshButton) { + yui::YUI::app()->busyCursor(); + $self->loadServices(); + $dialog->startMultipleChanges(); + $self->_fillServiceTable($serviceTbl); + $dialog->recalcLayout(); + $dialog->doneMultipleChanges(); + yui::YUI::app()->normalCursor(); + } } } $dialog->destroy(); diff --git a/lib/AdminPanel/Shared/Services.pm b/lib/AdminPanel/Shared/Services.pm index 49937438..59c46ba3 100644 --- a/lib/AdminPanel/Shared/Services.pm +++ b/lib/AdminPanel/Shared/Services.pm @@ -1,25 +1,78 @@ # vim: set et ts=4 sw=4: -#***************************************************************************** -# -# Copyright (c) 2013 Angelo Naselli <anaselli@linux.it> -# from drakx services -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License version 2, as -# published by the Free Software Foundation. -# -# 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, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -#***************************************************************************** - package AdminPanel::Shared::Services; +#============================================================= -*-perl-*- + +=head1 NAME + +AdminPanel::Shared::Services - shares the API to manage services + +=head1 SYNOPSIS + +use AdminPanel::Shared::Services; + +my ($l, $on_services) = AdminPanel::Shared::Services::services(); + +=head1 DESCRIPTION + + This module aims to share all the API to manage system services, + to be used from GUI applications or console. + + From the original code drakx services. + +=head1 EXPORT + + description + services + xinetd_services + is_service_running + restart_or_start + stop + start + restart + set_service + service_exists + start_not_running_service + starts_on_boot + start_service_on_boot + do_not_start_service_on_boot + enable + disable + set_status + +=head1 SUPPORT + +You can find documentation for this module with the perldoc command: + +perldoc AdminPanel::Shared::Services + +=head1 SEE ALSO + +AdminPanel::Shared + +=head1 AUTHOR + +Angelo Naselli <anaselli@linux.it> + +=head1 COPYRIGHT and LICENSE + +Copyright (C) 2013-2014, Angelo Naselli. + +This program is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License version 2, as +published by the Free Software Foundation. + +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, write to the Free Software +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + +=head1 FUNCTIONS + +=cut #-###################################################################################### @@ -34,15 +87,44 @@ use File::Basename qw( basename ); use base qw(Exporter); our @EXPORT = qw( + description services xinetd_services is_service_running restart_or_start stop start + restart set_service + service_exists + start_not_running_service + starts_on_boot + start_service_on_boot + do_not_start_service_on_boot + enable + disable + set_status ); +#============================================================= + +=head2 description + +=head3 INPUT + +name: Service Name + +=head3 OUTPUT + +Description: Service description + +=head3 DESCRIPTION + +THis function return the description for the given service + +=cut + +#============================================================= sub description { my %services = ( acpid => N_("Listen and dispatch ACPI events from the kernel"), @@ -178,6 +260,22 @@ xinetd => N_("Starts other deamons on demand."), } +#============================================================= + +=head2 set_service + +=head3 INPUT + +$service: Service name +$enable: enable/disable service + +=head3 DESCRIPTION + +This function enable/disable at boot the given service + +=cut + +#============================================================= sub set_service { my ($service, $enable) = @_; @@ -185,7 +283,7 @@ sub set_service { if (member($service, @xinetd_services)) { run_program::rooted($::prefix, "chkconfig", $enable ? "--add" : "--del", $service); - } elsif (running_systemd() || has_systemd()) { + } elsif (_running_systemd() || _has_systemd()) { # systemctl rejects any symlinked units. You have to enabled the real file if (-l "/lib/systemd/system/$service.service") { my $name = readlink("/lib/systemd/system/$service.service"); @@ -205,22 +303,43 @@ sub set_service { } sub _run_action { - my ($service, $action) = @_; - if (running_systemd()) { - run_program::rooted($::prefix, '/bin/systemctl', '--no-block', $action, "$service.service"); + my ($service, $action, $do_not_block) = @_; + if (_running_systemd()) { + if ($do_not_block) { + run_program::rooted($::prefix, '/bin/systemctl', '--no-block', $action, "$service.service"); + } + else { + run_program::rooted($::prefix, '/bin/systemctl', $action, "$service.service"); + } } else { run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", $action); } } -sub running_systemd() { +sub _running_systemd() { run_program::rooted($::prefix, '/bin/mountpoint', '-q', '/sys/fs/cgroup/systemd'); } -sub has_systemd() { +sub _has_systemd() { run_program::rooted($::prefix, '/bin/rpm', '-q', 'systemd'); } +#============================================================= + +=head2 xinetd_services + +=head3 OUTPUT + +xinetd_services: All the xinetd services + +=head3 DESCRIPTION + +This functions returns all the xinetd services in the system. +NOTE that xinetd *must* be enable at boot to get this info + +=cut + +#============================================================= sub xinetd_services() { local $ENV{LANGUAGE} = 'C'; my @xinetd_services; @@ -271,7 +390,7 @@ sub _systemd_services() { sub _legacy_services() { local $ENV{LANGUAGE} = 'C'; my @services; - my $has_systemd = has_systemd(); + my $has_systemd = _has_systemd(); if ($has_systemd) { # The system not using systemd but will be at next boot. This is # is typically the case in the installer. In this mode we must read @@ -314,7 +433,7 @@ sub _legacy_services() { if (my ($name, $l) = m!^(\S+)\s+(0:(on|off).*)!) { # If we expect to use systemd (i.e. installer) only show those # sysvinit scripts which are not masked by a native systemd unit. - my $has_systemd_unit = systemd_unit_exists($name); + my $has_systemd_unit = _systemd_unit_exists($name); if (!$has_systemd || !$has_systemd_unit) { if ($::isInstall) { $on_off = $l =~ /\d+:on/g; @@ -331,9 +450,28 @@ sub _legacy_services() { #- returns: #--- the listref of installed services #--- the listref of "on" services +#============================================================= + +=head2 services + +=head3 OUTPUT + +@l: all the system services +@on_services: all the services that start at boot + +=head3 DESCRIPTION + +This function returns two lists, all the system service and +all the active ones. + +=cut + +#============================================================= + + sub services() { my @services; - if (running_systemd()) { + if (_running_systemd()) { @services = _systemd_services(); } else { @services = _legacy_services(); @@ -347,17 +485,55 @@ sub services() { -sub systemd_unit_exists { +sub _systemd_unit_exists { my ($name) = @_; # we test with -l as symlinks are not valid when the system is chrooted: -e "$::prefix/lib/systemd/system/$name.service" or -l "$::prefix/lib/systemd/system/$name.service"; } +#============================================================= + +=head2 service_exists + +=head3 INPUT + +$service: Service name + +=head3 OUTPUT + +0/1: if the service exists + +=head3 DESCRIPTION + +This function checks if a service is installed by looking for +its unit or init.d service + +=cut + +#============================================================= + sub service_exists { my ($service) = @_; - -x "$::prefix/etc/rc.d/init.d/$service" or systemd_unit_exists($service); + -x "$::prefix/etc/rc.d/init.d/$service" or _systemd_unit_exists($service); } +#============================================================= + +=head2 restart + +=head3 INPUT + +$service: Service to restart + +=head3 DESCRIPTION + +This function restarts a given service + +=cut + +#============================================================= + + sub restart ($) { my ($service) = @_; # Exit silently if the service is not installed @@ -365,6 +541,23 @@ sub restart ($) { _run_action($service, "restart"); } +#============================================================= + +=head2 restart_or_start + +=head3 INPUT + +$service: Service to restart or start + +=head3 DESCRIPTION + +This function starts a given service if it is not running, +it restarts that otherwise + +=cut + +#============================================================= + sub restart_or_start ($) { my ($service) = @_; # Exit silently if the service is not installed @@ -372,6 +565,23 @@ sub restart_or_start ($) { _run_action($service, is_service_running($service) ? "restart" : "start"); } + +#============================================================= + +=head2 start + +=head3 INPUT + +$service: Service to start + +=head3 DESCRIPTION + +This function starts a given service + +=cut + +#============================================================= + sub start ($) { my ($service) = @_; # Exit silently if the service is not installed @@ -379,6 +589,22 @@ sub start ($) { _run_action($service, "start"); } +#============================================================= + +=head2 start_not_running_service + +=head3 INPUT + +$service: Service to start + +=head3 DESCRIPTION + +This function starts a given service if not running + +=cut + +#============================================================= + sub start_not_running_service ($) { my ($service) = @_; # Exit silently if the service is not installed @@ -386,6 +612,21 @@ sub start_not_running_service ($) { is_service_running($service) || _run_action($service, "start"); } +#============================================================= + +=head2 stop + +=head3 INPUT + +$service: Service to stop + +=head3 DESCRIPTION + +This function stops a given service + +=cut + +#============================================================= sub stop ($) { my ($service) = @_; # Exit silently if the service is not installed @@ -393,45 +634,161 @@ sub stop ($) { _run_action($service, "stop"); } +#============================================================= + +=head2 is_service_running + +=head3 INPUT + +$service: Service to check + +=head3 DESCRIPTION + +This function returns if the given service is running + +=cut + +#============================================================= + sub is_service_running ($) { my ($service) = @_; # Exit silently if the service is not installed service_exists($service) or return 1; - if (running_systemd()) { + if (_running_systemd()) { run_program::rooted($::prefix, '/bin/systemctl', '--quiet', 'is-active', "$service.service"); } else { run_program::rooted($::prefix, '/sbin/service', $service, 'status'); } } +#============================================================= + +=head2 starts_on_boot + +=head3 INPUT + +$service: Service name + + +=head3 DESCRIPTION + +This function returns if the given service starts at boot + +=cut + +#============================================================= sub starts_on_boot { my ($service) = @_; my (undef, $on_services) = services(); member($service, @$on_services); } +#============================================================= + +=head2 start_service_on_boot + +=head3 INPUT + +$service: Service name + + +=head3 DESCRIPTION + +This function set the given service active at boot + +=cut + +#============================================================= sub start_service_on_boot ($) { my ($service) = @_; set_service($service, 1); } +#============================================================= + +=head2 do_not_start_service_on_boot + +=head3 INPUT + +$service: Service name + + +=head3 DESCRIPTION + +This function set the given service disabled at boot + +=cut + +#============================================================= sub do_not_start_service_on_boot ($) { my ($service) = @_; set_service($service, 0); } +#============================================================= + +=head2 enable + +=head3 INPUT + +$service: Service name +$o_dont_apply: do not start it now + +=head3 DESCRIPTION + +This function set the given service active at boot +and restarts it if o_dont_apply is not given + +=cut + +#============================================================= sub enable { my ($service, $o_dont_apply) = @_; start_service_on_boot($service); restart_or_start($service) unless $o_dont_apply; } +#============================================================= + +=head2 disable + +=head3 INPUT + +$service: Service name +$o_dont_apply: do not stop it now + +=head3 DESCRIPTION + +This function set the given service disabled at boot +and stops it if o_dont_apply is not given + +=cut + +#============================================================= sub disable { my ($service, $o_dont_apply) = @_; do_not_start_service_on_boot($service); stop($service) unless $o_dont_apply; } +#============================================================= + +=head2 set_status + +=head3 INPUT + +$service: Service name +$enable: Enable/disable +$o_dont_apply: do not start it now + +=head3 DESCRIPTION + +This function set the given service to enable/disable at boot +and restarts/stops it if o_dont_apply is not given + +=cut + +#============================================================= sub set_status { my ($service, $enable, $o_dont_apply) = @_; if ($enable) { |