136 |
|
|
137 |
warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue}); |
warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue}); |
138 |
|
|
139 |
my $session = CWMP::Session->new({ |
eval { |
140 |
sock => $sock, |
my $session = CWMP::Session->new({ |
141 |
queue => $prop->{default_queue}, |
sock => $sock, |
142 |
store_path => $prop->{store_path}, |
queue => $prop->{default_queue}, |
143 |
debug => $prop->{debug}, |
store_path => $prop->{store_path}, |
144 |
}) || confess "can't create session"; |
debug => $prop->{debug}, |
145 |
|
}) || confess "can't create session"; |
146 |
|
|
147 |
while ( $session->process_request ) { |
while ( $session->process_request ) { |
148 |
warn "...another one bites the dust...\n"; |
warn "...another one bites the dust...\n"; |
149 |
|
} |
150 |
|
}; |
151 |
|
|
152 |
|
if ($@) { |
153 |
|
warn $@; |
154 |
} |
} |
155 |
|
|
156 |
warn "...returning to accepting new connections\n"; |
warn "...returning to accepting new connections\n"; |