egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-05-03T13:58:42-04:00 https://forum.eggheads.org/app.php/feed/topic/9340 2005-05-03T13:58:42-04:00 2005-05-03T13:58:42-04:00 https://forum.eggheads.org/viewtopic.php?p=48954#p48954 <![CDATA[Read from a TXT file in alternative lines...]]> Statistics: Posted by Thunderdome — Tue May 03, 2005 1:58 pm

]]> 2005-04-11T13:06:47-04:00 2005-04-11T13:06:47-04:00 https://forum.eggheads.org/viewtopic.php?p=48016#p48016 <![CDATA[Read from a TXT file in alternative lines...]]>
Iwe Testet it too -... Working 100% with a txt file ... what changes are needed so that the script can read out "php" scripts --- i could use it togehter with my Ut2004 server Script .. (eggdrop dossn't support UDP direct) ... so i have "this" http://www.elzero.dk/query/index.php that has all INFO's that i need ... But how do i convert them into "eggdrop" ??? ... And I dont NEED everything there :-) ... Only "Map name", "server ip", "number of players" , "max players" and "server ip".

Regards
ElZeRo

Statistics: Posted by ElZeRo — Mon Apr 11, 2005 1:06 pm

]]> 2005-03-18T10:31:30-04:00 2005-03-18T10:31:30-04:00 https://forum.eggheads.org/viewtopic.php?p=47851#p47851 <![CDATA[Read from a TXT file in alternative lines...]]>
Turns out .txt files are sendt as part of the header...
They're not... but egghttp.tcl looks for a "<" to detect the end of the header. (because connections made using "connect" can't recieve the empty line that denotes the end of the header)
If your text contains a "<" some where in the middle, the contents will be split at that point (every line including the first one with a "<" in it ends up in the body)

Statistics: Posted by user — Fri Mar 18, 2005 10:31 am

]]> 2005-03-18T09:52:54-04:00 2005-03-18T09:52:54-04:00 https://forum.eggheads.org/viewtopic.php?p=47846#p47846 <![CDATA[Read from a TXT file in alternative lines...]]> Really... works very well! Exactly what I imagined...
You really know your way into TCL scripting! :)
If you come to Portugal say hello and I'll buy you a beer! :)
Greetz and Respect

Statistics: Posted by Thunderdome — Fri Mar 18, 2005 9:52 am

]]> 2005-03-18T00:44:56-04:00 2005-03-18T00:44:56-04:00 https://forum.eggheads.org/viewtopic.php?p=47830#p47830 <![CDATA[Read from a TXT file in alternative lines...]]> I edited the code above, so go ahead and give it a try.

Statistics: Posted by greenbear — Fri Mar 18, 2005 12:44 am

]]> 2005-03-17T23:43:25-04:00 2005-03-17T23:43:25-04:00 https://forum.eggheads.org/viewtopic.php?p=47829#p47829 <![CDATA[Read from a TXT file in alternative lines...]]>
well, the code seems fine... I used it and no problem with the bot... I also made the .chanset command....

but when I type !news.... nothing shows up! :?
What could it be :?:

Statistics: Posted by Thunderdome — Thu Mar 17, 2005 11:43 pm

]]> 2005-03-18T00:44:03-04:00 2005-03-17T22:47:25-04:00 https://forum.eggheads.org/viewtopic.php?p=47821#p47821 <![CDATA[Read from a TXT file in alternative lines...]]>

Code: 

# Set the chans you want to enable it in to +news# .chanset #channel +news# set this to the URL of the news fileset newsfile "http://someurl.com/file.txt" # want the answer to come out in notice (0) or privmsg (1)?set tellwho 0 setudef flag newsif ![info exists egghttp(version)] {  putlog "egghttp.tcl was NOT successfully loaded."  return}bind pub - !news getlistproc getlist {nick uhost hand chan text} { if ![channel get $chan news] return set sock [egghttp:geturl $::newsfile [list processlist $nick]]}proc processlist {nick sock} { set data [egghttp:headers $sock] egghttp:cleanup $sock set parse 0 foreach line [split $data \n] {  if $parse&&![string match ####* $line] {   if $::tellwho {    putserv "NOTICE $nick :$line"   } {    putserv "PRIVMSG $nick :$line"   }  }  if [string match -no Content-Type:* $line] {set parse 1} }}

Statistics: Posted by greenbear — Thu Mar 17, 2005 10:47 pm

]]> 2005-03-17T19:08:33-04:00 2005-03-17T19:08:33-04:00 https://forum.eggheads.org/viewtopic.php?p=47805#p47805 <![CDATA[Read from a TXT file in alternative lines...]]>

Statistics: Posted by Thunderdome — Thu Mar 17, 2005 7:08 pm

]]> 2005-03-17T18:45:52-04:00 2005-03-17T18:45:52-04:00 https://forum.eggheads.org/viewtopic.php?p=47803#p47803 <![CDATA[Read from a TXT file in alternative lines...]]>
Have a look at the http package that comes with tcl, or possibly egghttp.tcl.

There should be plenty of examples on how to use both on this forum, just search for it.

Statistics: Posted by greenbear — Thu Mar 17, 2005 6:45 pm

]]> 2005-03-15T20:38:18-04:00 2005-03-15T20:38:18-04:00 https://forum.eggheads.org/viewtopic.php?p=47725#p47725 <![CDATA[Read from a TXT file in alternative lines...]]> :D :D
but.....


set newsfile "http://someurl.com/file.txt"


this does not work... only works for root directory or any shell directory and not a site outside the shell...
how do I manage to put a txt from an outside site?
greetz

Statistics: Posted by Thunderdome — Tue Mar 15, 2005 8:38 pm

]]> 2005-03-15T20:33:49-04:00 2005-03-15T20:33:49-04:00 https://forum.eggheads.org/viewtopic.php?p=47724#p47724 <![CDATA[Read from a TXT file in alternative lines...]]>

Code: 

while {![eof $news]} { set line [gets $news] if {![string match ####* $line]} {  if {$tellwho} {   putserv "PRIVMSG $nick :$line"   } else {   putserv "NOTICE $nick :$line"  } }}

Statistics: Posted by greenbear — Tue Mar 15, 2005 8:33 pm

]]> 2005-03-15T20:28:24-04:00 2005-03-15T20:28:24-04:00 https://forum.eggheads.org/viewtopic.php?p=47723#p47723 <![CDATA[Read from a TXT file in alternative lines...]]> greetz and thanks for the help! :)

Statistics: Posted by Thunderdome — Tue Mar 15, 2005 8:28 pm

]]> 2005-03-15T20:18:17-04:00 2005-03-15T20:18:17-04:00 https://forum.eggheads.org/viewtopic.php?p=47722#p47722 <![CDATA[Read from a TXT file in alternative lines...]]>

Code: 

if ![string match ####* $line] {  # parse it}

Statistics: Posted by greenbear — Tue Mar 15, 2005 8:18 pm

]]> 2005-03-15T16:58:57-04:00 2005-03-15T16:58:57-04:00 https://forum.eggheads.org/viewtopic.php?p=47716#p47716 <![CDATA[Read from a TXT file in alternative lines...]]>
##### bla bla bla code
text text text text
##### bla bla bla code
text text text text
##### bla bla bla code
text text text text
##### bla bla bla code
text text text text



I have a tcl script:


#**********#
# SETTINGS #
#**********#

# set this to the full location of the news file
set newsfile "scripts/NewsMaker.txt"

# want the answer to come out in notice (0) or privmsg (1)?
set tellwho 0

# what channels do you want the script to work on?
# write "*" to disable.
set newschan "#channel"

#*******#
# BINDS #
#*******#

bind pub - !news holm-pub_news

#************************#
# DO NOT EDIT UNDERNEATH #
#************************#

putlog "holm-news.tcl $ver by tw|ster (Stian Holm) loaded ..."

proc holm-pub_news {nick uhost handle channel text} {
global newsfile tellwho newschan
if {(([lsearch -exact [string tolower $newschan] [string tolower $channel]] != -1) || ($newschan == "*"))} {
if {![file exists "$newsfile"]} {
if {$tellwho} {
putserv "PRIVMSG $nick :.:error:. sorry, but i can't find the news file!"
} else {
putserv "NOTICE $nick :.:error:. sorry, but i can't find the news file!"
}
return 0
}
if {![file readable "$newsfile"]} {
if {$tellwho} {
putserv "PRIVMSG $nick :.:error:. sorry, but i'm not allowed to read that file!"
} else {
putserv "NOTICE $nick :.:error:. sorry, but i'm not allowed to read that file!"
}
return 0
}
set news [open "$newsfile" r]
while {![eof $news]} {
set line [gets $news]
if {$tellwho} {
putserv "PRIVMSG $nick :$line"
} else {
putserv "NOTICE $nick :$line"
}
}
close $news
}
}

I modified the tcl script a bit for my own purposes... but I dont want it to read the full text! I just want it to read the lines with no ###
So, either the script ignores lines that start with #### or...
it reads like "line no, line yes, line no, line yes"

Can you guys help me out?
I know this may seem simple but I am complete newbie....
Greetz and thanks for the page and forum! Really helpfull![/quote]

Statistics: Posted by Thunderdome — Tue Mar 15, 2005 4:58 pm

]]>