Ребята доброго времени суток всем!
У меня вот такая проблема на ФРЯХЕ!В портах есть такая прога как wping (/usr/ports/net/wping)
Ставится без проблем, в итоге после установки создаются
/usr/local/bin/wping
и
/usr/local/etc/wping.conf.sample
Сам конфиг до ужаса простой!
Но запустить прогу не могу, тоисть при запуске /usr/local/bin/wping,
но у меня с другой директории (но это не столь существенно).
Вот что выдает апач:
The server encountered an internal error and was unable to complete your request.
Error message:
malformed header from script. Bad header=Config Files : wping
Короче ругается на строку, которая находится в самом начале скрипта,
вот часть скрипта где апач (якобы а может не якобы) видит бока:
#!/usr/bin/perl5
use Net::Ping;
use Time::HiRes;
use GD;
use IO::File;
$ver="0.1a";
print "Config Files @ARGV[0]\n"; #вот в этой строке апач видит БОК
do "@ARGV[0]" or die "Arg no config file";
sub ping_host {
$p = Net::Ping->new("icmp");
$p->hires();
$i1=0;
$tot=0;
while($i1<5) {
($ret, $duration, $ip) = $p->ping($_[0], 5.5);
$tot+=$duration;
$i1=$i1+1;
..........................................................................
Я ПЕРЛ знаю слабовато и не могу понять что значит "Config Files @ARGV[0]",
и что скрипт пытается использовать под "use IO::File;"!!!!!!!
Может я че не так рублю или может бока со скриптом, подскажите кто знает!!!