113 |
|
|
114 |
die "no SOAPAction header in ",dump($chunk) unless defined ( $r->header('SOAPAction') ); |
die "no SOAPAction header in ",dump($chunk) unless defined ( $r->header('SOAPAction') ); |
115 |
|
|
116 |
|
$state = CWMP::Request->parse( $chunk ); |
117 |
|
|
118 |
if ( $chunk ) { |
warn "## acquired state = ", dump( $state ), "\n"; |
|
warn "## request chunk: ",length($chunk)," bytes\n$chunk\n" if $self->debug; |
|
119 |
|
|
120 |
$state = CWMP::Request->parse( $chunk ); |
$self->state( $state ); |
121 |
|
$self->store->update_state( ID => $state->{ID}, $state ); |
122 |
|
|
123 |
warn "## acquired state = ", dump( $state ), "\n"; |
} else { |
|
|
|
|
$self->state( $state ); |
|
|
$self->store->update_state( ID => $state->{ID}, $state ); |
|
124 |
|
|
125 |
} else { |
warn "## empty request\n"; |
|
warn "## empty request\n"; |
|
|
} |
|
126 |
|
|
|
} else { |
|
127 |
$state = $self->state; |
$state = $self->state; |
128 |
|
delete( $state->{_dispatch} ); |
129 |
warn "last request state = ", dump( $state ), "\n" if $self->debug > 1; |
warn "last request state = ", dump( $state ), "\n" if $self->debug > 1; |
130 |
} |
} |
131 |
|
|