'ID' => sub {
my ($tag_name, $tag_hash, $context, $parent_data) = @_;
$state->{ID} = $tag_hash->{_content};
+ chomp( $state->{ID} );
},
'DeviceId' => sub {
my $uid = $state->{DeviceID}->{SerialNumber} ||
confess "no DeviceID.SerialNumber in ",dump( $state );
+ chomp($uid);
return $uid;
}
my $state = shift;
my $serial = $state->{DeviceID}->{SerialNumber} || die "no DeviceID.SerialNumber in ",dump($state);
+ chomp($serial);
my $ip =
$state->{Parameter}->{'.ExternalIPAddress'} ||
$state->{Parameter}->{