text to specific names

[Fire-Fox]

hey

how can i rewrite this so ONLY some ppl on that liste can access the giving command

lets say fiddo is one on the list..
then i need to type name in a string.

hope all understand....

Code: Select all

########################
###     only for some ppl     ###
######################
set chans "#chan"
set nynewtext2 "some text"
proc pub_staff {nick uhost hand chan text} {
global mynewtext2
	if {[isop $nick $chan]} {
	 	putserv "PRIVMSG $chan : $nick $mynewtext2"
	} else { putnoobuser  $chan $nick }
}
########################
###       End       ###
######################

[Alchera]

Create a list.

See this post for inspiration: http://forum.egghelp.org/viewtopic.php? ... ight=lists

[Fire-Fox]

Create a list.

See this post for inspiration: http://forum.egghelp.org/viewtopic.php? ... ight=lists

Thanks for the help. But now im noob to tcl how whot i implement it

[Sir_Fz]

hey

how can i rewrite this so ONLY some ppl on that liste can access the giving command

lets say fiddo is one on the list..
then i need to type name in a string.

hope all understand....

Code: Select all

########################
###     only for some ppl     ###
######################
set chans "#chan"
set nynewtext2 "some text"
proc pub_staff {nick uhost hand chan text} {
global mynewtext2
	if {[isop $nick $chan]} {
	 	putserv "PRIVMSG $chan : $nick $mynewtext2"
	} else { putnoobuser  $chan $nick }
}
########################
###       End       ###
######################

You have to be more clear about your request.

[CrazyCat]

I guess you want to have a fixed list of allowed pple and match independantly of their status on the chan:

Code: Select all

set chans "#chan"
set authppl {"fido" "noob"}
set nynewtext2 "some text"
proc pub_staff {nick uhost hand chan text} {
global mynewtext2
	if {[lsearch $::authppl [string tolower $nick]]} {
	 	putserv "PRIVMSG $chan :$nick $mynewtext2"
	} else { putserv "PRIVMSG  $chan :$nick is not authorized to use this" }
}

[Fire-Fox]

I guess you want to have a fixed list of allowed pple and match independantly of their status on the chan:

Code: Select all

set chans "#chan"
set authppl {"fido" "noob"}
set nynewtext2 "some text"
proc pub_staff {nick uhost hand chan text} {
global mynewtext2
	if {[lsearch $::authppl [string tolower $nick]]} {
	 	putserv "PRIVMSG $chan :$nick $mynewtext2"
	} else { putserv "PRIVMSG  $chan :$nick is not authorized to use this" }
}

Thanks i'll try it

[Fire-Fox]

I guess you want to have a fixed list of allowed pple and match independantly of their status on the chan:

Code: Select all

set chans "#chan"
set authppl {"fido" "noob"}
set nynewtext2 "some text"
proc pub_staff {nick uhost hand chan text} {
global mynewtext2
	if {[lsearch $::authppl [string tolower $nick]]} {
	 	putserv "PRIVMSG $chan :$nick $mynewtext2"
	} else { putserv "PRIVMSG  $chan :$nick is not authorized to use this" }
}

Thanks i'll try it

set authppl {"name"}
set mynewtext6 "access"

proc pub_admin {nick uhost and chan text} {
global mynewtext6
if {[lsearch [string tolower $::authppl] [string tolower $nick]]} {
putserv "PRIVMSG $chan :$nick $mynewtext6"
} else {
putserv "PRIVMSG $chan :$nick is not authorized to use this"
}
}

This does not work all can access the command... even with the set authppl is filled

[rosc2112]

if {[lsearch $::authppl [string tolower $nick]]} {

is not the same as

{[lsearch [string tolower $::authppl] [string tolower $nick]]}


because you converted a LIST into a STRING and lsearch only works with lists.

[Fire-Fox]

if {[lsearch $::authppl [string tolower $nick]]} {

is not the same as

{[lsearch [string tolower $::authppl] [string tolower $nick]]}


because you converted a LIST into a STRING and lsearch only works with lists.

How can i make it right ...

[CrazyCat]

Just put lowercase entries in you list: YOU manage it, so YOU can choose if it muste be lowercase or case sensitive.

[Fire-Fox]

Just put lowercase entries in you list: YOU manage it, so YOU can choose if it muste be lowercase or case sensitive.

Im n00b to the tcl world so please help to write the script

[Alchera]

Just put lowercase entries in you list: YOU manage it, so YOU can choose if it muste be lowercase or case sensitive.

Im n00b to the tcl world so please help to write the script

Then become "un-n00b" and at least make some effort on your own behalf; these forums are full of hints/tips (apart from what you have been told already).

[rosc2112]

Seriously, you've been here over a year. I learned tcl in 2 months. It's really not that hard.

[CrazyCat]

Im n00b to the tcl world so please help to write the script

Just use the code I gave you and fill authppl with lowercase nicks.
It's not a tcl problem, it's simply logical.

[Fire-Fox]

Im n00b to the tcl world so please help to write the script

Just use the code I gave you and fill authppl with lowercase nicks.
It's not a tcl problem, it's simply logical.

Hey okay i'll try

Lowercase = text with no big chars ?
Uppercase = LIKE THIS