#!/usr/bin/perl

open(CGI,"<$ARGV[0]") or die "Can't open \"$ARGV[0]\"";
$i=0;
$USER=$ARGV[1];
$BASE=$ARGV[2];
while($lines[$i]=<CGI>){
	$lines[$i]=~s/\@\@USER\@\@/$USER/g;
	$lines[$i]=~s/\@\@BASEDIR\@\@/$BASE/g;
	$i++;
}
close(CGI);
open CGI,">$ARGV[0]";
while($line=shift(@lines)){
	print CGI $line;
}
close CGI;
