projects
/
perl-cwmp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4d3738b
)
find all Parameters supported by CPE
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 8 Mar 2010 14:16:03 +0000
(15:16 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 8 Mar 2010 14:16:03 +0000
(15:16 +0100)
Before we stopped at first parameter which is array, but it's
useful to get full paramter list from CPE
lib/CWMP/Session.pm
patch
|
blob
|
history
diff --git
a/lib/CWMP/Session.pm
b/lib/CWMP/Session.pm
index
4ce8a07
..
9d2a7b1
100644
(file)
--- a/
lib/CWMP/Session.pm
+++ b/
lib/CWMP/Session.pm
@@
-173,7
+173,7
@@
sub process_request {
$xml = $self->dispatch( 'GetParameterNames', [ 'InternetGatewayDevice.', 1 ] );
} else {
my @params =
$xml = $self->dispatch( 'GetParameterNames', [ 'InternetGatewayDevice.', 1 ] );
} else {
my @params =
- grep { m/\.$/
&& ! m/\.\d+\.$/
}
+ grep { m/\.$/ }
keys %{ $stored->{ParameterInfo} }
;
if ( @params ) {
keys %{ $stored->{ParameterInfo} }
;
if ( @params ) {