hotsanic

Subversion Repositories:

[/] [trunk/] [modules/] [networks/] [platform/] [common.pm] - Rev 32 Go to most recent revision

Compare with Previous - Blame - Download

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;