- my ( $ID, $state ) = @_;
-
- confess "need ID" unless $ID;
-
- warn "#### ID_to_uid",dump( $ID, $state ),$/ if $self->debug > 4;
-
- warn "##### current session = ",dump( $session ), $/ if $self->debug > 5;
-
- $session->{ $ID }->{last_seen} = time();
-
- my $uid;