supergoogle.tcl

sd · Post by sd » Mon Mar 18, 2002 2:28 pm

The bit at the bottom of supergoogle has changed to " Web Images Groups Directory " what do i change in the script to make it say what it did before like "Results 1 - 10 of about 256. Search took 0.19 seconds." i guess google changed there site a bit after the supergoogle.tcl was realeased.
Thanks

brother · Post by **brother** » Tue Apr 09, 2002 9:31 pm

i have got a bugreport from a user that stated the exact same thing, but i could not reproduce the error on my own hardware.

Is the problem still existant or was it temporary maybe?

munk · Post by **munk** » Sun Apr 28, 2002 12:09 am

Hey brother dude...

First off many thanks for the super google script... was working like a treat until recently. Seems to be the case that google have added some user-agent checking now and unfortunately this means sgoogle doesn't work any more... a snippet of debug:

Code: Select all

[19:03:38] eggdrop@solareclypse /home/eggdrop/ca_irc/scripts# fg
telnet localhost 5166 (wd: ~/ca_irc)
.google test
[15:03] DEBUG: Query built (http://www.google.com/search?q=test&num=1)
[15:03] DEBUG: Contacting website...
[15:03] DEBUG: Got state (HTTP/1.0 403 Forbidden)
Could not find results for test (Error: Forbidden)
[15:03] [SG] (Pline) munk requested test but got an error: Forbidden.

I did a bit of research and it looks like the original was fixed very recently:

Code: Select all

# google.tcl v0.2.1
#
# ...
#
# by aNa|0Gue - analogue@glop.org - http://www.glop.org/
#
# 04/17/2002 v0.2.1 useragent fix by FAN

I did try and modify the user-agent string in your tcl script, but had no joy (it was the first time I'd attempted any tcl;()...

Any chance you could perhaps add a user-agent variable at the head of the script that's utilized in the call to the 'config' http method (if that's the right terminology!)? Here's my feeble effort at testing stuff out:

Code: Select all

if {!($sgoogle_proxy == "")} {
    http::config -proxyhost [lindex [split $sgoogle_proxy {:}] 0] -proxyport [li
ndex [split $sgoogle_proxy {:}] 1] -useragent "Mozilla/4.72 [en] (X11; I; FreeBS
D 5.0-20000506-CURRENT i386)"
    #http::config -proxyhost [lindex [split $sgoogle_proxy {:}] 0] -proxyport [l
index [split $sgoogle_proxy {:}] 1] -useragent httpcopy
}

Thanx in advance,
Jez

_________________
www.freebsd.org - you know it makes sense.

[ This Message was edited by: munk on 2002-04-27 22:13 ]

[ This Message was edited by: munk on 2002-04-27 22:13 ]

munk · Post by **munk** » Sun Apr 28, 2002 12:43 am

Apologies, just visited your site and grabbed the fix

blarre · Post by **blarre** » Mon Apr 29, 2002 5:01 pm

hello, any one have the google.tcl script who will show 5> results of the search? i dont whant to only show the first...

brother · Post by **brother** » Thu Jun 20, 2002 3:10 pm

I have released 1.3 of supergoogle on my site.

supergoogle-1.3.zip

I shall sent it to lennox soon to put into his collection but for now just grab it from my site.

_________________
Someday you too will meet thy destiny...

[ This Message was edited by: brother on 2002-06-20 13:11 ]

[ This Message was edited by: brother on 2002-06-20 13:12 ]