#!/usr/bin/perl

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