|
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 | |