comparison: mrtg/uptime.pl
mrtg/uptime.pl
- changeset 135
- cd68ee26852b
- child 136
- ca197d884ebd
equal
deleted
inserted
replaced
| -1:000000000000 | 0:37603075e2e2 |
|---|---|
| 1 #!@l_prefix@/bin/perl | |
| 2 ## | |
| 3 ## uptime.pl: provide formatted uptime(1) information | |
| 4 ## | |
| 5 | |
| 6 $ZERO = 0; | |
| 7 $uptime = `uptime`; | |
| 8 | |
| 9 $uptime =~ /up (.*?) day/; | |
| 10 $up = int($1); | |
| 11 $hostname = `hostname`; | |
| 12 | |
| 13 print "$ZERO\n$up\n" | |
| 14 |
