summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-25 12:44:02 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-25 12:44:02 +0000
commit817ddbb5043d6b326cc39aa25e0d06e9487ec0e8 (patch)
tree8e80351222ec9cb7e36f27b56a856f688dd0f7a5 /perl-install/printer.pm
parentabe9015866eff5909b8242ef944f73de11bc4285 (diff)
downloaddrakx-backup-do-not-use-817ddbb5043d6b326cc39aa25e0d06e9487ec0e8.tar
drakx-backup-do-not-use-817ddbb5043d6b326cc39aa25e0d06e9487ec0e8.tar.gz
drakx-backup-do-not-use-817ddbb5043d6b326cc39aa25e0d06e9487ec0e8.tar.bz2
drakx-backup-do-not-use-817ddbb5043d6b326cc39aa25e0d06e9487ec0e8.tar.xz
drakx-backup-do-not-use-817ddbb5043d6b326cc39aa25e0d06e9487ec0e8.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index c720e8d13..704c45ec6 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -430,9 +430,9 @@ sub copy_master_filter($) {
my $complete_path = "$prefix/$queue_path/filter";
my $master_filter = "$prefix/$PRINTER_FILTER_DIR/master-filter";
- eval { commands::cp('-f', $master_filter, $complete_path);
- commands::cp("root.lp", $complete_path); }; #- -f for update.
+ eval { commands::cp('-f', $master_filter, $complete_path) };
$@ and die "Can't copy $master_filter to $complete_path $!";
+ eval { commands::chown_("root.lp", $complete_path); };
}
#------------------------------------------------------------------------------
@@ -633,6 +633,8 @@ sub configure_queue($) {
print F "user='$entry->{SMBUSER}'\n";
print F "password='$entry->{SMBPASSWD}'\n";
print F "workgroup='$entry->{SMBWORKGROUP}'\n";
+ close F;
+ eval { chmod 0640, $config_file; commands::chown_("root.lp", $config_file) };
} elsif ($entry->{TYPE} eq "NCP") {
#- same for NCP printer
my $config_file = "$prefix$queue_path/.config";
@@ -642,8 +644,9 @@ sub configure_queue($) {
print F "queue=$entry->{NCPQUEUE}\n";
print F "user=$entry->{NCPUSER}\n";
print F "password=$entry->{NCPPASSWD}\n";
+ close F;
+ eval { chmod 0640, $config_file; commands::chown_("root.lp", $config_file) };
}
- eval { chmod 0640, "$prefix$queue_path/.config"; commands::chown_("root.lp", "$prefix$queue_path/.config") };
copy_master_filter($queue_path);