mrtg/uptime.pl

Thu, 04 Oct 2012 20:04:22 +0200

author
Michael Schloh von Bennewitz <michael@schloh.com>
date
Thu, 04 Oct 2012 20:04:22 +0200
changeset 710
1e46ce84435a
parent 160
1a36468e720c
permissions
-rw-r--r--

Correct very nasty code segment linkage problem when building perl DSO.
This problem leads to segfaults in libpixman called by RRDs::Simple, as
diagnosed by gdb(1) indicating 'print var... cannot access memory at
address' or something similar.

     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";

mercurial