comparison: mrtg/uptime.pl
mrtg/uptime.pl
- changeset 151
- d176107091ef
- parent 136
- ca197d884ebd
- child 160
- 1a36468e720c
equal
deleted
inserted
replaced
| 1:6a5dcbdee88b | 2:ef818fac7ee6 |
|---|---|
| 1 #!@l_prefix@/bin/perl | 1 #!@l_prefix@/bin/perl |
| 2 ## | 2 ## |
| 3 ## uptime.pl: provide formatted uptime(1) information | 3 ## uptime.pl: provide formatted uptime(1) information |
| 4 ## | 4 ## |
| 5 | 5 |
| 6 $ZERO = 0; | 6 $null = 0; |
| 7 $uptime = `uptime`; | 7 $uptime = `uptime`; |
| 8 $hostname = `hostname`; | |
| 8 | 9 |
| 9 $uptime =~ /up (.*?) day/; | 10 $uptime =~ /up (.*?) day/; |
| 10 $up = int($1); | 11 $up = int($1); |
| 11 $hostname = `hostname`; | |
| 12 | 12 |
| 13 print "$ZERO\n$up\n" | 13 print "$up\n"; |
| 14 print "$up\n"; | |
| 15 print "$null\n"; | |
| 14 | 16 |
