Vous n'êtes pas identifié(e).

Top posteurs

Statistiques

Partenaires

  • eXolia Hosting
  • Eggdrop.fr

#1 Re : Services IRC » Souci de Proc » 13/12/2013 19:25:53

DnS

d'accord merci Nickoos je vais testé cela

[édite]

après testé je rencontre toujours la même erreur ..

Code: TCL
 
Tcl error [::eva_tcl::xop]: can't read "eva(idx)": no such variable

#2 Re : Services IRC » Souci de Proc » 13/12/2013 18:42:58

DnS

désolé j'avais zappé de mettre le code en entier. donc oui il est dans le namespace. après n’ayant pas codé depuis un bon bout de temps je savais pas trop si le mieux était au lieu d'utilisé set eva(serv) il serais pas mieux de faire variable serverlink ect ..

Code: TCL
 
namespace eval ::eva_tcl {
variable version "0.2 RC1"
variable eva
 
set eva(serv) "eva.***.net"
set eva(ip) "ip"
set eva(port) "4400"
set eva(pwdlink) "motdepass"
set eva(info) "TCL Services"
set eva(nick) "Eva_TCL"
set eva(identd) "Data"
set eva(host) "localhost.com"
set eva(nom) "Services TCL"
set eva(log) "#Services"
set eva(quit01) "Redemarage Service."
set eva(quit02) "Fermeture Service."
 
 
 
proc checkconnect {} {
   if {![info exists eva(idx)]} { utimer 30 [namespace current]::checkconnect } else { xconnect:serv }
}
 
proc xconnect:serv {} {
   variable eva
   if [catch {set eva(idx) [connect $eva(ip) $eva(port)]} err] {
      putlog "Connection error :$err"
      return
   }
   putdcc $eva(idx) "PASS $eva(pwdlink)"
   putdcc $eva(idx) "SERVER $eva(serv) 1 [unixtime] [unixtime] J09 :TCL Services"
   putdcc $eva(idx) ":$eva(serv) NICK $eva(nick) 1 1 $eva(identd) $eva(ip) $eva(serv) :$eva(info)"
   putdcc $eva(idx) ":$eva(nick) MODE $eva(nick) +ikdowgs 16384"
   putdcc $eva(idx) ":$eva(nick) JOIN $eva(log)"
   putdcc $eva(idx) ":$eva(nick) MODE $eva(log) +nOtsv $eva(nick)"
   putdcc $eva(idx) ":$eva(nick) MODE $eva(log) +o $eva(nick)"
   putdcc $eva(idx) ":$eva(nick) TOPIC $eva(log) :1\[Eva Service\] Bienvenue sur le Channel des Logs de \2$eva(nick)\2 !"
   control $eva(idx) [namespace current]::controling_server
   utimer 10 [namespace current]::verify
}
 
proc verify {} {
   variable eva
   if [valididx [set [namespace current]::eva(idx)]] {
      utimer 30 [namespace current]::verify
   } else {
      xconnect:serv
   }
}
 
proc controling_server {idx arg} {
   variable eva
   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 [valididx [set [namespace current]::eva(idx)]] {
   if {$arg2=="PING"} {
      putdcc $eva(idx) ":$eva(serv) PONG $eva(ip) :$eva(serv)"
    }
   if {$arg2=="QUIT"} {
    set pseudo [string trim [lindex $arg 0] :]
    set message [string trim [lrange $arg 2 end] :]
    if [string equal "Killed" [lindex $message 0]] {
     putdcc $eva(idx) ":$eva(serv) PRIVMSG $eva(log) :Kill $pseudo vient d'être kill du serveur : $message"
    } else {
    putdcc $eva(idx) ":$eva(serv) PRIVMSG $eva(log) :Quit: $pseudo a quitter le serveur : $message"
        }
	  }	
    }
 }
 
bind evnt - prerestart [namespace current]::eva:restart
proc eva:restart {args} {
   variable eva
   putdcc $eva(idx) ":$eva(serv) SQUIT $eva(serv) :Restart Sockets."
   catch {close $eva(idx)}
}
 
bind dcc n xrehash [namespace current]::eggy:xrehash
proc eggy:xrehash {nick idx arg} {
   variable eva
   putdcc $idx "\002Rehash de TCL Service et des fichiers\002"
   utimer 4 rehash
}
 
bind dcc n xrestart [namespace current]::eggy:xrestart
proc eggy:xrestart {nick idx arg} {
   variable eva
   putdcc $idx "\002Redémarrage de TCL Service\002"
   if [valididx [set [namespace current]::eva(idx)]] {
      putdcc $eva(idx) ":$eva(nick) QUIT :$eva(quit01)"
      putdcc $eva(idx) ":$eva(serv) SQUIT :$eva(serv)"
      catch {close $eva(idx)}
      foreach kill [utimers] {
          if {[lindex $kill 1]=="[namespace current]::verify"} { killutimer [lindex $kill 2] }
      }
    }
    xconnect:serv
}
 
bind dcc n xdie [namespace current]::eggy:xdie
proc eggy:xdie {nick idx arg} {
    putdcc $idx "\002Arrêt de TCL Service\002"
    if [valididx [set [namespace current]::eva(idx)]] {
       putdcc $eva(idx) ":$eva(nick) QUIT : $eva(quit02)"
       putdcc $eva(idx) ":$eva(serv) SQUIT :$eva(quit02)"
       catch {close $eva(idx)}
       foreach kill [utimers] {
          if {[lindex $kill 1]=="[namespace current]::verify"} { killutimer [lindex $kill 2] }
       }
   }
}
bind dcc n xop [namespace current]::xop
proc xop {nick idx args} {
variable eva
set chan [lindex $args 0]
set opnick [lindex $args 1]
if {$chan==""} {
putdcc $idx "\2Syntax:\2 .xop <Salon> <pseudo>."
return 0
}
if {$opnick==""} {
putdcc $idx "\2Syntax:\2 .xop <Salon> <pseudo>." 
return 0
}
putdcc $eva(idx) ":$eva(serv) MODE $chan +o $opnick"
putdcc $eva(idx) ":$eva(serv) $eva(log) :\2\[Commande\]\2 $nick \2->\2 xop"
}
bind chon - * [namespace current]::user_joined
proc user_joined {hand idx args} {
variable eva
	putdcc $idx "\[Authentification Réussie\]"
    if [valididx [set [namespace current]::eva(idx)]] {
	putdcc $eva(idx) ":$eva(nick) PRIVMSG $eva(log) :\0034|Join.Partyline\|\0032 - $hand vient de joindre la party-line."
	catch {close $eva(idx)}
		}
	}
bind chof - * [namespace current]::user_parted
proc user_parted {hand idx args} {
	variable eva 
	 if [valididx [set [namespace current]::eva(idx)]] {
	putdcc $eva(idx) ":$eva(nick) PRIVMSG $eva(log) :\0034|Part.Partyline\|\0032 - $hand vient de se déconnecter de la party line."
	catch {close $eva(idx)}   
		}
	}
[namespace current]::xconnect:serv
}
 

#3 Services IRC » Souci de Proc » 13/12/2013 11:48:46

DnS
Réponses : 4

Bonjour,

je rencontre un souci concernant une erreur assez génante car je trouve pas d'ou vient le souci.le Service est bien link au serveur,aucun souci dessus.

erreurs PL

Tcl error [::eva_tcl::xop]: can't read "eva(idx)": no such variable

Code: TCL
 
bind dcc n xop [namespace current]::xop
proc xop {nick idx args} {
variable eva
if [valididx [set [namespace current]::eva(idx)]] {
set chan [lindex $args 0]
set opnick [lindex $args 1]
if {$chan==""} {
putdcc $idx "\2Syntax:\2 .xop <Salon> <pseudo>."
return 0
}
if {$opnick==""} {
putdcc $idx "\2Syntax:\2 .xop <Salon> <pseudo>." 
return 0
}
putdcc $eva(idx) ":$eva(serv) MODE $chan +o $opnick"
putdcc $eva(idx) ":$eva(serv) $eva(log) :\2\[Commande\]\21 $nick \2->\2 xop"
catch {close $eva(idx)}
}
}
 

merci de votre aide.

Cordialement

#4 Re : Eggdrop » probleme ajout user avec flag » 05/12/2013 21:49:14

DnS

Voici un bout de code que j'utilisé quand je m'occupé de ma webradio à l'époque. ce morceau est largement modifiable et améliorable.

Code: TCL
 
bind pub m .+dj AjoutDj
proc AjoutDj {nick uhost hand chan arg} {
	global botnick  
      set nick [lindex $arg 0]
	  if {$nick eq ""} {
	  putserv "PRIVMSG $chan :\002Erreur :\002 .+dj nick"; return}
      adduser $nick $nick*!*@*
      chattr $nick +D
      putserv "PRIVMSG $chan : $nick est maintenant Dj sur $::NomRadio ! Bienvenue. :) "
}
 
bind pub m .-dj SupressionDj
proc SupressionDj {nick uhost hand chan arg} {
	global botnick 
	if {![matchattr $hand mn]} {
	putserv "PRIVMSG $chan :Il ne vous est pas possible de suprimer un admin"
	return 0
	}
     set pseudo [lindex $arg 0]
	 if {$pseudo eq ""} {
	 putserv "PRIVMSG $chan :\002Erreur :\002 .-dj nick"; return}
	  deluser [lindex $arg 0] 
      putserv "PRIVMSG $chan : $pseudo n'est plus Dj sur $::NomRadio"
}
 

Cordialement

#6 Re : Eggdrop » [Résolu] Problème Eggdrop » 01/10/2011 15:03:33

DnS

dans ton eggdrop.conf dans set myip mes y l'ip de ton serveur et non le domaine

set my-ip "IP de ton serveur"
listen 3333 all

ensuite serais til possible que tu nous montre ton eggdrop.conf ?

Cordialement

#7 Re : Aides » [Résolu] SSH » 12/08/2011 19:48:47

DnS

merci Harakiri je vais me pencher sur tout ça.

#8 Re : Aides » [Résolu] SSH » 12/08/2011 17:20:57

DnS

merci Harakiri pour ta réponse . ce que je souhaite faire c'est restreindre uniquement l'utilisateur dans sont home pour pas qu'il aille en tapant cd .. vers les autres répertoires,seulement cela.

Cordialement

#9 Aides » [Résolu] SSH » 12/08/2011 10:23:12

DnS
Réponses : 4

bonjour,

je me permet de venir car j'ai un peut de mal a trouver un tuto pour restreindre un user en ssh sur son compte shell. si parmit vous quelqu'un aurai un tuto ou me dire comment faire sa serai sympas. (je suis sous debian 6)

merci smile

#10 Re : Eggdrop » Tcl de modération » 01/08/2011 20:14:50

DnS

Re,

on va faire appel à la communauté de IRCz, pour faire fonctionné la tcl LoL il nous manque les fichiers de language lol.fr lol.en & lol.ru si quelqu'un les aurais dans c'est archive ça serais super cool.

merci à vous.

Cordialement R0aD

lol.fr.lang  http://www.mediafire.com/?crfn970xtspypmk

lol.eng.langhttp://www.mediafire.com/?puz2523as88md11

Cordialement

#11 Re : Eggdrop » Tcl de modération » 31/07/2011 17:16:06

DnS

le TCL modération de platine

http://www.eggdrop.fr/board/attachment.php?aid=114

ainsi que d'autres TCL sur eggdrop.fr

cordialement

#12 Re : Aides » Hebergement serveur irc + web » 27/06/2011 18:53:15

DnS

bonjour à tu regarder les VPS chez 1&1 à 9..90 ?

Cordialement

#13 Re : IRCz » Réouverture de IRCz » 21/06/2011 10:41:52

DnS

Bonjour,

Content pour la réouverture du forum.

Cordialement

Pied de page des forums

Propulsé par FluxBB

448553 visites ( 124 aujourd'hui ) 1 visiteur en ligne
Copyright © 2004 - 2013 IRCz