/[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 50 by dpavlin, Tue Jun 19 21:29:04 2007 UTC revision 64 by dpavlin, Wed Jun 20 21:44:57 2007 UTC
# Line 67  sub GetRPCMethods { Line 67  sub GetRPCMethods {
67          });          });
68  };  };
69    
70    =head2 Reboot {
71    
72      $response->Reboot( $state );
73    
74    =cut
75    
76    sub Reboot {
77            my ( $self, $state ) = @_;
78            $self->xml( $state, sub {
79                    my ( $X, $state ) = @_;
80                    $X->Reboot();
81            });
82    }
83    
84    =head2 GetParameterNames {
85    
86      $response->GetParameterNames( $state, $ParameterPath, $NextLevel );
87    
88    =cut
89    
90    sub GetParameterNames {
91            my ( $self, $state, $ParameterPath, $NextLevel ) = @_;
92            $ParameterPath ||= '';  # all
93            $NextLevel ||= 0;               # all
94            warn "# GetParameterNames( '$ParameterPath', $NextLevel )\n" if $self->debug;
95            $self->xml( $state, sub {
96                    my ( $X, $state ) = @_;
97    
98                    $X->GetParameterNames( $cwmp,
99                            $X->ParameterPath( $cwmp, $ParameterPath ),
100                            $X->NextLevel( $cwmp, $NextLevel ),
101                    );
102            });
103    }
104    
105  =head2 xml  =head2 xml
106    
107  Used to implement methods which modify just body of soap message.  Used to implement methods which modify just body of soap message.
# Line 84  sub xml { Line 119  sub xml {
119    
120          confess "no ID in state ", dump( $state ) unless ( $state->{ID} );          confess "no ID in state ", dump( $state ) unless ( $state->{ID} );
121    
122          warn "state used to generate xml = " . dump( $state ) if $self->debug;          #warn "state used to generate xml = ", dump( $state ) if $self->debug;
123    
124          my $X = XML::Generator->new(':pretty');          my $X = XML::Generator->new(':pretty');
125    
Legend:
Removed from v.50  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.26