dialog whois {
title "Whois System"
size -1 -1 140 155
option dbu
button "Quitter", 1, 52 137 37 12, ok cancel
text "Pseudo :", 2, 4 10 25 8
text "User@Host :", 3, 4 21 33 8
text "Nom :", 4, 4 32 17 8
text "Canal :", 5, 4 88 20 8
text "Serveur :", 6, 4 43 25 8
text "Idle :", 7, 4 55 15 8
text "Away :", 8, 4 66 25 8
text "Status User :", 9, 4 78 33 8
box "Whois ...", 10, 1 0 137 135
edit "", 11, 37 9 97 10, read autohs
edit "", 12, 37 20 97 10, read autohs
edit "", 13, 37 31 97 10, read autohs
edit "", 14, 37 42 97 10, read autohs
edit "", 15, 37 54 97 10, read autohs
edit "", 16, 37 65 97 10, read autohs
edit "", 17, 37 77 97 10, read autohs
list 18, 37 88 95 41, sort size extsel vsbar
}
on *:dialog:whois:init:0:{
did -a whois 11 %whois.nickname
did -a whois 12 %whois.user@host
did -a whois 13 $remove(%whois.name,,,,)
did -a whois 14 %whois.server
did -a whois 15 %whois.idle
did -a whois 16 $remove(%whois.away,,,,)
did -a whois 17 %whois.status
did -a whois 18 %whois.channels
if ($group(#whois).status == on) { did -u whois 19 }
else { did -c whois 19 }
}
on *:dialog:whois:sclick:1:{
unset %whois.*
}
#whois on
; Away
raw 301:*:{
set %whois.away $3-
haltdef
}
; Identified?
raw 307:*:{
set %whois.identified yes
haltdef
}
; Nickname, User@Host, Name
raw 311:*:{
set %whois.nickname $2
set %whois.user@host $3 $+ @ $+ $4
set %whois.name $6-
set %whois.status Normal User
unset %whois.away
haltdef
}
raw 312:*:{
set %whois.server $3
haltdef
}
; IRCop
raw 313:*:{
set %whois.status mIRC Operator.
haltdef
}
; Idle time
raw 317:*:{
set %whois.idle $duration($calc($3),nn:ss))
}
; Channels
raw 319:*:{
set %whois.channels $3-
haltdef
}
; End of /WHOIS List
raw 318:*:{
haltdef
if ($dialog(whois) == $null) { dialog -m whois whois }
else {
did -r whois 11
did -r whois 12
did -r whois 13
did -r whois 14
did -r whois 15
did -r whois 16
did -r whois 17
did -r whois 18
did -a whois 11 %whois.nickname
did -a whois 12 %whois.user@host
did -a whois 13 $remove(%whois.name,,,,)
did -a whois 14 %whois.server
did -a whois 15 %whois.idle
did -a whois 16 $remove(%whois.away,,,,)
did -a whois 17 %whois.status
did -a whois 18 %whois.channels
}
}
#whois end
; Popups
menu channel {
&Whois System.
.&Activate:{ .enable #whois }
.&Disactivate:{ .disable #whois }
}