r284@brr: dpavlin | 2007-11-26 00:53:03 +0100

 added FactoryReset

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@235 836a5e1a-633d-0410-964b-294494ad4392

diff --git a/lib/CWMP/Methods.pm b/lib/CWMP/Methods.pm
index 585dceb..f032733 100644 (file)
--- a/lib/CWMP/Methods.pm
+++ b/lib/CWMP/Methods.pm
@@ -219,6 +219,20 @@ sub Reboot {
        });
 }
 
+=head2 FactoryReset
+
+  $method->FactoryReset( $state );
+
+=cut
+
+sub FactoryReset {
+       my ( $self, $state ) = @_;
+       $self->xml( $state, sub {
+               my ( $X, $state ) = @_;
+               $X->FactoryReset();
+       });
+}
+
 
 =head1 Server methods