Where the suggestions posted by the other correspondents of any use? I'm
afraid I have no other suggestions. The code I posted in response to your
previous mail did display the error icon on my NT machine, it's weird that
it didn't on yours. Can you just confirm when/where you got the
Win32::EventLog installation from, please? Also my installation
(ActiveState Perl 5.6.1) doesn't recognise
Win32::EventLog::Message::RegisterSource. Any idea why?
Thanks,
Phil Morley
rAuL
<luar@speakea To: rAuL <[EMAIL PROTECTED]>
sy.net> cc: "Philip Morley"
<[EMAIL PROTECTED]>, rAuL
17/04/02 <[EMAIL PROTECTED]>,
14:34 [EMAIL PROTECTED],
[EMAIL PROTECTED]
Subject: Re: EventLog Question
I'm sorry to report that this did not work. I still do not see the icon
change. I am using the latest Active State distribution and using their
VPM tool, I got the latest Win32::Event::Message.
On 16 Apr 2002, rAuL wrote:
>
> Sorry for taking a week to respond to this but
> here is my code:
>
> WriteToEventLog (EVENTLOG_ERROR_TYPE, "An
> error has occurred")
>
> sub WriteToEventLog { my ($eventType,
> $text) = @_;
>
> Win32::EventLog::Message::RegisterSource(
> "Application", $DisplayName );
>
> my $Event = Win32::EventLog->new(
> $DisplayName ) || die;
>
> my $Result = $Event->Report( { EventID =>
> EVENT_ID, Strings => $text, EventType =>
> $eventType, } );
>
> $Event->Close(); }
>
>
> Again the problem is that while the error
> message does get written to the event log,
> only the INFORMATION icon is displayed rather
> than the ERROR icon. This happens under NT 4.0
> and 2000.
>
> Thanks
>
> Raul Rodriguez
>
>
> On 12 Apr 2002, Philip Morley wrote:
>
> >
> > No. I see the error or warning icons on my
> > viewer. Perhaps you should include a snippet
> > of the code you use that writes to the Event
> > Log...?
> >
> > Phil Morley
> >
> >
> >
> >
>
> > rAuL
> > <[EMAIL PROTECTED]>
> > Sent by: To:
> > perl-win32-a- dmin-admi-
> > [EMAIL PROTECTED] <Perl--
> > Win32-admin@listser-
> > v.ActiveState.com>
> > eState.com cc:
> > Subject: EventLog
> > Question
> >
>
> > 12/04/02 16:05
> >
>
> >
>
> >
> >
> >
> >
> > Whenever I use EVENTLOG_ERROR_TYPE or
> > EVENTLOG_WARN_TYPE, I do not see a error or
> > warning icon in Event Viewer. Is this
> > normal?
> >
> > ________________________________________-
> > _____-
> > __
> > Perl-Win32-Admin mailing list
> > [EMAIL PROTECTED] To
> > unsubscribe:
> > http://listserv.ActiveState.com/-
> > mailman/mysubs
> >
> >
> >
> >
> >
> > ________________________________________-
> > _____-
> > __
> > Perl-Win32-Admin mailing list
> > [EMAIL PROTECTED] To
> > unsubscribe:
> > http://listserv.ActiveState.com/-
> > mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
