dialog-dns

Admin Thu Dec 08, 2011 9:33 pm

Code:: dialog dnsinfo { title "Requested DNS Information" size -1 -1 151 74 option dbu box "DNS Info", 1, 0 0 151 59 edit %dns.nick, 2, 32 9 116 10, read autohs text "Nickname:", 3, 3 10 26 9 text "IP:", 4, 3 22 22 9 edit %dns.ip, 5, 32 21 116 10, read autohs text "Hostmask:", 6, 3 34 28 9 edit %dns.hostmask, 7, 32 33 116 10, read autohs text "Resolved:", 8, 3 46 25 9 button "Cancel / Dismiss", 11, 78 61 72 12, cancel button "OK / Copy IP to clipboard", 12, 1 61 76 12, default ok edit %dns.resolved, 13, 32 45 116 10, read autohs } alias displaydns { dialog -m DNSi $+ $rand(1,10) dnsinfo } alias dns { .dns $1- } alias -l cleanup { unset %dns.* } alias dns_begin { dns $$1 } on *:DNS: { set %dns.nick $iif($nick,$nick,Nickname Not Specified) set %dns.ip $iif($iaddress,$iaddress,No IP resolved) set %dns.hostmask $iif($naddress,$naddress,No Hostmask Available) set %dns.resolved $iif($raddress,Yes!,Not Resolved) displaydns .halt } on *:dialog:DNSi*:SCLICK:*: { if ($did == 12) { clipboard $did($dname,5) | cleanup } if ($did == 11) { cleanup } } menu nicklist { Dns:/dns_begin $$1 }