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 "DEV") { $num++; $MODARGS{"DEV$num"}=$value; } } return %MODARGS } 1; WebSVN - hotsanic - Blame - Rev 5 - /trunk/modules/traffic/platform/common.pm

hotsanic

Subversion Repositories:

[/] [trunk/] [modules/] [traffic/] [platform/] [common.pm] - Blame information for rev 5

Line No.	Rev	Author	Line