|
hotsanic |
Subversion Repositories: |
| Line No. | Rev | Author | Line |
|---|---|---|---|
| 1 | 1 | simandl | package HotSaNICmod::common; |
| 2 | |
||
| 3 | sub version { |
||
| 4 | ($VERSION = '$Revision: 1.2 $') =~ s/.*(\d+\.\d+).*/$1/; |
||
| 5 | return "common.pm $VERSION"; |
||
| 6 | } |
||
| 7 | |
||
| 8 | sub configure { |
||
| 9 | my $num = 0; |
||
| 10 | foreach (@_) { |
||
| 11 | ($var,$value)=HotSaNICparser::parse_line($_); |
||
| 12 | if ($var eq "NUMCPU") { $MODARGS{NUMCPU}=$value; } |
||
| 13 | if ($var eq "SECTIONS") { $MODARGS{SECTIONS}=$value; } |
||
| 14 | if ($var eq "HOST") { $num++; ($MODARGS{"HOST$num"})=split ",", $value; } |
||
| 15 | } |
||
| 16 | return %MODARGS |
||
| 17 | } |
||
| 18 | |
||
| 19 | 1; |
||
| 20 | |