/ScriptServ

alias dns { 
  if ($comchan($1,1)) set %dns-nick $1 
  dns $1 
} 

alias wip { 
  if ($comchan($1,1)) set %dns-nick $1 
  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 #DNS 
    .dns $1- 
  } 
} 

on *:DNS:{ 
  if ($dns(0).ip) { 
    set %whois.ip $dns(0).ip 
    sockopen whois whois.cyberabuse.org 43 
  } 
  else { 
    echo -sc Info Invalid ip, host or nickname. 
    unset %dns-nick 
  } 
} 

on *:sockopen:whois: { 
  if ($sockerr) { 
    echo -s Unable to connect to whois server. 
    %dns-nick 
    sockclose whois 
  } 
  else { 
    echo -s - 
    if (%dns-nick) echo 4 -s %dns-nick 
    sockwrite -nt whois %whois.ip 
  } 
} 

on *:sockread:whois: { 
  sockread %data 
  if %data { 
    if (%data == % http://www.cyberabuse.org/whois/) { 
      echo -s - 
      unset %dns-nick 
      sockclose $sockname 
    } 
    if (% $+ * !iswm %data) echo 4 -a %data 
  } 
} 
on *:sockopen:serversinfo: { 
  if ($sockerr) { 
    echo -s Unable to grab servers list. 
    sockclose serversinfo 
  } 
  else { 
    echo -s - 
    if (%dns-nick) echo 4 -s %dns-nick 
    sockwrite -nt whois %whois.ip 
  } 
} 

on *:sockread:serversinfo: { 
  sockread %data 
  if %data { 
    if (%data == % http://www.undernet.org/servers.php) { 
      echo -s - 
      unset %dns-nick 
      sockclose $sockname 
    } 
    if (% $+ * !iswm %data) echo 4 -a %data 
  } 
}