mrtg/uptime.pl@9fe04d4d4e5a (annotated)
mrtg/uptime.pl
Mon, 17 Sep 2012 19:10:10 +0200
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Mon, 17 Sep 2012 19:10:10 +0200
- changeset 689
- 9fe04d4d4e5a
- parent 160
- 1a36468e720c
- permissions
- -rw-r--r--
Update to new version of vendor software although Oracle fails to deliver.
More specifically, newer db(3) patch revisions exist but Oracle has
removed them from the canonical download server URI for Berkely DB.
| 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 |
