Нужен скрипт на PERL для IPFW

[Guest]

Всем привет.

Нужен скрипт на перле что бы по веб интерфейсу прописывать правила файрвола во ФриБСД. Сам я в перле не шарю :( поэтому если у кого есть то буду очень признателен если дадите ссылку на такой вот нехитрый скриптик.

[MaxSavin]

Всем привет.

Нужен скрипт на перле что бы по веб интерфейсу прописывать правила файрвола во ФриБСД. Сам я в перле не шарю :( поэтому если у кого есть то буду очень признателен если дадите ссылку на такой вот нехитрый скриптик.

"Не народ для правительства, а правительство для народа". Намек понятен?

 

ПыСы: CGI еще никто не отменял. Так что пиши уж, на чем нравится.

[Guest]

Я не программист, для меня это очень большая проблемма!

С CGI темболее не знаком :(

[Vicus]

на крайняк на php нарисуй 8)

[Guest]

А по ssh уже никак? По вебу файрвол несекьюрно будет...

[Guest]

В Апаче прописать разрешения и все будет секьюрно =)

[MaXToP]

m0n0wall - там все на php уже написано

[Kuzmich]

#!/usr/bin/perl

use CGI qw(:standard);

 

print "Content-type:text/htmlnn";

 

if(param("command")) {

 

$command=param("command");

$command =~ s/|><;&/ /g;

 

 

open(IPFWCMD,"/путь к/ipfw ${command} 2>&1 |") || die("Neper");

while($line=<IPFWCMD>) {

chomp($line);

print $line,"<BR>n";

}

close(IPFWCMD);

print "<HR><BR><BR>nn";

}

 

 

 

open(IPFWSHOW,"/путь к/ipfw show |") || die("Neper");

 

while($line=<IPFWSHOW>) {

chomp($line);

print $line,"<BR>n";

}

close(IPFWSHOW);

 

print "<HR>n";

print "<FORM METHOD=POST>ipfw<INPUT NAME=command SIZE=50><INPUT TYPE=SUBMIT></FORM>n";

 

 

Сойдет для первого раза? Только ipfw придется откопировать, и сделать ему chmod u+s. Или через sudo. Или еще как нибудь...

[Guest]

Болшое спасибо, сейчас попробую!

[Guest]

add allow tcp from 192.168.1.0/24 to me 80

ipfw: socket: Operation not permitted =(

В судо прописал права на доступ.

Что я делаю не так?

[Kuzmich]

Наверное, прописал права не тому юзеру, от которого работает веб-сервер...