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