Sat, 04 Apr 2009 22:28:28 +0200
Improve style in config file and add uptime and webstat scripts.
michael@135 | 1 | #!@l_prefix@/bin/perl |
michael@135 | 2 | ## |
michael@135 | 3 | ## uptime.pl: provide formatted uptime(1) information |
michael@135 | 4 | ## |
michael@135 | 5 | |
michael@135 | 6 | $ZERO = 0; |
michael@135 | 7 | $uptime = `uptime`; |
michael@135 | 8 | |
michael@135 | 9 | $uptime =~ /up (.*?) day/; |
michael@135 | 10 | $up = int($1); |
michael@135 | 11 | $hostname = `hostname`; |
michael@135 | 12 | |
michael@135 | 13 | print "$ZERO\n$up\n" |
michael@135 | 14 |