if (hc()){
my $f = $ND::DBH->prepare("SELECT uid,username FROM users WHERE username ILIKE ?");
$f->execute($nick);
my ($uid,$nick) = $f->fetchrow();
if ($f->rows == 1){
my ($username,$p_nick) = $ND::DBH->selectrow_array("SELECT username, pnick FROM users WHERE pnick ILIKE ? AND NOT (username ILIKE ?)",undef,$pnick,$nick);
if (hc()){
my $f = $ND::DBH->prepare("SELECT uid,username FROM users WHERE username ILIKE ?");
$f->execute($nick);
my ($uid,$nick) = $f->fetchrow();
if ($f->rows == 1){
my ($username,$p_nick) = $ND::DBH->selectrow_array("SELECT username, pnick FROM users WHERE pnick ILIKE ? AND NOT (username ILIKE ?)",undef,$pnick,$nick);