Всем привет. Есть ап скрипт. #!/usr/bin/perl
use DBI;
$authname=$ARGV[5];
$dbh = DBI->connect("DBI:mysql:bill","user",'pass');
$sth=$dbh->prepare("SELECT * FROM users WHERE name='$authname'");
$sth->execute;
$p=$sth->fetchrow_hashref;
$ip=$p->{'ip'};
$ipp=$ARGV[4];
$state=$p->{'state'};
$balance=$p->{'balance'};
$paket=$p->{'paket'};
$sth2=$dbh->prepare("SELECT * FROM plans2 WHERE id='$paket'");
$sth2->execute;
if ( $p2=$sth2->fetchrow_hashref )
{
$price=$p2->{'price'};
if ( $balance < 0 )
{
exit 1;
}
if ( $balance-$price < 0 )
{
exit 1;
}
if ( $state eq 'off' )
{
exit 1;
}
system("/sbin/ipfw -q table 10 add $ipp");
system("/sbin/ipfw -q table 11 add $ipp 1");
system("/sbin/ipfw -q table 12 add $ipp 2");
}
exit 0;
Конфиг mpd5
startup:
# configure mpd users
set user admin pppoe
# set user foo1 bar1
# configure the console
set console self 127.0.0.1 5005
set console open
# configure the web server
set web self 0.0.0.0 5006
set web open
default:
load pppoe_server
pppoe_server:
create bundle template Bundle
set iface up-script /home/admin/onConnect.pl
# set iface up-script /home/admin/up.sh
set iface down-script /home/admin/down.sh
set iface enable proxy-arp
# set iface enable tcpmssfix
set ipcp yes vjcomp
set ipcp ranges 192.168.1.1/32 192.168.1.12/32
set ipcp dns 172.16.23.124
create link template Link pppoe
set link disable multilink
set link action bundle Bundle
# set link latency 0
# set link bandwidth 1024000
set link disable chap pap eap
set link enable chap
set link keep-alive 10 60
set pppoe service *
set link max-children 100
set pppoe iface vlan23
set link enable incoming
Запускаю скрипт вручную из командной строки все работает, а при поднятии интерфейса mpd будто его вообще не видит. Права на запуск скрипта выставил. Из командной строки запускал так ./onConnect.pl
и так
perl onConnect.pl
работает и так и так, а через mpd не хочет. В чем может быть проблема?
