Bienvenue, Visiteur
Vous devez vous enregistrer avant de pouvoir poster.

Nom d'utilisateur
  

Mot de passe
  





Rechercher dans les forums



(Recherche avancée)

Statistiques du Forum
» Membres : 636
» Dernier membre : DiXiT
» Sujets du forum : 1,459
» Messages du forum : 10,965

Statistiques complètes

Derniers sujets
bind pubm SQL
Forum : Scripts TCL
Dernier message : aliasangelius
Il y a 4 heures
» Réponses : 6
» Affichages : 45
Système antiproxy
Forum : Services IRC
Dernier message : aliasangelius
25/03/2017, 13:03
» Réponses : 18
» Affichages : 176
Applet IRC dans tout ses ...
Forum : Interfaces
Dernier message : KeeViiNou
25/03/2017, 11:25
» Réponses : 2
» Affichages : 92
Elargissement des sujets
Forum : Annonces
Dernier message : DiXiT
25/03/2017, 01:35
» Réponses : 8
» Affichages : 100
Spams / Flood
Forum : Eggdrop
Dernier message : DiXiT
24/03/2017, 09:48
» Réponses : 10
» Affichages : 168
urltitle.tcl perpleXa
Forum : Scripts TCL
Dernier message : aliasangelius
22/03/2017, 14:39
» Réponses : 4
» Affichages : 77
horoscope
Forum : Releases et support
Dernier message : CrazyCat
22/03/2017, 12:58
» Réponses : 5
» Affichages : 740
Aide sur une condition
Forum : Scripts TCL
Dernier message : aliasangelius
20/03/2017, 01:16
» Réponses : 12
» Affichages : 138
Strategy
Forum : Présentez-vous
Dernier message : Strategy
19/03/2017, 19:44
» Réponses : 0
» Affichages : 49
Mettre des dnsbl directem...
Forum : Serveurs IRC
Dernier message : Strategy
19/03/2017, 19:11
» Réponses : 1
» Affichages : 59

 
  bind pubm SQL
Posté par : aliasangelius - Il y a 6 heures - Forum : Scripts TCL - Réponses (6)

Bonjour,

Alors j'ai un soucis sur la détection des phrases via bind pubm en SQL.

J'ai une table sur mon phpmyadmin "box", dedans ce trouve 4 colonnes.

1) mot
2) salon
3) type
4) protect

Alors J'aimerais que sa regarde si la personne dit sur le salon par exemple "connard", si c'est sur #test qui et dans la colonne salon qui vérifie que le type soit bien un badword et qu'il ne soit pas en protect on.

J'ai tester ainsi mais sans aucun résultat, et la je viens poster en espérant avoir quelques explications/aides de votre part si c'est possible.

Voici le morceau de code que j'ai pateme : https://tools.eggdrop.fr/pasteme/view/f6a8e572

NB : Je n'es aucune erreur en party-line, et aucune réaction non plus concernant l'eggdrop actuellement.
NB2 : Ont m'as aussi doner ce code hier pour voir s'il prenez bien en comptes les débugs de la colonne mot, et oui sa passe. Voici le code et la réponse :

tcl
proc stock {} {
    set bdnb "0"
    service:connect
    mysqlsel $::mysqlink "SELECT * FROM `box`"
    if {[mysqlresult $::mysqlink rows] ne 0} {
        while {[set row [mysqlnext $::mysqlink]] != ""} {
            incr bdnb 1
            set stock:$bdnb "[lindex $row 0]"
            putnow "PRIVMSG #Back-Eggdrop :$bdnb $stock:$bdnb"
        }
    }
    putnow "PRIVMSG #Back-Eggdrop :$bdnb"
}



Réponse :

Citation :[02:20:44] ‹@Talk-Me› connard
[02:20:44] ‹@Talk-Me› www
[02:20:44] ‹@Talk-Me› talk-me.net
[02:20:44] ‹@Talk-Me› enculer
[02:20:44] ‹@Talk-Me› 4


  urltitle.tcl perpleXa
Posté par : aliasangelius - 22/03/2017, 12:16 - Forum : Scripts TCL - Réponses (4)

Bonjour,

Alors voilà j'ai récupérer le tcl de perpleXa le urltitle.
Lorsqu'on mets un lien sur le salon, sa nous transmet une info Normalement..

Sauf que sa ne fonctionne pas, et j'ai chercher je trouve pas, si quelqu'un à une idée..

Voici les test :

Citation :[11:14:57] ‹@alias_angelius› https://www.facebook.com/
[11:15:00] ‹@alias_angelius› https://www.youtube.com/watch?v=xhv4f6FjWNM

Aucun message d'erreur en PL, le +urltitle et bien mis aussi.

Le code :
tcl
# urltitle.tcl
# Copyright (C) perpleXa 2004-2006
#
# Redistribution, with or without modification, are permitted provided
# that redistributions retain the above copyright notice, this condition
# and the following disclaimer.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
 
namespace eval url {
  variable version "3.1";
  variable agent "Opera/8.52 (X11; Linux x86_64; U; en)";
  # Bot will read data in chunks of this size, 8KB is just fine.
  variable readbuf 8192;
  # Read max. 32KB before the connection gets killed.
  # (to prevent the bot from downloading large files when someone pastes shit..)
  variable readlimit 32768;
  variable fds;
  if {![info exists fds]} {
    set fds 0;
  }
  setudef flag urltitle;
  bind pubm -|- * [namespace current]::check;
}
 
proc url::check {nick host hand chan text} {
 
    set text [stripcodes uacgbr $text];
    foreach item [split $text] {
      if {[string match -nocase "http://?*" $item] || [string match -nocase "www.?*" $item] || [string match -nocase "https://?*" $item]} {
        regsub -nocase -- "http(s|)://" [string map [list "\\" "/"] $item] "" url;
        set url [split $url "/"];
        set get [join [lrange $url 1 end] "/"];
        set url [split [lindex $url 0] ":"];
        set host [lindex $url 0]; set port [lindex $url 1];
        if {$port == ""} {set port "80";}
        uconnect $host $port $get $nick $chan;
      }
    }
 
}
 
proc url::uconnect {host port get nick chan} {
  variable agent;
  variable fds;
  variable readbuf;
  set token [namespace current]::[incr fds];
  variable $token;
  upvar 0 $token static;
  array set static {
    data ""
    body 0
    code 0
    sock -1
  }
  if {[catch {set static(sock) [socket -async $host $port]} error]} {
    destroy $token;
    return $error;
  }
  fconfigure $static(sock) -translation {auto crlf} -buffersize $readbuf;
  puts $static(sock) "GET /$get HTTP/1.0";
  puts $static(sock) "Accept: */*";
  if {$port == "80"} {
    puts $static(sock) "Host: $host";
  } else {
    puts $static(sock) "Host: $host:$port";
  }
  puts $static(sock) "User-agent: $agent";
  puts $static(sock) "";
  flush $static(sock);
  fileevent $static(sock) readable [list [namespace current]::handledata $token $nick $chan];
  catch {fconfigure $static(sock) -blocking 0;}
  after [expr 20*1000] [list [namespace current]::destroy $token];
  return $token;
}
 
proc url::handledata {token nick chan} {
  variable readbuf; variable readlimit;
  variable $token;
  upvar 0 $token static;
  if {[eof $static(sock)] || [string length $static(data)]>=$readlimit} {
    destroy $token;
    return;
  }
  set buf [read $static(sock) $readbuf];
  append static(data) $buf;
  foreach line [split $buf "\n"] {
    if {[string match HTTP* $line] && !$static(body)} {
      if {![regexp -- {\d{3}} $line static(code)]} {
        destroy $token;
        return;
      } elseif {$static(code)!=200 && $static(code)!=301 && $static(code)!=302} {
        destroy $token;
        return;
      }
    } elseif {[regexp -nocase -- "^Location:(.+)$" $line -> url]
              && !($static(code)!=301 && $static(code)!=302)} {
      check $nick *!*@* * $chan $url;
      destroy $token;
      return;
    } elseif {[regexp -nocase -- "^Content-type:(.+)$" $line -> type]} {
      if {![string match -nocase text* [string trim $type]]} {
        destroy $token;
        return;
      }
    } elseif {[regexp -nocase -- "^Content-encoding:(.+)$" $line -> encoding]} {
      if {[string match -nocase *gzip* $encoding]
          || [string match -nocase *compress* $encoding]} {
        destroy $token;
        return;
      }
    } elseif {($line == "") && !$static(body)} {
      set static(body) 1;
    } elseif {[regexp -nocase -- {<title>([^<]+?)</title>} $static(data) -> title]
              && $static(code)==200} {
      regsub -all -- {(\n|\r|\s|\t)+} $title " " title;
      set s [expr {[string index $nick end]!="s"?"s":""}];
      puthelp "PRIVMSG $chan :$nick'$s URL title: \"[decode [string trim $title]]\"";
      destroy $token;
      return;
    }
  }
}
 
proc url::destroy {token} {
  variable $token
  upvar 0 $token static;
  if {[info exists static]} {
    catch {fileevent $static(sock) readable "";}
    catch {close $static(sock);}
    unset static;
  }
}
 
proc url::decode {content} {
  if {![string match *&* $content]} {
    return $content;
  }
  set escapes {
    &nbsp; \x20 &quot; \x22 &amp; \x26 &apos; \x27 &ndash; \x2D
    &lt; \x3C &gt; \x3E &tilde; \x7E &euro; \x80 &iexcl; \xA1
    &cent; \xA2 &pound; \xA3 &curren; \xA4 &yen; \xA5 &brvbar; \xA6
    &sect; \xA7 &uml; \xA8 &copy; \xA9 &ordf; \xAA &laquo; \xAB
    &not; \xAC &shy; \xAD &reg; \xAE &hibar; \xAF &deg; \xB0
    &plusmn; \xB1 &sup2; \xB2 &sup3; \xB3 &acute; \xB4 &micro; \xB5
    &para; \xB6 &middot; \xB7 &cedil; \xB8 &sup1; \xB9 &ordm; \xBA
    &raquo; \xBB &frac14; \xBC &frac12; \xBD &frac34; \xBE &iquest; \xBF
    &Agrave; \xC0 &Aacute; \xC1 &Acirc; \xC2 &Atilde; \xC3 &Auml; \xC4
    &Aring; \xC5 &AElig; \xC6 &Ccedil; \xC7 &Egrave; \xC8 &Eacute; \xC9
    &Ecirc; \xCA &Euml; \xCB &Igrave; \xCC &Iacute; \xCD &Icirc; \xCE
    &Iuml; \xCF &ETH; \xD0 &Ntilde; \xD1 &Ograve; \xD2 &Oacute; \xD3
    &Ocirc; \xD4 &Otilde; \xD5 &Ouml; \xD6 &times; \xD7 &Oslash; \xD8
    &Ugrave; \xD9 &Uacute; \xDA &Ucirc; \xDB &Uuml; \xDC &Yacute; \xDD
    &THORN; \xDE &szlig; \xDF &agrave; \xE0 &aacute; \xE1 &acirc; \xE2
    &atilde; \xE3 &auml; \xE4 &aring; \xE5 &aelig; \xE6 &ccedil; \xE7
    &egrave; \xE8 &eacute; \xE9 &ecirc; \xEA &euml; \xEB &igrave; \xEC
    &iacute; \xED &icirc; \xEE &iuml; \xEF &eth; \xF0 &ntilde; \xF1
    &ograve; \xF2 &oacute; \xF3 &ocirc; \xF4 &otilde; \xF5 &ouml; \xF6
    &divide; \xF7 &oslash; \xF8 &ugrave; \xF9 &uacute; \xFA &ucirc; \xFB
    &uuml; \xFC &yacute; \xFD &thorn; \xFE &yuml; \xFF
  };
  set content [string map $escapes $content];
  set content [string map [list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] $content];
  regsub -all -- {&#([[:digit:]]{1,5});} $content {[format %c "\1"]} content;
  regsub -all -- {&#x([[:xdigit:]]{1,4});} $content {[format %c [scan "\1" %x]]} content;
  regsub -all -- {&#?[[:alnum:]]{2,7};} $content "?" content;
  return [subst $content];
}
 
putlog "Script loaded: URL title fetcher v$url::version by perpleXa";



  Aide sur une condition
Posté par : Epsilon - 19/03/2017, 12:27 - Forum : Scripts TCL - Réponses (12)

Bonjour,

j'essaye de faire un petit script, lors de la connection d'un user mon bot effectue un ctcp version, jusqu'ici tout est ok, par contre je voudrais que dès qu'il reçoit aucun retour du ctcp il effectue une action je fais :

Code :
bind ctcr - VERSION ::repctcp::ctcp:reply
proc ::repctcp::ctcp:reply {nick uh hand dest key arg} {
 if {$arg == ""} {
        putlog "Aucune réponse CTCP de $nick"
 }
 return 0
}

Il reçoit bien le ctcp mais la condition doit être mauvaise parce qu'il m'envoit pas le putlog dès qu'il ne reçoit aucune valeur du ctcp

voilà ce qu'il reçoit dès qu'il a une valeur :


Citation :[11:28:50] CTCP reply VERSION: eggdrop v1.6.20 from Bobot (Bot@localhost) to Bobot


  Mettre des dnsbl directement dans l'IRCD
Posté par : Epsilon - 19/03/2017, 01:40 - Forum : Serveurs IRC - Réponses (1)

Bonsoir,

il est possible d'insérer des dnsbl directement dans l'ircd (j'utilise unrealircd 3.2.* ) ça permettra d'alléger mon hopm.

Si vous savez comment procéder, je suis preneur.

Merci


  Récuperation de chaque ligne dans un .txt
Posté par : Epsilon - 18/03/2017, 15:46 - Forum : Scripts TCL - Réponses (7)

Bonjour,

j'aimerai récuperer chaque ligne dans un fichier text sous cet forme (ranges.txt) :

Code :
5.154.190.0/23
5.175.128.0/17
5.187.16.0/20
5.189.128.0/19
5.230.0.0/15
5.249.160.0/24
5.254.128.0/24
....
 

et que mon bot récupère chaque ip et execute une commande pour chaque ligne ex: "ZLINE *@5.154.190.0/23 180 :ban du premiere range"

ainsi de suite pour toute les lignes qu'il trouve dans le fichier texte
Merci de votre futur aide


  Système antiproxy
Posté par : Epsilon - 17/03/2017, 11:58 - Forum : Services IRC - Réponses (18)

Bonjour,

Je souhaite aussi discuter des systèmes antiproxy efficace contre les malfaiteurs qui voudront foutre le boxon (commme c'est connu depuis la naissance d'IRC) sur votre IRCd.

Je voulais connaitre les différents systèmes en place et efficace et avec explication/config si possible.

Je fais encore appel à vos expériences Smile

Merci


  Protection d'un channel avec modes du serveur
Posté par : Epsilon - 17/03/2017, 11:54 - Forum : Serveurs IRC - Réponses (4)

Bonjour à tous,

Je viens vers vous, la communautée pour vous posez des questions concernant les modes de protection d'un salon contre l'antiflood, badwords (surement avec anope ), attaque et j'en passe tout est bon à prendre.

Quelles sont vos protections, vos modes qui pour vous sont les plus efficaces contre les boulets?

Hier j'ai vu pour le mode +f mais avec toute les données difficile de s'y retrouver facilement.

Je fais appel à votre éxperience pour qu'on en parle et partager vos sources Smile

Bonne journée Smile


  Tutoriels
Posté par : CrazyCat - 16/03/2017, 13:32 - Forum : Serveurs IRC - Pas de réponse

Je commence à créer des tutos sur le wiki.

Je ne traite que de ce que je connais, c'est à dire UnrealIRCd, et que des versions stables et maintenues, c'est à dire (actuellement) la branche 4.0.X. Si vous avez besoin d'aide sur des versions précédentes, demandez sur le forum, je ne ferai pas de tutos pour des versions obsolètes.


  Elargissement des sujets
Posté par : CrazyCat - 14/03/2017, 15:02 - Forum : Annonces - Réponses (8)

Bonjour à tous,

Il semblerait que l'un des derniers sites francophones actifs à propos d'IRC (ircz.fr pour le nommer) ait subi un hack et ne soit plus accessible. Du coup, il n'y a plus de bon site pour l'aide sur les serveurs IRC ni les services.

On m'en a fait la remarque hier et on m'a proposé que ces sujets soient traités sur eggdrop.fr

J'ai donc plusieurs idées:
- ajouter des tutos spécifiques à ces sujets sur le wiki
- créer des sections supplémentaires sur le forum
- créer un autre site axé sur les serveurs ce qui tourne autour (services, eggdrops, ...)
- ...

Donnez votre avis et faites des propositions


  Spams / Flood
Posté par : tyty63 - 10/03/2017, 23:35 - Forum : Eggdrop - Réponses (10)

Bonsoir,

Je reviens vers vous pour une petite question.

Déjà le contexte :

J'use eggdrop sur mon serveur irc. Les deux tournent sur le même host.
Rien de bien méchant jusque là


Mon problème et que  je voudrais autoriser celui-ci à spams et quand je dis spams, je souhaite dès qu'il a un message ou plusieurs ils soient envoyés.
Je veux pas qu'il y est ce système de queue monstrueuse horrible :/ 

Ce que j'ai tenté et qui est toujours en place :

dans la conf de eggdrop


set msg-rate 0
set global-flood-chan 0:0

et pareille dans chacun des chans concernés : 
flood-chan 0:0

L'irc peut encaisser et ne block/ban pas. j'ai testé avec un autre logiciel et cela fonctionne très bien

Comment puis-je faire pour qu'il arrête de foutre tout dans une queue et qu'il envoient direct tout ?

J'ai tenté ce script mais rien ne change : putx_to_putnow.tcl