Parent Directory
|
Revision Log
|
Patch
revision 32 by dpavlin, Mon Jun 18 23:52:41 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 ) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |