hotsanic

Subversion Repositories:

[/] [trunk/] [modules/] [apcusv/] [platform/] [common.pm] - Rev 11 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 {
  foreach (@_) {
    ($var,$value)=HotSaNICparser::parse_line($_);
    if ($var eq "APCACCESS") { ($MODARGS{"APCACCESS"})=$value; }
    }
  return %MODARGS
  }

1;