cwmp/google/rules.pl

#!/usr/bin/perl

use warnings;
use strict;

use XML::Rules;
use File::Slurp;
use Data::Dump qw/dump/;

my $path = $ARGV[0] || 'protocol/inform.xml';

my $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',
                'urn:dslforum-org:cwmp-1-0' => 'cwmp',
        },
        rules => [
                #_default => 'content trim',
                x_default => sub {
                        my ($tag_name, $tag_hash, $context, $parent_data) = @_;
                        warn dump( $tag_name, $tag_hash, $context );
                },
                qr/DeviceId/ => sub {
                        my ($tag_name, $tag_hash, $context, $parent_data) = @_;
                        $state->{ $tag_name } = $tag_hash;
                },
                EventStruct => sub {
                        my ($tag_name, $tag_hash, $context, $parent_data) = @_;
                        push @{ $state->{ $tag_name } }, $tag_hash->{EventCode}->{_content};
                },
                MaxEnvelopes => sub {
                        my ($tag_name, $tag_hash, $context, $parent_data) = @_;
                        $state->{ $tag_name } = $tag_hash->{_content};
                }
        ]
);

my $xml = read_file( $path );
print "## $1 ##\n" if ( $xml =~ s/^Name:\s+(.*?)$//sm );
$xml =~ s/^.*Response:\s+//sm;
warn $xml;
$parser->parsestring( $xml );

print "state = ", dump( $state );
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use XML::Rules;
7	use File::Slurp;
8	use Data::Dump qw/dump/;
9
10	my $path = $ARGV[0] \|\| 'protocol/inform.xml';
11
12	my $state;
13
14	my $parser = XML::Rules->new(
15	# start_rules => [
16	# '^division_name,fax' => 'skip',
17	# ],
18	namespaces => {
19	'http://schemas.xmlsoap.org/soap/envelope/' => 'soapenv',
20	'http://schemas.xmlsoap.org/soap/encoding/' => 'soap',
21	'urn:dslforum-org:cwmp-1-0' => 'cwmp',
22	},
23	rules => [
24	#_default => 'content trim',
25	x_default => sub {
26	my ($tag_name, $tag_hash, $context, $parent_data) = @_;
27	warn dump( $tag_name, $tag_hash, $context );
28	},
29	qr/DeviceId/ => sub {
30	my ($tag_name, $tag_hash, $context, $parent_data) = @_;
31	$state->{ $tag_name } = $tag_hash;
32	},
33	EventStruct => sub {
34	my ($tag_name, $tag_hash, $context, $parent_data) = @_;
35	push @{ $state->{ $tag_name } }, $tag_hash->{EventCode}->{_content};
36	},
37	MaxEnvelopes => sub {
38	my ($tag_name, $tag_hash, $context, $parent_data) = @_;
39	$state->{ $tag_name } = $tag_hash->{_content};
40	}
41	]
42	);
43
44	my $xml = read_file( $path );
45	print "## $1 ##\n" if ( $xml =~ s/^Name:\s+(.*?)$//sm );
46	$xml =~ s/^.*Response:\s+//sm;
47	warn $xml;
48	$parser->parsestring( $xml );
49
50	print "state = ", dump( $state );