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

alias installKeyAPI_WP {
  set %WP_api_login $?="Login :"
  set %WP_api_pw $?="Password :"

  if ( %WP_api_login == $null && %WP_api_pw == $null ) {
    echo -a 0,4Erreur dans /installKeyAPI_WP
    echo -a 0,4Vérifiez login et pw !
  }
  if ( %WP_api_login != $null && %WP_api_pw != $null ) {
    echo -a 0,3Les deux variables sont maintenant à jour.
  }
}

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-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

}


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

}

on *:sockclose:ipch: { }

raw 378:*:{ 

  ; irc.znc.in = ZNC
  if ( $network == Discussionner || $server == irc.znc.in ) {
    timer 1 1 /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