ovelayer commented on a Page, !whois script  -  Mar 04, 2013

is there anyway to add to this script to see if a user is using an ssl connection and msg that as well?
thanks

Protheus  -  Aug 28, 2013

I dont really do SSL, but im sure it can be done.

Protheus  -  Jan 07, 2017

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
}
Sign in to comment

Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.