sub WriteLog
{
	my ($script,$type,$log) = @_;
	$logfile = $job_path.'/user/LogFile.txt';
		open (LOG, "$logfile") || die "File does not exist\n";
	print "$script\t$type\t$today\t$log\n";
	close (LOG);
}