summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-06 09:10:11 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-06 09:10:11 +0000
commit152b0b998e117a4a79dd77d401df8cfc234574a5 (patch)
tree142ed19b54273ede98330a2b878e8e9a27567120 /perl-install/printer.pm
parent07021694c8d96ab2205c9398a68d177e2d185f2a (diff)
downloaddrakx-152b0b998e117a4a79dd77d401df8cfc234574a5.tar
drakx-152b0b998e117a4a79dd77d401df8cfc234574a5.tar.gz
drakx-152b0b998e117a4a79dd77d401df8cfc234574a5.tar.bz2
drakx-152b0b998e117a4a79dd77d401df8cfc234574a5.tar.xz
drakx-152b0b998e117a4a79dd77d401df8cfc234574a5.zip
*** empty log message ***
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm23
1 files changed, 2 insertions, 21 deletions
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);
}