equal
deleted
inserted
replaced
|
1 # |
|
2 # Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). |
|
3 # All rights reserved. |
|
4 # This component and the accompanying materials are made available |
|
5 # under the terms of "Eclipse Public License v1.0" |
|
6 # which accompanies this distribution, and is available |
|
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
8 # |
|
9 # Initial Contributors: |
|
10 # Nokia Corporation - initial contribution. |
|
11 # |
|
12 # Contributors: |
|
13 # |
|
14 # Description: |
|
15 # |
1 #!perl -w |
16 #!perl -w |
2 # This script reads data from specified Windows Event Logs and writes the information to a file |
17 # This script reads data from specified Windows Event Logs and writes the information to a file |
3 # Output is ScanLog-compatible. First this script establishes a time range by reading the specified Build Log. |
18 # Output is ScanLog-compatible. First this script establishes a time range by reading the specified Build Log. |
4 # For info. on Win32::EventLog, see "Win32 Perl Programming" Page 171 et seq. |
19 # For info. on Win32::EventLog, see "Win32 Perl Programming" Page 171 et seq. |
5 use FindBin; |
20 use FindBin; |