[smokeping-users] perl parsing error

[Marc Williams]

Im getting this:

[Sun Oct 13 08:51:46 2002] [error] [client 217.12.5.69] Premature end of
script headers: /home/y/share/htdocs/cgi-bin/smokeping.cgi
String found where operator expected at
/home/y/share/htdocs/cgi-bin/smokeping.cgi line 14, near "$SIG{__WARN__}
= sub { print ""
  (Might be a runaway multi-line "" string starting on line 9)
        (Missing semicolon on previous line?)
syntax error at /home/y/share/htdocs/cgi-bin/smokeping.cgi line 14, near
"$SIG{__WARN__} = sub { print ""
Execution of /home/y/share/htdocs/cgi-bin/smokeping.cgi aborted due to
compilation errors.
speedy_backend[90633]: perl_parse error
speedy[90631]: Cannot spawn backend process




bash-2.05a$ cat /home/y/share/htdocs/cgi-bin/smokeping.cgi
#!/usr/bin/speedy -w
# -*-perl-*-

use lib qw(/usr/local/rrdtool-1.0.39/lib/perl);
use lib qw(/home/mw/smokeping-1.15/lib);

use Smokeping 1.15;

Smokeping::cgi("/home/mw/smokeping-1.15/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 }
    };
}



what perl magic do i need to do to make this work.

--
marc

--
Unsubscribe mailto:smokeping-users-request at list.ee.ethz.ch?subject=unsubscribe
Help        mailto:smokeping-users-request at list.ee.ethz.ch?subject=help
Archive     http://www.ee.ethz.ch/~slist/smokeping-users
WebAdmin    http://www.ee.ethz.ch/~slist/lsg2.cgi