Write to Windows event log: Difference between revisions
Content added Content deleted
(using Win32::EventLog) |
|||
| Line 358: | Line 358: | ||
: (call 'logger "This" 'is "another" 'test) |
: (call 'logger "This" 'is "another" 'test) |
||
-> T</lang> |
-> T</lang> |
||
=={{header|Perl}}== |
|||
The Win32::EventLog module has the Report method to write in the EventLog |
|||
<lang perl> |
|||
use strict; |
|||
use warnings; |
|||
use Win32::EventLog; |
|||
my $handle = Win32::EventLog->new("Application"); |
|||
my $event = { |
|||
Computer => $ENV{COMPUTERNAME}, |
|||
Source => 'Rosettacode', |
|||
EventType => EVENTLOG_INFORMATION_TYPE, |
|||
Category => 'test', |
|||
EventID => 0, |
|||
Data => 'a test for rosettacode', |
|||
Strings => 'a string test for rosettacode', |
|||
}; |
|||
$handle->Report($event); |
|||
</lang> |
|||
=={{header|PureBasic}}== |
=={{header|PureBasic}}== |
||