The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Не работает perl  up-script скрипт в mpd5"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение [ Отслеживать ]

"Не работает perl  up-script скрипт в mpd5"  
Сообщение от blackjackchik (ok) on 13-Мрт-09, 13:48 
Всем привет. Есть ап скрипт.

#!/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 не хочет. В чем может быть проблема?

Высказать мнение | Ответить | Правка | Cообщить модератору

 Оглавление

Сообщения по теме [Сортировка по времени | RSS]


1. "Не работает perl  up-script скрипт в mpd5"  
Сообщение от angra (ok) on 14-Мрт-09, 14:32 
Если не добавил обработку ошибок и логирование(хотя бы для отладки), то ССЗБ.
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру