egghelp/eggheads community

php text grabbing tcl

2010-11-30T01:20:12-04:00

This script is fantastic! how can i make it check the site and post to chat every X min between the hours of X and Y?

Statistics: Posted by adi2247 — Tue Nov 30, 2010 1:20 am

php text grabbing tcl

2010-10-19T14:31:24-04:00

ok so, this worked:

Code:

regsub -all -- {(]*>)|()} $info "\002" info;

Statistics: Posted by spithash — Tue Oct 19, 2010 2:31 pm

php text grabbing tcl

2010-10-19T11:55:36-04:00

Code:

[11:52:55]  .tcl queuesize[11:52:55]  Tcl: 0

I get this after I use this script

Code:

Warning: over maximum help queue!

anyone to enlightment me ?

Statistics: Posted by spithash — Tue Oct 19, 2010 11:55 am

php text grabbing tcl

2010-10-18T17:51:59-04:00

uhm,
for some reason the bot gives me this error and ping timeouts...

Warning: over maximum server queue!

Warning: over maximum help queue!

depending on what i use.. puthelp or putserv.

I read old posts about it but I couldnt find anything that might help me avoid this...

Statistics: Posted by spithash — Mon Oct 18, 2010 5:51 pm

php text grabbing tcl

2010-10-18T16:33:00-04:00

The code looks like this:

Code:

setudef flag trollbind pub - !troll parceproc parce {nick uhost hand chan text} {    if {[channel get $chan troll]} {::http::config -urlencoding utf-8 -useragent "Mozilla/5.0 (X11; U; Linux i686; ru-RU; rv:1.8.1) Gecko/2006101023 Firefox/2.0"set url [::http::geturl "http://rolloffle.churchburning.org/troll_me.php" -timeout 15000]set data [::http::data $url]::http::cleanup $urlregsub -all -- {\n} $data "" data;regexp -nocase -- {(.*?)
} $data -> inforegsub -all -- {|} $info "\002" info;while { $info != "" } {    puthelp "PRIVMSG $chan :[string range $info 0 399]"    set info [string range $info 400 end]    }  }}

Statistics: Posted by spithash — Mon Oct 18, 2010 4:33 pm

php text grabbing tcl

2010-10-18T16:28:46-04:00

I just realized that it bolds EVERYTHING AFTER the bolded word on the website and the bolded word won't even appear...

The website I'm trying to fetch quotes from, is this:

http://rolloffle.churchburning.org/troll_me.php

not all quotes are word-bolded. if you refresh you will understand

Statistics: Posted by spithash — Mon Oct 18, 2010 4:28 pm

php text grabbing tcl

2010-10-18T15:07:59-04:00

...and it works awesomely!

I really thank you a LOT

Statistics: Posted by spithash — Mon Oct 18, 2010 3:07 pm

php text grabbing tcl

2010-10-18T14:28:17-04:00

Use this:

Code:

bind pub - !trigger parceproc parce {nick uhost hand chan text} {::http::config -urlencoding utf-8 -useragent "Mozilla/5.0 (X11; U; Linux i686; ru-RU; rv:1.8.1) Gecko/2006101023 Firefox/2.0"set url [::http::geturl "http://www.example.com/test.php" -timeout 15000]set data [::http::data $url]::http::cleanup $urlregsub -all -- {\n} $data "" data;regexp -nocase -- {(.*?)
} $data -> inforegsub -all -- {|} $info "\002" info;while { $info != "" } {     putserv "PRIVMSG $chan :[string range $info 0 399]"    set info [string range $info 400 end]}}

Statistics: Posted by username — Mon Oct 18, 2010 2:28 pm

php text grabbing tcl

2010-10-18T13:28:58-04:00

also I got another problem,

when the text is too long, it just cuts it off, it doesn't continue on a new line.. it just cuts it off

Statistics: Posted by spithash — Mon Oct 18, 2010 1:28 pm

php text grabbing tcl

2010-10-18T00:16:27-04:00

speechles, I got this:

[00:14:29] <@spithash> !test
[00:14:31] <@nagger> 1

after adding this

Code:

regsub -all {|} [regexp -nocase -- {(.*?)
} $data] "\002" info

Statistics: Posted by spithash — Mon Oct 18, 2010 12:16 am

php text grabbing tcl

2010-10-17T20:18:48-04:00

Code:

regexp -nocase -- {(.*?)
} $data -> info

Change this part above, to the part below..

Code:

regsub -all {|} [regexp -nocase -- {(.*?)
} $data] "" info

If instead, you'd like to leave these words in bold. Change it to look like it is below this:

Code:

regsub -all {|} [regexp -nocase -- {(.*?)
} $data] "\002" info

Statistics: Posted by speechles — Sun Oct 17, 2010 8:18 pm

php text grabbing tcl

2010-10-17T16:41:34-04:00

[censored] can be any word.. it was just filtered by egghelp's forum bad word filter

Statistics: Posted by spithash — Sun Oct 17, 2010 4:41 pm

php text grabbing tcl

2010-10-17T16:20:26-04:00

yo @username

it works awesomely, thing is (i just noticed, sorry) that some words randomly are bolded in a few quotes like this:

Code:

mew mew mew mooyo think if i got a real doll and had a voodoo priest do [censored] to it, and attached lindsay lohan's soul to it, that if poke it she'd feel it and [censored]?
1ms

so it fetches the bolding.coloring code aswell

considering [censored] are the bolded/colored words...

Statistics: Posted by spithash — Sun Oct 17, 2010 4:20 pm

php text grabbing tcl

2010-10-17T15:58:30-04:00

Try this:

Code:

bind pub - !trigger parceproc parce {nick uhost hand chan text} {::http::config -urlencoding utf-8 -useragent "Mozilla/5.0 (X11; U; Linux i686; ru-RU; rv:1.8.1) Gecko/2006101023 Firefox/2.0"set url [::http::geturl "http://www.example.com/test.php" -timeout 15000]set data [::http::data $url]::http::cleanup $urlregsub -all -- {\n} $data "" data;regexp -nocase -- {(.*?)
} $data -> infoputserv "PRIVMSG $chan :$info"}

Statistics: Posted by username — Sun Oct 17, 2010 3:58 pm

php text grabbing tcl

2011-01-31T18:59:08-04:00

let's say we have a www.example.com/test.php file on a website including the following, that randomly shows texts

Code:

mew mew mew mooYo! First off I love the Lord Jesus. My name is Ron. I am a Freshman at Winona State. My family is really important to me. I'm not doing this to find a g/f. I just thought it would be funny and I like to meet new people. Peace out!
45ms

any help around to grab this using a !trigger?:

Code:

Yo! First off I love the Lord Jesus. My name is Ron. I am a Freshman at Winona State. My family is really important to me. I'm not doing this to find a g/f. I just thought it would be funny and I like to meet new people. Peace out!

Statistics: Posted by spithash — Sun Oct 17, 2010 3:33 pm