egghelp/eggheads community

Getting first Line of a on-the-web-located file

2006-06-20T03:10:48-04:00

i think you should declare check as global
try it.

Code:

bind time - * man ;# runs every minute proc man {m h d mo y} {  global check   set a [info exists check]    set fs [open file.txt r]    gets $fs line(first)    close $fs    if { $a == 1 } {       if { $check != $line(first) } {          putserv "PRIVMSG #channel1 :$line(first)"          unset check          set check "$line(first)"       }    } elseif { $a == 0 } {       set burpie "a is 0"       putserv "PRIVMSG #channel1 :$burpie"       set check "$line(first)"         } else {       set burp "damnit, a is not 0 or 1"       putserv "PRIVMSG #channel1 :$burp"    } }

EDIT: woops, i didn't see the second page of the post.

Statistics: Posted by SaPrOuZy — Tue Jun 20, 2006 3:10 am

Getting first Line of a on-the-web-located file

2006-06-19T13:26:14-04:00

Wauw!

That is exactly what I needed!
Really thanks a lot!

aap

PS. if you need something from me

Statistics: Posted by aap — Mon Jun 19, 2006 1:26 pm

Getting first Line of a on-the-web-located file

2006-06-19T12:39:46-04:00

that will only work on a local file not from the internet

try this

Code:

package require http # set your channel name and urlset channelx "#mychannel"set fileurl "http://myurl/text.txt"# don't edit below this lineset ol ""bind time - * manproc man {m h d mo y} {global channelx ol fileurlset x [::http::geturl $fileurl]set x2 [split [::http::data $x] \n]set nl [lindex $x2 0]if {$nl != $ol} {set ol [lindex $x2 0]puthelp "PRIVMSG $channelx :$nl"} }

Statistics: Posted by deadite66 — Mon Jun 19, 2006 12:39 pm

Getting first Line of a on-the-web-located file

2006-06-19T11:49:15-04:00

New problem

the problem is that 'a' is ALWAYS 0 :S

function of the script:
I want the script to output the first line of a .txt file, ONLY if it is new.

Code:

bind time - * man ;# runs every minuteproc man {m h d mo y} {   set a [info exists check]   set fs [open file.txt r]   gets $fs line(first)   close $fs   if { $a == 1 } {      if { $check != $line(first) } {         putserv "PRIVMSG #channel1 :$line(first)"         unset check         set check "$line(first)"      }   } elseif { $a == 0 } {      set burpie "a is 0"      putserv "PRIVMSG #channel1 :$burpie"      set check "$line(first)"         } else {      set burp "damnit, a is not 0 or 1"      putserv "PRIVMSG #channel1 :$burp"   }}

Statistics: Posted by aap — Mon Jun 19, 2006 11:49 am

Getting first Line of a on-the-web-located file

2006-06-19T10:55:56-04:00

so far I know

utimer is the same as timer, but in seconds

Statistics: Posted by aap — Mon Jun 19, 2006 10:55 am

Getting first Line of a on-the-web-located file

2006-06-19T10:54:05-04:00

won't that utimer just run the proc once when the bot starts up?

Statistics: Posted by deadite66 — Mon Jun 19, 2006 10:54 am

Getting first Line of a on-the-web-located file

2006-06-19T10:55:20-04:00

It worked Thanks,

but just 1 question: How can I change the timer, I mean... change 1 minute to 2 minutes, or 30 seconds. ?

thx

EDIT: that was a reply on the post from deadite66

Statistics: Posted by aap — Mon Jun 19, 2006 10:48 am

Getting first Line of a on-the-web-located file

2006-06-19T10:42:20-04:00

you don't need all those args if you're calling the proc in a timer. the reason why the script doesnt work is that you call the proc with no args, while it requires 'n u h c t' as arguments.

you either give all the params when calling the proc, or you use the following code:

Code:

set chan "#change_this"utimer 15 [now $chan]proc now {chan} {     set fs [open file.txt r]     gets $fs line(first)     putserv "PRIVMSG $chan :$line(first)"}

(i don't see why you use 'return' at the end of that proc, so i didn't include it)

Statistics: Posted by krimson — Mon Jun 19, 2006 10:42 am

Getting first Line of a on-the-web-located file

2006-06-19T10:39:35-04:00

Code:

bind time - * now ;# runs every minuteproc now {m h d mo y} {

this will run the procedure every minute, you'll have to change $c on the putserv line to the channel name.

Statistics: Posted by deadite66 — Mon Jun 19, 2006 10:39 am

Getting first Line of a on-the-web-located file

2006-06-19T10:23:03-04:00

I really need a timer, since the channel is not that crowded
other idea's to solve it?

Statistics: Posted by aap — Mon Jun 19, 2006 10:23 am

Getting first Line of a on-the-web-located file

2006-06-19T10:09:57-04:00

if you want the procedure called when someone issue a command in the channel change utimer to

Code:

bind pub - !line now

Statistics: Posted by deadite66 — Mon Jun 19, 2006 10:09 am

wrong number of args

2006-06-19T07:55:50-04:00

I really hate this...

I have now:

Code:

utimer 15 "now"proc now {n u h c t} {  set fs [open file.txt r]  gets $fs line(first)  putserv "PRIVMSG $c :$line(first)"  return}

eggdrop gives me something like

"wrong # of arguments, should be {now n u h c t}"
and when I do that, it says "should be {now now n u h c t}"
and so on...

Can someone help me?

Statistics: Posted by aap — Mon Jun 19, 2006 7:55 am

Getting first Line of a on-the-web-located file

2006-06-19T07:28:00-04:00

It worked...

Thanks a lot!

Statistics: Posted by aap — Mon Jun 19, 2006 7:28 am

Getting first Line of a on-the-web-located file

2006-06-19T07:06:36-04:00

try to replace:

foreach e [split [::http::data $x] \n] {
regsub -all {<([^<])*>} $e {} e
puthelp "privmsg $c :$e"
}

with

set e [lindex [split [::http::data $x] \n] 1]
regsub -all {<([^<])*>} $e {} e
puthelp "privmsg $c :$e"
}

i can't test it now, but i think it should work.[/quote]

Statistics: Posted by SaPrOuZy — Mon Jun 19, 2006 7:06 am

Getting first Line of a on-the-web-located file

2006-06-19T06:56:31-04:00

I found this:

Code:

proc foo {n u h c t} { set x [::http::geturl http://www.domain.com/file.txt] foreach e [split [::http::data $x] \n] {  regsub -all {<([^<])*>} $e {} e  puthelp "privmsg $c :$e" }}

And I understand that regsub -all won't read the html tags...
But how can I make the script so it won't read the 2nd line until the end of the file? So it will only output the first line?

Statistics: Posted by aap — Mon Jun 19, 2006 6:56 am