summaryrefslogtreecommitdiffstats
path: root/perl-install/services.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2003-02-12 18:42:36 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2003-02-12 18:42:36 +0000
commite291b2dcb1ff3e8b37364e020afac3c76c251721 (patch)
treecce9ac069345b52388d0c60238594b697860bd94 /perl-install/services.pm
parent9aa6a9ea2d92709c2fc9174984d48f75c375436b (diff)
downloaddrakx-e291b2dcb1ff3e8b37364e020afac3c76c251721.tar
drakx-e291b2dcb1ff3e8b37364e020afac3c76c251721.tar.gz
drakx-e291b2dcb1ff3e8b37364e020afac3c76c251721.tar.bz2
drakx-e291b2dcb1ff3e8b37364e020afac3c76c251721.tar.xz
drakx-e291b2dcb1ff3e8b37364e020afac3c76c251721.zip
Scannerdrake vastly improved
- Use auto-detection methods of SANE - Do not ask the user to configure scanners which are already configured - Handle systems with more than one scanner correctly - Added ports of newer scanners (libusb, parallel, ...) to the port selector in manual setup - Main dialog showing all configured scanners - Full support for scanner sharing via SANE (server/client) - Support for USB scanner access via libusb
Diffstat (limited to 'perl-install/services.pm')
-rw-r--r--perl-install/services.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index f8c6a4aaa..f3aa02e49 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -337,7 +337,8 @@ sub starts_on_boot ($) {
return 0;
while (my $line = <F>) {
chomp $line;
- if ($line =~ /:on/) {
+ if (($line =~ /:on/) || # service with init script
+ ($line =~ /^\s*$service\s+on\s*$/)) { # xinetd service
close F;
return 1;
}
@@ -353,5 +354,11 @@ sub start_service_on_boot ($) {
return 1;
}
+sub do_not_start_service_on_boot ($) {
+ my ($service) = @_;
+ run_program::rooted($::prefix, "/sbin/chkconfig", "--del", $service)
+ or return 0;
+ return 1;
+}
1;