diff options
author | Holger Weiss <holger@zedat.fu-berlin.de> | 2013-09-02 11:16:24 (GMT) |
---|---|---|
committer | Holger Weiss <holger@zedat.fu-berlin.de> | 2013-09-02 11:16:24 (GMT) |
commit | b15adb7762b6caaecaa83637abfcf5fdb4802092 (patch) | |
tree | 64eddbe2aa1a7f98a140be0f7973f05d7a781ae0 /contrib/check_flexlm.pl | |
parent | c4d5882b9e1d07c7b61091062b7d085fa5f00284 (diff) | |
download | monitoring-plugins-b15adb7762b6caaecaa83637abfcf5fdb4802092.tar.gz |
Remove "contrib" plugins
These days, sites such as "Nagios Exchange" are a much better place for
publishing plugins not maintained by the Plugins Development Team.
Diffstat (limited to 'contrib/check_flexlm.pl')
-rw-r--r-- | contrib/check_flexlm.pl | 82 |
1 files changed, 0 insertions, 82 deletions
diff --git a/contrib/check_flexlm.pl b/contrib/check_flexlm.pl deleted file mode 100644 index 8fa0e33..0000000 --- a/contrib/check_flexlm.pl +++ /dev/null | |||
@@ -1,82 +0,0 @@ | |||
1 | #!/usr/local/bin/perl | ||
2 | # | ||
3 | # usage: | ||
4 | # check_flexlm.pl license_file | ||
5 | # | ||
6 | # Check available flexlm license managers. | ||
7 | # Use lmstat to check the status of the license server | ||
8 | # described by the license file given as argument. | ||
9 | # Check and interpret the output of lmstat | ||
10 | # and create returncodes and output. | ||
11 | # | ||
12 | # Contrary to the nagios concept, this script takes | ||
13 | # a file, not a hostname as an argument and returns | ||
14 | # the status of hosts and services described in that | ||
15 | # file. Use these hosts.cfg entries as an example | ||
16 | # | ||
17 | #host[anchor]=any host will do;some.address.com;;check-host-alive;3;120;24x7;1;1;1; | ||
18 | #service[anchor]=yodel;24x7;3;5;5;unix-admin;60;24x7;1;1;1;;check_flexlm!/opt/lic/licfiles/yodel_lic | ||
19 | #service[anchor]=yeehaw;24x7;3;5;5;unix-admin;60;24x7;1;1;1;;check_flexlm!/opt/lic/licfiles/yeehaw_lic | ||
20 | #command[check_flexlm]=/some/path/libexec/check_flexlm.pl $ARG1$ | ||
21 | # | ||
22 | # Notes: | ||
23 | # - you need the lmstat utility which comes with flexlm. | ||
24 | # - set the correct path in the variable $lmstat. | ||
25 | # | ||
26 | # initial version: 9-10-99 Ernst-Dieter Martin edmt@infineon.com | ||
27 | # current status: looks like working | ||
28 | # | ||
29 | # Copyright Notice: Do as you please, credit me, but don't blame me | ||
30 | # | ||
31 | |||
32 | # Just in case of problems, let's not hang Nagios | ||
33 | $SIG{'ALRM'} = sub { | ||
34 | print "No Answer from Client\n"; | ||
35 | exit 2; | ||
36 | }; | ||
37 | alarm(20); | ||
38 | |||
39 | $lmstat = "/opt/lic/sw/cadadm/default/bin/lmstat"; | ||
40 | |||
41 | $licfile = shift; | ||
42 | |||
43 | #print "$licfile \n"; | ||
44 | |||
45 | open CMD,"$lmstat -c $licfile |"; | ||
46 | |||
47 | $serverup = 0; | ||
48 | |||
49 | while ( <CMD> ) { | ||
50 | if ( /^License server status: [0-9]*@([-0-9a-zA-Z_]*),[0-9]*@([-0-9a-zA-Z_]*),[0-9]*@([-0-9a-zA-Z_]*)/ ) { | ||
51 | $ls1 = $1; | ||
52 | $ls2 = $2; | ||
53 | $ls3 = $3; | ||
54 | $lf1 = $lf2 = $lf3 = 0; | ||
55 | $servers = 3; | ||
56 | } elsif ( /^License server status: [0-9]*@([-0-9a-zA-Z_]*)/ ) { | ||
57 | $ls1 = $1; | ||
58 | $ls2 = $ls3 = ""; | ||
59 | $lf1 = $lf2 = $lf3 = 0; | ||
60 | $servers = 1; | ||
61 | } elsif ( / *$ls1: license server UP/ ) { | ||
62 | print "$ls1 UP, "; | ||
63 | $lf1 = 1 | ||
64 | } elsif ( / *$ls2: license server UP/ ) { | ||
65 | print "$ls2 UP, "; | ||
66 | $lf2 = 1 | ||
67 | } elsif ( / *$ls3: license server UP/ ) { | ||
68 | print "$ls3 UP, "; | ||
69 | $lf3 = 1 | ||
70 | } elsif ( / *([^:]*: UP .*)/ ) { | ||
71 | print " license server for $1\n"; | ||
72 | $serverup = 1; | ||
73 | } | ||
74 | } | ||
75 | if ( $serverup == 0 ) { | ||
76 | print " license server not running\n"; | ||
77 | exit 2; | ||
78 | } | ||
79 | |||
80 | exit 0 if ( $servers == $lf1 + $lf2 + $lf3 ); | ||
81 | exit 1 if ( $servers == 3 && $lf1 + $lf2 + $lf3 == 2 ); | ||
82 | exit 2; | ||