mrtg/uptime.pl@4ecfc2416fd8 (annotated)
mrtg/uptime.pl
Tue, 29 Mar 2011 19:46:35 +0200
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Tue, 29 Mar 2011 19:46:35 +0200
- changeset 333
- 4ecfc2416fd8
- parent 160
- 1a36468e720c
- permissions
- -rw-r--r--
Correct and introduce slightly needed logic, leading to better reliability:
Update bash(1) patch logic, correct several buildconf make location
errors, correct failed bash(1) configure invocation, enable perl(1) to
build with unpathed make(1), patch rpm(1) to correctly link with
internal libdb(3), and lastly unsuscessfully try to reorganize rpm patch
hunks.
| 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 |
