; Whois Plus pour irc.discussionner.com - v1.2 
; ****************************************************************
; Comment installer les deux variables ?
; %WP_api_login <login>
; %WP_api_pw <cle>
; Ou tapez simplement /installKeyAPI_WP


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
}


alias infosIP {

  set %CheckIP $$1
  set %Checknick $$2
  set %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 }

  sockwrite -n ipch GET 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
  
  
 ;echo -a https://api.discussionner.com/adiirc-data.php?login= $+ %WP_api_login $+ &password= $+ %WP_api_pw $+ &CheckIP= $+ %CheckIP $+ &IRCident= $+ %IRCident $+ &vhost=&nick= $+ %Checknick
  
  
  ;sockwrite -n ipch Host: www.domain.com$+ $str($crlf ,2)
  unset %CheckIP
  unset %IRCident
  unset %Checknick

}


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

}


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 ) {
   infosIP $7 $2 
    ;ip & nick
  }

  ;haltdef 
}

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

; Fin du Whois Plus