});
}
+=head2 GetParameterValues {
+
+ $response->GetParameterValues( $state, $ParameterPath, $NextLevel );
+
+=cut
+
+sub GetParameterValues {
+ my ( $self, $state, $ParameterPath, $NextLevel ) = @_;
+ $ParameterPath ||= ''; # all
+ $NextLevel ||= 0; # all
+ warn "# GetParameterValues( '$ParameterPath', $NextLevel )\n" if $self->debug;
+ $self->xml( $state, sub {
+ my ( $X, $state ) = @_;
+
+ $X->GetParameterValues( $cwmp,
+ $X->ParameterPath( $cwmp, $ParameterPath ),
+ $X->NextLevel( $cwmp, $NextLevel ),
+ );
+ });
+}
+
=head2 xml
Used to implement methods which modify just body of soap message.
warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue});
- my $session = CWMP::Session->new({
- sock => $sock,
- queue => $prop->{default_queue},
- store => $prop->{store},
- debug => $prop->{debug},
- }) || confess "can't create session";
-
- while ( $session->process_request ) {
- warn "...another one bites the dust...\n";
+ eval {
+ my $session = CWMP::Session->new({
+ sock => $sock,
+ queue => $prop->{default_queue},
+ store => $prop->{store},
+ debug => $prop->{debug},
+ }) || confess "can't create session";
+
+ while ( $session->process_request ) {
+ warn "...another one bites the dust...\n";
+ }
+ };
+
+ if ($@) {
+ warn $@;
}
warn "...returning to accepting new connections\n";