#!/usr/bin/perl
chdir('../bin');
rename ('Kinit','Kinit.bak');
rename ('Kolum','Kolum.bak');
rename('make.log','make.log.bak');
print "starting make process\n";
system('make -d > make.log'); 
if (!( -e 'Kolum' and -e 'Kinit')){ 
	$message="FORTRAN compilation BOMBED!";
	rename('make.log.bak','make.log');
}
$message="FORTRAN compilation OK";
print "\n\n",$message,"\n\n";

chdir('../exe');
system('./khtml');
system('mv ../bin/Kolum .');
system('mv ../bin/Kinit .');
