hotsanic

Subversion Repositories:

[/] [trunk/] [modules/] [system/] [platform/] [common.pm] - Rev 6 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 "NUMCPU") { $MODARGS{NUMCPU}=$value; }
    if ($var eq "SECTIONS") { $MODARGS{SECTIONS}=$value; }
    if ($var eq "HOST") { $num++; ($MODARGS{"HOST$num"})=split ",", $value; }
    }
  return %MODARGS
  }

1;