summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog1
-rw-r--r--perl-install/install_steps_interactive.pm2
-rw-r--r--perl-install/printer.pm9
3 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index f8aaacc0f..90bfa7245 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -10,6 +10,7 @@
* modules.pm: updated alias for sparc*.
* any.pm: fixed proprable wrong test for setupBootloader in beginner at
the very beginning.
+ * printer.pm: fixed typo.
2000-05-24 François Pons <fpons@mandrakesoft.com>
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index fbc26734b..088baa492 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1004,7 +1004,7 @@ sub setupXfree {
_("DrakX will generate config files for both XFree 3.3 and XFree 4.0.
By default, the 3.3 server is used because it works on more graphic cards.
-Do you want to try XFree 4.0?")) if $::expert;
+Do you want to try XFree 4.0?")) if $::expert && arch() != /sparc/;
#- strange, xfs must not be started twice...
#- trying to stop and restart it does nothing good too...
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);