Communauté sur les Eggdrops - Community about Eggdrops
[Script] Petit TCL de gestion - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Thread: [Script] Petit TCL de gestion (/showthread.php?tid=1510)

Pages: 1 2 3 4 5 6 7


RE: Petit TCL de gestion - BaGrift - 25/03/2014

a mais c'est deja fais depuis un momment lol


RE: Petit TCL de gestion - aliasangelius - 25/03/2014

Ont va faire plus simple.
Envois moi le code complet, sans rien enlever même le pass par mp

Je regarde sa demain


RE: Petit TCL de gestion - BaGrift - 25/03/2014

ta messagerie priver et trop pleine je peux pas t'envoiyé de message


RE: Petit TCL de gestion - aliasangelius - 26/03/2014

Ben sa se vide *-*
Bon je vais essayer de comprendre le soucis plus tard et regardez ou j'aurais pu me tromper, même si je ne vois pas ou et mon erreur.


RE: Petit TCL de gestion - aliasangelius - 26/03/2014

Tien remplace par ce code ci, et kill sa pid/relance et dit moi ce ue sa donne.


tcl
#*************************************************#
# Système de sockets pour le réseaux Aurel-Tchat. #
# Fait par alias_angelius avec BaGrift.          #
#*************************************************#
 
namespace eval ::socks {
   variable aurore
 
#********************#
# Service.Socket 1.0 #
#********************#
 
#**************************#
# Information link reseau. #
#**************************#
 
set aurore(serv) "Socket.Aurel-Tchat.fr"
set aurore(ip) "91.121.193.88"
set aurore(port) "7000"
set aurore(pwdlink) "12345678"
set aurore(info) "Aurore Services"
 
#****************************#
# Configuration des sockets. #
#****************************#
 
set aurore(nick) "Aurore"
set aurore(identd) "Aurore"
set aurore(host) "Aurore.Aurel-Tchat.fr"
set aurore(nom) "Aurore Service Moderation"
 
#***************************#
# Salon de log des sockets. #
#***************************#
 
set aurore(log) "#Anonymes"
set aurore(salon) "#Accueil"
set aurore(staff) "#Staff"
set aurore(quit01) "Redemarage Aurore-Service."
set aurore(quit02) "Fermeture Aurore-Service."
 
#****************************************#
# Lancement de la procédure des sockets. #
#****************************************#
 
proc checkconnect {} {
   if {![info exists aurore(idx)]} { utimer 30 [namespace current]::checkconnect } else { xconnect:serv }
}
 
proc xconnect:serv {} {
   variable aurore
   if [catch {set aurore(idx) [connect $aurore(ip) $aurore(port)]} err] {
      putlog "Connection error :$err"
      return
   }
   putdcc $aurore(idx) "PASS $aurore(pwdlink)"
   putdcc $aurore(idx) "SERVER $aurore(serv) 1 [unixtime] [unixtime] J09 ACAA\] +s :$aurore(info)"
   putdcc $aurore(idx) ":$aurore(serv) NICK $aurore(nick) '' '' $aurore(identd) $aurore(host) $aurore(serv) '' :$aurore(nom)"
   putdcc $aurore(idx) ":$aurore(nick) MODE $aurore(nick) +oOSqsw"
   putdcc $aurore(idx) ":$aurore(nick) JOIN $aurore(log)"
   putdcc $aurore(idx) ":$aurore(nick) JOIN $aurore(salon)"
   putdcc $aurore(idx) ":$aurore(nick) MODE $aurore(log) +ntsv $aurore(nick)"
   control $aurore(idx) [namespace current]::controling_server
   utimer 10 [namespace current]::verify
}
 
#***********************************#
# Verify si le serveur est Connecté #
#***********************************#
 
proc verify {} {
   variable aurore
   if [valididx [set [namespace current]::aurore(idx)]] {
      utimer 30 [namespace current]::verify
   } else {
      xconnect:serv
   }
}
 
proc controling_server {idx arg} {
   variable aurore
   set arg1 [lindex [split $arg " "] 0]
   set arg2 [lindex [split $arg " "] 1]
   set arg3 [lindex [split $arg " "] 2]
   set arg4 [lindex [split $arg " "] 3]
   set arg5 [lindex [split $arg " "] 4]
   set arg6 [lindex [split $arg " "] 5]
   set arg7 [lindex [split $arg " "] 6]
   set arg8 [lindex [split $arg " "] 7]
   set arg10 [string trim [lrange [split $arg " "] 3 end] :]
   if {$arg2=="PING"} {
      putdcc $aurore(idx) ":$aurore(serv) PONG $aurore(ip) :$aurore(serv)"
    }   
}
 
#**********************#
# Restart des sockets. #
#**********************#
 
bind evnt - prerestart [namespace current]::eva:restart
proc eva:restart {args} {
   variable aurore
   putdcc $aurore(idx) ":$aurore(serv) SQUIT $aurore(serv) :Restart Sockets."
   catch {close $aurore(idx)}
}
 
#********************#
# Rehash du Service. #
#********************#
 
bind dcc n xrehash [namespace current]::eggy:xrehash
proc eggy:xrehash {nick idx arg} {
   variable aurore
   putdcc $idx "\002Rehash de Aurore-Service et des fichiers\002"
   utimer 4 rehash
}
 
#*********************#
# Restart du Service. #
#*********************#
 
bind dcc n xrestart [namespace current]::eggy:xrestart
proc eggy:xrestart {nick idx arg} {
   variable aurore
   putdcc $idx "\002Redémarrage de Laura-service\002"
   if [valididx [set [namespace current]::aurore(idx)]] {
      putdcc $aurore(idx) ":$aurore(nick) QUIT :$aurore(quit01)"
      putdcc $aurore(idx) ":$aurore(serv) SQUIT :$aurore(serv)"
      catch {close $aurore(idx)}
      foreach kill [utimers] {
          if {[lindex $kill 1]=="[namespace current]::verify"} { killutimer [lindex $kill 2] }
      }
    }
    xconnect:serv
}
 
#*****************#
# Die du Service. #
#*****************#
 
bind dcc n xdie [namespace current]::eggy:xdie
proc eggy:xdie {nick idx arg} {
   variable aurore
    putdcc $idx "\002Arrêt de Aurore-Service\002"
    if [valididx [set [namespace current]::aurore(idx)]] {
       putdcc $aurore(idx) ":$aurore(nick) QUIT : $aurore(quit02)"
       putdcc $aurore(idx) ":$aurore(serv) SQUIT :$aurore(quit02)"
       catch {close $aurore(idx)}
       foreach kill [utimers] {
          if {[lindex $kill 1]=="[namespace current]::verify"} { killutimer [lindex $kill 2] }
       }
   }
}
 
#**********************#
# Xvoice pour anim      #
#**********************#
 
bind pub n "!xvoice" [namespace current]::xvoice
proc xvoice { nick handle uhost chan text } {
   variable aurore
   putdcc $aurore(idx) ":$aurore(nick) MODE $chan +v $nick"
   putdcc $aurore(idx) ":$aurore(nick) NOTICE $nick Bonne Moderation !"
   putdcc $aurore(idx) ":$aurore(nick) NOTICE $nick Pour savoir mais commandes de modération tape !modere"
   putdcc $aurore(idx) ":$aurore(nick) NOTICE $nick Pence Bien a te devoice quand tu anim plus ! => !xdevoice Merci"
   putquick "SAJOIN $nick $aurore(staff)"
}
 
#********************#
# Xdevoice pour anim #
#********************#
 
bind pub n "!xdevoice" [namespace current]::xdevoice
proc xdevoice { nick handle uhost chan text } {
   variable aurore
   putdcc $aurore(idx) ":$aurore(nick) MODE $chan -v $nick"
   putdcc $aurore(idx) ":$aurore(nick) NOTICE $nick Merci d'avoir animé $nick"
}
 
#**************#
# Kick Pseudo. #
#**************#
 
bind pub n "!kick" [namespace current]::kick
proc kick { nick hand host chan arg } {
   variable aurore
   set nick [lindex $arg 0]
   putdcc $aurore(idx) ":$aurore(nick) KICK $chan $nick Merci de rester calme !"
   return 0
}
 
#*************#
# Ban Pseudo. #
#*************#
 
bind pub n "!kb" pub:kb
proc pub:kb { nick hand host chan arg } {
   variable aurore
    # Ici j'ai changer ton set, pour split sur un host.
   set nik [lindex [split $nick !] 0]
    # Ici je re split sur l'host.
   set host [lindex [split $nick !] 1]
    # Ici je re set arg, au cas ou plus tard faudra faire une modification.
   set arg [lindex [split $args] 1 end]
    # Maintenant ont ban sur le nick et le host.
   putdcc $aurore(idx) ":$aurore(nick) $chan +b $nik!$host"
   putdcc $aurore(idx) ":$aurore(nick) KICK $chan $nick Reste Cool Banni !"
}
 
#**************#
# Appel Ircop. #
#**************#
 
bind pub n "!appel" [namespace current]::appel
proc appel { nick uhost handle chan arg } {
   variable aurore
   putdcc $aurore(idx) ":$aurore(nick) PRIVMSG $aurore(log) $nick Appel un IRCop sur $chan"
   putdcc $aurore(idx) ":$aurore(nick) NOTICE $nick Les IRCops on ete appelé"
}
 
#****************#
# Help Commande. #
#****************#
 
bind pub X "!modere" [namespace current]::help
proc help { nick uhost handle chan arg } {
   variable aurore
   set commande [lindex $arg 1]
   set commande [stripcodes abcu [lindex $arg 0]]
   if {$commande == ""} {
      putdcc $aurore(idx) ":$aurore(nick) privmsg $nick :\00314Commande Help du Robot \002\0034$::botnick\002\0034"
      putdcc $aurore(idx) ":$aurore(nick) privmsg $nick :\017"
      putdcc $aurore(idx) ":$aurore(nick) privmsg $nick :\0034!xvoice\0034 \0031a utilisé que quand vous moderé sous peine de sanction!\0031"
      putdcc $aurore(idx) ":$aurore(nick) privmsg $nick :\0034!xdevoice\0034 \0031a faire quand vous avez fini de moderé !\0031"
      putdcc $aurore(idx) ":$aurore(nick) privmsg $nick :\0034!kick\0034 \0031sert a kické un user du salon !\0031"
      putdcc $aurore(idx) ":$aurore(nick) privmsg $nick :\0034!kb\0034 \0031Sert a kick/ban un user du salon !\0031"
      putdcc $aurore(idx) ":$aurore(nick) privmsg $nick :\0034!appel\0034 \0031sert a appelé les IRCop en cas de grosse perturbation sur le salon !\0031"
      putdcc $aurore(idx) ":$aurore(nick) privmsg $nick :\0034!chut\0034 \0031sert a coupé la parole a un user pendant 3minute !\0031"
      putdcc $aurore(idx) ":$aurore(nick) privmsg $nick :\00314Fin Help du Robot \002\0034$::botnick\002\0034"
   }
}
 
#****************************#
# Fin du Service Sockets 1.0 #
#****************************#
# connection 
[namespace current]::xconnect:serv
}
 
putlog "\0031Service Sockets 1.0 \0034Chargé."


Sinon, une hypotèse.
Tu comment la ligne source du code de ta config.

Exemple dans la config de ton eggdrop tu as ceci :
Quote:source scripts/Aurore.tcl

Tu fait ceci :
Quote:#source scripts/Aurore.tcl

Une fois ceci fait, tu redemarre ton eggdrop !
Et tu va en PL "Party-Line", ensuite une fois dedans tu décommente la ligne source.
Donc tu retire le : #
Tu rehash ton eggdrop, et tu regarde ce qu'il te dit, tu me copie/colle tout de "A" à "Z" ce qu'il dit.
Je veux vérifier certaines choses..


RE: Petit TCL de gestion - BaGrift - 26/03/2014

Salut ^^ :)

Ca fonctionne toujours pas :(

Tien le c/c de la console

Code:

Code:
|12:00:04| <TonyMontana> .rehash
|12:00:05| <AurelBot> [12:00:48] #Toretto# rehash
|12:00:05| <AurelBot> Rehashing.
|12:00:05| <AurelBot> [12:00:48] sauvegarde de moderation.db
|12:00:05| <AurelBot> [12:00:48] Rehashing ...
|12:00:05| <AurelBot> [12:00:48] Listening at telnet port 3336 (all).
|12:00:05| <AurelBot> [12:00:48] .compile by MenzAgitat loaded
|12:00:05| <AurelBot> [12:00:48] Autoop.tcl par mybox
|12:00:05| <AurelBot> [12:00:48] 12Axx Version37 1.3 12By34 Alucard68 12loaded
|12:00:05| <AurelBot> [12:00:48] 4Chargement.. 1op.tcl V1.0 by toretto1
|12:00:05| <AurelBot> [12:00:48] 4Chargement.. 1fin.tcl V1.0 by toretto1
|12:00:05| <AurelBot> [12:00:48] 4Chargement.. 1heure.tcl V1.0 by toretto1
|12:00:05| <AurelBot> [12:00:48] Initialization loaded
|12:00:05| <AurelBot> [12:00:48] AutoIRCOP.tcl par GeoZzZ  ®2003
|12:00:05| <AurelBot> [12:00:48] 12Prison Version37 1.2 12By34 Toretto 12loaded
|12:00:05| <AurelBot> [12:00:48] Désallocation des ressources de publicTcl v21.3.1
|12:00:05| <AurelBot> [12:00:48] publicTcl v1.3.1 a été chargé.
|12:00:05| <AurelBot> [12:00:48] 4Chargement.. 1sajoin.tcl by toretto1
|12:00:05| <AurelBot> [12:00:48] 4Chargement.. 1url.tcl V1.0 by toretto1
|12:00:05| <AurelBot> [12:00:48] who.tcl 1.6 Copyright © toretto 2014 (Base permettant d'accéder aux commandes)
|12:00:05| <AurelBot> [12:00:48] 3Zurl-1.0.tcl loaded
|12:00:05| <AurelBot> [12:00:48] 1Service Sockets 1.0 4Chargé.
|12:00:05| <AurelBot> [12:00:48] 1Service Moderation 1.0 4Chargé.
|12:00:05| <AurelBot> [12:00:48] Userfile loaded, unpacking...
|12:00:05| <AurelBot> [12:00:48] -NOTICE- *** Notice -- Cancelling link [@0:0:0:0:0:ffff:91.121.193.88.52816], invalid numeric



RE: Petit TCL de gestion - aliasangelius - 26/03/2014

Donc ta toujours le soucis de numéric.
Tu es sur quel type de server irc ? C'est UnrealIrcd non ?


RE: Petit TCL de gestion - BaGrift - 26/03/2014

Oui j'ai toujour la meme erreur :/

Oui je tourne sur UnrealIrcd :p


RE: Petit TCL de gestion - aliasangelius - 26/03/2014

Change :

tcl
putdcc $aurore(idx) "SERVER $aurore(serv) 1 [unixtime] [unixtime] J09 ACAA\] +s :$aurore(info)"

Par :

tcl
putdcc $aurore(idx) "SERVER $aurore(serv) 1 [unixtime] [unixtime] P10 AA]]] :$aurore(info)"


Ou alors change par ceci :

tcl
putdcc $aurore(idx) "SERVER $aurore(serv) 1 [unixtime] [unixtime] P09 :$aurore(info)"


Essaye tout ça jusqu'à que tu en et un qui fonctionne "ou pas", et dit moi ce que cela donne.
PS commente tout les autres tcl que tu as, laisse juste le tcl de socket en route, les autres ne les mais pas en route.
Une fois fait test voir si sa fonctionne.


RE: Petit TCL de gestion - BaGrift - 26/03/2014

toujours pareille :(


RE: Petit TCL de gestion - aliasangelius - 26/03/2014

Heu.. lol ?
Bon tu va m'obliger à sortir mes armes toi.
Rendez vous sur ton irc, prépare les codes ftp etc, sa va fumer ont va la trouver cette saloperie de solution !


RE: Petit TCL de gestion - BaGrift - 26/03/2014

Ok vers qu'elle heures sur mon IRC ?


RE: Petit TCL de gestion - aliasangelius - 26/03/2014

Essaye ceci avant une dernière, sinon je viendrais vers les 14h

tcl
putdcc $aurore(idx) "SERVER $aurore(serv) 1 [unixtime] [unixtime] J09 :$aurore(info)"


Si cela ne fonctionne pas nous essayerons autres choses, et nous feront quelques vérifications de tout ce qui de t'es link etc.
Car là après sa en protocole je ne vois pas quoi mettre de plus..
C'est que dans le code y'a un soucis quelques part, que je ne trouve pas :'(

Mais ont va y arrivée je l'espère :p


RE: Petit TCL de gestion - BaGrift - 26/03/2014

toujours pareille lol on na vraiment pas de chance :p


RE: Petit TCL de gestion - CrazyCat - 26/03/2014

Excusez-moi d'intervenir, mais deux détails me chiffonnent:

Code:
|12:00:05| <AurelBot> [12:00:48] -NOTICE- *** Notice -- Cancelling link [@0:0:0:0:0:ffff:91.121.193.88.52816], invalid numeric
Ca, ça pue le serveur IRC qui dit que l'identifiant numerique du serveur qui se link est mauvais.

tcl
putdcc $aurore(idx) "SERVER $aurore(serv) 1 [unixtime] [unixtime] P09 :$aurore(info)"

Quel est le paramètre la dedans qui donne l'id numérique ?
Si c'est "1", il y a de grandes chances pour qu'il soit déjà pris.
Si c'est "P09", c'est pas bien numérique.