michael@135: #!@l_prefix@/bin/perl
michael@135: ##
michael@135: ##  uptime.pl: provide formatted uptime(1) information
michael@135: ##
michael@135: 
michael@135: $ZERO = 0;
michael@135: $uptime = `uptime`;
michael@135: 
michael@135: $uptime =~ /up (.*?) day/;
michael@135: $up = int($1);
michael@135: $hostname = `hostname`;
michael@135: 
michael@135: print "$ZERO\n$up\n"
michael@135: