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 "NUMCPU") { $MODARGS{NUMCPU}=$value; } if ($var eq "SECTIONS") { $MODARGS{SECTIONS}=$value; } if ($var eq "HOST") { $num++; ($MODARGS{"HOST$num"})=split ",", $value; } } return %MODARGS } 1; WebSVN - hotsanic - Blame - Rev 30 - /trunk/modules/system/platform/common.pm

hotsanic

Subversion Repositories:

[/] [trunk/] [modules/] [system/] [platform/] [common.pm] - Blame information for rev 30

Line No.	Rev	Author	Line