Jump to content

Pipe через Perl

Erastik

By Erastik,
in Software

 Share Followers 1

Recommended Posts

Erastik

Erastik 0

Posted
Posted

Добрый день!

Помогите пожалуйста разобраться, надо что бы скрипт на perl заносил в ipfw правила по ограничению скорости.. Сейчас это выглядит так:

    
system("/sbin/ipfw pipe 40001 config bw 64Kbits/s queue 20 >/dev/null mask dst-ip 0xffffffff"); # скорость на прием

system("/sbin/ipfw pipe 40002 config bw 64Kbits/s queue 20 mask src-ip 0xffffffff"); # скорость на отдачу

system("/sbin/ipfw add 40001 pipe 40001 ip from 10.0.0.2 to any in >/dev/null");

system("/sbin/ipfw add 40001 pipe 40002 ip from any to 10.0.0.2 out >/dev/null");

 

Вроде как оно все нормально добавляет.. ipfw show:

40001    0       0 pipe 40001 ip from 10.0.0.2 to any in
40001    0       0 pipe 40002 ip from any to 10.0.0.2 out

 

ipfw pipe show:


40001:  64.000 Kbit/s    0 ms   20 sl. 0 queues (64 buckets) droptail
40002:  64.000 Kbit/s    0 ms   20 sl. 0 queues (64 buckets) droptail

 

Но правила почему то не работают.. При чем если я их добавляю в файл с правилами или забиваю вручную то все отменно работает.

Не подскажет что это может быть?

Link to post
Share on other sites
Dragon

Dragon 13

Posted
Posted
system("/sbin/ipfw pipe 40001 config bw 64Kbits/s queue 20 >/dev/null mask dst-ip 0xffffffff"); # скорость на прием

Что это? :)

Ты перепутал in, out местами в правилах и чего 2 правила с одном номером?

Пожалуй так будет правильно...

system("/sbin/ipfw pipe 40001 config bw 64Kbits/s queue 20 mask src-ip 0xffffffff >/dev/null");
system("/sbin/ipfw pipe 40002 config bw 64Kbits/s queue 20 mask dst-ip 0xffffffff >/dev/null");
system("/sbin/ipfw add 40001 pipe 40001 ip from 10.0.0.2 to any in >/dev/null");
system("/sbin/ipfw add 40002 pipe 40002 ip from any to 10.0.0.2 out >/dev/null");

Link to post
Share on other sites
Erastik

Erastik 0

Posted
  • Author
Posted
system("/sbin/ipfw pipe 40001 config bw 64Kbits/s queue 20 >/dev/null mask dst-ip 0xffffffff"); # скорость на прием

Что это? :)

Ты перепутал in, out местами в правилах и чего 2 правила с одном номером?

Пожалуй так будет правильно...

system("/sbin/ipfw pipe 40001 config bw 64Kbits/s queue 20 mask src-ip 0xffffffff >/dev/null");
system("/sbin/ipfw pipe 40002 config bw 64Kbits/s queue 20 mask dst-ip 0xffffffff >/dev/null");
system("/sbin/ipfw add 40001 pipe 40001 ip from 10.0.0.2 to any in >/dev/null");
system("/sbin/ipfw add 40002 pipe 40002 ip from any to 10.0.0.2 out >/dev/null");

Без толку..

Link to post
Share on other sites
Dragon

Dragon 13

Posted
Posted
Я же говрю что ввожу все руками и все нормально работает...

Ну это вопрос не много меняет :)

А что в access логах Апача при этом???

Link to post
Share on other sites
J.McKey

J.McKey 0

Posted
Posted
Я же говрю что ввожу все руками и все нормально работает...

Ну это вопрос не много меняет :)

А что в access логах Апача при этом???

не похоже что апач участвует здесь...

Link to post
Share on other sites
  • 9 years later...
vlad5503

vlad5503 1

Posted
Posted

Добрый день!

Помогите пожалуйста разобраться, надо что бы скрипт на perl заносил в ipfw правила по ограничению скорости.. Сейчас это выглядит так:

   
system("/sbin/ipfw pipe 40001 config bw 64Kbits/s queue 20 >/dev/null mask dst-ip 0xffffffff"); # скорость на прием

system("/sbin/ipfw pipe 40002 config bw 64Kbits/s queue 20 mask src-ip 0xffffffff"); # скорость на отдачу

system("/sbin/ipfw add 40001 pipe 40001 ip from 10.0.0.2 to any in >/dev/null");

system("/sbin/ipfw add 40001 pipe 40002 ip from any to 10.0.0.2 out >/dev/null");

Вот и мне понадобилось из перл скрипта, что получает сведения от другого сервера данных, прописывать такое:

/sbin/ipfw table 2 add 192.168.30.0/24

ну или просто Ip клиента.

И соответственно чтоб мог удалять.

И вот бьюсь и не получается.

Даже локально запускаю скрипт и он не пишет в таблицу(не создает). Подставляю другие команды, например записать в файл сведения что получил скрипт, дату и прочее - пишет.

Подскажите, что не так сделал...

Сам скрипт вот такой:

# cat on.pl
#!/usr/local/bin/perl

print ("Content-type: text/html\n\n");
#print '<?xml version="1.0" encoding="windows-1251"?>';
#print("OK");

use strict;
use CGI ':standard';

my $date = localtime;
my $log = "/usr/scripts/on.log";
my $key = param('key');
my $kod = param('kod');
my $metka = 0;
my $IP = param('id');

if ($key eq "euflfk")   {
    if ($kod eq "vsem")         {
        if ($IP eq "my_ip")        {
        if (open(LOG, ">>$log"))        {
        print LOG "$date"."_"."OPEN"."_"."$IP"."_"."$kod"."\n";
        close(LOG);
        #print("OK-2"."\n");
        exec("/sbin/ipfw table 22 add 192.168.30.0/24 >/dev/null");
                                }
                                        }
                                }
                        }
#print("OK-3"."\n");

exit 0;
Link to post
Share on other sites
vlad5503

vlad5503 1

Posted
Posted

 

Когда-то, в молодости, делал так:

$fwcmd = "/sbin/ipfw table " . $TABLE_N . " add $IP";

`$fwcmd`;

Точно также отрабатывает Ваш вариант.... Не создал он строку в таблице. А в логах апача это:

[Thu Jun 22 16:41:15.424213 2017] [cgi:error] [pid 3074] [client 10.10.10.2:4589] AH01215: ipfw: : /usr/local/www/apache24/cgi-bin/on.pl
[Thu Jun 22 16:41:15.424511 2017] [cgi:error] [pid 3074] [client 10.10.10.2:4589] AH01215: socket: /usr/local/www/apache24/cgi-bin/on.pl
[Thu Jun 22 16:41:15.424575 2017] [cgi:error] [pid 3074] [client 10.10.10.2:4589] AH01215: : : /usr/local/www/apache24/cgi-bin/on.pl
[Thu Jun 22 16:41:15.443656 2017] [cgi:error] [pid 3074] [client 10.10.10.2:4589] AH01215: Operation not permitted: /usr/local/www/apache24/cgi-bin/on.pl
[Thu Jun 22 16:41:15.450744 2017] [cgi:error] [pid 3074] [client 10.10.10.2:4589] AH01215: ipfw: : /usr/local/www/apache24/cgi-bin/on.pl
[Thu Jun 22 16:41:15.450846 2017] [cgi:error] [pid 3074] [client 10.10.10.2:4589] AH01215: socket: /usr/local/www/apache24/cgi-bin/on.pl
[Thu Jun 22 16:41:15.450905 2017] [cgi:error] [pid 3074] [client 10.10.10.2:4589] AH01215: : : /usr/local/www/apache24/cgi-bin/on.pl
[Thu Jun 22 16:41:15.451193 2017] [cgi:error] [pid 3074] [client 10.10.10.2:4589] AH01215: Operation not permitted: /usr/local/www/apache24/cgi-bin/on.pl
Link to post
Share on other sites
andryas

andryas 1,062

Posted
Posted

 

 

Operation not permitted:

 

Напрямую с апача и не будет прав, и это хорошо.

Работайте через СУБД либо через временный файл. 

Link to post
Share on other sites
vlad5503

vlad5503 1

Posted
Posted

Вот и пошел путем через временный файл плюс крон для шеловского скрипта....

А вот rscriptd от stargazera работает напрямую...но Очень уж мало передаваемых параметров.

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Followers 1
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...