Communauté Eggdrop › Eggdrop et scripts › Scripts v
[TCL] Petit TCL de gestion

Affichage hiérarchique
[TCL] Petit TCL de gestion
 BaGrift Hors ligne
Développeur
***
Messages : 100
Sujets : 8
Inscription : Nov 2013
Niveau d’avertissement : 0%
#46
25/03/2014, 21:52
a mais c'est deja fais depuis un momment lol
Site web
Répondre Avertir
 aliasangelius Hors ligne
Expert
****
Messages : 710
Sujets : 65
Inscription : Apr 2010
Niveau d’avertissement : 0%
#47
25/03/2014, 22:04 (Modification du message : 25/03/2014, 22:05 par aliasangelius.)
Ont va faire plus simple.
Envois moi le code complet, sans rien enlever même le pass par mp
Je regarde sa demain
Répondre Avertir
 BaGrift Hors ligne
Développeur
***
Messages : 100
Sujets : 8
Inscription : Nov 2013
Niveau d’avertissement : 0%
#48
25/03/2014, 22:08
ta messagerie priver et trop pleine je peux pas t'envoiyé de message
Site web
Répondre Avertir
 aliasangelius Hors ligne
Expert
****
Messages : 710
Sujets : 65
Inscription : Apr 2010
Niveau d’avertissement : 0%
#49
26/03/2014, 09:21
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.
Répondre Avertir
 aliasangelius Hors ligne
Expert
****
Messages : 710
Sujets : 65
Inscription : Apr 2010
Niveau d’avertissement : 0%
#50
26/03/2014, 11:30 (Modification du message : 26/03/2014, 11:38 par aliasangelius.)
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 :
Citation :source scripts/Aurore.tcl

Tu fait ceci :
Citation :#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..
Répondre Avertir
 BaGrift Hors ligne
Développeur
***
Messages : 100
Sujets : 8
Inscription : Nov 2013
Niveau d’avertissement : 0%
#51
26/03/2014, 13:01
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 Version7 1.3 12By4 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 Version7 1.2 12By4 Toretto 12loaded
|12:00:05| <AurelBot> [12:00:48] Désallocation des ressources de publicTcl v1.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
Site web
Répondre Avertir
 aliasangelius Hors ligne
Expert
****
Messages : 710
Sujets : 65
Inscription : Apr 2010
Niveau d’avertissement : 0%
#52
26/03/2014, 13:14
Donc ta toujours le soucis de numéric.
Tu es sur quel type de server irc ? C'est UnrealIrcd non ?
Répondre Avertir
 BaGrift Hors ligne
Développeur
***
Messages : 100
Sujets : 8
Inscription : Nov 2013
Niveau d’avertissement : 0%
#53
26/03/2014, 13:15
Oui j'ai toujour la meme erreur :/

Oui je tourne sur UnrealIrcd :p
Site web
Répondre Avertir
 aliasangelius Hors ligne
Expert
****
Messages : 710
Sujets : 65
Inscription : Apr 2010
Niveau d’avertissement : 0%
#54
26/03/2014, 13:22
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.
Répondre Avertir
 BaGrift Hors ligne
Développeur
***
Messages : 100
Sujets : 8
Inscription : Nov 2013
Niveau d’avertissement : 0%
#55
26/03/2014, 13:28
toujours pareille :(
Site web
Répondre Avertir
 aliasangelius Hors ligne
Expert
****
Messages : 710
Sujets : 65
Inscription : Apr 2010
Niveau d’avertissement : 0%
#56
26/03/2014, 13:32
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 !
Répondre Avertir
 BaGrift Hors ligne
Développeur
***
Messages : 100
Sujets : 8
Inscription : Nov 2013
Niveau d’avertissement : 0%
#57
26/03/2014, 13:34
Ok vers qu'elle heures sur mon IRC ?
Site web
Répondre Avertir
 aliasangelius Hors ligne
Expert
****
Messages : 710
Sujets : 65
Inscription : Apr 2010
Niveau d’avertissement : 0%
#58
26/03/2014, 13:41
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
Répondre Avertir
 BaGrift Hors ligne
Développeur
***
Messages : 100
Sujets : 8
Inscription : Nov 2013
Niveau d’avertissement : 0%
#59
26/03/2014, 13:44
toujours pareille lol on na vraiment pas de chance :p
Site web
Répondre Avertir
 CrazyCat Hors ligne
Ma(ni)tou
*******
Messages : 2,344
Sujets : 192
Inscription : Apr 2004
#60
26/03/2014, 13:46
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.
Site web
Répondre


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté