I should have noted the winver identifies the OS as XP 5.1 Build
2600.xpsp2.030422-1633: Service Pack 1
Activestate Perl 5.8.3 Build 809, Win32::EventLog version 0.073
Hey gang...
I'm having a heck of a time... Here is example code (from a larger set)
use strict;
use Win32::EventLog;
my $myhost = "JAMMIN"; # This is my local machine
my $handle = Win32::EventLog->new("Application", $myhost);
open (OUTPUT, ">$ENV{Temp}/temp.$$");
close (OUTPUT);
my $file = "$ENV{Temp}/temp.$$";
print $file;
$handle->Clear($file); # doesn't clear the log or write to the file
# $handle->Clear(undef); # doesn't clear the log - no errors
$handle->Close;
I have no problem reading messages against this handle, but no matter what
I try I cannot clear the log. Ideally I don't even want to back it up...
I tried $handle->Clear(undef) to pass a null string which didn't work
(maybe I don't get how to do this)... I also tried passing a valid
filename on my local system as shown above which didn't work either.
Regardless of the method I attempt to clear the log no errors are
reported, but the log is never cleared.
Can someone clue me in?
--mikej
Michael Jung
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
