; 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 {
  %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-data.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 sockwrite: %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
}



/*
alias whereis.dehtml {
  var %x, %rien

  %rien = $regsub(R,$1-,/<[^>]+>/g,,%x)
  ; On strippe toutes les balises html <...> pour ne conserver que le texte
  %rien = $regsub(R,%x,/^\s+/,,%x)
  ; On vire les espacements et les tabulations avant le texte...
  %rien = $regsub(R,%x,/\s+$/,,%x)
  ; ... et après le texte
  return %x
}

off *:sockread:ipch:{
  :nextread
  sockread -n %read
  if ( $whereis.dehtml(%read) ) {
    echo 14 -a $timestamp 1 $+ $whereis.dehtml(%read)
    goto nextread
  }

}
*/

; Fin du Whois Plus