138 |
my $sock = $prop->{client}; |
my $sock = $prop->{client}; |
139 |
confess "no sock in ", ref( $self ) unless $sock; |
confess "no sock in ", ref( $self ) unless $sock; |
140 |
|
|
141 |
warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue}); |
warn "default CPE queue ", dump( $prop->{default_queue} ), "\n" if defined($prop->{default_queue}); |
142 |
|
|
143 |
eval { |
eval { |
144 |
my $session = CWMP::Session->new({ |
my $session = CWMP::Session->new({ |
149 |
}) || confess "can't create session"; |
}) || confess "can't create session"; |
150 |
|
|
151 |
while ( $session->process_request ) { |
while ( $session->process_request ) { |
152 |
warn "...another one bites the dust...\n"; |
warn "...waiting for next request from CPE...\n"; |
153 |
} |
} |
154 |
}; |
}; |
155 |
|
|