#!/usr/local/bin/perl
unlink("engine");
open(ENGINE, "< engine.tmpl");
open(NEWENGINE, "> engine");
while (<ENGINE>) {
	s/TOPDIR/$ARGV[0]/g if (/TOPDIR/o);
	print NEWENGINE;
}
close(ENGINE);
close(NEWENGINE);
exit(0);
