From de7d4baf2978f851c572282fe54355c94c69259e Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 19 May 2000 17:15:36 +0000
Subject: *** empty log message ***

---
 perl-install/printer.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install/printer.pm')

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 0332b85b6..c720e8d13 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -418,6 +418,7 @@ sub create_spool_dir($) {
 sub create_config_file($$%) {
     my ($inputfile, $outputfile, %toreplace) = @_;
     template2file("$prefix/$inputfile", "$prefix/$outputfile", %toreplace);
+    eval { commands::chown_("root.lp", "$prefix/$outputfile") };
 }
 
 
@@ -429,7 +430,8 @@ 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) }; #- -f for update.
+    eval { commands::cp('-f', $master_filter, $complete_path);
+           commands::cp("root.lp", $complete_path); }; #- -f for update.
     $@ and die "Can't copy $master_filter to $complete_path $!";
 }
 
@@ -641,13 +643,13 @@ sub configure_queue($) {
 	print F "user=$entry->{NCPUSER}\n";
 	print F "password=$entry->{NCPPASSWD}\n";
     }
+    eval { chmod 0640, "$prefix$queue_path/.config"; commands::chown_("root.lp", "$prefix$queue_path/.config") };
 
     copy_master_filter($queue_path);
 
     #-now the printcap file, note this one contains all the printer (use configured for that).
     local *PRINTCAP;
     open PRINTCAP, ">$prefix/etc/printcap" or die "Can't open printcap file $!";
-
     print PRINTCAP $intro_printcap_test;
     foreach (values %{$entry->{configured}}) {
 	$_->{DBENTRY} = $thedb_gsdriver{$_->{GSDRIVER}}{ENTRY} unless defined $_->{DBENTRY};
@@ -686,6 +688,7 @@ sub configure_queue($) {
 	print PRINTCAP "\t:if=$_->{IF}:\n";
 	print PRINTCAP "\n";
     }
+    eval { commands::chown_("root.lp", "$prefix/etc/printcap") };
 
     my $useUSB = 0;
     foreach (values %{$entry->{configured}}) {
-- 
cgit v1.2.1