Parent Directory | Revision Log | Patch
revision 31 by dpavlin, Mon Jun 18 20:07:17 2007 UTC | revision 36 by dpavlin, Tue Jun 19 00:38:49 2007 UTC | |
---|---|---|
# | Line 68 my $parser = XML::Rules->new( | Line 68 my $parser = XML::Rules->new( |
68 | # | # |
69 | # Inform | # Inform |
70 | # | # |
71 | 'Inform' => sub { | |
72 | $state->{_dispatch} = 'Inform'; # what reponse to call | |
73 | }, | |
74 | qr/DeviceId/ => sub { | qr/DeviceId/ => sub { |
75 | my ($tag_name, $tag_hash, $context, $parent_data) = @_; | my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
76 | foreach my $name ( keys %$tag_hash ) { | foreach my $name ( keys %$tag_hash ) { |
# | Line 117 sub parse { | Line 120 sub parse { |
120 | $parser->parsestring( $xml ); | $parser->parsestring( $xml ); |
121 | return $state; | return $state; |
122 | } | } |
123 | ||
124 | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |