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/install_any.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 654e703b3..633e9d6c6 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -422,3 +422,23 @@ sub fsck_option() {
     my $y = $::o->{security} < 3 && $::beginner && "-y ";
     substInFile { s/^(\s*fsckoptions=)(-y )?/$1$y/ } "$::o->{prefix}/etc/rc.d/rc.sysinit";
 }
+
+sub translate_file($$%) {
+    my ($inputfile, $outputfile, %toreplace) = @_;
+    local *OUT; local *IN;
+
+    open IN , $inputfile  or die "Can't open $inputfile $!";
+    if ($::testing) {
+	*OUT = *STDOUT;
+    } else {
+	open OUT, ">$outputfile" or die "Can't open $outputfile $!";
+    }
+
+    while (<IN>) {
+	if (/@@@(.*)@@@/) {
+	    my $r = $toreplace{$1};
+	    s/@@@(.*)@@@/$r/g;
+	}
+	print OUT;
+    }
+}
-- 
cgit v1.2.1