X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FRequest.pm;h=7d2084c9a0af00a9bd82732fa829ae2ae99b353a;hp=8de34de67fd9c32778d3cb0b15249f088c4dcb99;hb=0d052d117960123b64bd8e66fb44515489d8800e;hpb=50ef368d348a07884b2a3d0a91bc5379a6a06df2

diff --git a/lib/CWMP/Request.pm b/lib/CWMP/Request.pm
index 8de34de..7d2084c 100644
--- a/lib/CWMP/Request.pm
+++ b/lib/CWMP/Request.pm
@@ -4,11 +4,12 @@ use warnings;
 use strict;
 
 use XML::Rules;
-use CWMP::Tree;
 use Data::Dump qw/dump/;
 use Carp qw/confess cluck/;
 use Class::Trigger;
 
+#use Devel::LeakTrace::Fast;
+
 =head1 NAME
 
 CWMP::Request - parse SOAP request metods
@@ -19,11 +20,9 @@ All methods described below call triggers with same name
 
 =cut
 
-my $tree = CWMP::Tree->new({ debug => 0 });
-
 our $state;	# FIXME check this!
 
-my $rules =  [
+our $rules =  [
 		#_default => 'content trim',
 		x_default => sub {
 			my ($tag_name, $tag_hash, $context, $parent_data) = @_;
@@ -97,15 +96,6 @@ push @$rules,
 
 			confess "need state" unless ( $state );	# don't remove!
 
-=for obsolete
-
-			# XXX dragons ahead: convert name to tree rewriting it into perl
-			my $s = '$state->{ParameterInfo}->' . $tree->name2perl( $name ) . "->{writable} = $writable;";
-			eval "$s";
-			confess "can't eval $s : $@" if ($@);
-
-=cut
-
 			$state->{ParameterInfo}->{$name} = $writable;
 
 			#warn "## state = dump( $state ), "\n";
@@ -128,20 +118,6 @@ push @$rules,
 			$state->{_trigger} = 'Fault';
 		};
 
-my $parser = XML::Rules->new(
-#	start_rules => [
-#		'^division_name,fax' => 'skip',
-#	],
-	namespaces => {
-		'http://schemas.xmlsoap.org/soap/envelope/' => 'soapenv',
-		'http://schemas.xmlsoap.org/soap/encoding/' => 'soap',
-		'http://www.w3.org/2001/XMLSchema' => 'xsd',
-		'http://www.w3.org/2001/XMLSchema-instance' => 'xsi',
-		'urn:dslforum-org:cwmp-1-0' => '',
-	},
-	rules => $rules,
-);
-
 =head1 METHODS
 
 =head2 parse
@@ -156,13 +132,33 @@ sub parse {
 	my $xml = shift || confess "no xml?";
 
 	$state = {};
+
+	my $parser = XML::Rules->new(
+#		start_rules => [
+#			'^division_name,fax' => 'skip',
+#		],
+		namespaces => {
+			'http://schemas.xmlsoap.org/soap/envelope/' => 'soapenv',
+			'http://schemas.xmlsoap.org/soap/encoding/' => 'soap',
+			'http://www.w3.org/2001/XMLSchema' => 'xsd',
+			'http://www.w3.org/2001/XMLSchema-instance' => 'xsi',
+			'urn:dslforum-org:cwmp-1-0' => '',
+		},
+		rules => $rules,
+	);
+
+	warn "## created $parser\n";
+
 	$parser->parsestring( $xml );
+
+	undef $parser;
+
 	if ( my $trigger = $state->{_trigger} ) {
 		warn "### call_trigger( $trigger )\n";
 		$self->call_trigger( $trigger, $state );
 	}
-	# XXX don't propagate _trigger (useful?)
-	delete( $state->{_trigger} );
+	# XXX propagate _trigger (useful for symlinks)
+
 	return $state;
 }