#!/usr/bin/perl
# $Id: sub_dist.pl,v 1.1 2002/05/22 01:33:11 hbo Exp $
$DIST=shift @ARGV;
$TARBALL=shift @ARGV;
$RPM=shift @ARGV;
$DIR=shift @ARGV;
foreach (@ARGV){
  $file="$DIR/$_";
  open OUT, ">sdtmp.$$" or die $!;
  open IN, $file or die $!;
  while (<IN>){
    s/\$\{DIST\}/$DIST/g;
    s/\$\{TARBALL\}/$TARBALL/g;
    s/\$\{RPM\}/$RPM/g;
    print OUT;
  }
  close OUT;
  unlink $file or die $!;
  link "sdtmp.$$",$file or die $!;
  unlink "sdtmp.$$" or die $!;
}