hotsanic

Subversion Repositories:

[/] [branches/] [HotSaNIC-0.5.0-jablonecka/] [modules/] [sensors/] [platform/] [common.pm] - Rev 23 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 "SENSOR") {
      $num++;
      $MODARGS{"SENSOR$num"}=$value;
      }
    }
  return %MODARGS
  }

1;