egghelp/eggheads community

freebsd and ^M linebreaks while echoing text file to channel

2004-06-14T07:47:13-04:00

there have been a few threads in the past discussing the speed of regsub and other solutions. use "string map" wherever possible seems to be a popular conclusion (faster).

Statistics: Posted by spock — Mon Jun 14, 2004 7:47 am

completed

2004-06-13T22:04:31-04:00

Code:

set cmd "!netstat"bind pub -|- $cmd log:pub #proc not made by me, can't remember who wrote it =)proc htmltotext {text} {  regsub -all -- {
} $text "\n" text  regsub -all -- {|} $text { } text  regsub -all -- {<[^>]*>} $text {} text  regsub -all -- { |[<*>]} $text { } text  return $text}proc log:pub {nick handle host chan text } {  set foo [open "/home/rvwinkle/eggdrop1.6.16/scripts/ehco.txt" "r"]  foreach line [split [read $foo] \n] {    puthelp "PRIVMSG $chan :[htmltotext $line]"  }  close $foo}

Just in case anyone wanted info on how it was done , the above example works fine to echo the contents of a text file in our irc channel and strip any html code from that file. Seems kind of slow tho, any pointers on making it faster ?

Statistics: Posted by Guest — Sun Jun 13, 2004 10:04 pm

getting farther

2004-06-12T10:41:44-04:00

Thanks for the input yesterday

I ended up using a dupe limiter in main eggdrop config as i could never find info on the correct string to use for the filter but it works now and I am interested in implementing the html filter

this is the code i have so far

Code:

set cmd "!netstat"bind pub -|- $cmd log:pubproc log:pub {nick handle host chan text } {  set foo [open "/www/message.txt" "r"]  foreach line [split [read $foo] \n] {    puthelp "PRIVMSG $chan :$line"  }  close $foo}

Can anyone provide some pointers on implenting this bit of code on the output?

Code:

#proc not made by me, can't remember who wrote it =)proc htmltotext {text} {  regsub -all -- {
} $text "\n" text  regsub -all -- {|} $text { } text  regsub -all -- {<[^>]*>} $text {} text  regsub -all -- { |[<*>]} $text { } text  return $text}

Statistics: Posted by Guest — Sat Jun 12, 2004 10:41 am

freebsd and ^M linebreaks while echoing text file to channel

2004-06-11T13:17:13-04:00

Yeah it's not really "^M" it's "\r" or something.

Statistics: Posted by stdragon — Fri Jun 11, 2004 1:17 pm

stuck on this

2004-06-11T12:40:32-04:00

this is what i have manged so far...

Code:

set bfile "/www/message.txt"set cmd "!netstat"set bwhere 0bind pub -|- $cmd dumpfileproc dumpfile {nick handle host chan text } {global bfile bwhereset foo [open $bfile r]while { ! [eof $foo] } {set line [gets $foo]if {[string equal ^M $line]} { continue }if {!$bwhere} {puthelp "PRIVMSG $chan :$line"}}}

it is still displaying the line breaks as empty lines
am i doing it wrong ?
Sorry if this is a newbie mistake

Statistics: Posted by Guest — Fri Jun 11, 2004 12:40 pm

freebsd and ^M linebreaks while echoing text file to channel

2004-06-11T12:23:19-04:00

dont forget to close $bfile when you are done with it

Statistics: Posted by spock — Fri Jun 11, 2004 12:23 pm

freebsd and ^M linebreaks while echoing text file to channel

2004-06-11T10:40:14-04:00

just add this right after your gets to make it ignore the ^M lines

Code:

if {[string equal ^M $line]} { continue }

Use this to strip all the html codes

Code:

#proc not made by me, can't remember who wrote it =)proc htmltotext {text} {  regsub -all -- {
} $text "\n" text  regsub -all -- {|} $text { } text   regsub -all -- {<[^>]*>} $text {} text   regsub -all -- { |[<*>]} $text { } text  return $text}

Statistics: Posted by Papillon — Fri Jun 11, 2004 10:40 am

freebsd and ^M linebreaks while echoing text file to channel

2004-06-11T10:05:21-04:00

Hello I have found the follwoing simple code to echo the contents of a text file in my channel when triggered.

Code:

set bfile "/www/message.txt"set cmd "!netstat"set bwhere 0bind pub -|- $cmd dumpfileproc dumpfile {nick handle host chan text } {global bfile bwhereset foo [open $bfile r]while { ! [eof $foo] } {set line [gets $foo]if {!$bwhere} {puthelp "PRIVMSG $chan :$line"}}}

The message.txt file is edited by a php utility that I do not have access to change. The php utility adds a ^M to the bottom of the file everytime someone submits a new entry.
On linux the tcl script I am using ignores the ^M characters and the bot only says the relevant parts but on freebsd i get an empty line for every ^M character. I am currently reading up on regexpr but it still seems daunting to me. Is there a simple way for me to tell the bot to ignore the windows linebreaks?

Thank you for any help you can provide in the regard.

p.s. here is a snippet from the text file so you can see what i mean if needed....Stripping the html code out to would be super awesome but is not required.

Issues with hi-rez - mt=987654.^M
Netcoolt> - It's netcool son, netcool. It ain't that hard.^M
^M
^M
^M
^M
^M
^M
^M

Statistics: Posted by Guest — Fri Jun 11, 2004 10:05 am