/**
 Whois Plus Special Sysop [10/10/2024]
*/
; on *:NOTICE:*:#:echo -ag Notice $1- from $nick on channel $chan
;IP real: *@88.142.74.105

var %Nick_WhoisPlus = $null
var %IP_WhoisPlus = $null

on *:notice:*:Sysop:{
  if ($strip($1) == Nick: ) {
    %Nick_WhoisPlus = $strip($2)
  }
  if ($1 == IP && $2 == real: ) {
    %IP_WhoisPlus = $replace($3, *@,)
    ; ip & nick
    infosIP %IP_WhoisPlus %Nick_WhoisPlus
  }
}

; Whois Plus pour irc.discussionner.com - v1.3 (màj: 10/01/2024)
; ------------------------------------------------------------------------------------------------------------------
; - Comment installer les deux variables ?
;    Aller dans l'onglet "Variables" à partir des Remotes (ALT+R), 
;    et mettez ces 2 variables tout en bas : 
;        %WP_api_login <login>
;        %WP_api_pw <password>
;    Remplacer <login> et <password> par le login/password fournit par l'administrateur.
; Ce script fonctionne sur AdiIRC v4.5. S'il ne fonctionne pas sur mIRC, veuillez me prévenir.
; ------------------------------------------------------------------------------------------------------------------
var %CheckIP = $null
var %Checknick = $null
var %IRCident = $null
  
alias infosIP {

%Nick_WhoisPlus = $null
%IP_WhoisPlus = $null

  %CheckIP = $1
  %Checknick = $2
  %IRCident = $getident($2)
  
  ; sockclose ipch
  sockopen -e ipch api.discussionner.com +443
}

on *:sockopen:ipch: {
  if ($sockerr) {
    echo -a 4Erreur connexion ou mauvais login! | unset %CheckIP | return
  }
  
  var %API_URI = https://api.discussionner.com/mIRC_AdiIRC_Handler.php?client=adiirc&login= $+ %WP_api_login $+ &password= $+ %WP_api_pw $+ &CheckIP= $+ %CheckIP $+ &IRCident= $+ %IRCident $+ &vhost=&nick= $+ %Checknick
  
  sockwrite -n ipch GET %API_URI
  
  ;echo -a 04sockwrite: %API_URI

  /*
  unset %CheckIP
  unset %IRCident
  unset %Checknick
  */
  
  %CheckIP = $null
  %Checknick = $null
  %IRCident = $null
}

on *:sockread:ipch: {
  sockread -n %read
  if (%read) {
    echo 14 -a $timestamp 1 %read
  }
}

raw 378:*: {
  ; irc.znc.in = ZNC
  if ($network == Discussionner || $server == irc.znc.in) {
    ; ip & nick
    infosIP $7 $2
  }
  ;haltdef
}

alias getident {
  var %mask = $gettok($address($$1,0),1,64)
  var %Ident = $replace(%mask, *!,)
  return %Ident
}

; Fin du Whois Plus