jablonka.czprosek.czf

hotsanic

Subversion Repositories:
[/] [trunk/] [modules/] [packets/] [platform/] [common.pm] - Blame information for rev 31

 

Line No. Rev Author Line
131simandlpackage HotSaNICmod::common;
2 
3sub version {
4 ($VERSION = '$Revision: 1.2 $') =~ s/.*(\d+\.\d+).*/$1/;
5 return "common.pm $VERSION";
6 }
7 
8sub 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 
201;
21 

Powered by WebSVN 2.2.1