small trouble with writeing to a file from dcc

SmokeyOne · Post by **SmokeyOne** » Wed Jan 15, 2003 7:51 pm

I'm not sure the right syntax for writeing to a file from within the dcc partyline. I was thinking of something like this.

bind dcc n .dbadd dcc_dbadd

proc dcc_dbadd {idx handle uhost input} {
set file [open "$file" a]
puts $file "info in text"
close $file
}
}

I'm really not sure if this is even close to the right syntax, I'm not that good with tcl, but I'm learning as i go. Thanks in advance for any help you give me

Smokey

SmokeyOne · Post by **SmokeyOne** » Wed Jan 15, 2003 8:10 pm

now that I think about it, how would i set it to go to the end of file and write the text?

SmokeyOne · Post by **SmokeyOne** » Wed Jan 15, 2003 9:38 pm

bind dcc - .dbadd dcc_dbadd
proc dcc_dbadd {idx uhost hand text dest} {
putdcc "\002New info added to the FAQ database by $nick\002"
set file "~/.faq"
set fs [open $file a+]
puts $fs "$text"
close #fs
}

now when i try to do .dbadd, it get What? you need .help.

I'm guessing maybe "uhost" shouldn't be there, but then again i'm not very good at this stuff =/.

Post by **caesar** » Thu Jan 16, 2003 2:56 am

replace
set file [open "$file" a]

with
set file [open "$file" w]

replace
bind dcc - .dbadd dcc_dbadd

with
bind dcc - dbadd dcc_dbadd

Also you may want to read again the tcl-commands.doc file, for how to do corectly a bind for dcc..

Papillon · Post by **Papillon** » Thu Jan 16, 2003 3:49 am

SmokeyOne wrote:now that I think about it, how would i set it to go to the end of file and write the text?

read what he said ceasar... set file [open "$file" w] will not add text to the end of the file, it will overwrite the whole file, set file [open "$file" a] is the right syntax if you want to add text to the end of the file

Post by **caesar** » Thu Jan 16, 2003 4:22 am

Oh. Seems that I've skiped an line.. I was sleepy when I typed the answer

sorry.. anyway, seems that the second answer is good

At least that I can do..

SmokeyOne · Post by **SmokeyOne** » Thu Jan 16, 2003 4:33 am

i thank you for your help, I'll give it a shot and see if it works out. if not, i messed up somewhere =/

SmokeyOne · Post by **SmokeyOne** » Thu Jan 16, 2003 4:40 am

okay i did change it and ya it works under dcc chat, but now I have a problem

Tcl error [dcc_dbadd]: no value given for parameter "text" to "dcc_dbadd"

Post by **caesar** » Thu Jan 16, 2003 4:54 am

Why don't you read the .doc file that I've told you to read? The answer to your question is outstretched there..

bind dcc <flags> <command> <proc>
procname <handle> <idx> <text>

SmokeyOne · Post by **SmokeyOne** » Thu Jan 16, 2003 8:43 am

you want a honest answer ? i forgot lol, sorry about that.I'll look though it, but only to get lost again =/

Well that and I was too tired to even try to read the screen anymore, knowing what the error is now I'm sure i forgot to define $text that i is why its giveing me that error.

I'll give it a go and try try try again

Thanks for the help

SmokeyOne · Post by **SmokeyOne** » Thu Jan 16, 2003 7:42 pm

okay I read it, but i guess its not helping, I'm still getting the tcl error for $text though I thought I already defind it. am I missing a "catch" statment here or something ?

SmokeyOne · Post by **SmokeyOne** » Thu Jan 16, 2003 7:50 pm

nevermind, I think I'm about blind as a bat, but that's okay. After sleeping for awhile and comming back to it I got it hehe even found my little bug close #fs should have been close $fs.

thanks for all the help on this.

egghelp/eggheads community

small trouble with writeing to a file from dcc

small trouble with writeing to a file from dcc

now that I think about it

this is what i created

Re: now that I think about it

thanks