)
);
- foreach my $init ( qw/ state session / ) {
+ foreach my $init ( qw/ state / ) {
$self->db->put( $init => {} ) unless $self->db->get( $init );
}
=cut
+my $session;
+
sub ID_to_uid {
my $self = shift;
my ( $ID, $state ) = @_;
warn "ID_to_uid",dump( $ID, $state ),$/ if $self->debug;
- $self->db->{session}->{ $ID }->{last_seen} = time();
+ $session->{ $ID }->{last_seen} = time();
my $uid;
- if ( $uid = $self->db->{session}->{ $ID }->{ ID_to_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;
- $self->db->{session}->{ $ID } = {
+ $session->{ $ID } = {
last_seen => time(),
ID_to_uid => $uid,
};
# TODO: expire sessions longer than 30m
+ warn "current session = ",dump( $session );
+
return;
}