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 : 651
» Dernier membre : fred1215
» Sujets du forum : 1,467
» Messages du forum : 11,060

Statistiques complètes

Derniers sujets
MediaDico (version actuel...
Forum : Releases et support
Dernier message : MenzAgitat
19/07/2017, 01:41
» Réponses : 29
» Affichages : 11,873
Motus (version actuelle :...
Forum : Releases et support
Dernier message : MenzAgitat
19/07/2017, 00:55
» Réponses : 433
» Affichages : 248,284
Requete sql anope
Forum : Services IRC
Dernier message : Strategy
17/07/2017, 23:43
» Réponses : 3
» Affichages : 104
Erreur au lancement du .t...
Forum : Scripts TCL
Dernier message : Loki
13/07/2017, 17:53
» Réponses : 2
» Affichages : 82
Demande de tcl detection ...
Forum : Scripts TCL
Dernier message : MenzAgitat
05/07/2017, 13:43
» Réponses : 5
» Affichages : 171
Recensement des serveurs ...
Forum : Les sites
Dernier message : Epsilon
28/06/2017, 02:21
» Réponses : 0
» Affichages : 117
Aide sur des regexp
Forum : Scripts TCL
Dernier message : Epsilon
09/06/2017, 17:02
» Réponses : 4
» Affichages : 171
horoscope
Forum : Releases et support
Dernier message : CrazyCat
09/06/2017, 11:59
» Réponses : 36
» Affichages : 1,391
Faire un script qui se dé...
Forum : F.A.Q.
Dernier message : MenzAgitat
17/05/2017, 18:50
» Réponses : 4
» Affichages : 2,354
Interface MegaHAL (versio...
Forum : Releases et support
Dernier message : Vanadiium
13/05/2017, 18:50
» Réponses : 109
» Affichages : 40,064

 
  Erreur au lancement du .tcl Scrabble
Posté par : Loki - 13/07/2017, 16:45 - Forum : Scripts TCL - Réponses (2)

Bonjour à tous,

J'essaie d'installer le scrabble.tcl, télécharger sur un site tier, et j'ai des erreurs qui s'affichent.

Pour info, voici le pastebin du fichier .tcl.

Le message d'erreur qui apparaît est celui-ci :

Citation :loki@debi:~$ cd /home/loki/bot/Scrabble
loki@debi:~/bot/Scrabble$ ./Scrabble.tcl
./Scrabble.tcl: ligne 41: erreur de syntaxe près du symbole inattendu « ( »
./Scrabble.tcl: ligne 41: `set scrabble(flags) "mn|mM"'
loki@debi:~/bot/Scrabble$

Si quelqu'un voit d'où peut provenir ces erreurs, cela me serait fort utile!


  Requete sql anope
Posté par : Epsilon - 08/07/2017, 22:09 - Forum : Services IRC - Réponses (3)

Bonjour,

je cherche la requête sql avec anope pour savoir si un pseudo est connecté sur le serveur.

Merci


  Demande de tcl detection de flood
Posté par : Epsilon - 28/06/2017, 02:09 - Forum : Scripts TCL - Réponses (5)

Bonsoir à tous,

Cela fait plusieurs semaine que je m'arrache les cheveux sur une création de tcl, je n'arrête pas de crée et supprimer des lignes, vu que je n'y arrive absolument pas !

Je vais faire mon relou à la création de ce tcl mais c'est mon dernier recours pour être débloquer !

J'aimerai détecter sur un salon précis un flood sur plusieurs ligne en x secondes, j'ai crée mon squelette avec mon namespace et les bind adéquate ainsi que la snotice que je veux détecter.

Ce que je souhaite :

- Détecter par exemple 10lignes en 3seconde pour le bind pubm et renvoi un putlog "Il y a un flood !" et si au bout de 1 minute il n'y a plus de flood il me renvoi un putlog "Il n'y a plus de flood !"

J'ai feuilleté le forum pour trouver une proc qui m'irait bien, mais y'a rien vraiment d'aboutit, ou je n'arrive pas à adapter, j'ai vraiment voulu être autonome ce coup ci , mais j'ai vraiment du mal.

Merci !


  Aide sur des regexp
Posté par : Epsilon - 09/06/2017, 01:24 - Forum : Scripts TCL - Réponses (4)

Bonsoir,

J'ai besoin d'aide conçernant deux regexp, la premiere sur une snotice de connexion et la deuxieme sur une snotice de gline:

Pour mon premier soucis, j'aimerai pouvoir traiter deux cas de chaine de caractère dans ma snotice de connexion :

Les connexions ssl :


Citation :*** Client connecting: fantomas (TestP@LFbn-1-2458-122.w90-78.abo.wanadoo.fr) [90.78.41.122] {clients} [secure ECSDE-RSA-AES256-DSM-SHA384]

Pour ce cas , j'ai ma regexp fonctionnel : 


Code :
\:\ (.*)\ \((.*?)@(.*?)\) \[(.*)\] \{(.*)\} \[([^ ]*)


Mais j'aimerai que dans cet même regexp, je puisse traiter aussi les connexions standard :

Citation :*** Client connecting: fantomas (TestP@LFbn-1-2458-122.w90-78.abo.wanadoo.fr) [90.78.41.122] {clients} 

Avec une connexion ssl c'est niquel mais quand j'ai une connexion standard ça me retourne que la variable $username n'existe pas.
J'ai aussi fais ma regexp pour les standards , mais j'aimerai savoir si c'est possible d'executer une regexp pour les deux cas de chaine de caractère, donc pour le standard, je me passe de $ip2 $type $secure

---

J'ai aussi un problème avec ma chaine de caractère des glines :
Quand ma chaine de caractère est (que ce soit permanent ou provisoire) :

Citation :*** Permanent G:Line added for *@197.207.149.154 on Thu Jun  8 23:21:11 2017 GMT (from Sully!Sully@testounet: test)

cela tourne niquel avec ma regexp :

Code :
(.*@.*?) on (.*?) \(from (.*?)!(.*?)@(.*?): (.*?)\)

Mais quand l'auteur du gline n'est pas sous la forme nick!ident@host mais juste "nick" ou "irc.testounet.fr" j'ai une erreur sur la variable $date n'existe pas.

J'éspère avoir été assez explicite Smile

Thanks et have fun.


  Aide sur un tcl RAW
Posté par : Alucard`68 - 28/04/2017, 22:28 - Forum : Scripts TCL - Réponses (2)

Bonsoir à tous,

Alors voila j'essaie de faire un script avec un raw pour detecter la connexion des users et les sajoins apres 5 seconde sur le salon accueil.
Voila le code.

tcl
set chan(sajoin) "#Accueil"
 
bind raw - "NOTICE" sajoin:connexion
 
proc sajoin:connexion {from key arg} {
putlog "lancement proc ok"
 set type [lrange $arg 4 5]
putlog "set type ok"
 set pseudo [lindex $arg 6]
putlog "set pseudo ok"
if {$type == "Client connecting:"} {
putlog "set if type ok"
   set foo [list [utimer 5 sajoin $pseudo $chan(sajoin)]]
putlog "sajoin ok"
 }
}


J'ai mis des putlog pour voir d'ou venais le problème.
Code :
[22:19:11] lancement proc ok
[22:19:11] set type ok
[22:19:11] set pseudo ok
[22:19:11] -NOTICE- *** Client connecting: PetitCoeur (~PetitCoeur@*********.fr) [**.***.**.**] {clients}
Il semblerais que le problème vienne du if mais je ne vois pas comment régler le problème...

Merci pour votre aide future.

Bien à vous. Smile

Bye.


  Eggdrop 1.8.1 - Probleme sur vps OVH
Posté par : Silverscott - 15/04/2017, 19:45 - Forum : Eggdrop - Réponses (7)

Hello tout le monde,

Je possède un vps sur OVH, sur lequel tourne une DEBIAN 8 64bits (Jessie).

J'ai donc installé mon eggdrop sans trop de difficultés. Mais j'ai quelques soucis pour le prendre en main...

Quand je fais un /WHOIS <nickbot> j'ai bien un retour comme quoi il est co sur le serveur Freenode
Quand je fais un /msg <nickbot> hello il me réponds bien et me demande de lui attribuer un mot de passe

Je passe donc à l'étape suivante en faisant un /ctcp <nickbot> CHAT j'ai bien une fenêtre de requête ctcp CHAT qui s'ouvre mais après l'avoir accepté il ne se passe plus rien, la fenêtre ctcp s'ouvre bien mais j'ai un timeout (DCC CHAT a échoué : La connexion a dépasse le temps imparti)

Bref un petit coup de main serait pas de refus ! Smile


  Proc incrementation des scores trivia fonctionnel
Posté par : Epsilon - 30/03/2017, 20:08 - Forum : Scripts TCL - Pas de réponse

J'ai eu quelques soucis avec les scores sur la version 1.3.4 du trivia (télécharger sur ce forum) voici la proc fonctionnel :

Code :
proc tgincrscore {who} {
    global tgscores tgscf tgpointsperanswer tgscorestotal tgscoresbyname
    tggetscores
    if {$tgscorestotal>0} {
        set i 0
        if {![info exists tgscoresbyname([strlwr $who])]} {
            append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who] "
        }
        while {$i<[llength $tgscores]} {
            set _item [lindex $tgscores $i]
            set _nick [lindex [split $_item ,] 2]
            set _time [lindex [split $_item ,] 1]
            set _score [lindex [split $_item ,] 0]
        }
    } else {
        append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who]"
    }
    
    puts $_sfile "$_newscores"

    return
}


  bind pubm SQL
Posté par : aliasangelius - 30/03/2017, 12:03 - Forum : Scripts TCL - Réponses (17)

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