in reply to Re: more Win32::EventLog oddities
in thread more Win32::EventLog oddities

Your right, I did mis-read. I took

2) I don't skip to the 'next' server

To mean that you were hanging at that point. Sorry, my mistake.

Thinking about this further, I have, what is no more than a speculation, that the new() call doesn't actually establish communications with the remote server, but simply readies the object for that communication. If this is true, then the way to determine if the server is actually there would be to check the return code from one of the calls that would force it to actually attempt the communication. Eg.

$handle->GetOldest($base) or die "Can't get number of oldest EventLog record\n";
.

Like I say, this is speculation, but worth a try.


Cor! Like yer ring! ... HALO dammit! ... 'Ave it yer way! Hal-lo, Mister la-de-da. ... Like yer ring!

Replies are listed 'Best First'.
Re: Re: Re: more Win32::EventLog oddities
by joefission (Monk) on Sep 27, 2002 at 13:38 UTC
    I agree with your speculation. I've looked back over some event log parsing and harvesting that I did last year, and it appears that even the  GetOldest(\$base) won't necessarily give a "good" error, but  GetNumber(\$count) will.
      Thanks chief. Between the two of you, I'm cured.
      I feel as if I didn't take the simple mental step and solve this myself, so I will probably cut off a toe later tonight... but then it's been head-chopping chaos at work lately, and my department has been reduced to its size from 4 years ago as of this week. Yarg. Anyway.. done venting a little.. thanks a ton =)
      -=rev=-

        Sometimes you are just to close to your own problems to see the light, so save that toe for a real misdemenour:)

        Nice to see that a little speculation can help occasionally, even if only as a catalyst.


        Cor! Like yer ring! ... HALO dammit! ... 'Ave it yer way! Hal-lo, Mister la-de-da. ... Like yer ring!