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


[Script] Petit TCL de gestion
#46
a mais c'est deja fais depuis un momment lol
Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran :D
#47
Ont va faire plus simple.
Envois moi le code complet, sans rien enlever même le pass par mp

Je regarde sa demain
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#48
ta messagerie priver et trop pleine je peux pas t'envoiyé de message
Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran :D
#49
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.
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#50
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..
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#51
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
Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran :D
#52
Donc ta toujours le soucis de numéric.
Tu es sur quel type de server irc ? C'est UnrealIrcd non ?
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#53
Oui j'ai toujour la meme erreur :/

Oui je tourne sur UnrealIrcd :p
Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran :D
#54
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.
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#55
toujours pareille :(
Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran :D
#56
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 !
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#57
Ok vers qu'elle heures sur mon IRC ?
Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran :D
#58
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
Vous interdisez les erreurs, vous empêchez ainsi la victoire.

Ma super kikoo-page loll
#59
toujours pareille lol on na vraiment pas de chance :p
Site Web: Clic ici Nous rejoindres par mIRC -> Clic Ici
inutile d'avoir une grosse machine si il y'a un con deriere l'ecran :D
#60
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.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  j'essaye de trouver un tcl de gestion thierry 7 5,323 15/04/2014, 02:44
Last Post: thierry
  [Demande] Gestion BNC DeeJay 2 4,055 17/10/2013, 12:19
Last Post: DeeJay
  Tcl gestion de news / Programme Radio KeeViiNou 5 6,309 29/12/2012, 13:27
Last Post: CrazyCat
  Gestion de mail ou autre cac.team 5 4,976 24/07/2009, 11:49
Last Post: fedora

Forum Jump:


Users browsing this thread: 1 Guest(s)