OpenPKG Specs: mrtg/uptime.pl@a2c6460cfb16

mrtg/uptime.pl@a2c6460cfb16

Mon, 28 Jan 2013 17:37:18 +0100

Correct socket error reporting improvement with IPv6 portable code,
after helpful recommendation by Saúl Ibarra Corretgé on OSips devlist.

     1 #! @l_prefix@/bin/perl

     2 ##

     3 ##  uptime.pl: provide formatted uptime(1) information

     4 ##

     6 $null = 0;

     7 $uptime = `uptime`;

     8 $hostname = `hostname`;

    10 $uptime =~ /up (.*?) day/;

    11 $up = int($1);

    13 # According to http://oss.oetiker.ch/mrtg/doc/mrtg-reference.en.html

    14 # 'the external command must return 4 lines of output.'

    15 print "$up\n";

    16 print "$up\n";

    17 print "$null\n";

    18 print "$null\n";