1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#!/usr/bin/perl -w
#
# ~/check_logfiles/test/032encoding.t
#
# Test everything using windows encoding.
#
use strict;
use Test::More;
use Cwd;
use lib "../plugins-scripts";
use Nagios::CheckLogfiles::Test;
use constant TESTDIR => ".";
if (($^O ne "cygwin") and ($^O !~ /MSWin/)) {
diag("this is not a windows machine");
plan skip_all => 'Test only relevant on Windows';
} elsif (! -f 'c:\Windows\Tasks\SchedLgU.txt' || ! -f 'C:\WINDOWS\SchedLgU.txt' || ! -f 'c:\Windows\Tasks\SchedLgU.txt') {
diag("no suitable file was found");
plan skip_all => 'Test can only run with an encoded file';
} else {
plan tests => 2;
}
my $cl = Nagios::CheckLogfiles::Test->new({
options => "supersmartpostscript",
postscript => sub {
printf "doooooof\n";
return $ENV{CHECK_LOGFILES_SERVICESTATEID};
},
protocolsdir => TESTDIR."/var/tmp",
seekfilesdir => TESTDIR."/var/tmp",
searches => [
{
tag => "enc",
type => 'simple',
logfile => -f 'c:\Windows\Tasks\SchedLgU.txt' ?
'c:\Windows\Tasks\SchedLgU.txt' : 'C:\WINDOWS\SchedLgU.txt',
#criticalpatterns => "MpCmdRun\.exe",
# sollte immer drinstehen wegen was auch immer
criticalpatterns => ['Ergebnis', 'Gestartet'],
options => 'encoding=ucs-2'
}
] });
my $enc = $cl->get_search_by_tag("enc");
$enc->delete_seekfile();
$enc->trace("deleted seekfile");
$enc->trace("initial run");
$cl->run();
diag($cl->has_result());
diag($cl->{exitmessage});
ok($cl->expect_result(0, 0, 0, 0, 0));
$enc->{newstate}->{logoffset} = 0;
$enc->{newstate}->{logtime} = 0;
$enc->savestate();
# now find the two criticals
$enc->trace("==== 2 ====");
$cl->reset();
sleep 1;
$cl->run();
#printf "%s\n", Data::Dumper::Dumper($enc->{matchlines});
#printf "%s\n", Data::Dumper::Dumper($cl);
diag($cl->has_result());
diag($cl->{exitmessage});
#ok($cl->expect_result(0, 0, 2, 0, 2)); # genaue zahl kann variieren
ok($cl->{exitcode} == 2);
|
