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