138 |
my $session = CWMP::Session->new( $sess ) || confess "can't create session from ",dump( $sess ); |
my $session = CWMP::Session->new( $sess ) || confess "can't create session from ",dump( $sess ); |
139 |
|
|
140 |
while ( $session->process_request ) { |
while ( $session->process_request ) { |
141 |
warn "...waiting for next request from CPE...\n"; |
warn "...waiting for next request from CPE...\n" if $prop->{debug}; |
142 |
} |
} |
143 |
}; |
}; |
144 |
|
|
145 |
warn "ERROR: $@\n" if $@; |
warn "ERROR: $@\n" if $@; |
146 |
|
|
147 |
warn "...returning to accepting new connections\n"; |
warn "...returning to accepting new connections\n" if $prop->{debug}; |
148 |
|
|
149 |
} |
} |
150 |
|
|