X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FCWMP%2FMethods.pm;h=c529ed37cd1595ac65ae4702fe5bc007ad8fb626;hb=774c5ba74d808d504f5e6dd2b838f68e37b50842;hp=585dcebfe4bfc57cb291b5d7e8939ac420a26b0a;hpb=35e5be71b934e7bd7898d3e86ea42e1592c7cfb8;p=perl-cwmp.git

diff --git a/lib/CWMP/Methods.pm b/lib/CWMP/Methods.pm
index 585dceb..c529ed3 100644
--- a/lib/CWMP/Methods.pm
+++ b/lib/CWMP/Methods.pm
@@ -51,17 +51,16 @@ sub xml {
 	confess "no state?" unless ($state);
 	confess "no body closure" unless ( $closure );
 
-	confess "no ID in state ", dump( $state ) unless ( $state->{ID} );
-
 	#warn "state used to generate xml = ", dump( $state ) if $self->debug;
 
 	my $X = XML::Generator->new(':pretty');
 
+	my @header;
+	push( @header, $X->ID( $cwmp, { mustUnderstand => 1 }, $state->{ID} )) if $state->{ID};
+	push( @header, $X->NoMoreRequests( $cwmp, $state->{NoMoreRequests} || 0 ));
+
 	return $X->Envelope( $soap, { 'soap:encodingStyle' => "http://schemas.xmlsoap.org/soap/encoding/" },
-		$X->Header( $soap,
-			$X->ID( $cwmp, { mustUnderstand => 1 }, $state->{ID} ),
-			$X->NoMoreRequests( $cwmp, $state->{NoMoreRequests} || 0 ),
-		),
+		$X->Header( $soap, @header ),
 		$X->Body( $soap, $closure->( $X, $state ) ),
 	);
 }
@@ -112,14 +111,12 @@ sub SetParameterValues {
 
 		$X->SetParameterValues( $cwmp,
 			$X->ParameterList( $cwmp,
-				$X->ParameterNames( $cwmp,
-					map {
-						$X->ParameterValueStruct( $cwmp,
-							$X->Name( $cwmp, $_ ),
-							$X->Value( $cwmp, $params->{$_} )
-						)
-					} sort keys %$params
-				)
+				map {
+					$X->ParameterValueStruct( $cwmp,
+						$X->Name( $cwmp, $_ ),
+						$X->Value( $cwmp, $params->{$_} )
+					)
+				} sort keys %$params
 			)
 		);
 	});
@@ -219,6 +216,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