Read .txt

[cBuster]

Hi!

Anyone who can tell me how to make a .tcl-script that just announce everything that stands in a .txt?

Lets say that I want my bot to announce everything that stands in http://xxx.xxxx.com/test.txt when I type !test

Anyone want do to a script like that for me?

*EDIT*

Forgot to say that I want the bot to notice the "results" for the one who typed the command. Not to all in chan or private-msg.

[demond]

read the file into a list, bind to pub command and when that bind triggers, foreach element in your list putserv notice to the nick that issued command

[cBuster]

read the file into a list, bind to pub command and when that bind triggers, foreach element in your list putserv notice to the nick that issued command

I don't know a [censored] about .tcl. So I don't understand anything about what you said, hehe.

I thought a script like that was so simple to do that you had time to make one for me. It will take me like one week before I can do it myself. Don't have that much time so I hope a kind soul in here can help me out...

[demond]

hey this was in Script Help forum! wasn't it?

[cBuster]

bind pub - !tmp pub:tmp

proc pub:tmp {nick uhost hand chan text} {
if ![channel get $chan tmp] return
set url "http://***.****/***.txt"
}

Something like that?

[demond]

Code: Select all

package require http
bind pub - !test foo
proc foo {n u h c t} {
   set x [::http::geturl http://bar.com/moo.txt]
   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}
   ::http::cleanup $x
}

[NTHosts]

Hello,

that script works fine if you are using just 1.

I tried 2 use a few of them 2 grab different txt files, however it just keeps on grabbing the same txt file and ignoring the rest... yes i am changing the !trigger and changing the url of the file..
Very confused... plz help :D:D:D

[]Kami[]

You need to change proc names aswell.

Script should look like this then:

Code: Select all

package require http

bind pub - !triger1 foo
bind pub - !triger2 foo2

proc foo {n u h c t} {
   set x [::http::geturl http://bar.com/moo1.txt]
   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}
   ::http::cleanup $x
}

proc foo2 {n u h c t} {
   set x [::http::geturl http://bar.com/moo2.txt]
   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}
   ::http::cleanup $x
} 

// Thanks Sir_Fz

[Sir_Fz]

You forgot to close the open brace of the foo proc.

[NTHosts]

Thanks guys, works great now

[lebjustice]

How to make this auto check every 1 min the txt and if any 1line or 2 lines is been changed it will be auto posted in the chan. thanks

Code: Select all

package require http 
bind pub - !test foo 
proc foo {n u h c t} { 
   set x [::http::geturl http://bar.com/moo.txt] 
   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"} 
   ::http::cleanup $x 
}