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:[EMAIL PROTECTED]
Help mailto:[EMAIL PROTECTED]
Archive http://www.ee.ethz.ch/~slist/smokeping-users
WebAdmin http://www.ee.ethz.ch/~slist/lsg2.cgi
