egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-09-23T16:04:34-04:00 https://forum.eggheads.org/app.php/feed/topic/10555 2005-09-23T16:04:34-04:00 2005-09-23T16:04:34-04:00 https://forum.eggheads.org/viewtopic.php?p=56020#p56020 <![CDATA[Query String]]>

Will have another go!

Statistics: Posted by Scott — Fri Sep 23, 2005 4:04 pm

]]> 2005-09-23T15:44:30-04:00 2005-09-23T15:44:30-04:00 https://forum.eggheads.org/viewtopic.php?p=56019#p56019 <![CDATA[Query String]]>
and instead of patching into url-encoded string, use [::http::formatQuery]

Statistics: Posted by demond — Fri Sep 23, 2005 3:44 pm

]]> 2005-09-23T12:57:29-04:00 2005-09-23T12:57:29-04:00 https://forum.eggheads.org/viewtopic.php?p=56018#p56018 <![CDATA[Query String]]>
I'll try and place that in my code, might be back if it dont work :(

Edit: It didnt work :( This is the code i have (edited from another tcl i found, author unknown)

Code: 

proc pub:file { nick uhost handle channel arg } { global agentif {[llength $arg]==0} {putserv "PRIVMSG $channel :FFS! Use The Correct Syntax! !file FILENAME"} else {set searchphrase "searchphrase" set query "http://www.WEBSITE.com/search/query/p/?q=${searchphrase}&Category=-1&searchFP=p"set query "$query[lindex $arg 0]"#putserv "PRIVMSG $channel :$query"                set token [http::config -useragent $agent]set token [http::geturl $query]set html  [http::data $token]puts stderr ""upvar #0 $token stateset max 0#foreach {name value} $state(meta) {#putserv "PRIVMSG $channel :$value"#}#putserv "PRIVMSG $channel :$html"set result "[lindex $html 1]"set result [string range $result [expr [string first = $result]+2] [expr [string first > $result]-2]]putserv "PRIVMSG $channel :$result"}}
When i type, !File Dredd in the channel to test, i get the following error:

[12:59] Tcl error [pub:file]: list element in quotes followed by ">" instead of space

Statistics: Posted by Scott — Fri Sep 23, 2005 12:57 pm

]]> 2005-09-23T12:18:05-04:00 2005-09-23T12:18:05-04:00 https://forum.eggheads.org/viewtopic.php?p=56017#p56017 <![CDATA[Query String]]>

Code: 

set searchphrase "searchphrase"set searchurl "http://www.WEBSITE.com/search/query/p/?q=${searchphrase}&Category=-1&searchFP=p"

Statistics: Posted by Sir_Fz — Fri Sep 23, 2005 12:18 pm

]]> 2005-09-23T11:30:02-04:00 2005-09-23T11:30:02-04:00 https://forum.eggheads.org/viewtopic.php?p=56016#p56016 <![CDATA[Query String]]>
Im trying to build a TCL script that will search a site for a file, however the default search has the search string in the middle of the query. So im trying to make it so i can split the search URL and add a word in the middle...

http://www.WEBSITE.com/search/query/p/? ... ARCHPHRASE[/b]&Category=-1&searchFP=p

How would i be able to do that in tcl?

Statistics: Posted by Scott — Fri Sep 23, 2005 11:30 am

]]>