Communauté sur les Eggdrops - Community about Eggdrops
Soucis avec un tcl de sajoin - 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: Soucis avec un tcl de sajoin (/showthread.php?tid=1501)

Pages: 1 2


Soucis avec un tcl de sajoin - KeeViiNou - 07/03/2014

Bonjour j'ai un soucis avec le code suivant :

tcl
set vhostnivip {
	*@Root.Domaine.fr
	*@NetAdmin.Domainet.fr
	*@TechAdmin.Domaine.fr
	*@Operateur.Domaine.fr
    *@IrcOp.sDomaine.fr
	*@Fondateur.sDomaine.fr
}
 
set salonaide "#SAlon1"
set salonstaff "#SAlon2"
set salonadmin "#SAlon3"
set bureau "#SAlon4"
set ircops "#SAlon5"
 
###############
##  PUTFAST  ##################################################
## Améliore la vitesse des commandes mais peut etre instable ##
###############################################################
 
proc putfast {arg} {
 append arg "\n"
 putdccraw 0 [string length $arg] $arg
}
 
 
 
###############################################
########### JOIN SALON DE STAFF ###############
###############################################
##   Modifier les noms de salons si besoin   ##
###############################################
bind join - "*" mejoinircops
proc mejoinircops {nick host hand arg} {
global puwhois puwhowas chanip salonip vhostnivip
  foreach vhost $vhostnivip { 
  if [string match -nocase $vhost $host]  {
putquick "SAJOIN $nick $ircops"
    }  
  }
}
bind join - "*" mejoinadmin
proc mejoinadmin {nick host hand arg} {
global puwhois puwhowas chanip salonip vhostnivip
  foreach vhost $vhostnivip { 
  if [string match -nocase $vhost $host]  {
putquick "SAJOIN $nick $bureau"
    }  
  }
}
 
bind join - "*" mejoin
proc mejoin {nick host hand arg} {
global puwhois puwhowas chanip salonip vhostnivip
  foreach vhost $vhostnivip { 
  if [string match -nocase $vhost $host]  {
putquick "SAJOIN $nick $salonstaff"
    }  
  }
}
 
bind join - "*" mejoin2
proc mejoin2 {nick host hand arg} {
global puwhois puwhowas chanip salonip vhostnivip
  foreach vhost $vhostnivip { 
  if [string match -nocase $vhost $host]  {
putquick "SAJOIN $nick $salonadmin"
    }  
  }
}


Pourtant le tcl est bien en ircop
Quote:ROBOTX is an IRC Operator
Numeo is available for help.
Numeo is a Bot on DOMAINE
Voilà l'erreur
Quote:[13:19] <(Numeo> [13:19:24] Tcl error [mejoin2]: can't read "salonadmin": no such variable
[13:19] <(Numeo> [13:19:24] Tcl error [mejoin]: can't read "salonstaff": no such variable
[13:19] <(Numeo> [13:19:24] Tcl error [mejoinadmin]: can't read "bureau": no such variable
[13:19] <(Numeo> [13:19:24] Tcl error [mejoinircops]: can't read "ircops": no such variable

Modération : merci d'utiliser les balises code ou tcl pour mettre du script, pas quote.


RE: Soucis avec un tcl de sajoin - aliasangelius - 07/03/2014

Salut,
Pourquoi vous tenez à vos sajoin, et eggdrop ircop ? C'est la mode ?

Fait un join avec des flags, et il invite la personne sur le salon c'est plus simple

"Envoyé depuis mon GT-N7000 avec Tapatalk"


RE: Soucis avec un tcl de sajoin - KeeViiNou - 07/03/2014

C'est justement pas avec des olines c'est pour les membres du staff et vu qu'il y a aucun accès via mirc c'est plus simple via applet de rien taper


RE: Soucis avec un tcl de sajoin - aliasangelius - 07/03/2014

Reprenons.
Ton idée et lorsqu'un membre de ton staff, rejoin un salon, disons accueil.
Ton eggdrop va sajoin ce membre sur un salon précis suuvant son host.
C'est bien sa la question principal de ta recherche non ?

Si c'est oui, ma réponse apportée et adéquate a ta demande.

"Flags" puis "invite".
Plus exactement, flag E pour admin, flag X pour ircop.. etc.

Et tu Fait sa juste avec un bind join des if matchattr.

Exemple :

tcl
if ![matchattr $hand X $chan] {
putserv "invite $nick $salonadmin"
return 0
}


Voila un exemple sans mettre de oline a vos eggdrop.
Et c'est tout autant efficaces..

"Envoyé depuis mon GT-N7000 avec Tapatalk"


RE: Soucis avec un tcl de sajoin - KeeViiNou - 07/03/2014

C'est ça ! Donc si je comprends bien le code sera le suivant :


tcl
set vhostnivip {
	*@Root.Domaine.extension
}
set salonaide "#salon#
set salonstaff "#salon#
set salonadmin "#salon#
set bureau"#salon#
set ircops "#salon#
 
proc putfast {arg} {
 append arg "\n"
 putdccraw 0 [string length $arg] $arg
}
 
 
if ![matchattr $hand X $chan] {
putserv "invite $nick $salonadmin"
return 0
}




RE: Soucis avec un tcl de sajoin - aliasangelius - 07/03/2014

Pas exactement.

La tu fait sur les flags, donc les vhost ne serviront plus.
et putfast idem sert à rien.


tcl
set salonadmin "#admin"
bind join - "*" mejoinircops
proc mejoinircops {nick host hand arg} {
if ![matchattr $hand X $chan] {
putserv "invite $nick $salonadmin"
return 0
}
}


Voila un exemple à la brouillon, mais le principe et la


RE: Soucis avec un tcl de sajoin - KeeViiNou - 09/03/2014

Donc là plus besoin de vhost ?


RE: Soucis avec un tcl de sajoin - BaGrift - 09/03/2014

(09/03/2014, 18:12)KeeViiNou Wrote: Donc là plus besoin de vhost ?

Non plus besoin de vhost tout passe par les flag de l'egg


RE: Soucis avec un tcl de sajoin - KeeViiNou - 10/03/2014

Je suis un peu à la rue... flag de l'eggdrop c'est à dire ?


RE: Soucis avec un tcl de sajoin - cestlemien - 11/03/2014

salut,

Le fichier de config du serveur suffit pas pour faire ça ? ah .dommage.

Cordialement.


RE: Soucis avec un tcl de sajoin - CrazyCat - 11/03/2014

Modération: suppression du message de  aliasangelius

Mais il n'a pas tort dans le sens où un eggdrop n'est pas forcément utilisé sur un réseau que l'on maîtrise, et bien heureusement. C'est aussi pour cela que je préfère les invites aux sajoins, il faut penser à l'utilisateur lambda sur un réseau quelconque.

Je pense que je vais mettre en place des règles qui seront que les seules demandes acceptées sont celles pour des eggdrops "sans droits", c'est à dire pas ircop. Et que ces scripts puissent fonctionner sans bidouillage côté serveur.


RE: Soucis avec un tcl de sajoin - aliasangelius - 11/03/2014

Côté ou je répondez pour : keev, dans la semaine je te ferais un exemple avec des explicatifs. Mais si tu veut des exemples en attendant.
Va sur le wiki et recherche flag.
Ou alors regarde côté gestion.bot un de mes scripts qui utilise cette fonction.

Mais dans la semaine je te guiderais juste la je peux pas dsl

Envoyé de mon GT-N7000 en utilisant Tapatalk

Pour compléter le message de Crazy.
Pour moi le forum eggdrop.fr
Ce n'es aucun rapport avec les utilisations server.
Nous sommes sur la partie tcl et eggdrop. Alors voir des messages comme : utilisée les config de server pour faire joindre un salon, sa reviens au même que de faire un sajoin sur un user.. c'est contraire a la CFQ.

De plus, nous remarqueront que tu stipulé dans d'autres poste cestlemien de ne pas octroyer de droit au eggdrop pour sajoin, cela va de même pour les configurations de server je suis pas pour..

Bref je m'excuse pour mon poste supprimé auprès de l'équipe et de la communauté.

Envoyé de mon GT-N7000 en utilisant Tapatalk


RE: Soucis avec un tcl de sajoin - KeeViiNou - 12/03/2014

Merci aliasangelius


RE: Soucis avec un tcl de sajoin - KeeViiNou - 13/03/2014

Oui effectivement je me souviens des flags c'est le truc en party line |+Q #monchan mais j'ai plus du tout les commandes complètes pour mettre ça a des simple opérateur ou halfop..


RE: Soucis avec un tcl de sajoin - aliasangelius - 13/03/2014

Oui c'est ce genre de choses mais je te ferait un exemple pour tu comprenne bien.
Mais c'est bien plus ou moins cela en effets

Envoyé de mon GT-N7000 en utilisant Tapatalk