[ TiXo @ 05.02.2006. 01:17 ] @
| kao što naslov kaže, ne radi nešto što bi trebalo da radi. 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: $!"); } } 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: 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] |