summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm27
1 files changed, 12 insertions, 15 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 9d5809f9b..c4a2399e3 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -288,46 +288,43 @@ sub services {
# the following functions are mostly by printer related modules
-#-if we are in an DrakX config
-our $prefix = "";
-
sub restart ($) {
my ($service) = @_;
# Exit silently if the service is not installed
- return 1 if !(-x "$prefix/etc/rc.d/init.d/$service");
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "restart");
+ return 1 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+ run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "restart");
}
sub start ($) {
my ($service) = @_;
# Exit silently if the service is not installed
- return 1 if !(-x "$prefix/etc/rc.d/init.d/$service");
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "start");
+ return 1 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+ run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "start");
return (($? >> 8) != 0) ? 0 : 1;
}
sub start_not_running_service ($) {
my ($service) = @_;
# Exit silently if the service is not installed
- return 1 if !(-x "$prefix/etc/rc.d/init.d/$service");
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "status");
+ return 1 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+ run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "status");
return (($? >> 8) != 0) ? 0 : 1;
}
sub stop ($) {
my ($service) = @_;
# Exit silently if the service is not installed
- return 1 if !(-x "$prefix/etc/rc.d/init.d/$service");
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "stop");
+ return 1 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+ run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "stop");
return (($? >> 8) != 0) ? 0 : 1;
}
sub is_service_running ($) {
my ($service) = @_;
# Exit silently if the service is not installed
- return 0 if !(-x "$prefix/etc/rc.d/init.d/$service");
- run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "status");
+ return 0 if !(-x "$::prefix/etc/rc.d/init.d/$service");
+ run_program::rooted($::prefix, "/etc/rc.d/init.d/$service", "status");
# The exit status is not zero when the service is not running
return (($? >> 8) != 0) ? 0 : 1;
}
@@ -335,7 +332,7 @@ sub is_service_running ($) {
sub starts_on_boot ($) {
my ($service) = @_;
local *F;
- open F, ($::testing ? $prefix : "chroot $prefix/ ") .
+ open F, ($::testing ? $::prefix : "chroot $::prefix/ ") .
"/bin/sh -c \"export LC_ALL=C; /sbin/chkconfig --list $service 2>&1\" |" or
return 0;
while (my $line = <F>) {
@@ -351,7 +348,7 @@ sub starts_on_boot ($) {
sub start_service_on_boot ($) {
my ($service) = @_;
- run_program::rooted($prefix, "/sbin/chkconfig", "--add", $service)
+ run_program::rooted($::prefix, "/sbin/chkconfig", "--add", $service)
or return 0;
return 1;
}