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