hotsanic

Subversion Repositories:

[/] [trunk/] [modules/] [packets/] [platform/] [common.pm] - Rev 35 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 "DEV") {
      $num++;
      $MODARGS{"DEV$num"}=$value;
      }
    }
  return %MODARGS
  }

1;