# Ray Espinoza
# eventclear.pl
# This will clear the local eventlog to be used in the update.cmd script for new builds.
########################################################################################

#!/usr/bin/perl 
    use Win32::EventLog;
    use strict;
    
	my ($Event, $filename, $directory);
    $directory = 'c:/temp/';
    
	for ('System', 'Security', 'Application')	{
    	$Event = new Win32::EventLog ("$_", "") || die "can't create object\n";
		$filename = $directory . $_ . '.evt';
		print " $filename exists\n" if (-e "$filename");
    	$Event->Clear($filename)or warn " $!";
		$Event->Close();
		
    	    }