egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-06-26T11:55:35-04:00 https://forum.eggheads.org/app.php/feed/topic/7787 2004-06-26T11:55:35-04:00 2004-06-26T11:55:35-04:00 https://forum.eggheads.org/viewtopic.php?p=37902#p37902 <![CDATA[BSD linebreaks issue revisited]]>

Code: 

set cmd "!netstat"bind pub -|- $cmd log:pubproc htmltotext {text} {  regsub -all -- {<br>} $text "\n" text  regsub -all -- {</b>|</font>} $text { } text  regsub -all -- {<[^>]*>} $text {} text  regsub -all -- { |[<*>]} $text { } text  return $text}proc log:pub {nick handle host chan text } {  set foo [open "/www/message.txt" "r"]  foreach line [split [read $foo] \n] {  if {($line == "") || ($line == "\n") || ($line == "\r")} { continue }    putserv "PRIVMSG $nick :[htmltotext \002$line\002]"  }  close $foo}bind time - "*6 % % % %" displayechoproc displayecho {min hour day month year} {  set foo [open "/www/message.txt" "r"]  foreach line [split [read $foo] \n] {  if {($line == "") || ($line == "\n") || ($line == "\r")} { continue }    putserv "PRIVMSG #isg :[htmltotext \002$line\002]"  }  close $foo}
This is what the file it echos looks like in vi

Code: 

Iplanet BL, MT 2382446.^MIt's NetCool son, NetCool. It ain't that hard.^MBaltimore edge 4 will be rebooted sometime within the next hour (4-5pm).^M^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M ^M~
I have used eggdrop.conf to prevent dupe messages in queue to keep it from going crazy on all the windows linebreaks but I would love to keep it from pasting the one empty line I am still getting. I am thinking my issue may be the leading space on most of the ^M lines but I cant get it to stop adding one blank line at the end of its spew. Can anyone provide any additional assistance in this regard?

Statistics: Posted by Guest — Sat Jun 26, 2004 11:55 am

]]>