| View previous topic :: View next topic |
| Author |
Message |
x0x
Op
Joined: 10 Feb 2009
Posts: 140
|
 Posted: Tue Sep 24, 2013 1:33 pm Post subject: Add URL shorteners to Google script |
 |
|
I currently use the following Google script which works fine. Would it be possible to have it shorten the long Google links with tinyurl / goo.gl / ow.ly / su.pr etc.? Best would be to have a switch so that I can easily change or even randomize the shortener service.
| Code: | ##############################################################################################
## ## Advanced Google.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ##
##############################################################################################
## ## To use this script you must set channel flag +google (ie .chanset #chan +google) ## ##
##############################################################################################
##############################################################################################
## ## Start Setup. ## ##
##############################################################################################
## Change the character between the "" below to change the command character/trigger. ##
set googlecmdchar "!"
proc google {nick host hand chan type search} {
if {[lsearch -exact [channel info $chan] +google] != -1} {
## Change the country code between the "" below to change the language of your results. ##
set googlectry "en"
## Change the number between the "" below to change the number of results returned. ##
set googlemax "5"
## Change the characters between the "" below to change the logo shown with each result. ##
## set googlelogo "\002\0032G\0034o\0038o\00314g\0039l\0034e\002\003"
set googlelogo ""
# set googlelogo "\00312G\003\00304o\003\00307o\003\00312g\003\00303l\003\00304e\003"
## Change the format codes between the "" below to change the color/state of the text. ##
set textf ""
## Change the format codes between the "" below to change the color/state of the links. ##
set linkf ""
##############################################################################################
## ## End Setup. ## ##
##############################################################################################
set googlesite ajax.googleapis.com
set googleurl /ajax/services/search/${type}?v=1.0&rsz=large&q=${search}&ql=${googlectry}&lr=lang_${googlectry}
if {[catch {set googlesock [socket -async $googlesite 80]} sockerr]} {
putlog "$googlesite $googleurl $sockerr error"
return 0
} else {
puts $googlesock "GET $googleurl HTTP/1.0"
puts $googlesock "Host: $googlesite"
puts $googlesock "User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_8_4) AppleWebKit/536.30.1 (KHTML, like Gecko) Version/6.0.5 Safari/536.30.1"
puts $googlesock ""
flush $googlesock
while {![eof $googlesock]} {
set googlevar " [gets $googlesock] "
set googlelink [regexp -all -nocase -inline {\"url\":\"([^\"]*)\"} $googlevar]
set googledesc [regexp -all -nocase -inline {\"title\":\"([^\"]*)\"} $googlevar]
if {$googledesc != "" && $googlelink != ""} {
for {set x 1} {$x <= [expr 2 * $googlemax]} {incr x 2} {
putquick "PRIVMSG $chan :$googlelogo $textf[dehex [lindex $googledesc $x]] $linkf[dehex [lindex $googlelink $x]]"
}
}
}
close $googlesock
return 0
}
}
}
proc asc {chr} {
scan $chr %c asc
return $asc
}
proc chr {asc} { return [format %c $asc] }
proc hex {decimal} { return [format %x $decimal] }
proc decimal {hex} { return [expr 0x$hex] }
proc dehex {string} {
regsub -all {^\{|\}$} $string "" string
set string [subst [regsub -nocase -all {\\u([a-f0-9]{4})} $string {[format %c [decimal \1]]}]]
set string [subst [regsub -nocase -all {\%([a-f0-9]{2})} $string {[format %c [decimal \1]]}]]
set string [subst [regsub -nocase -all {\&#([0-9]{2});} $string {[format %c \1]}]]
## set string [string map {" \" · · & & <b> \002 </b> \002} $string]
set string [string map {" \" · · & & <b> "" </b> ""} $string]
return $string
}
proc urlencode {string} {
regsub -all {^\{|\}$} $string "" string
return [subst [regsub -nocase -all {([^a-z0-9])} $string {%[format %x [scan "\\&" %c]]}]]
}
proc googleweb {nick host hand chan args} { google $nick $host $hand $chan "web" [urlencode $args] }
proc googlelocal {nick host hand chan args} { google $nick $host $hand $chan "local" [urlencode $args] }
proc googlevideo {nick host hand chan args} { google $nick $host $hand $chan "video" [urlencode $args] }
proc googlenews {nick host hand chan args} { google $nick $host $hand $chan "news" [urlencode $args] }
proc googlebook {nick host hand chan args} { google $nick $host $hand $chan "books" [urlencode $args] }
proc googleimage {nick host hand chan args} { google $nick $host $hand $chan "images" [urlencode $args] }
proc googlepatent {nick host hand chan args} { google $nick $host $hand $chan "patent" [urlencode $args] }
bind pub - ${googlecmdchar}google googleweb
bind pub - ${googlecmdchar}glocal googlelocal
bind pub - ${googlecmdchar}gvideo googlevideo
bind pub - ${googlecmdchar}gnews googlenews
bind pub - ${googlecmdchar}gbook googlebook
bind pub - ${googlecmdchar}gimage googleimage
bind pub - ${googlecmdchar}gpatent googlepatent
setudef flag google |
|
|
| Back to top |
|
 |
x0x
Op
Joined: 10 Feb 2009
Posts: 140
|
| Posted: Mon Dec 09, 2013 12:13 pm Post subject: |
|
|
| Little bump. |
|
| Back to top |
|
|
x0x
Op
Joined: 10 Feb 2009
Posts: 140
|
| Posted: Fri Jan 10, 2014 8:35 am Post subject: |
|
|
Little bump. I think the Webby script already has an example, see http://forum.egghelp.org/viewtopic.php?p=88724#88724
I am willing to paypal a donation for helping me out and have got a positive reference to confirm here on the forums. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
