}
sub checkAuthToken( $$$ ) {
my( $tables, $req, $token ) = @_;
my( $id, $haveRights, $time, $hex, $name ) = defined( $token ) ? split( /:/, $token ) : ();
return ( 0, 0, 0, [], "Not logged in", undef ) unless( defined $hex );
}
sub checkAuthToken( $$$ ) {
my( $tables, $req, $token ) = @_;
my( $id, $haveRights, $time, $hex, $name ) = defined( $token ) ? split( /:/, $token ) : ();
return ( 0, 0, 0, [], "Not logged in", undef ) unless( defined $hex );
my $actTime = time;
my $tokOk = ( $expected eq $hex );
my $authed = ( $tokOk && ( $time + $config{'authtime'} > $actTime ) );
my $actTime = time;
my $tokOk = ( $expected eq $hex );
my $authed = ( $tokOk && ( $time + $config{'authtime'} > $actTime ) );