- my ( $ID, $state ) = @_;
-
- confess "need ID" unless $ID;
-
- warn "ID_to_uid",dump( $ID, $state ),$/ if $self->debug;
-
- $session->{ $ID }->{last_seen} = time();
-
- my $uid;
-
- if ( $uid = $session->{ $ID }->{ ID_to_uid } ) {
- return $uid;
- } elsif ( $uid = $state->{DeviceID}->{SerialNumber} ) {
- warn "## created new session for $uid session $ID\n" if $self->debug;
- $session->{ $ID } = {
- last_seen => time(),
- ID_to_uid => $uid,
- };
- return $uid;
- } else {
- warn "## can't find uid for ID $ID, first seen?\n";
- return;
- }