VPF::use IPTables::IPv4; - Форум программистов

box

Дата 21.1.2010, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 506
Регистрация: 27.2.2007

Репутация: нет
Всего: 0

кто нибудб имел дело с IPTables::IPv4
подскажите пример формирования $hashref для -I INPUT -s ".$ips." -p tcp -m tcp --dport 1:65535 -j DROP

arto

Дата 21.1.2010, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

INPUT => { rules => [ { protocol => "tcp", source => $ips, destination-port => "1:65535", matches => "tcp",jump => "DROP", protocol => "tcp" } ] }
как-то так.

box

Дата 21.1.2010, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 506
Регистрация: 27.2.2007

Репутация: нет
Всего: 0

Код


#!/usr/bin/perl
use IPTables::IPv4;
$table=IPTables::IPv4::init('filter'); # подключение модуля к таблице filter.
$hashref="{ rules => [ { protocol => 'tcp', source => '1.1.1.1', destination-port => '1:65535', matches => 'tcp',jump => 'DROP', protocol => 'tcp' } ] }";
$success = $table->append_entry('INPUT', $hashref);
print $seccess;
$success = $table->commit();      # Завершаем работу с netfilter

Вот так не работает ! не могу понять почему ? и главное что ошибок никаких нет .
подскажите в чем дело ? просто документации с примерами по этому модулю в сети нет .

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »