From 20546649db339d6d4d8fea471ebccb158e10c5de Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 13 Nov 2002 15:33:36 +0000
Subject: don't reinvent the wheel, use common

---
 perl-install/printer/gimp.pm | 74 +++++++++++++-------------------------------
 1 file changed, 22 insertions(+), 52 deletions(-)

(limited to 'perl-install/printer')

diff --git a/perl-install/printer/gimp.pm b/perl-install/printer/gimp.pm
index bf4cab83c..5bf600e3d 100644
--- a/perl-install/printer/gimp.pm
+++ b/perl-install/printer/gimp.pm
@@ -109,9 +109,7 @@ sub addcupsremoteto {
 		return 0;
 	    }
 	}
-    } else {
-	return 1;
-    }
+    } else { return 1 }
     # There is no system-wide config file, treat every user's config file
     foreach my $configfilename (@configfilenames) {
 	# Load GIMP's printer config file
@@ -119,12 +117,9 @@ sub addcupsremoteto {
 	# Add the printer entry
 	if (!isprinterconfigured ($queue, $configfilecontent)) {
 	    # Remove the old printer entry
-	    $configfilecontent = 
-		removeprinter($queue, $configfilecontent);
+	    $configfilecontent = removeprinter($queue, $configfilecontent);
 	    # Add the new printer entry
-	    $configfilecontent = 
-		makeprinterentry($printer, $queue,
-				     $configfilecontent);
+	    $configfilecontent = makeprinterentry($printer, $queue, $configfilecontent);
 	}
 	# Write back GIMP's printer configuration file
 	writeconfigfile($configfilename, $configfilecontent);
@@ -142,8 +137,7 @@ sub removeprinterfrom {
 	# Load GIMP's printer config file
 	my $configfilecontent = readconfigfile($configfilename);
 	# Remove the printer entry
-	$configfilecontent = 
-	    removeprinter($queue, $configfilecontent);
+	$configfilecontent = removeprinter($queue, $configfilecontent);
 	# Write back GIMP's printer configuration file
 	writeconfigfile($configfilename, $configfilecontent);
     }
@@ -161,8 +155,7 @@ sub removelocalprintersfrom {
 	my $configfilecontent = readconfigfile($configfilename);
 	# Remove the printer entries
 	foreach my $queue (keys(%{$printer->{configured}})) {
-	    $configfilecontent = 
-		removeprinter($queue, $configfilecontent);
+	    $configfilecontent = removeprinter($queue, $configfilecontent);
 	}
 	# Write back GIMP's printer configuration file
 	writeconfigfile($configfilename, $configfilecontent);
@@ -200,29 +193,19 @@ sub makeprinterentry {
 	    $configfile = addentry($queue, 
 				       "Media-Size: $papersize", $configfile);
 	}
-	$configfile = removeentry($queue,
-				      "PPD-File:", $configfile);
-	$configfile = addentry($queue, 
-				   "PPD-File:", $configfile);
-	$configfile = removeentry($queue,
-				      "Driver:", $configfile);
-	$configfile = addentry($queue, 
-				   "Driver: $gimpprintdriver", $configfile);
-	$configfile = removeentry($queue,
-				      "Destination:", $configfile);
+	$configfile = removeentry($queue, "PPD-File:", $configfile);
+	$configfile = addentry($queue, "PPD-File:", $configfile);
+	$configfile = removeentry($queue, "Driver:", $configfile);
+	$configfile = addentry($queue, "Driver: $gimpprintdriver", $configfile);
+	$configfile = removeentry($queue, "Destination:", $configfile);
 	$configfile = addentry($queue, 
 				   "Destination: /usr/bin/$printer::data::lprcommand{$printer->{SPOOLER}{print_command}} -P $queue -o raw", $configfile);
     } else {
-	$configfile = removeentry($queue,
-				      "PPD-File:", $configfile);
-	$configfile = addentry($queue, 
-				   "PPD-File: /etc/foomatic/$queue.ppd", $configfile);
-	$configfile = removeentry($queue,
-				      "Driver:", $configfile);
-	$configfile = addentry($queue, 
-				   "Driver: ps2", $configfile);
-	$configfile = removeentry($queue,
-				      "Destination:", $configfile);
+	$configfile = removeentry($queue, "PPD-File:", $configfile);
+	$configfile = addentry($queue, "PPD-File: /etc/foomatic/$queue.ppd", $configfile);
+	$configfile = removeentry($queue, "Driver:", $configfile);
+	$configfile = addentry($queue, "Driver: ps2", $configfile);
+	$configfile = removeentry($queue, "Destination:", $configfile);
 	$configfile = addentry($queue, 
 				   "Destination: /usr/bin/$printer::data::lprcommand{$printer->{SPOOLER}{print_command}} -P $queue", $configfile);
     }
@@ -247,22 +230,15 @@ sub findconfigfiles {
 		    $dir =~ s,/[^/]*$,,;
 		    next if (-f $dir) && (! -d $dir);
 		    if (! -d "$::prefix$dir") {
-			run_program::rooted($::prefix, 
-					    "/bin/mkdir", $dir)
-			    or next;
-			run_program::rooted($::prefix, 
-					      "/bin/chown", "$uid.$gid", $dir)
-			    or next;
+                  mkdir_p("$::prefix$dir") or next;
+                  set_permissions("$::prefix$dir", "$uid.$gid") or next;
 		    }
 		    if (! -f "$::prefix$homedir/$file") {
 			local *F;
 			open F, "> $::prefix$homedir/$file" or next;
 			print F "#PRINTRCv1 written by GIMP-PRINT 4.2.2 - 13 Sep 2002\n";
 			close F;
-			run_program::rooted($::prefix, 
-					    "/bin/chown", "$uid.$gid",
-					    "$homedir/$file")
-			    or next;
+               set_permissions("$::prefix$homedir/$file", "$uid.$gid") or next;
 		    }
 		    push (@filestotreat, "$homedir/$file");
 		}
@@ -297,9 +273,7 @@ sub addentry {
     my @lines = split("\n", $filecontent);
     foreach (@lines) {
 	if (!$sectionfound) {
-	    if (/^\s*Printer\s*:\s*($section)\s*$/) {
-		$sectionfound = 1;
-	    }
+	    $sectionfound = 1 if /^\s*Printer\s*:\s*($section)\s*$/;
 	} else {
 	    if (!/^\s*$/ && !/^\s*;/) { #-#
 		$_ = "$entry\n$_";
@@ -308,9 +282,7 @@ sub addentry {
 	    }
 	}
     }
-    if ($sectionfound && !$entryinserted) {
-	push(@lines, $entry);
-    }
+    push(@lines, $entry) if $sectionfound && !$entryinserted;
     return join ("\n", @lines);
 }
 
@@ -319,10 +291,8 @@ sub addprinter {
     my $entryinserted = 0;
     my @lines = split("\n", $filecontent);
     foreach (@lines) {
-	if (/^\s*Printer\s*:\s*($section)\s*$/) {
-	    # section already there, nothing to be done
-	    return $filecontent;
-	}
+     # section already there, nothing to be done
+     return $filecontent if /^\s*Printer\s*:\s*($section)\s*$/;
     }
     return $filecontent . "\nPrinter: $section";
 }
-- 
cgit v1.2.1