egghelp/eggheads community

Parse

2004-07-18T10:32:00-04:00

not sur what it is you are doing but here is a sample i always to debug altho it doesn't strip html tags ..

use : !debug

Code:

bind pub - !debug debug:pubproc debug:pub {nick host hand chan arg} {  if {[string equal -nocase "#debug" $chan]} {    catch {socket [lindex $arg 0] [lindex $arg 1]} sock    puts $sock "GET /[lindex $arg 2] HTTP/1.1"    puts $sock "Host: [lindex $arg 0]:[lindex $arg 1]"    puts $sock "Connection: Close"    puts $sock "User-Agent: Debug client"    puts $sock "\n\r"    flush $sock    while {![eof $sock]} {      flush $sock      gets $sock line      putserv "PRIVMSG $chan :$line"    }  } else {    putserv "PRIVMSG $chan :Not valid channel."  }}

Statistics: Posted by Ofloo — Sun Jul 18, 2004 10:32 am

Parse

2004-07-18T02:52:31-04:00

Code:

# egghttp_example.tcl # Config set url "http://www............com/test.html" set dcctrigger "example" # End of config if {![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 {We have served (.*) people to date!} $body - served     putlog "Website '$url' has served $served people 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." }

No answer
Atleast tell me how to add a public trigger in this code say !trigger and get the output on channel
thanks.

Statistics: Posted by Guest — Sun Jul 18, 2004 2:52 am

Parse

2004-07-17T04:47:56-04:00

Code:

# egghttp_example.tcl# Configset url "http://www............com/test.html"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 {We have served (.*) people to date!} $body - served    putlog "Website '$url' has served $served people 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."}

"And this is the content of the website

Untitled Document

0.No spamming. This includes unauthorized
scripts and bots and excessive use of colors. (Bold Font or Contstant
Caps included)

1.No vulgar, racist, or offensive language. This includes but is not limited
to swearing and harrassment.

2.All communication should be in the English language.

We have served 710 people to date!

when .example is executed in the dcc line i get the last line."Website 'http://www.........com/test.html' has served 710 people so far."
my Q is how do i get the full content starting from "Welcome to My site....
ie wat eva there is in the page it is extracted.
i have searched thru forums ..but most of them are complicated, so please ..may be u can help.. Thanks in Advance

Statistics: Posted by Guest — Sat Jul 17, 2004 4:47 am