blob: 520fe2848372eec1fd143a75edc41be855aedea8 (
plain)
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
|
#!/usr/bin/perl
#
# This check is based on a proposal written by Morten Bekkelund and
# found on <URL: http://www.sladder.org/?p=236 > The test has been
# slightly rewritten to use mencoder and a 5 second download sequence
# as we want to check a live stream and not a simple download,
# rewritten to drop the temp file, and changed to check size against a
# minimum instead of a fixed size.
#
# NOTE: This test did not work with the IPTV stream from Frikanalen,
# as the size differeence between a hanging video stream and a working
# one was minimal.
use warnings;
use strict;
use Getopt::Long;
use vars qw($url $expected_size);
my %ERRORS =
(
'OK' => 0,
'WARNING' => 1,
'CRITICAL' => 2,
'UNKNOWN' => 3,
'DEPENDENT' => 4,
);
sub print_usage {
print <<EOF;
Usage: check_xstream -u <url> -s <minimum size of stream output>
Example: ./check_xstream -u mms://streamserver/stream -s 4533646
EOF
}
sub help {
print_usage();
}
Getopt::Long::Configure ("bundling");
GetOptions(
'u:s' => \$url, 'url' => \$url,
's:i' => \$expected_size, 'size' => \$expected_size
);
if(!$url or !$expected_size) {
print_usage();
exit $ERRORS{"UNKNOWN"};
}
my $file_size =
`mencoder "$url" -oac copy -ovc copy -endpos 10 -o - 2>/dev/null | wc -c`;
chomp $file_size;
if(!$file_size) {
print "UNKNOWN: Cannot find dumped stream using mencoder $url.\n";
exit $ERRORS{"UNKNOWN"};
}
if($file_size < $expected_size) {
print "CRITICAL: The size of the stream ($file_size) is smaller than the expected size ($expected_size). Streaming doesnt appear to work correctly.\n";
exit $ERRORS{"CRITICAL"};
} else {
print "OK: The size of the stream ($file_size) is higher than $expected_size. Streaming appears to work correctly.\n";
exit $ERRORS{"OK"};
}
print "UNKNOWN: Something really fishy is going on here"."\n";
exit $ERRORS{"UNKNOWN"};
|
