egghelp/eggheads community

Small socket script

2005-06-13T06:23:19-04:00

I prefer to use pure sockets..

Try this one..

Code:

set url "www.tclscript.com"  proc get_projects {nick uhost handle channel text} {    global url    set sock [socket $url 80]    fconfigure $sock -buffering line -buffersize 1000    puts $sock "GET /scripts.shtml HTTP/1.0"    puts $sock "Host: www.tclscript.com"    puts $sock ""    flush $sock        while {![eof $sock]} {    gets $sock body    regexp -all {Total Projects: (.*)} $body _ served    }        if {[eof $sock]} { close $sock }        regsub -all {(<.+?>)} $served "" served        puthelp "PRIVMSG $channel :www.tclscript.com has a total of [lindex $served 0] projects so far."    }bind pub - !projects get_projects

Statistics: Posted by Robb — Mon Jun 13, 2005 6:23 am

Small socket script

2005-06-13T05:03:11-04:00

With the help of the tutorial...

Code:

# egghttp_example.tcl# Configset url "http://www.tclscript.com/scripts.shtml"set dcctrigger "example"# End of configif {![info exists egghttp(version)]} {  putlog "egghttp.tcl was NOT successfully loaded."  putlog "egghttp_example.tcl has not been loaded as a result."} else {  proc your_callbackproc {sock} {    global url    set headers [egghttp:headers $sock]    set body [egghttp:data $sock]      regsub -all "\n" $body "" body    regsub -all -nocase {
} $body "
\n" body    regexp {Total Projects: (.*)} $body - served    puthelp "PRIVMSG #macked :There are total of $served projects so far."  }  bind dcc o|o $dcctrigger our:dcctrigger  proc our:dcctrigger {hand idx text} {    global url     set sock [egghttp:geturl $url your_callbackproc]    return 1  }    putlog "egghttp_example.tcl has been successfully loaded."}

For testing I edited the tutorial of http://www.tclscript.com/egghttp_tut.shtml but still no luck, I couldn't change the DCC bind trigger to pub for some reason, it wasn't working right, and I kept getting "wrong # args".

Also, my bot is msging the channel

There are total of 35 ] - [ Total Projects For Download: 31 ] - [ Total Downloads: 117518 projects so far.

However all I want is "There are total of 35 ] - [ Total Projects For Download: 31 ] - [ Total Downloads: 117518 projects so far."

Also the reason I have (.*) because if I don't I get "There are total of 35 ] - [ Total Projects For Download: 31 ] - [ Total Downloads: 117518 ]
" which is more messed up, I know it sounds weird but... :/

The underlined is completely unneeded, only the bolded part. Thanks for help.[/u]

Statistics: Posted by DarkJFMan — Mon Jun 13, 2005 5:03 am

Small socket script

2005-06-13T03:55:06-04:00

The reason I wasn't able to get what you mean by the script you gave me, because you were thinking of a different thing, the script I have in mind isn't where it looks at each line to increase the value of $total, I'm really sorry to bother you, but the script I'm looking at is almost close to a google script for an example.

After typing -projects instead of counting the projects 1 by 1, I was looking for a script that msg the channel " [ Total Projects: 35 ]", which is found at the bottom of the page http://www.tclscript.com/scripts.shtml so it won't be adding them up, only reading the number "35" that's why I thought egghttp would help me because it has (.*) after looking at http://www.tclscript.com/egghttp_tut.shtml. I hope you know what I mean, and I'm not giving you too much trouble.

Looking at the tutorial, it's a DCC trigger, I think I want it to be a public trigger msged to the channel insstead of saved in the log.

Thanks again.

Statistics: Posted by DarkJFMan — Mon Jun 13, 2005 3:55 am

Small socket script

2005-06-13T03:38:19-04:00

For the example I'm using with website http://www.tclscript.com/scripts.shtml if you scroll to bottom you see " [ Total Projects: 35 ]". So I'm trying to make my bot say: "There are total of 35 projects. Of course 35 will be update with the site, if you get what I mean, so later if the site says "[ Total Projects: 36 ]", my bot will say: "There are total of 36 projects.

I will put the info you gave me together, and post more questions later, thanks.

Statistics: Posted by DarkJFMan — Mon Jun 13, 2005 3:38 am

Small socket script

2005-06-13T03:31:57-04:00

well, basically you need to read through that webpage and count the lines which contain a project description; all you gotta do is:

Code:

set total 0foreach line [split [::http::data $token] \n] {  if [string match *someprojectpattern* $line] {incr total}}

Statistics: Posted by demond — Mon Jun 13, 2005 3:31 am

Small socket script

2005-06-13T03:22:48-04:00

I'm appreciating your help, the thing is I search "parse html" I wasn't able to find something on this forum, do you have a link where i could find how I can finish the script, I'm not asking you to make it, I just need few more hints.

The thing is, I have my script in mIRC and it works fine, I just need a small help in converting it into tcl. I know what I need to do, but not sure how to do it.

Statistics: Posted by DarkJFMan — Mon Jun 13, 2005 3:22 am

Small socket script

2005-06-13T00:39:06-04:00

this is not a complete script, you need to code the commented part yourself:

Code:

# parse $data, see how many project lines there is

and calculate $total appropriately (search forum for "parse html" on info how to do that; hint: you may need to strip HTML tags first)

BTW, this isn't a forum for complete scripts also

Statistics: Posted by demond — Mon Jun 13, 2005 12:39 am

Small socket script

2005-06-12T23:55:01-04:00

Thanks a lot for your reply demond but I got this for error

[22:53] Tcl error [aproc]: can't read "total": no such variable

What should I set it to?

Statistics: Posted by DarkJFMan — Sun Jun 12, 2005 11:55 pm

Small socket script

2005-06-12T15:14:01-04:00

for fetching a single, simple webpage you normally don't need async I/O; if you really need that, you can use -command option of [::http::geturl], which specifies a callback to be invoked when HTTP transaction is complete ([geturl] returns immediately)

I've never used egghttp, but would guess it's been written for older TCL versions which don't provide the http package

Statistics: Posted by demond — Sun Jun 12, 2005 3:14 pm

Small socket script

2005-06-12T14:51:56-04:00

that depends if you want async connections or not cause if i recall well

that script uses async sockets..

Statistics: Posted by Ofloo — Sun Jun 12, 2005 2:51 pm

Small socket script

2005-06-12T13:42:44-04:00

there's no need of egghttp, TCL comes with built-in http package:

Code:

package require httpbind pub - -projects aprocproc aproc {n u h c t} {  set token [::http::geturl http://www.tclscript.com/scripts.shtml]  set data [::http::data $token]  # parse $data, see how many project lines there is  puthelp "privmsg $c :total number of projects: $total"  ::http::cleanup $token}

Statistics: Posted by demond — Sun Jun 12, 2005 1:42 pm

Small socket script

2005-06-12T06:46:19-04:00

I'm just testing out socket with eggdrop, and have not been successful at all. Can someone make a script real quick or has a link to one similar where, for example:

Someone types: -projects

It will go to http://www.tclscript.com/scripts.shtml and get how many Total Projects there is.

I have egghttp.tcl on, I looked at http://www.tclscript.com/egghttp_tut.shtml but still no luck getting the right script.

Statistics: Posted by DarkJFMan — Sun Jun 12, 2005 6:46 am