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

use lib qw(/usr/local/smokeping/lib);

use Smokeping 1.8;

Smokeping::cgi("/usr/local/etc/smokeping/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 }
    };
}
