egghelp/eggheads community

Help with a scriptlet im working on. Writing masks to file

2003-06-24T14:07:58-04:00

split and lappend operate on lists. you didn't use 'join' to turn it into a normal string before writing to the file.

also you use 'lrange' (again without 'join') in the first loop without first splitting the line.

Statistics: Posted by stdragon — Tue Jun 24, 2003 2:07 pm

Hours of scripting later

2003-06-24T07:05:05-04:00

Alright, ive got a large part of the script finished now.

But now i've got another problem..

When writing the person's nick to a dat file, it adds { }'s in the nick, if it contains [ ] 's..

Is there any way to solve this?

Statistics: Posted by Aron — Tue Jun 24, 2003 7:05 am

Help with a scriptlet im working on. Writing masks to file

2003-06-22T05:09:16-04:00

Could you be a bit more specific? I already saw some other topics, but i really dont know what im doing wrong...

Statistics: Posted by Aron — Sun Jun 22, 2003 5:09 am

Help with a scriptlet im working on. Writing masks to file

2003-06-21T19:47:12-04:00

The problem is your use of "close". Also your while loop is bad -- try searching on the forum for how to properly read in a file.

Statistics: Posted by stdragon — Sat Jun 21, 2003 7:47 pm

Help with a scriptlet im working on. Writing masks to file

2003-06-21T18:21:50-04:00

Im working on a script that will check a nick's hostmask on join, and if it doesnt match one of the hostmasks for that nick, it will add it.
When i rejoin the channel, i get the following error message:

I want it to write to a text file, in the form of "Nick host1 host2 host3 etc".
With my basic knowledge of tcl, i thought one way to do this, was to set all the info in a a list, then write it. Any suggestions are welcome

Code:

[00:18] Tcl error [join:hostcheck]: can not find channel named "file17"

This is my code:

Code:

set hostfile "/home/asoaron/devbot/scripts/hosts/hosts.dat"bind join - * join:hostcheckproc join:hostcheck {nick host hand chan} { global hostfile botnick  set found 0   set fs [open $hostfile r]   while {![eof $fs]} {    gets $fs line    if {[lrange $line 1 end] == $host} { set found 1 }    close $fs     }  if {$found} {   return 0 }   else {    if {[lindex $line 0] == $nick} {    set lijst  [split $line]     set lijst2 [lappend $lijst $host]    set fs [open $hostfile w]     puts $fs "$lijst2"     close $fs    }   }}

Thanks in advance.

Statistics: Posted by Aron — Sat Jun 21, 2003 6:21 pm