162 |
|
|
163 |
$state = CWMP::Request->parse( $chunk ); |
$state = CWMP::Request->parse( $chunk ); |
164 |
|
|
165 |
warn "acquired state = ", dump( $state ), "\n"; |
warn "## acquired state = ", dump( $state ), "\n"; |
166 |
|
|
167 |
$self->state( $state ); |
$self->state( $state ); |
168 |
|
|
169 |
} else { |
} else { |
170 |
warn "empty request\n"; |
warn "## empty request\n"; |
171 |
} |
} |
172 |
|
|
173 |
} else { |
} else { |
203 |
$sock->send( "Content-Length: " . length( $xml ) . "\r\n\r\n" ); |
$sock->send( "Content-Length: " . length( $xml ) . "\r\n\r\n" ); |
204 |
$sock->send( $xml ) or die "can't send response"; |
$sock->send( $xml ) or die "can't send response"; |
205 |
|
|
206 |
warn "### request over"; |
warn "### request over\n" if $self->debug; |
207 |
|
|
208 |
}; |
}; |
209 |
|
|