hotsanic |
Subversion Repositories: |
Line No. | Rev | Author | Line |
---|---|---|---|
1 | 31 | 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 "DEV") { |
||
13 | $num++; |
||
14 | $MODARGS{"DEV$num"}=$value; |
||
15 | } |
||
16 | } |
||
17 | return %MODARGS |
||
18 | } |
||
19 | |
||
20 | 1; |
||
21 | |