#!/usr/bin/perl -w

if ( $#ARGV == -1 ) {
        print "Usage: addmoc <basefile>\n" ;
        exit(0) ;
}

$file = $ARGV[0] ;

system("cp -f Makefile.am Makefile.am.backup") ;

print "Adding file " . $file ."\n" ;
open( IN, "moc_template" ) ;
open( OUT, ">>Makefile.am" ) ;

while ( <IN> )
{ 
	s/template/$file/g ;
	print OUT ;
}

close( IN ) ;
close( OUT ) ;
