htdocs/smokeping.cgi.dist


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/sepp/bin/speedy -w
# -*-perl-*-

use lib qw(/usr/pack/rrdtool-1.0.33-to/lib/perl);
use lib qw(/home/oetiker/data/projects/AADJ-smokeping/dist/lib);

use Smokeping 1.38;

Smokeping::cgi("/home/oetiker/data/projects/AADJ-smokeping/dist/etc/config");


BEGIN {
    if ($ENV{SERVER_SOFTWARE}) {
        $SIG{__WARN__} = sub { print "Content-Type: text/plain\n\n".(shift)."\n"; };
        $SIG{__DIE__} = sub { print "Content-Type: text/plain\n\n".(shift)."\n"; exit 1 }
    };
}