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' => '',
        },
        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) = @_;
                        foreach my $name ( keys %$tag_hash ) {
                                next if $name eq '_content';
                                my $key = $name;
                                $key =~ s/^\w+://;      # stip namespace
                                $state->{DeviceID}->{ $key } = $tag_hash->{$name}->{_content};
                        }
                },
                qr/EventStruct/ => sub {
                        my ($tag_name, $tag_hash, $context, $parent_data) = @_;
                        warn dump( $tag_name, $tag_hash );
                        push @{ $state->{EventStruct} }, $tag_hash->{EventCode}->{_content};
                },
                qr/MaxEnvelopes/ => sub {
                        my ($tag_name, $tag_hash, $context, $parent_data) = @_;
                        $state->{MaxEnvelopes} = $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' => '',
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	foreach my $name ( keys %$tag_hash ) {
32	next if $name eq '_content';
33	my $key = $name;
34	$key =~ s/^\w+://; # stip namespace
35	$state->{DeviceID}->{ $key } = $tag_hash->{$name}->{_content};
36	}
37	},
38	qr/EventStruct/ => sub {
39	my ($tag_name, $tag_hash, $context, $parent_data) = @_;
40	warn dump( $tag_name, $tag_hash );
41	push @{ $state->{EventStruct} }, $tag_hash->{EventCode}->{_content};
42	},
43	qr/MaxEnvelopes/ => sub {
44	my ($tag_name, $tag_hash, $context, $parent_data) = @_;
45	$state->{MaxEnvelopes} = $tag_hash->{_content};
46	}
47	]
48	);
49
50	my $xml = read_file( $path );
51	print "## $1 ##\n" if ( $xml =~ s/^Name:\s+(.*?)$//sm );
52	$xml =~ s/^.*Response:\s+//sm;
53	#warn $xml;
54	$parser->parsestring( $xml );
55
56	print "state = ", dump( $state );