egghelp/eggheads community

heh

2006-07-02T07:02:40-04:00

Dude im still learning, all feedback good or bad is welcome, thanks

Statistics: Posted by NTHosts — Sun Jul 02, 2006 7:02 am

Can anyone tell me where I went wrong ? :(

2006-06-29T02:23:58-04:00

This script makes absolutely no sense at all.
It looks like you have no idea what you're doing if i read this.

I would advise you to use the http module anyway, i've found it to be much easier and better then egghttp.

Hint: You might want to try to call the topic_update with an actual socket, right now your script just loops by getting the website over and over (if i read it right)

Statistics: Posted by metroid — Thu Jun 29, 2006 2:23 am

...

2006-06-28T15:19:13-04:00

Someone slap me lol, i hadnt set url or anything
derrrrrr

Anyway, the script now looks like this..

Code:

bind pub * !test2 test2proc test2 {nick uhost handle chan arg} {   putquick "privmsg #Help :5"   putquick "privmsg #Help :4"   putquick "privmsg #Help :3"   putquick "privmsg #Help :2"   putquick "privmsg #Help :1"   putquick "privmsg #Help :!kicksrc"   putquick "privmsg #Help :Please Connect Now !"utimer 10 [list topic_update sock]}set url "http://www.lynxfm.info/stream.html"proc topic_update {sock} {  global url    set headers [egghttp:headers $sock]    set topic [egghttp:data $sock]    set topic1 [egghttp:data $sock]    set sock [egghttp:geturl $url topic_update]    return 1    regexp { (.*)} $topic "" dj    regexp { (.*) - .*} $topic1 - djnick    putquick "topic #LynxFM :\0030,12 ~ This Is LynxFM -|- The current DJ is: $dj ~ "    putquick "privmsg operserv :svsnick $djnick $djnick|On-Air"  }

and now gives the error..

ntIRC Currently: can't read "egghttp(9,body)": no such element in array
ntIRC Currently: while executing
ntIRC Currently: "if {![string match "*<*" $input] && ($egghttp($sock,body) == "")} {
ntIRC Currently: append egghttp($sock,headers) "$input\n"
ntIRC Currently: if {[string match "*HTTP/*" $inpu..."
ntIRC Currently: (procedure "egghttp:control" line 18)
ntIRC Currently: invoked from within
ntIRC Currently: "egghttp:control $_n $_a"

Anyone have any idea what that means ??

Statistics: Posted by NTHosts — Wed Jun 28, 2006 3:19 pm

Can anyone tell me where I went wrong ? :(

2006-06-28T14:23:03-04:00

the regexp simply does not match, check the syntax against the source. There are even tools out there to test regular expression, if you are not familar enough with them to match them with your brain .

Statistics: Posted by De Kus — Wed Jun 28, 2006 2:23 pm

...

2006-06-28T14:20:01-04:00

That was there, just missed it when putting it in the forum sorry
I tried using the others you said but didnt' work

Statistics: Posted by NTHosts — Wed Jun 28, 2006 2:20 pm

Can anyone tell me where I went wrong ? :(

2006-06-28T13:42:45-04:00

you are missing the extra argument in the first regexp, add something like - or "" or {} before 'dj'.

Statistics: Posted by De Kus — Wed Jun 28, 2006 1:42 pm

...

2006-06-28T13:24:27-04:00

anyone ? :-/

Statistics: Posted by NTHosts — Wed Jun 28, 2006 1:24 pm

...

2006-06-28T07:15:35-04:00

Ok that 'seems' to have fixed that, but now I get the error..

Tcl error in script for 'timer9':
can't read "dj": no such variable

But dj is clearly there lol, here's the whole script now..

Code:

bind pub * !test2 test2proc test2 {nick uhost handle chan arg} {   putquick "privmsg #Help :5"   putquick "privmsg #Help :4"   putquick "privmsg #Help :3"   putquick "privmsg #Help :2"   putquick "privmsg #Help :1"   putquick "privmsg #Help :!kicksrc"   putquick "privmsg #Help :Please Connect Now !"utimer 10 [list topic_update sock]}proc topic_update {sock} {    set headers [egghttp:headers $sock]    set topic [egghttp:data $sock]    #set topic1 [egghttp:data $sock]    regexp { (.*)} $topic dj    #regexp { (.*)-} $topic1 - djnick    putquick "topic #LynxFM :\0030,12 ~ This Is LynxFM -|- The current DJ is: $dj ~ "    #putquick "privmsg operserv :svsnick $djnick $djnick|On-Air"  }

Any ideas ?
Sorry if i'm being thick

Statistics: Posted by NTHosts — Wed Jun 28, 2006 7:15 am

Can anyone tell me where I went wrong ? :(

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

Code:

utimer 10 [list topic_update $sock]

Statistics: Posted by metroid — Wed Jun 28, 2006 7:01 am

right...

2006-06-28T06:59:31-04:00

When I add it like

Code:

utimer 10 topic_update {sock}

I get..

Tcl error [test2]: wrong # args: should be "utimer seconds command"

So i remove the arg {sock} then i get this..

Tcl error in script for 'timer8':
wrong # args: should be "topic_update sock"

Im very confused as to what i need to do now

Statistics: Posted by NTHosts — Wed Jun 28, 2006 6:59 am

Can anyone tell me where I went wrong ? :(

2006-06-28T06:15:46-04:00

he said the utimer 30 line, not just utimer 30.

Statistics: Posted by metroid — Wed Jun 28, 2006 6:15 am

...

2006-06-28T05:42:31-04:00

Dude that dont work.. i get this from .set errorInfo..

ntIRC Currently: wrong # args: should be "utimer seconds command"
ntIRC Currently: while executing
ntIRC Currently: "utimer 30"
ntIRC Currently: (procedure "test2" line 20)
ntIRC Currently: invoked from within
ntIRC Currently: "test2 $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Im lost lol

Statistics: Posted by NTHosts — Wed Jun 28, 2006 5:42 am

Can anyone tell me where I went wrong ? :(

2006-06-27T17:40:54-04:00

no.. if you want it to get called 30 seconds after it finishes, paste the utimer 30 line after the last line in proc test2

Statistics: Posted by krimson — Tue Jun 27, 2006 5:40 pm

..

2006-06-27T17:29:04-04:00

will that make it call the second proc 30 seconds after it completes the first tho ?

Statistics: Posted by NTHosts — Tue Jun 27, 2006 5:29 pm

Can anyone tell me where I went wrong ? :(

2006-06-27T16:19:35-04:00

you shouldn't declare the proc inside the utimer, you should just call it then

Code:

proc topic_update {sock} {     set headers [egghttp:headers $sock]     set topic [egghttp:data $sock]     regexp { (.*)} $topic - dj     putquick "topic #LynxFM :\0030,12 ~ This Is LynxFM -|- The current DJ is: $dj ~ "     #putquick "privmsg operserv :svsnick $djnick $djnick|On-Air"   } utimer 30 topic_update

Statistics: Posted by krimson — Tue Jun 27, 2006 4:19 pm