sub check_id {
  my ( $id )= @_;
  my $res;
  eval {
      my $obj= ObjClass::Obj->new();
            $obj->id( $id );
            $obj->load_via_id() ;
            $res= $obj->id ;
            die "invalid user" unless $obj->activated_account ;
  }
  if ($@) {
     DEBUG && log_error( $@ );
     return -1;
  }
  return $res;
}