From 152b0b998e117a4a79dd77d401df8cfc234574a5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Sat, 6 Nov 1999 09:10:11 +0000
Subject: *** empty log message ***

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

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

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index d46002c6c..cf7d52cbb 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -354,27 +354,8 @@ sub create_spool_dir($) {
 #-Doesnt currently catch error exec'ing sed yet
 #------------------------------------------------------------------------------
 sub create_config_file($$%) {
-    my ($inputfile, $outpufile, %toreplace) = @_;
-    my ($in, $out) = ("$prefix/$inputfile", "$prefix/$outpufile");
-    local *OUT;
-    local *IN;
-
-    #-TODO my $oldmask = umask 0755;
-
-    open IN , $in  or die "Can't open $in $!";
-    if ($::testing) {
-	*OUT = *STDOUT
-    } else {
-	open OUT, ">$out" or die "Can't open $out $!";
-    }
-
-    while (<IN>) {
-	if (/@@@(.*)@@@/) {
-	    my $r = $toreplace{$1};
-	    s/@@@(.*)@@@/$r/g;
-	}
-	print OUT;
-    }
+    my ($inputfile, $outputfile, %toreplace) = @_;
+    install_any::translate_file("$prefix/$inputfile", "$prefix/$outputfile", %toreplace);
 }
 
 
-- 
cgit v1.2.1