/[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

google/lib/CWMP/Response.pm revision 106 by dpavlin, Sun Sep 2 18:57:11 2007 UTC google/trunk/lib/CWMP/Response.pm 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 66  sub GetRPCMethods { Line 67  sub GetRPCMethods {
67          });          });
68  };  };
69    
70  =head2 Reboot {  =head2 Reboot
71    
72    $response->Reboot( $state );    $response->Reboot( $state );
73    
# Line 80  sub Reboot { Line 81  sub Reboot {
81          });          });
82  }  }
83    
84  =head2 GetParameterNames {  =head2 GetParameterNames
85    
86    $response->GetParameterNames( $state, $ParameterPath, $NextLevel );    $response->GetParameterNames( $state, $ParameterPath, $NextLevel );
87    
# Line 100  sub GetParameterNames { Line 101  sub GetParameterNames {
101                  );                  );
102          });          });
103  }  }
104    
105    =head2 GetParameterValues
106    
107      $response->GetParameterValues( $state, $ParameterNames );
108    
109    =cut
110    
111    sub GetParameterValues {
112            my $self = shift;
113            my $state = shift;
114            my @ParameterNames = @_;
115            confess "need ParameterNames" unless @ParameterNames;
116            warn "# GetParameterValues", dump( @ParameterNames ), "\n" if $self->debug;
117    
118            $self->xml( $state, sub {
119                    my ( $X, $state ) = @_;
120    
121                    $X->GetParameterValues( $cwmp,
122                            $X->ParameterNames( $cwmp,
123                                    map {
124                                            $X->string( $xsd, $_ )
125                                    } @ParameterNames
126                            )
127                    );
128            });
129    }
130    
131  =head2 xml  =head2 xml
132    
Legend:
Removed from v.106  
changed lines
  Added in v.172
  ViewVC Help
Powered by ViewVC 1.1.26