projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix CWMP::Vendor->vendor_config
[perl-cwmp.git]
/
lib
/
CWMP
/
Session.pm
diff --git
a/lib/CWMP/Session.pm
b/lib/CWMP/Session.pm
index
d662168
..
8119026
100644
(file)
--- a/
lib/CWMP/Session.pm
+++ b/
lib/CWMP/Session.pm
@@
-131,8
+131,11
@@
sub process_request {
$xml = $self->dispatch( $job->dispatch );
$job->finish;
} else {
$xml = $self->dispatch( $job->dispatch );
$job->finish;
} else {
- my @dispatch = CWMP::Vendor->all_parameters( $self->store, $uid, $queue );
+ my @dispatch;
+# @dispatch = CWMP::Vendor->all_parameters( $self->store, $uid, $queue );
+warn "XXX", dump @dispatch;
@dispatch = CWMP::Vendor->vendor_config( $self->store, $uid, $queue ) unless @dispatch;
@dispatch = CWMP::Vendor->vendor_config( $self->store, $uid, $queue ) unless @dispatch;
+warn "XXX", dump @dispatch;
$xml = $self->dispatch( @dispatch ) if @dispatch;
if ( ! $xml ) {
warn ">>> no more work for $uid sending empty response\n";
$xml = $self->dispatch( @dispatch ) if @dispatch;
if ( ! $xml ) {
warn ">>> no more work for $uid sending empty response\n";