Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Service Bot
#16
Suis ce que CrazyCat ta fournis.

Après si cela ne fonctionne pas communique un screen ou autres.
Sinon ont fera sans juste je trouver plus fiable pour les accès

Envoyé de mon Redmi Note 8T en utilisant Tapatalk
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#17
(24/09/2020, 14:31)CrazyCat Wrote: Il faudra que je mette à jour le wiki, mais l'installation est pourtant très simple:

Code:
sudo apt-get install mariadb-server mysqltcl

Bonjour,

J'ai suivi ton post est sa meme erreur que au dessus:

insserv: exiting now without changing boot order!
update-rc.d: error: insserv rejected the script header
dpkg: error processing package ircd-irc2 (--configure):
subprocess installed post-installation script returned error exit status 1
dpkg: dependency problems prevent configuration of mariadb-server:
mariadb-server depends on mariadb-server-10.0 (>= 10.0.38-0+deb8u1); however:
Package mariadb-server-10.0 is not configured yet.

dpkg: error processing package mariadb-server (--configure):
dependency problems - leaving unconfigured
Errors were encountered while processing:
mariadb-server-10.0
bind9
cloud-init
dbus
ircd-irc2
mariadb-server
E: Sub-process /usr/bin/dpkg returned an error code (1)
root@vps759362:~#


Cordialement,
Sa sert à rien d'avoir un bon PC, si y'a un âne devant.
#18
bonsoir aliasangelius,

Je pense qu'on va faire sans MySQL, pour la gestion des accès un petit acces.txt fera l'affaire.

sa fais 3h que j'essaye de résoudre ce problème mais rien ni fais.

Cordialement,
Sa sert à rien d'avoir un bon PC, si y'a un âne devant.
#19
Je ne c'est pas quel version et la plus récente de mysqltcl, @CrayCat ?

En attendant fait ça dans l'ordre :

Installation

Code:
apt-get install mysqltcl
Téléchargement des sources

Code:
wget http://www.xdobry.de/mysqltcl/mysqltcl-3.02.tar.gz
Ont extract les sources

Code:
tar zxvf mysqltcl-3.02.tar.gz
Ont va dans le dossier

Code:
cd mysqltcl-3.02
Ont configure la librairie

Code:
./configure
Compilation des sources

Code:
make
Compilation de la librairie

Code:
make install
Ont sort du dossier

Code:
cd ..
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#20
(24/09/2020, 22:12)aliasangelius Wrote: Je ne c'est pas quel version et la plus récente de mysqltcl, @CrayCat ?

En attendant fait ça dans l'ordre :

Installation

Code:
apt-get install mysqltcl
Téléchargement des sources

Code:
wget http://www.xdobry.de/mysqltcl/mysqltcl-3.02.tar.gz
Ont extract les sources

Code:
tar zxvf mysqltcl-3.02.tar.gz
Ont va dans le dossier

Code:
cd mysqltcl-3.02
Ont configure la librairie

Code:
./configure
Compilation des sources

Code:
make
Compilation de la librairie

Code:
make install
Ont sort du dossier

Code:
cd ..

Bonsoir,

j'ai suivi les étapes que tu ma fournis ci dessus je te joint un lg lors du ./configure

Quote:root@vps759362:~/mysqltcl-3.02# ./configure
checking for correct TEA configuration... ok (TEA 3.5)
checking for Tcl configuration... found /usr/lib/tclConfig.sh
checking for existence of /usr/lib/tclConfig.sh... loading
configure: --prefix defaulting to TCL_PREFIX /usr
configure: --exec-prefix defaulting to TCL_EXEC_PREFIX /usr
checking for gcc... gcc
checking for C compiler default output file name... a.out
checking whether the C compiler works... yes
checking whether we are cross compiling... no
checking for suffix of executables...
checking for suffix of object files... o
checking whether we are using the GNU C compiler... yes
checking whether gcc accepts -g... yes
checking for gcc option to accept ANSI C... none needed
checking how to run the C preprocessor... gcc -E
checking for a BSD-compatible install... /usr/bin/install -c
checking whether make sets $(MAKE)... yes
checking for ranlib... ranlib
checking for egrep... grep -E
checking for ANSI C header files... yes
checking for sys/types.h... yes
checking for sys/stat.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for memory.h... yes
checking for strings.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for unistd.h... yes
checking if the compiler understands -pipe... yes
checking whether byte ordering is bigendian... no
checking for sin... no
checking for main in -lieee... yes
checking for main in -linet... no
checking net/errno.h usability... no
checking net/errno.h presence... no
checking for net/errno.h... no
checking for connect... yes
checking for gethostbyname... yes
checking dirent.h... yes
checking errno.h usability... yes
checking errno.h presence... yes
checking for errno.h... yes
checking float.h usability... yes
checking float.h presence... yes
checking for float.h... yes
checking values.h usability... yes
checking values.h presence... yes
checking for values.h... yes
checking limits.h usability... yes
checking limits.h presence... yes
checking for limits.h... yes
checking for stdlib.h... (cached) yes
checking for string.h... (cached) yes
checking sys/wait.h usability... yes
checking sys/wait.h presence... yes
checking for sys/wait.h... yes
checking dlfcn.h usability... yes
checking dlfcn.h presence... yes
checking for dlfcn.h... yes
checking sys/param.h usability... yes
checking sys/param.h presence... yes
checking for sys/param.h... yes
checking for Tcl public headers... /usr/include/tcl8.6
checking for pthread_mutex_init in -lpthread... yes
checking for building with threads... yes (default)
checking how to build libraries... shared
checking if 64bit support is requested... no
checking if 64bit Sparc VIS support is requested... no
checking system version... Linux-3.16.0-10-amd64
checking for dlopen in -ldl... yes
checking for ar... ar
checking for required early compiler flags...  _LARGEFILE64_SOURCE
checking for 64-bit integer type... using long
checking for build with symbols... no
checking for mysql header... yes
checking for libmysqlclient lib... configure: error: Cannot find libmysqlclient.so in /usr/lib/mysql use --with-mysql-lib=?

je pense qu'il y'a un soucis quelque part.

Cordialement,

bonsoir,

Bonne nouvel ! 

je pense avoir réussi je me suis connecté a mon PHPMyAdmin confimr moi si je suis au bon endroit:
  • Serveur : Localhost via UNIX socket

  • Type de serveur : MySQL

  • Version du serveur : 5.5.62-0+deb8u1 - (Debian)

  • Version du protocole : 10
Sa sert à rien d'avoir un bon PC, si y'a un âne devant.
#21
Bonjour,

Ah oui c'est exactement ça parfait !

Faudra créer un utilisateur dans phpmyadmin pour ensuite qu'ont te mette en place le tout.

Si tu trouve pas comment faire je regarderais car sa date cette partie la.

Bon ont va faire 3 Fichiers

1) une config de ton systeme bot
2) une config sql (qu'ont verra plus tard)
3) le tcl en lui-même

Service-Conf.conf

Code:
#
# Service prêt de Bot + Anti-DNSBL #
#

# - Partie config Link - #

# - Nom du server (Link) - #
set BotA(serv) "ServiceBot.blabla.net"

# - Nom du server (T'chat) - #
set BotA(rserv) "Ton irc"

# - Mot de passe (Link) - #
set BotA(pass) "mdplink"

# - IP du (Link) - #
set BotA(ip) "iplink"

# - Port du server (Link)
set BotA(port) "portlinl"

# - Information du (Link) - #
set BotA(info) "Service Bot"

# - Fin config Link - #

# - Les sockets - #

# - Partie config Bot-A - #

# - Pseudo Bot-A - #
set BotA(nick) "Bot-A"

# - Ident Bot-A - #
set BotA(ident) "Bot-A"

# - Realname Bot-A - #
set BotA(realname) "Bot-A -> Service Bot"

# - Host Bot-A - #
set BotA(host) "Service-Bot.net"

# - Fin config Bot-A - #

# - Partie config Bot-B - #

# - Pseudo Bot-B - #
set BotB(nick) "Bot-B"

# - Ident Bot-B - #
set BotB(ident) "Bot-B"

# - Realname Bot-B - #
set BotB(realname) "Bot-B -> Service Bot"

# - Host Bot-B - #
set BotB(host) "Service-Bot.net"

# - Fin config Bot-B - #

# - Partie config Bot-C - #

# - Pseudo Bot-C - #
set BotC(nick) "Bot-C"

# - Ident Bot-C - #
set BotC(ident) "Bot-C"

# - Realname Bot-C - #
set BotC(realname) "Bot-C -> Service Bot"

# - Host Bot-C - #
set BotC(host) "Service-Bot.net"

# - Fin config Bot-C - #

# - Partie config Log-Serv - #

# - Pseudo Log-Serv - #
set logserv(nick) "Rhapsody"

# - Ident Log-Serv - #
set logserv(ident) "Rhapsody"

# - Realname Log-Serv - #
set logserv(realname) "Rhapsody"

# - Host Log-Serv - #
set logserv(host) "Rhapsody.net"

# - Fin config Log-Serv - #

# - Partie Anti-Proxy - #

# - Pseudo Anti-Proxy -
set antiprox(nick) "Anti-Proxy"

# - Ident Anti-Proxy - #
set antiprox(ident) "Anti-Proxy"

# - Realname AntiProxy - #
set antiprox(realname) "Anti-Proxy -> Service Anti-Proxy"

# - Host Anti-Proxy - #
set antiprox(host) "Anti-Proxy.net"

# - Fin config Anti-Proxy - #

# - Partie salon Log & Salon Staff & Salon debug - #

# - Salon log event & log commandes - #
set Bot(log) "#Services"
set salon(staff) "#Staff"
set glob(debug:chan) "#X"
set salon(robots) "#Robots"

# - Fin config salon Log & Salon Staff & Salon debug - #

# - Partie divers - #

# - Setlog - Debug - Etc.. - #
set Bot(setlog) "1"
set Bot(debug) "1"
set dronebl(checksite) {"dnsbl.dronebl.org" "recent.spam.dnsbl.sorbs.net" "bl.blocklist.de" "rbl.efnet.org" "tor.efnet.org" "apnic.net" "socks-proxy.net"}

# - Fin config Partie divers - #

# - Fin du système de Configuration - #
Service.tcl

tcl
#
# 
#
 
# - Chargement De la Configuration ainsi que les TCL - #
source [file join Config Service-Conf.conf]
#source [file join Config Conf-SQL.tcl]
 
# - Proc Send - #
proc send {arg} {
  global Bot
  set arg [charfilter $arg]
  putdcc $Bot(idx) [join $arg]
}
# - Fin proc send - #
 
# - Proc Anti-Proxy - #
proc lookup {ip host status} {
  send ":$::logserv(nick) PRIVMSG $::Bot(log) :\[\00312ProxyCheck\003\] $host -> $ip"
  if {$status == 1} {
    regexp -- {([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})} $ip null a b c d
    foreach dnsbl $::dronebl(checksite) {
      dnslookup "$d.$c.$b.$a.$dnsbl" dronelookup
    }
    } else {
      regexp -- {([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})} $ip null a b c d
      foreach dnsbl $::dronebl(checksite) {
        dnslookup "$d.$c.$b.$a.$dnsbl" dronelookup
    }
  }
}
 
proc dronelookup {ip host status} {
  if {$status == 1} {
    regexp -- {([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.} $host null a b c d
    send ":$::logserv(nick) PRIVMSG $::Bot(log) :\[\00312ProxyCheck\003\] *@$d.$c.$b.$a est un proxy non-sécurisé"
    send ":$::Bot(serv) TKL + G * $d.$c.$b.$a $::antiprox(nick) [expr [unixtime] + 3600] [unixtime] :$::antiprox(nick) ( Connexion Proxy non autorisé )"
    } else {
      return ""
  }
}
# - Fin proc Anti-Proxy - #
 
# - Proc Charfilter - #
proc charfilter {a} {
  regsub -all {\\} $a {\\\\} a
  regsub -all {\{} $a {\{} a
  regsub -all {\}} $a {\}} a
  regsub -all {\]} $a {\]} a
  regsub -all {\[} $a {\[} a
  regsub -all {\"} $a {\"} a
  return $a
}
# - Fin proc Charfilter - #
 
# - Proc check_connect - #
proc check_connect {} {
  global Bot
  if {[valididx $Bot(idx)]} {
    utimer 30 check_connect
    } else {
      connexion
  }
}
# - Fin proc check_connect - #
 ####################################
 # PROCEDURE DE LANCEMENT DU SERVICE#
 # By Chieur                        #
 ####################################
 bind raw - "001" lanch
 
 #####################
 #  PROCEDURE  LANCH #
 #####################
proc lanch {f k t} {
 after 1000 connexion  
}
 
 ################
 # Verification #
 ################
 
proc verifidx {} {
global Bot
  if {[valididx $Bot(idx)]} {utimer 20 verifidx} else {utimer 2 connexion}
}
# - Proc xconnect - #
proc connexion {} {
  global Bot
   if {[info exists Bot(idx)] && [valididx $Bot(idx)]} {return}
    if {![catch "connect $Bot(ip) $Bot(port)" Bot(idx)]} {
    send "PROTOCTL NICKv2 SJOIN2 UMODE2 NOQUIT VL TKLEXT VHP"
    send "PASS $Bot(pass)"
    send "SERVER $Bot(serv) 1 :$Bot(info)"
    send "EOS"
    send ":$::Bot(serv) NICK $::BotA(nick) 1 [unixtime] $::BotA(ident) $::BotA(host) $::BotA(serv) 0 +iowghasxBqSt $::BotA(host) :$::BotA(realname)"
    send ":$::Bot(serv) NICK $::BotB(nick) 1 [unixtime] $::BotB(ident) $::BotB(host) $::BotB(serv) 0 +iowghasxBqSt $::BotB(host) :$::BotB(realname)"
    send ":$::Bot(serv) NICK $::BotC(nick) 1 [unixtime] $::BotC(ident) $::BotC(host) $::BotC(serv) 0 +iowghasxBqSt $::BotC(host) :$::BotC(realname)"
    send ":$::Bot(serv) NICK $::logserv(nick) 1 [unixtime] $::logserv(ident) $::logserv(host) $::Bot(serv) 0 +iowghasxBqSt $::logserv(host) :$::logserv(realname)"
    send ":$::Bot(serv) NICK $::antiprox(nick) 1 [unixtime] $::antiprox(ident) $::antiprox(host) $::Bot(serv) 0 +iowghasxBqSt $::antiprox(host) :$::antiprox(realname)"
    send ":$::BotA(nick) JOIN $::Bot(log)"
    send ":$::BotA(nick) JOIN $::salon(robots)"
    send ":$::BotA(nick) JOIN $::glob(debug:chan)"
    send ":$::BotB(nick) JOIN $::Bot(log)"
    send ":$::BotB(nick) JOIN $::salon(robots)"
    send ":$::BotB(nick) JOIN $::salon(staff)"
    send ":$::BotC(nick) JOIN $::Bot(log)"
    send ":$::BotC(nick) JOIN $::salon(robots)"
    send ":$::BotC(nick) JOIN $::Bot(staff)"
    send ":$::logserv(nick) JOIN $::Bot(log)"
    send ":$::logserv(nick) JOIN $::salon(robots)"
    send ":$::antiprox(nick) JOIN $::Bot(log)"
    send ":$::antiprox(nick) JOIN $::salon(robots)"
    send ":$::BotB(nick) MODE $::Bot(log) +ov $::BotA(nick) $::BotA(nick)"
    send ":$::BotB(nick) MODE $::Bot(log) +ov $::BotB(nick) $::BotB(nick)"
    send ":$::BotB(nick) MODE $::salon(staff) +ov $::BotC(nick) $::BotC(nick)"
    send ":$::BotB(nick) MODE $::Bot(log) +ov $::logserv(nick) $::logserv(nick)"
    send ":$::BotB(nick) MODE $::Bot(log) +ov $::antiprox(nick) $::antiprox(nick)"
    send ":$::BotB(nick) MODE $::salon(robots) +hhhhh $::antiprox(nick) $::BotA(nick) $::logserv(nick) $::BotB(nick) $::BotC(nick)"
    send ":$::BotB(nick) MODE $::glob(debug:chan) +o $::BotA(nick)"
    set Bot(uptime) [unixtime]
    control $Bot(idx) Bot_event
    utimer 30 check_connect
    return 1
  }
}
# - Fin proc xconnect - #
 
# - Proc Bot_event - #
proc Bot_event {idx arg} {
  set arg [split $arg]
  regsub -all {\\} $arg {\\\\} arg
  regsub -all {\{} $arg {\{} arg
  regsub -all {\}} $arg {\}} arg
  regsub -all {\]} $arg {\]} arg
  regsub -all {\[} $arg {\[} arg
  regsub -all {\"} $arg {\"} arg
  if {$::Bot(debug)=="1"} { send ":$::BotA(nick) PRIVMSG $::glob(debug:chan) :[join [lrange $arg 0 end]]" }
  switch -exact [lindex $arg 0] {
    "NICK" {
      set pseudo [string trim [lindex $arg 1] :]
      set identd [lindex $arg 4]
      set host [lindex $arg 5]
      set host2 [lindex $arg 5]
      set serv [lindex $arg 6]
      set name [string trim [lrange $arg 10 end] :]
      if { $::Bot(setlog)=="1" } {
        send ":$::logserv(nick) PRIVMSG $::Bot(log) :\[\0034Connect\003\] \0037$pseudo\003 \[User@Host\] \002$identd@$host\002 (Realname : \0036$name\0031) - Sur \0034$serv\0034"
      }
      #dnslookup "$host2" lookup
    }
     "PING" {
      putdcc $::Bot(idx) "PONG [lindex $arg 1]"
     }
  }
}
# - Fin proc Bot_event - #
 
putlog "\0034Service-Bot chargé"


Respect Bien les noms dans lesquels tu doit les nommer !
Configure le tout, puis lance le bot et si tu à un retour d'erreur ou autre dit le
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#22
(25/09/2020, 10:53)aliasangelius Wrote: Bonjour,

Ah oui c'est exactement ça parfait !

Faudra créer un utilisateur dans phpmyadmin pour ensuite qu'ont te mette en place le tout.

Si tu trouve pas comment faire je regarderais car sa date cette partie la.

Bon ont va faire 3 Fichiers

1) une config de ton systeme bot
2) une config sql (qu'ont verra plus tard)
3) le tcl en lui-même

Service-Conf.conf

Code:
#
# Service prêt de Bot + Anti-DNSBL #
#

# - Partie config Link - #

# - Nom du server (Link) - #
set BotA(serv) "ServiceBot.blabla.net"

# - Nom du server (T'chat) - #
set BotA(rserv) "Ton irc"

# - Mot de passe (Link) - #
set BotA(pass) "mdplink"

# - IP du (Link) - #
set BotA(ip) "iplink"

# - Port du server (Link)
set BotA(port) "portlinl"

# - Information du (Link) - #
set BotA(info) "Service Bot"

# - Fin config Link - #

# - Les sockets - #

# - Partie config Bot-A - #

# - Pseudo Bot-A - #
set BotA(nick) "Bot-A"

# - Ident Bot-A - #
set BotA(ident) "Bot-A"

# - Realname Bot-A - #
set BotA(realname) "Bot-A -> Service Bot"

# - Host Bot-A - #
set BotA(host) "Service-Bot.net"

# - Fin config Bot-A - #

# - Partie config Bot-B - #

# - Pseudo Bot-B - #
set BotB(nick) "Bot-B"

# - Ident Bot-B - #
set BotB(ident) "Bot-B"

# - Realname Bot-B - #
set BotB(realname) "Bot-B -> Service Bot"

# - Host Bot-B - #
set BotB(host) "Service-Bot.net"

# - Fin config Bot-B - #

# - Partie config Bot-C - #

# - Pseudo Bot-C - #
set BotC(nick) "Bot-C"

# - Ident Bot-C - #
set BotC(ident) "Bot-C"

# - Realname Bot-C - #
set BotC(realname) "Bot-C -> Service Bot"

# - Host Bot-C - #
set BotC(host) "Service-Bot.net"

# - Fin config Bot-C - #

# - Partie config Log-Serv - #

# - Pseudo Log-Serv - #
set logserv(nick) "Rhapsody"

# - Ident Log-Serv - #
set logserv(ident) "Rhapsody"

# - Realname Log-Serv - #
set logserv(realname) "Rhapsody"

# - Host Log-Serv - #
set logserv(host) "Rhapsody.net"

# - Fin config Log-Serv - #

# - Partie Anti-Proxy - #

# - Pseudo Anti-Proxy -
set antiprox(nick) "Anti-Proxy"

# - Ident Anti-Proxy - #
set antiprox(ident) "Anti-Proxy"

# - Realname AntiProxy - #
set antiprox(realname) "Anti-Proxy -> Service Anti-Proxy"

# - Host Anti-Proxy - #
set antiprox(host) "Anti-Proxy.net"

# - Fin config Anti-Proxy - #

# - Partie salon Log & Salon Staff & Salon debug - #

# - Salon log event & log commandes - #
set Bot(log) "#Services"
set salon(staff) "#Staff"
set glob(debug:chan) "#X"
set salon(robots) "#Robots"

# - Fin config salon Log & Salon Staff & Salon debug - #

# - Partie divers - #

# - Setlog - Debug - Etc.. - #
set Bot(setlog) "1"
set Bot(debug) "1"
set dronebl(checksite) {"dnsbl.dronebl.org" "recent.spam.dnsbl.sorbs.net" "bl.blocklist.de" "rbl.efnet.org" "tor.efnet.org" "apnic.net" "socks-proxy.net"}

# - Fin config Partie divers - #

# - Fin du système de Configuration - #
Service.tcl

tcl
#
# 
#
 
# - Chargement De la Configuration ainsi que les TCL - #
source [file join Config Service-Conf.conf]
#source [file join Config Conf-SQL.tcl]
 
# - Proc Send - #
proc send {arg} {
  global Bot
  set arg [charfilter $arg]
  putdcc $Bot(idx) [join $arg]
}
# - Fin proc send - #
 
# - Proc Anti-Proxy - #
proc lookup {ip host status} {
  send ":$::logserv(nick) PRIVMSG $::Bot(log) :\[\00312ProxyCheck\003\] $host -> $ip"
  if {$status == 1} {
    regexp -- {([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})} $ip null a b c d
    foreach dnsbl $::dronebl(checksite) {
      dnslookup "$d.$c.$b.$a.$dnsbl" dronelookup
    }
    } else {
      regexp -- {([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})} $ip null a b c d
      foreach dnsbl $::dronebl(checksite) {
        dnslookup "$d.$c.$b.$a.$dnsbl" dronelookup
    }
  }
}
 
proc dronelookup {ip host status} {
  if {$status == 1} {
    regexp -- {([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.} $host null a b c d
    send ":$::logserv(nick) PRIVMSG $::Bot(log) :\[\00312ProxyCheck\003\] *@$d.$c.$b.$a est un proxy non-sécurisé"
    send ":$::Bot(serv) TKL + G * $d.$c.$b.$a $::antiprox(nick) [expr [unixtime] + 3600] [unixtime] :$::antiprox(nick) ( Connexion Proxy non autorisé )"
    } else {
      return ""
  }
}
# - Fin proc Anti-Proxy - #
 
# - Proc Charfilter - #
proc charfilter {a} {
  regsub -all {\\} $a {\\\\} a
  regsub -all {\{} $a {\{} a
  regsub -all {\}} $a {\}} a
  regsub -all {\]} $a {\]} a
  regsub -all {\[} $a {\[} a
  regsub -all {\"} $a {\"} a
  return $a
}
# - Fin proc Charfilter - #
 
# - Proc check_connect - #
proc check_connect {} {
  global Bot
  if {[valididx $Bot(idx)]} {
    utimer 30 check_connect
    } else {
      connexion
  }
}
# - Fin proc check_connect - #
 ####################################
 # PROCEDURE DE LANCEMENT DU SERVICE#
 # By Chieur                        #
 ####################################
 bind raw - "001" lanch
 
 #####################
 #  PROCEDURE  LANCH #
 #####################
proc lanch {f k t} {
 after 1000 connexion  
}
 
 ################
 # Verification #
 ################
 
proc verifidx {} {
global Bot
  if {[valididx $Bot(idx)]} {utimer 20 verifidx} else {utimer 2 connexion}
}
# - Proc xconnect - #
proc connexion {} {
  global Bot
   if {[info exists Bot(idx)] && [valididx $Bot(idx)]} {return}
    if {![catch "connect $Bot(ip) $Bot(port)" Bot(idx)]} {
    send "PROTOCTL NICKv2 SJOIN2 UMODE2 NOQUIT VL TKLEXT VHP"
    send "PASS $Bot(pass)"
    send "SERVER $Bot(serv) 1 :$Bot(info)"
    send "EOS"
    send ":$::Bot(serv) NICK $::BotA(nick) 1 [unixtime] $::BotA(ident) $::BotA(host) $::BotA(serv) 0 +iowghasxBqSt $::BotA(host) :$::BotA(realname)"
    send ":$::Bot(serv) NICK $::BotB(nick) 1 [unixtime] $::BotB(ident) $::BotB(host) $::BotB(serv) 0 +iowghasxBqSt $::BotB(host) :$::BotB(realname)"
    send ":$::Bot(serv) NICK $::BotC(nick) 1 [unixtime] $::BotC(ident) $::BotC(host) $::BotC(serv) 0 +iowghasxBqSt $::BotC(host) :$::BotC(realname)"
    send ":$::Bot(serv) NICK $::logserv(nick) 1 [unixtime] $::logserv(ident) $::logserv(host) $::Bot(serv) 0 +iowghasxBqSt $::logserv(host) :$::logserv(realname)"
    send ":$::Bot(serv) NICK $::antiprox(nick) 1 [unixtime] $::antiprox(ident) $::antiprox(host) $::Bot(serv) 0 +iowghasxBqSt $::antiprox(host) :$::antiprox(realname)"
    send ":$::BotA(nick) JOIN $::Bot(log)"
    send ":$::BotA(nick) JOIN $::salon(robots)"
    send ":$::BotA(nick) JOIN $::glob(debug:chan)"
    send ":$::BotB(nick) JOIN $::Bot(log)"
    send ":$::BotB(nick) JOIN $::salon(robots)"
    send ":$::BotB(nick) JOIN $::salon(staff)"
    send ":$::BotC(nick) JOIN $::Bot(log)"
    send ":$::BotC(nick) JOIN $::salon(robots)"
    send ":$::BotC(nick) JOIN $::Bot(staff)"
    send ":$::logserv(nick) JOIN $::Bot(log)"
    send ":$::logserv(nick) JOIN $::salon(robots)"
    send ":$::antiprox(nick) JOIN $::Bot(log)"
    send ":$::antiprox(nick) JOIN $::salon(robots)"
    send ":$::BotB(nick) MODE $::Bot(log) +ov $::BotA(nick) $::BotA(nick)"
    send ":$::BotB(nick) MODE $::Bot(log) +ov $::BotB(nick) $::BotB(nick)"
    send ":$::BotB(nick) MODE $::salon(staff) +ov $::BotC(nick) $::BotC(nick)"
    send ":$::BotB(nick) MODE $::Bot(log) +ov $::logserv(nick) $::logserv(nick)"
    send ":$::BotB(nick) MODE $::Bot(log) +ov $::antiprox(nick) $::antiprox(nick)"
    send ":$::BotB(nick) MODE $::salon(robots) +hhhhh $::antiprox(nick) $::BotA(nick) $::logserv(nick) $::BotB(nick) $::BotC(nick)"
    send ":$::BotB(nick) MODE $::glob(debug:chan) +o $::BotA(nick)"
    set Bot(uptime) [unixtime]
    control $Bot(idx) Bot_event
    utimer 30 check_connect
    return 1
  }
}
# - Fin proc xconnect - #
 
# - Proc Bot_event - #
proc Bot_event {idx arg} {
  set arg [split $arg]
  regsub -all {\\} $arg {\\\\} arg
  regsub -all {\{} $arg {\{} arg
  regsub -all {\}} $arg {\}} arg
  regsub -all {\]} $arg {\]} arg
  regsub -all {\[} $arg {\[} arg
  regsub -all {\"} $arg {\"} arg
  if {$::Bot(debug)=="1"} { send ":$::BotA(nick) PRIVMSG $::glob(debug:chan) :[join [lrange $arg 0 end]]" }
  switch -exact [lindex $arg 0] {
    "NICK" {
      set pseudo [string trim [lindex $arg 1] :]
      set identd [lindex $arg 4]
      set host [lindex $arg 5]
      set host2 [lindex $arg 5]
      set serv [lindex $arg 6]
      set name [string trim [lrange $arg 10 end] :]
      if { $::Bot(setlog)=="1" } {
        send ":$::logserv(nick) PRIVMSG $::Bot(log) :\[\0034Connect\003\] \0037$pseudo\003 \[User@Host\] \002$identd@$host\002 (Realname : \0036$name\0031) - Sur \0034$serv\0034"
      }
      #dnslookup "$host2" lookup
    }
     "PING" {
      putdcc $::Bot(idx) "PONG [lindex $arg 1]"
     }
  }
}
# - Fin proc Bot_event - #
 
putlog "\0034Service-Bot chargé"


Respect Bien les noms dans lesquels tu doit les nommer !
Configure le tout, puis lance le bot et si tu à un retour d'erreur ou autre dit le
bonjour, 

le Service-Conf.Conf je le met ou a la place de Eggdrop.conf

j'ai démarré mon eggdrop après sont installation j'ai chargé le tcl Service.tcl

mais aucune trace du link

Cordialement,
Sa sert à rien d'avoir un bon PC, si y'a un âne devant.
#23
bonjour,

pourtant j'ai créer le dossier Config et mis le Service-Conf.conf dedans mais l'eggdrop se lance mais sans les sockets
Sa sert à rien d'avoir un bon PC, si y'a un âne devant.
#24
Alors, non le eggdrop.conf tu le laisse

Peut-tu mettre le :


Code:
Service-Conf.conf
Service.tcl
dans le dossier scripts de ton eggdrop ? et re tenter voir ?

NB : lance l'eggdrop avant, mets les deux ensuite donc :

Service-Conf.conf
Service.tcl

Puis en PL de ton eggdrop : .rehash
Regarde quel retour tu dispose de ton bot, et communique le merci :)
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#25
(25/09/2020, 15:27)aliasangelius Wrote: Alors, non le eggdrop.conf tu le laisse

Peut-tu mettre le :


Code:
Service-Conf.conf
Service.tcl
dans le dossier scripts de ton eggdrop ? et re tenter voir ?

NB : lance l'eggdrop avant, mets les deux ensuite donc :

Service-Conf.conf
Service.tcl

Puis en PL de ton eggdrop : .rehash
Regarde quel retour tu dispose de ton bot, et communique le merci :)

bonjour,

donc j'ai suivie ce que tu ma communiqué ci dessus
les deux fichier dans le dossier scripts:

.[15:34:05] <(Bot> Rehashing.
.[15:34:05] <(Bot> [15:34:02] Rehashing ...
.[15:34:05] <(Bot> [15:34:02] Listening at telnet port 3333 (all).
.[15:34:05] <(Bot> [15:34:02] Tcl error in file 'eggdrop.conf':
.[15:34:05] <(Bot> [15:34:02] couldn't read file "Config/Service-Conf.conf": no such file or directory
.[15:34:05] <(Bot>     while executing
.[15:34:05] <(Bot> "source [file join Config Service-Conf.conf]"
.[15:34:05] <(Bot>     (file "scripts/Service.tcl" line 6)
.[15:34:05] <(Bot>     invoked from within
.[15:34:05] <(Bot> "source scripts/Service.tcl"
.[15:34:05] <(Bot>     (file "eggdrop.conf" line 101)
.[15:34:05] <(Bot> [15:34:02] * FICHIER DE CONFIGURATION NON CHARGE (INTROUVABLE OU ERREUR)
.[15:34:05] <(Bot> [10] Dcc Chat fermée
Sa sert à rien d'avoir un bon PC, si y'a un âne devant.
#26
Ah oui ma fautes !

remplace


tcl
source [file join Config Service-Conf.conf]


Par

tcl
source [file join scripts Service-Conf.conf]

Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#27
(25/09/2020, 15:39)aliasangelius Wrote: Ah oui ma fautes !

remplace


tcl
source [file join Config Service-Conf.conf]


Par

tcl
source [file join scripts Service-Conf.conf]

j'ai modifier ceci 

j'ai effectuer un rehash:

.[15:44:58] <(Bot> Rehashing.
.[15:44:58] <(Bot> [15:44:54] Rehashing ...
.[15:44:58] <(Bot> [15:44:54] Listening at telnet port 3333 (all).
.[15:44:58] <(Bot> [15:44:54] Service-Bot
.[15:44:58] <(Bot> [15:44:54] Userfile loaded, unpacking...

il ne lis pas le Service-Conf.conf
Sa sert à rien d'avoir un bon PC, si y'a un âne devant.
#28
A la fin du Service-Conf.conf rajoute ceci dans le code tout en bas :


Code:
putlog "\037\0034TCL Conf chargé.\037\0034"
Rehash/restart au cas ou si au rehash tu n'as pas de retour
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#29
.[15:56:42] <(Bot> Rehashing.
.[15:56:42] <(Bot> [15:56:38] Rehashing ...
.[15:56:42] <(Bot> [15:56:38] Listening at telnet port 3333 (all).
.[15:56:42] <(Bot> [15:56:38] TCL Conf chargé.
.[15:56:42] <(Bot> [15:56:38] Service-Bot
.[15:56:42] <(Bot> [15:56:38] TCL Conf chargé.
.[15:56:42] <(Bot> [15:56:38] Userfile loaded, unpacking...

mais rien se fais, j'ai vérifier mon Link et il est bon
je sais pas d'où viens le soucis
Sa sert à rien d'avoir un bon PC, si y'a un âne devant.
#30
Une question, tu as bien rehash le server lors de la création du link ?

Est une autre question, as-tu un message d'erreur de ton server irc lorsque le bot tente de link les sockets ?
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll


Possibly Related Threads…
Thread Author Replies Views Last Post
  TCL Service fedora 10 5,760 15/12/2013, 00:32
Last Post: aliasangelius

Forum Jump:


Users browsing this thread: 1 Guest(s)