AFNIC : WHOIS DE NOMS DE DOMAINES

;========================
;    WHOIS (AFNIC)
;========================

alias afnic {
  set %detector OFF
  set %serv $1
  sockclose internic
  sockopen internic www.nic.fr 80
}

on *:sockopen:internic:{
if ($sockerr > 0) return
sockwrite -n internic GET /cgi-bin/whois?Object= $+ %serv $+ &Base=FRNIC&Action=Chercher...&affichage=standard&Exec=Consultation
;;ATTENTION : le sockwrite doit tenir en une ligne !!
window -e @INTERNIC Whois sur %serv
}

on *:sockread:internic:{
  if ($sockerr > 0) return
  :whois
  sockread %whois
  if ($sockbr == 0) return
  if (%whois != $null) {

    if ((domain: isin $gettok(%whois,1,32)) || (Registrant:<br> isin $gettok(%whois,1,32)) || (dbcopyright.html isin $gettok(%whois,1,32))) {
;;ATTENTION : instruction IF en une ligne !!
      set %detector ON
    }

    if (name="RealBase" isin $gettok(%whois,2,32)) {
      sockclose internic
      set %detector OFF 
    }

    if (</form isin $gettok(%whois,1,32)) unset %detector

    if (%detector == ON) {

      set %whois $remove(%whois,<br>,</tt>,<hr>,#0)
      set %whois $replace(%whois,&nbsp;,$chr(160))
      aline -ph 1 @INTERNIC %whois
      write c:\windows\bureau\Afnic- $+ %serv $+ .doc %whois
    }
  }
  goto whois
}