/[cwmp]/google/trunk/lib/CWMP/Methods.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/lib/CWMP/Methods.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 166 by dpavlin, Sun Oct 28 11:50:47 2007 UTC revision 172 by dpavlin, Sun Oct 28 15:43:07 2007 UTC
# Line 34  sub new { Line 34  sub new {
34    
35    
36  my $cwmp = [ cwmp => 'urn:dslforum-org:cwmp-1-0' ];  my $cwmp = [ cwmp => 'urn:dslforum-org:cwmp-1-0' ];
37  my $soap = [ soap => "http://schemas.xmlsoap.org/soap/envelope/" ];  my $soap = [ soap => 'http://schemas.xmlsoap.org/soap/envelope/' ];
38    my $xsd  = [ xsd  => 'http://www.w3.org/2001/XMLSchema-instance' ];
39    
40  =head2 InformResponse  =head2 InformResponse
41    
# Line 103  sub GetParameterNames { Line 104  sub GetParameterNames {
104    
105  =head2 GetParameterValues  =head2 GetParameterValues
106    
107    $response->GetParameterValues( $state, $ParameterPath, $NextLevel );    $response->GetParameterValues( $state, $ParameterNames );
108    
109  =cut  =cut
110    
111  sub GetParameterValues {  sub GetParameterValues {
112          my ( $self, $state, $ParameterPath, $NextLevel ) = @_;          my $self = shift;
113          $ParameterPath ||= '';  # all          my $state = shift;
114          $NextLevel ||= 0;               # all          my @ParameterNames = @_;
115          warn "# GetParameterValues( '$ParameterPath', $NextLevel )\n" if $self->debug;          confess "need ParameterNames" unless @ParameterNames;
116            warn "# GetParameterValues", dump( @ParameterNames ), "\n" if $self->debug;
117    
118          $self->xml( $state, sub {          $self->xml( $state, sub {
119                  my ( $X, $state ) = @_;                  my ( $X, $state ) = @_;
120    
121                  $X->GetParameterValues( $cwmp,                  $X->GetParameterValues( $cwmp,
122                          $X->ParameterPath( $cwmp, $ParameterPath ),                          $X->ParameterNames( $cwmp,
123                          $X->NextLevel( $cwmp, $NextLevel ),                                  map {
124                                            $X->string( $xsd, $_ )
125                                    } @ParameterNames
126                            )
127                  );                  );
128          });          });
129  }  }
Legend:
Removed from v.166  
changed lines
  Added in v.172
  ViewVC Help
Powered by ViewVC 1.1.26