mrtg/uptime.pl@a6cd892638c1 (annotated)
mrtg/uptime.pl
Sat, 03 Oct 2009 16:18:52 +0200
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Sat, 03 Oct 2009 16:18:52 +0200
- changeset 220
- a6cd892638c1
- parent 160
- 1a36468e720c
- permissions
- -rw-r--r--
Update version, adjust corresponding buildconf, and correct logic.
1: Make minor corrections and improvements to scripts patch logic.
2: Upgrade to most recent stable release version 3.0.2.
3: Force selection of a single db backend, as multiple ones never
were supported (changing 'with_db<end>' identifiers accordingly.)
4: Unfortunately add gawk requirement although only partly needed.
5: Add openssl::with_threads requirement to solve strange and hard
to debug problems on Solaris leading to connection failures:
'host-dir JobId 0: Error: openssl.c:86 Connect failure: ERR=error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number'
and
'host-dir JobId 40: Fatal error: TLS negotiation failed with FD at "back1.host.com:9102"'
| michael@176 | 1 | #! @l_prefix@/bin/perl |
| michael@136 | 2 | ## |
| michael@136 | 3 | ## uptime.pl: provide formatted uptime(1) information |
| michael@136 | 4 | ## |
| michael@136 | 5 | |
| michael@138 | 6 | $null = 0; |
| michael@136 | 7 | $uptime = `uptime`; |
| michael@138 | 8 | $hostname = `hostname`; |
| michael@136 | 9 | |
| michael@136 | 10 | $uptime =~ /up (.*?) day/; |
| michael@136 | 11 | $up = int($1); |
| michael@136 | 12 | |
| michael@160 | 13 | # According to http://oss.oetiker.ch/mrtg/doc/mrtg-reference.en.html |
| michael@160 | 14 | # 'the external command must return 4 lines of output.' |
| michael@138 | 15 | print "$up\n"; |
| michael@138 | 16 | print "$up\n"; |
| michael@138 | 17 | print "$null\n"; |
| michael@160 | 18 | print "$null\n"; |
| michael@136 | 19 |
