+ warn "## request payload: ",length($xml)," bytes\n$xml\n" if $self->debug;
+
+ $state = CWMP::Request->parse( $xml );
+
+ if ( defined( $state->{_dispatch} ) && $self->debug > 2 ) {
+ my $type = sprintf("dump/%04d-%s-%s", $dump_nr, $sock->peerhost, $state->{_dispatch});
+ symlink $file, $type || warn "can't symlink $file -> $type: $!";
+ }