[Iptperl-general] iptables commit problem

[Andrey G. <an...@sh...>]

         Hello All!

I use iptables on my VPN server to account users traffic on ppp interface.
I have approximatly 80 users and all of them are dial-up users.
Sometimes, when two or more users going to connect at the same time and my
scripts tring to set up accountig rules I have error when executing

$table_h->commit(); where $! = Resource temporarily unavailable

OK, I'm understand, if two users try connect to one resource they are
may get EAGAIN error. It's normal. For fix my script, I was wrote code:

...
my $try=3;
while ($try--) {

       if ($table_h->commit()) {
                return 0;

       }
       print "iptables error: $!";

 }

and was confused.... After executing first time $table_h->commit()
script write "iptables error: Resource temporarily unavailable" and, I
think, it is correct. BUT, when script (on while) executing $table_h->commit()
second time my script silently terminated _without_any_messages_. Nowhere.
IMHO kernel drop it. But I don't understand WHY? May be, I must re-open
handle?

PS: and one more question. In my program I use "use strict;" and "perl -w"
directive and get
error message on line 5 of IPv4.pm where "%IPv4;" and I replace it by "my
%IPv4;".
Is it correct?

Sorry about my english. :(

-- 
Andrey Grebenkov                             MFPO "Shield", Kiev, Ukraine
E-Mail: an...@sh...                           System administrator