egghelp/eggheads community

reading a file into a "privmsg"

2003-11-24T15:11:39-04:00

anyways the change to \\ worked!.. but is there a way to keep the the format of the file being read??

Statistics: Posted by grinch157 — Mon Nov 24, 2003 3:11 pm

reading a file into a "privmsg"

2003-11-24T14:28:00-04:00

it may
try finding "escape characters" in perl or tcl/tk tutorials

Statistics: Posted by CrazyCat — Mon Nov 24, 2003 2:28 pm

reading a file into a "privmsg"

2003-11-24T14:26:48-04:00

okay,

if \ and \\ are special characters is there a place i can go to read on the and possibly other info on this sort, so i can get a better understanding of what i am doing here..??

and i really do appreciate the help(you have no idea)

Statistics: Posted by grinch157 — Mon Nov 24, 2003 2:26 pm

reading a file into a "privmsg"

2003-11-24T14:21:46-04:00

Code:

set fo [open "c:\test\test\test\test\tmp\filename.txt r]

must become:

Code:

set fo [open "c:\\test\\test\\test\\test\\tmp\\filename.txt" r]

Statistics: Posted by CrazyCat — Mon Nov 24, 2003 2:21 pm

reading a file into a "privmsg"

2003-11-24T14:17:04-04:00

well, i just wanted to know if i was missing somthing.

crazycat wrote :

yes, \ is a special character, don't you know?
use \\ if you want a simple one

i am new to this, but ???? i lost ya there.

the problem is that i guess it couldn't find the file.... and wanted to know what i did wrong....

Statistics: Posted by grinch157 — Mon Nov 24, 2003 2:17 pm

reading a file into a "privmsg"

2003-11-24T14:09:31-04:00

Code:

set fo [open "c:\test\test\test\test\tmp\filename.txt r]

yes, \ is a special character, don't you know?
use \\ if you want a simple one

Statistics: Posted by CrazyCat — Mon Nov 24, 2003 2:09 pm

reading a file into a "privmsg"

2003-11-24T13:58:08-04:00

Try this:

Code:

bind pub - !helpme proc_helpproc proc_help {nick uhost handle channel arg} {   set file file-name.txt  if {![file exists $file]} {close [open $file w]}   set io [open $file r]   set list ""   while {![eof $io]} {     gets $io line     if {[string trim $line] == ""} {continue}     lappend list $line   }   close $io   set length [llength $list]   set message "$length match[expr {($length == "1")?"":"es"}] found:"   putserv "PRIVMSG $channel :$message"   foreach line $list {     putquick "PRIVMSG $channel :$line"   } }

If you will put like this, you must put file named file-name.txt in eggdrop directory..

Statistics: Posted by ]Kami[ — Mon Nov 24, 2003 1:58 pm

reading a file into a "privmsg"

2003-11-24T13:53:56-04:00

crazycat wrote

First, I'm affraid you can't get a .exe....
Second: if your procedure ends before you send the PRIVMSG, it can't work
Third: You don't bind anything... I wonder you want to bind a pub
So try with a .txt and make this:
Code:

bind pub - "helpme" proc_helpme
proc proc_helpme { nick uhost hand chan text } {

while { ![eof $fo] } {
gets $fo line
putserv "PRIVMSG $nick :$line"
}
close $fo
}

thats the idea i want a pub bind so the user just types the trigger and not in a phrase, so i took out the quotes there.

and i also got this error: Tcl error [proc_helpme]: extra characters after close-quote

which i figured it's because of :

Code:

set fo [open "c:\test\test\test\test\tmp\filename.txt r]

so i put the end " at he end to finish but now i get this error:
Tcl error [proc_helpme]: couldn't open "c:testtesttesttesttmphelp.txt": no such file or directory.

why is this?

Statistics: Posted by grinch157 — Mon Nov 24, 2003 1:53 pm

Re: reading a file into a "privmsg"

2003-11-24T12:39:44-04:00

Code:

bind -|- helpme proc_helpmeproc_helpme { nick uhost hand chan text } {[open c:\test\test\test\test\tmp\filename.exe r] } putserv "PRIVMSG %nick

First, I'm affraid you can't get a .exe....
Second: if your procedure ends before you send the PRIVMSG, it can't work
Third: You don't bind anything... I wonder you want to bind a pub
So try with a .txt and make this:

Code:

bind pub - "helpme" proc_helpmeproc proc_helpme { nick uhost hand chan text } {   set fo [open "c:\test\test\test\test\tmp\filename.txt r]   while { ![eof $fo] } {      gets $fo line      putserv "PRIVMSG $nick :$line"   }   close $fo}

Whith this, the eggdrop will read filename.txt to the user who begins his sentence with helpme in a channel.

Statistics: Posted by CrazyCat — Mon Nov 24, 2003 12:39 pm

reading a file into a "privmsg"

2003-11-24T12:06:45-04:00

i'm trying to come up with a script that will read a text file into a privmsg. so when a user types lets say helpme, the text will be displayed in a privmsg box.. so far this is what i got..

bind -|- helpme proc_helpme
proc_helpme { nick uhost hand chan text } {
[open c:\test\test\test\test\tmp\filename.exe r] }
putserv "PRIVMSG %nick

but i do not think its right..
can someone help me?

Statistics: Posted by grinch157 — Mon Nov 24, 2003 12:06 pm