alias clan {
  if ($sock(clan)) sockclose clan
  sockopen clan runehead.com 80
  set %user $regsubex($replacex($1-,$chr(32),_),/(\w)/,$upper(\1))
}

on *:SOCKOPEN:clan:{
  sockwrite -n $sockname GET /feeds/lowtech/searchuser.php?user= $+ %user HTTP/1.1
  sockwrite -n $sockname Host: runehead.com
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:clan:{
  if (!$sockerr) {
    var %reader
    .sockread %reader
    if (*Not Found* iswm %reader) {
      echo -a $c(%user) $c2(wasnt found in any clans)
    }
    elseif ($+(*,$chr(124),*) iswm %reader) {
      tokenize 124 %reader
      echo -a $c(%user) $c2(is in) $c($1) $c2(Url:) $c($2) 
    }
  }
  else {
    echo -a $c($sockerr)
  }
  sockclose clan
  unset %user
}