Here's my version, which does check for SSL. Forgive the colors:
on 900:TEXT:*:#:{
if ($1 == !whois) && ($2) {
if ($($+(%,whois,$remove($chan,$chr(35))),5) == $null) {
hadd -m whois chan $chan
whois $2
set -u20 $+(%,whois,$remove($chan,$chr(35))) on
}
else { .msg This command can only be used once every 20 seconds! }
}
}
raw 401:*:{ msg $hget(whois,chan) 3{14-14 3N14o such nick/channel:3 $2
halt
}
raw 301:*: {
msg $hget(whois,chan) 3{14-14 3A14way: Yes: ( $+ $3- $+ ) 14-3}
halt
}
raw 307:*: {
msg $hget(whois,chan) 3{14-14 3R14egistered 3N14ickname: Yes. 14-3}
halt
}
raw 310:*: {
msg $hget(whois,chan) 3{14-14 3I14RC 3H14elper: Yes. 14-3}
halt
}
raw 311:*: {
msg $hget(whois,chan) 3{14-14 3W14hois for $2 14-3}
msg $hget(whois,chan) 3{14-14 3N14ick3N14ame: $2 14-3}
msg $hget(whois,chan) 3{14-14 3R14eal 3N14ame: $6- 14-3}
msg $hget(whois,chan) 3{14-14 3I14dent: $3 14-3}
msg $hget(whois,chan) 3{14-14 3A14ddress: *!*3@14 $+ $4 14-3}
halt
}
raw 378:*: {
msg $hget(whois,chan) 3{14-14 3H14ostmask: $6 14-3}
msg $hget(whois,chan) 3{14-14 3I14P: $7 14-3}
halt
}
raw 379:*: {
msg $hget(whois,chan) 3{14-14 3M14odes: $6- 14-3}
halt
}
raw 671:*: {
msg $hget(whois,chan) 3{14-14 3S14ecure 3C14onnection: Yes 14-3}
halt
}
raw 276:*: {
msg $hget(whois,chan) 3{14-14 3C14lient 3C14ert 3F14ingerprint: $7 14-3}
halt
}
raw 320:*: {
msg $hget(whois,chan) 3{14-14 3N14etwork 3A14dministrator: Yes 14-3}
halt
}
raw 330:*: {
msg $hget(whois,chan) 3{14-14 3L14ogged in as: $2 14-3}
halt
}
raw 312:*: {
msg $hget(whois,chan) 3{14-14 3S14erver: $3 14-3}
msg $hget(whois,chan) 3{14-14 3D14escription: $4- 14-3}
halt
}
raw 313:*: {
msg $hget(whois,chan) 3{14-14 3N14etwork 3R14ank: $5-9 14-3}
halt
}
raw 319:*: {
msg $hget(whois,chan) 3{14-14 3C14hannels: $Replace($3-,~,3~14,&,3&14,@,3@14,%,3%14,+,3+14) 14-3}
halt
}
raw 317:*: {
msg $hget(whois,chan) 3{14-14 3S14igned on at: $asctime($4,dddd mm/dd/yyyy HH:nn:sstt) 14-3}
msg $hget(whois,chan) 3{14-14 3T14ime 3I14dle: $duration($3) 14-3}
msg $hget(whois,chan) 3{14-14 3T14ime 3O14nline: $duration($calc($ctime - $4)) 14-3}
halt
}
raw 335:*: {
msg $hget(whois,chan) 3{14-14 3B14ot: Yes. 14-3}
halt
}
raw 318:*: {
msg $hget(whois,chan) 3{14-14 3E14nd of 3W14hois 14-3}
halt
}
I dont really do SSL, but im sure it can be done.