summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm18
1 files changed, 12 insertions, 6 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index e9ce0c908..e7f182517 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -109,6 +109,10 @@ sub set_default_spooler ($) {
sub set_permissions {
my ($file, $perms, $owner, $group) = @_;
+ # We only need to set the permissions during installation to be able to
+ # print test pages. After installation the devfsd daemon does the business
+ # automatically.
+ if (!$isInstall) {return 1;}
if ($owner && $group) {
run_program::rooted($prefix, "/bin/chown", "$owner.$group", $file)
|| die "Could not start chown!";
@@ -166,26 +170,28 @@ sub start_service_on_boot ($) {
}
sub SIGHUP_daemon {
- my ($spooler) = @_;
+ my ($service) = @_;
# PDQ has no daemon, exit.
- if ($spooler eq "pdq") {return 1};
+ if ($service eq "pdq") {return 1};
# CUPS needs auto-configuration
- if ($spooler eq "cups") {
+ if ($service eq "cups") {
run_program::rooted($prefix, "/usr/sbin/setcupsconfig");
}
# Name of the daemon
my $daemon;
- if (($spooler eq "lpr") || ($spooler eq "lpd") || ($spooler eq "lprng")) {
+ if (($service eq "lpr") || ($service eq "lpd") || ($service eq "lprng")) {
$daemon = "lpd";
- } elsif ($spooler eq "cups") {
+ } elsif ($service eq "cups") {
$daemon = "cupsd";
+ } elsif ($service eq "devfs") {
+ $daemon = "devfsd";
} else {
return 1;
}
# Send the SIGHUP
run_program::rooted($prefix, "/usr/bin/killall", "-HUP", $daemon);
# CUPS needs some time to come up.
- if ($spooler eq "cups") {
+ if ($service eq "cups") {
sleep 5;
}
return 1;