egghelp/eggheads community

Re: Again doubts a braces in nick

2015-05-13T16:09:51-04:00

Try this: set nickpro [lindex [split $text] 0]
p.s
The code you posted is missing :
set canal_admin $chan
too.

I tried what you advised me, but it NOT worked.

!notiadd {test}
test has been added to the list of banned nicks.

The code continues regardless nick braces.

EDIT: I fixed!

Code:

set nickpro [lindex [split $arg { }] 0]

Thanks willyw

Statistics: Posted by juanamores — Wed May 13, 2015 4:09 pm

Re: Again doubts a braces in nick

2015-05-13T08:28:41-04:00

I wish the nick containing braces in file storage.
...
example:
!notiadd {juan}
Returns first line of file (prohibidos.txt) {juan}
!notiadd pedro
Returns second line of file (prohibidos.txt) pedro
Code:
bind pub at|n !notiadd notiaddproc notiadd {nick uhost handle chan text} {  set nickpro [lindex $text 0]...  

1.) It would help a LOT if when you post code here, it was indented.
Indents and line spaces make code easier to read.

2.) Go here:
http://web.archive.org/web/200702051134 ... cters.html

and read. Especially this section, "The first golden rule of Tcl for eggdrop".

Bookmark that page, and refer back to it, until you master it.

3.) Here is the problem: set nickpro [lindex $text 0]

lindex works on lists, not on strings. $text is a string.
You can "get away with it" sometimes. Then you acquire a bad habit, and one day it comes back to bite you.
Here we are.

Try this: set nickpro [lindex [split $text] 0]

p.s
The code you posted is missing :

set canal_admin $chan

too.

Statistics: Posted by willyw — Wed May 13, 2015 8:28 am

Again doubts a braces in nick

2015-05-13T00:48:20-04:00

I wish the nick containing braces in file storage.

Something explained me SpiKe^^ in another post, but it was referred to a list, which added nicks.
Now is another case, I store every nick on a separate line of a file.

I don't know fix it for this particular case a file.

example:

!notiadd {juan}
Returns first line of file (prohibidos.txt) {juan}
!notiadd pedro
Returns second line of file (prohibidos.txt) pedro

Code:

bind pub at|n !notiadd notiaddproc notiadd {nick uhost handle chan text} {  set nickpro [lindex $text 0]  if {![file exist prohibidos.txt]} {  set fs [open prohibidos.txt "w"]  puts $fs ""  close $fs}  else {set fname "prohibidos.txt"set fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines [split $data "\n"] set first [lindex $lines 0]if {$first == ""} {set lines [lreplace $lines 0 0] set fp [open $fname "w"]puts $fp [join $lines "\n"]close $fp}set fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines1 [split $data "\n"] if {([lsearch -exact [string tolower $lines1] [string tolower $nickpro]] == -1)} {set fp [open $fname "a"]puts $fp $nickproclose $fp   putmsg $canal_admin [encoding convertfrom utf-8 "\002$nickpro\002 has been added to the list of banned nicks."]   } else {  putmsg $canal_admin [encoding convertfrom utf-8 "$nickpro was already added!"]   return  }}}

Statistics: Posted by juanamores — Wed May 13, 2015 12:48 am