1#!/usr/bin/perl 2# $Id: sub_dist.pl,v 1.1 2002/05/22 01:33:11 hbo Exp $ 3$DIST=shift @ARGV; 4$TARBALL=shift @ARGV; 5$RPM=shift @ARGV; 6$DIR=shift @ARGV; 7foreach (@ARGV){ 8 $file="$DIR/$_"; 9 open OUT, ">sdtmp.$$" or die $!; 10 open IN, $file or die $!; 11 while (<IN>){ 12 s/\$\{DIST\}/$DIST/g; 13 s/\$\{TARBALL\}/$TARBALL/g; 14 s/\$\{RPM\}/$RPM/g; 15 print OUT; 16 } 17 close OUT; 18 unlink $file or die $!; 19 link "sdtmp.$$",$file or die $!; 20 unlink "sdtmp.$$" or die $!; 21} 22