egghelp/eggheads community

text to specific names

2007-11-28T15:05:50-04:00

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

Statistics: Posted by Fire-Fox — Wed Nov 28, 2007 3:05 pm

text to specific names

2007-11-28T04:00:39-04:00

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.

Statistics: Posted by CrazyCat — Wed Nov 28, 2007 4:00 am

text to specific names

2007-11-27T22:06:38-04:00

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

Statistics: Posted by rosc2112 — Tue Nov 27, 2007 10:06 pm

text to specific names

2007-11-27T20:22:31-04:00

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).

Statistics: Posted by Alchera — Tue Nov 27, 2007 8:22 pm

text to specific names

2007-11-27T19:22:36-04:00

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

Statistics: Posted by Fire-Fox — Tue Nov 27, 2007 7:22 pm

text to specific names

2007-11-27T17:45:30-04:00

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

Statistics: Posted by CrazyCat — Tue Nov 27, 2007 5:45 pm

text to specific names

2007-11-27T17:39:55-04:00

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 ...

Statistics: Posted by Fire-Fox — Tue Nov 27, 2007 5:39 pm

text to specific names

2007-11-22T22:01:37-04:00

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.

Statistics: Posted by rosc2112 — Thu Nov 22, 2007 10:01 pm

Re: text to specific names

2007-11-22T17:24:35-04:00

I guess you want to have a fixed list of allowed pple and match independantly of their status on the chan:
Code:
set chans "#chan"set authppl {"fido" "noob"}set nynewtext2 "some text"proc pub_staff {nick uhost hand chan text} {global mynewtext2if {[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

Statistics: Posted by Fire-Fox — Thu Nov 22, 2007 5:24 pm

Re: text to specific names

2007-11-22T16:35:58-04:00

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

Code:

set chans "#chan"set authppl {"fido" "noob"}set nynewtext2 "some text"proc pub_staff {nick uhost hand chan text} {global mynewtext2if {[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

Statistics: Posted by Fire-Fox — Thu Nov 22, 2007 4:35 pm

Re: text to specific names

2007-11-22T07:49:21-04:00

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

Code:

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

Statistics: Posted by CrazyCat — Thu Nov 22, 2007 7:49 am

Re: text to specific names

2007-11-22T07:43:28-04:00

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:
###########################     only for some ppl     #########################set chans "#chan"set nynewtext2 "some text"proc pub_staff {nick uhost hand chan text} {global mynewtext2if {[isop $nick $chan]} { putserv "PRIVMSG $chan : $nick $mynewtext2"} else { putnoobuser  $chan $nick }}###########################       End       #########################

You have to be more clear about your request.

Statistics: Posted by Sir_Fz — Thu Nov 22, 2007 7:43 am

text to specific names

2007-11-21T08:41:00-04:00

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

Statistics: Posted by Fire-Fox — Wed Nov 21, 2007 8:41 am

text to specific names

2007-11-20T18:59:00-04:00

Create a list.

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

Statistics: Posted by Alchera — Tue Nov 20, 2007 6:59 pm

text to specific names

2007-11-20T18:47:49-04:00

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:

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

Statistics: Posted by Fire-Fox — Tue Nov 20, 2007 6:47 pm