mrtg/uptime.pl

Sat, 04 Apr 2009 22:28:28 +0200

author
Michael Schloh von Bennewitz <michael@schloh.com>
date
Sat, 04 Apr 2009 22:28:28 +0200
changeset 135
cd68ee26852b
child 136
ca197d884ebd
permissions
-rw-r--r--

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

mercurial