#!/usr/bin/perl
# $Id: sub_rpm.pl,v 1.5 2003/06/23 00:44:45 hbo Exp $
$VMAJ=shift @ARGV;
$VMIN=shift @ARGV;
$VTEENY=shift @ARGV;
$VRPM=shift @ARGV;
$TARBALL="sudoscript-$VMAJ.$VMIN.$VTEENY.tar.bz2";
$infile=shift @ARGV;
$outfile=shift @ARGV;
open OUT, ">$outfile" or die $!;
open IN, $infile or die $!;
while (<IN>){
  s/\$\{SRCTBZ\}/$TARBALL/g;
  s/\$\{VMAJ}/$VMAJ/g;
  s/\$\{VMIN}/$VMIN/g;
  s/\$\{VTEENY}/$VTEENY/g;
  s/\$\{VRPM}/$VRPM/g;
  print OUT;
}
close OUT;
open IN, "CHANGELOG" or die $!;
open OUT, ">>$outfile" or die $!;
$foo=<IN>;
print OUT (<IN>);