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 ) { |
102 |
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
103 |
$state->{MethodList} = _tag( $tag_hash, 'string' ); |
$state->{MethodList} = _tag( $tag_hash, 'string' ); |
104 |
}, |
}, |
105 |
|
# |
106 |
|
# Fault |
107 |
|
# |
108 |
|
qr/^Fault$/ => sub { |
109 |
|
my ($tag_name, $tag_hash, $context, $parent_data) = @_; |
110 |
|
$state->{Fault} = { |
111 |
|
FaultCode => _tag( $tag_hash, 'FaultCode', '_content' ), |
112 |
|
FaultString => _tag( $tag_hash, 'FaultString', '_content' ), |
113 |
|
}; |
114 |
|
warn "FAULT: ", $state->{Fault}->{FaultCode}, " ", $state->{Fault}->{FaultString}, "\n"; |
115 |
|
} |
116 |
] |
] |
117 |
); |
); |
118 |
|
|
131 |
$parser->parsestring( $xml ); |
$parser->parsestring( $xml ); |
132 |
return $state; |
return $state; |
133 |
} |
} |
134 |
|
|
135 |
|
1; |