Code:
foreach my $rule ( $table->list_rules('INPUT') ) {
if( $rule->{'jump'} eq $chain_name ) {
$table->delete_entry('INPUT', $rule) or die("Error: Couldn't remove chain '$chain_name' from INPUT chain: $!");
}
}
foreach my $rule ( $table->list_rules('INPUT') ) {
if( $rule->{'jump'} eq $chain_name ) {
$table->delete_entry('INPUT', $rule) or die("Error: Couldn't remove chain '$chain_name' from INPUT chain: $!");
}
}
rezutuje sa die varijantom.
To pravilo, naravno, mogu normalno da ubijem iz konzole, ostali delovi perl skripte rade normalno, tj kao što kaže opis.
svaka ideja je dobrodošla...
PS: pokušao sam i sa
Code:
$table->delete_entry('INPUT',{ source=>$rule->{'source'}, jump=>$rule->{'jump'} } )
i slično, ali ne uspevam da ubijem rule, koji uredno biva pronađen, čitan...$table->delete_entry('INPUT',{ source=>$rule->{'source'}, jump=>$rule->{'jump'} } )
PPS: nov sam u kamilarstvu ;)
[Ovu poruku je menjao TiXo dana 05.02.2006. u 02:54 GMT+1]
GnuPG public key:
tixo.asc
Try and be nice to people, avoid eating fat, read a good book every now and
then, get some walking in, and try and live together in peace and harmony with
people of all creeds and nations.
tixo.asc
Try and be nice to people, avoid eating fat, read a good book every now and
then, get some walking in, and try and live together in peace and harmony with
people of all creeds and nations.