diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-05-25 12:44:02 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-05-25 12:44:02 +0000 |
| commit | 817ddbb5043d6b326cc39aa25e0d06e9487ec0e8 (patch) | |
| tree | 8e80351222ec9cb7e36f27b56a856f688dd0f7a5 /perl-install/printer.pm | |
| parent | abe9015866eff5909b8242ef944f73de11bc4285 (diff) | |
| download | drakx-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.pm | 9 |
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); |