package HotSaNICmod::common; sub version { ($VERSION = '$Revision: 1.2 $') =~ s/.*(\d+\.\d+).*/$1/; return "common.pm $VERSION"; } sub configure { my $num = 0; foreach (@_) { ($var,$value)=HotSaNICparser::parse_line($_); if ($var eq "IPTABLES") { $MODARGS{IPTABLES}=$value; last; } } return %MODARGS } 1; WebSVN - hotsanic - Blame - Rev 31 - /trunk/modules/networks/platform/common.pm

hotsanic

Subversion Repositories:

[/] [trunk/] [modules/] [networks/] [platform/] [common.pm] - Blame information for rev 31

Line No.	Rev	Author	Line