Forums Scripts & Popups hostname help

alias GetCountry {
  var %dns = $$?="Enter DNS"
  var %country = $gettok(%dns,-1,46)
  var %host = $deltok(%dns,-1,46)
}

alias country {
  %dns = $$1
  %country = $gettok(%dns,-1,46)
  %host = $deltok(%dns,-1,46)
  sockopen country ftp.ics.uci.edu 80
}

alias -l html { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) 
  return %x 
} 

on *:sockopen:country: { 
  sockwrite -n $sockname GET /pub/websoft/wwwstat/country-codes.txt HTTP/1.1 
  sockwrite -n $sockname Host: ftp.ics.uci.edu $+ $crlf $+ $crlf
}

on *:sockread:country: {
  if ($sockerr) {
    halt
  }
  else {
    var %sock.country
    sockread %sock.country
    if (%country isin %sock.country) {
      if ($gettok($html(%sock.country),1,32) == %country) {
        ; $gettok($html(%sock.country),1,32) returns country in 2 letters.
        ; $gettok($html(%sock.country),2-,32) returns the full country name.
         echo -a $gettok($html(%sock.country),1,32) = $gettok($html(%sock.country),2-,32)
      }
    }
  }
}

#newdns on
on *:dns: {
  [use your dns code here...]
}
#newdns end

menu * {
  Toggle New DNS: {
    if ($group(#newdns) == on) { disable #newdns }
    else enable #newdns
  }
}

alias F5 {
  if ($group(#newdns) == on) { disable #newdns }
  else enable #newdns
}

if (%country == uk) { [color:blue]code to send data to whois database 1[/color] }
elseif (%country == jp) { [color:blue]code to send data to whois database 2[/color] }

if (%web-data != $null) {
  aline/echo/etc %web-data
}

;made by codemastr
;www.codemastr.com
;www.unrealircd.com


#DNS on
ON *:DNS:{
  if ($dns(0) == 0) {
    linesep -s
    echo -s $timestamps $+ $theme(logo) Unable to resolve $iif($iaddress,$iaddress,$dns(0).addr)
    linesep -s
  }
  else {
    var %numhosts $dns(0), %host = 0
    var %hosts
    while (%host < %numhosts) {
      inc %host 1
      set %hosts %hosts $iif($dns(1) == $dns(1).ip,$dns(%host).addr $+([,$ccode($dns(%host).addr),]),$dns(%host).ip) $+ $chr(44)
    }
    linesep -s
    echo -s $timestamps $+ $theme(logo) Resolved $dns(1) to $left(%hosts,$calc($len(%hosts)-1))
    linesep -s
  }
  halt
}
#DNS end
  

  
; IP WHOIS INFORMATION v0.2 by magic <magic@mirc.net>
; ---------------------------------------------------
; To use the addon load it in your copy of mirc: /load -rs whoisip.mrc
; and to use the addon type /whoisip IP/HOST/NICKNAME in any window and
; the result should echo into yoru active window.
; You are free to use this code any way you want aslong you give me credit for it.
; A special thanks to tidy_trax for his recomendations and $regex help.


alias whoisip {
  .disable #DNS
  sockclose whois 
  if ($regex($1,/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/)) { 
    sockopen whois whois.cyberabuse.org 43
    set %whois.ip $1-
  }
  if (!$regex($1,/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/)) { 
    .enable #NDNS
    .dns $1-
  }
}

#NDNS off
on *:DNS:{
  if ($dns(0).ip) {
    set %whois.ip $dns(0).ip
    sockopen whois whois.cyberabuse.org 43
    .disable #NDNS
  }
  else {
    window -lk -t4,15 +s @HostInfo 220 50 320 290 @HostInfo Verdana 11
    aline @HostInfo Error: invalid Nickname or IP
    .disable #NDNS
    .enable #DNS
  }
}
#NDNS end

on *:sockopen:whois: {
  if ($sockerr) { 
    aline @HostInfo Error: Unable to connect to whois server.
    sockclose whois 
    .enable #DNS
    .disable #NDNS
  }
  else {
    sockwrite -nt whois %whois.ip
  }
}

on *:sockread:whois: {
  sockread %data
  window -lk -t4,15 +s @HostInfo 220 50 320 290 @HostInfo Verdana 11
  if (%data != $null) && (% $+ * !iswm %data) {
    aline @HostInfo %data
  }
  .enable #DNS
}