Getting this on a YouTube request:
Code: Select all
<Cocco> [17:00] Tcl error [incith::google::private_message]: can't read "reply": no such variable
Code: Select all
<Cocco> [17:00] Tcl error [incith::google::private_message]: can't read "reply": no such variable
Yep, appears for certain domains Youtube is acquiring the actual country domain. So es.youtube.com redirects to youtube.es now at least as far as searching goes. I've coded a new routine into the fetch_html procedure which follows the first redirect given to solve it. I'll fix ebay soon, as the new server isn't entirely enabled yet. So expect some trouble with ebay at times. I will also change the way wiki(pedia/media) handles redirects which presently does it rather tediously, it can be neatened up using the way i've done it within the fetch_html... But anyways, the new script can be found right here or the first post of this thread.MellowB wrote:Did !yt stop working or is my host now blocked or something like that? :>
Getting this on a YouTube request:Code: Select all
<Cocco> [17:00] Tcl error [incith::google::private_message]: can't read "reply": no such variable
Code: Select all
if {[encoding system] != "identity" && [lsearch [encoding names] "ascii"]} {
set command_char [encoding convertfrom ascii ${incith::google::command_char}]
set input [encoding convertfrom ascii $input]
Good to hear that about the vanilla UTF-8 version, I'll wait for that!speechles wrote: As far as making a separate version to support the utf-8 hack, this is possible. But I would rather first fix the script to full functionality and once this is achieved I can easily strip out my encoding modifications to return the script back to the utf-8 soup it started off as...Also noticed the original script does some encoding play within the input sections that I haven't pondered yet. Perhaps this code is what is ruining my input_encoding procedures?Perhaps the "ascii" and ascii should be changed into "utf-8" and utf-8? Then with encoding_conversion enabled possibly it can work?Code: Select all
if {[encoding system] != "identity" && [lsearch [encoding names] "ascii"]} { set command_char [encoding convertfrom ascii ${incith::google::command_char}] set input [encoding convertfrom ascii $input]
Code: Select all
[22:23] Tcl error [incith::google::public_message]: Unknown option -urlencoding, must be: -accept, -proxyfilter, -proxyhost, -proxyport, -useragent
DOH!Phyxion wrote:Thanks for this great script!
DailyMotion is broken in all builds you posted. Seems they updated their code.
Greetings.
Code: Select all
# set this to the default country you would like dailymotion to use when
# no country is specified. default is "en" for international.
# http://dailymotion.com/*/ - en, es, fr, nl, pt, da, el, it, pl, ro, sv, tr, ja, ko, zh, these are examples.
# ------
variable daily_country "en"
Now it looks elegant again.. yay!! Get the new script here or this first post of this thread. As always, have a fun<speechles> !dm .en irc
<sp33chy> DailyMotion | Basshunter Boten Anna (03:25 eng 27 months ago - 361 votes) @ http://www.dailymotion.com/en/video/x5lmt | Ypres Westhoek Rally IRC (06:00 eng 14 months ago - 4 votes) @ http://www.dailymotion.com/en/video/x2e9c1 | Best of 2008 première partie by JM (10:25 fra yesterday - 5 votes) @
<sp33chy> http://www.dailymotion.com/en/video/x6a4lo | Basshunter Boten Anna [Fr] (03:25 fra 27 months ago - 403 votes) @ http://www.dailymotion.com/en/video/x5rna
<speechles> !dm .de irc
<sp33chy> DailyMotion | Basshunter Boten Anna French (03:25 fra 19 months ago - 4 votes) @ http://www.dailymotion.com/de/video/x13np3 | Jumpstyle (02:29 eng 6 months ago - 0 votes) @ http://www.dailymotion.com/de/video/x4a92o
<speechles> !dm .nl irc
<sp33chy> DailyMotion | Guide to IRC (03:10 nld 17 months ago - 0 votes) @ http://www.dailymotion.com/nl/video/x1m9en
Now as google adds more languages, the script will natively support every single one of them as well as their potential error messages regarding their lack of support. This beats a static, 'sorry, this translation pair isn't supported' message any day me thinks.<speechles> !tr auto@en betul
<sp33chy> Google error: (auto->en) We are not yet able to translate from Malay into English..
<speechles> !tr auto@nl eggdrops are fun!
<sp33chy> Google says: (auto->nl) Translation: English (automatically detected) » Dutch >> Eggdrops zijn leuk!
<speechles> !tr auto@de sometimes eggdrops aren't fun and that is why egghelp exists.. haw
<sp33chy> Google says: (auto->de) Translation: English (automatically detected) » German >> manchmal sind nicht eggdrops Spaß und das ist der Grund, warum egghelp existiert .. Haw
<speechles> !tr auto@en manchmal sind nicht eggdrops Spaß und das ist der Grund, warum egghelp existiert .. Haw
<sp33chy> Google says: (auto->en) Translation: German (automatically detected) » English >> eggdrops sometimes are not fun and this is the reason why egghelp exists .. Haw
Code: Select all
[18:44] Tcl error [incith::google::public_message]: can't read "reply": no such variable
Wow, I just fixed that thing. Now it's giving a 303 error when attempting to contact "youtube.com", LMAO!! Only the "com" server was affected, any other server domain would've worked. But I've now fixed it as seen below.. so no worries.shadrach wrote:Youtube isn't working in my script. I don't think it's anything I changed - intentionally at least.All the other aspects work fine.Code: Select all
[18:44] Tcl error [incith::google::public_message]: can't read "reply": no such variable
Get the newest version of the script Here (v1.9.8r) or the first post of this thread. As always, have a fun<speechles> !y irc
<sp33chy> 7,020 video results | Connect to IRC Chat room on iPod Touch (08:30) @ http://youtube.com/watch?v=zP9rWHuOka8&fmt=18 | Live Chat and IRC on iPhone (06:35) @ http://youtube.com/watch?v=BhflSlTsbrk&fmt=18 | IRC afghan education (03:28) @ http://youtube.com/watch?v=l3jhcJfGs3k&fmt=18 | IRC Chat Safety and Security (07:50) @ http://youtube.com/watch?v=K5jFm3m2O38&fmt=18 | A video profile
<sp33chy> of the IRC, hosted by (06:49) @ http://youtube.com/watch?v=kfPNz6d1tfI&fmt=18
i am gettin same error on 1.9.5r and also have http 2.5Jonathan1683 wrote:still getting this error
I have http2.5Code: Select all
[22:23] Tcl error [incith::google::public_message]: Unknown option -urlencoding, must be: -accept, -proxyfilter, -proxyhost, -proxyport, -useragent
Code: Select all
!translate en@zh-CN dictionary
Google says: (en->zh-CN) 字典
Code: Select all
!translate zh-CN@en 字典
Google says: (zh-CN->en) Ying Yumie
Code: Select all
--- incith-google-v1.98r.tcl-ori
+++ incith-google-v1.98r.tcl
@@ -2361,16 +2361,16 @@
regexp -nocase -- {^(.+?)@(.+?)\s(.+?)$} $input - link desc titem
# fetch the html
set ua "Lynx/2.8.5rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.7e"
- set http [::http::config -useragent $ua -urlencoding "iso8859-1"]
+ set http [::http::config -useragent $ua -urlencoding "utf-8"]
set url "http://www.google.com/translate_t?"
set query [::http::formatQuery text $titem sl "${link}" tl "${desc}" ]
catch {set http [::http::geturl "$url" -query $query -timeout [expr 1000 * 10]]} error
# CHECK CHECK
upvar #0 $http state
- set incithcharset [string map -nocase {"UTF-" "utf-" "iso-" "iso" "windows-" "cp" "shift_jis" "shiftjis"} $state(charset)]
+ set incithcharset [string map -nocase {"UTF-" "utf-" "iso-" "iso" "windows-" "cp" "shift_jis" "shiftjis" "gb2312" "big5"} $state(charset)]
if {$incith::google::debug > 0} {
- putserv "privmsg $incith::google::debugnick :\002url:\002 $url$query \002\037charset:\002\037 [string map -nocase {"iso-" "iso" "windows-" "cp" "shift_jis" "shiftjis"} $incithcharset]"
+ putserv "privmsg $incith::google::debugnick :\002url:\002 $url$query \002\037charset:\002\037 [string map -nocase {"iso-" "iso" "windows-" "cp" "shift_jis" "shiftjis" "gb2312" "big5"} $incithcharset]"
}
if {[string match -nocase "*couldn't open socket*" $error]} {
return "Socket Error accessing '${url}' .. Does it exist?"
@@ -2397,14 +2397,19 @@
regsub -all ";;>" $html "" html
# make sure everything is lowercase.
- set desc [string tolower $desc]
- set link [string tolower $link]
+# set desc [string tolower $desc]
+# set link [string tolower $link]
+ set desc $desc
+ set link $link
+
if {![regexp -- {</td><td id=autotrans style="display: block">(.+?)</td></tr>} $html {} detect]} {set detect ""}
regexp -- {<textarea name=utrans.+?id=suggestion>(.+?)</textarea>} $html - match
if {$match != ""} {
- return "Google says\: \(${link}\-\>${desc}\)\ [incithencode [descdecode "$detect >> ${match}"]]"
+ return "Google says\: \(${link}\-\>${desc}\)\ ${match}"
+# return "Google says\: \(${link}\-\>${desc}\)\ [incithencode [descdecode "$detect >> ${match}"]]"
} else {
- return "Google error\: \(${link}\-\>${desc}\)\ [incithencode [descdecode "$detect."]]"
+# return "Google error\: \(${link}\-\>${desc}\)\ [incithencode [descdecode "$detect."]]"
+ return "Google error\: \(${link}\-\>${desc}\)\ "$detect.""
}
return $output
}
Code: Select all
!translate zh-CN@en 字典
Code: Select all
!translate auto@en <chinese language goes here>
Code: Select all
!tr auto@<dest> <text to translate here>
!translate zh-CN@en 字典
Google says: (zh-CN->en) Ying Yumie
The bottom is the newer look for the output display. It will give the shortcuts first, the ones you enter. Afterwards are the longname languages translated from and to, and whether it was an automatic guess or not. Followed by a pair of greater than signs >> which leads to the translated sentence. This is a much better way to do it, regetting the r version of the script gives this new ability to use auto.!tr auto@en manchmal sind nicht eggdrops Spaß und das ist der Grund, warum egghelp existiert .. Haw
Google says: (auto->en) Translation: German (automatically detected) » English >> eggdrops sometimes are not fun and this is the reason why egghelp exists .. Haw
Code: Select all
!tr auto@en 字典
Google says: (auto->en) å - å~E ¸
!tr zh-CN@en 字典
Google says: (zh-CN->en) Ying Yumie
Code: Select all
!tr auto@en manchmal sind nicht eggdrops Spaß und das ist der Grund, warum egghelp existiert .. Haw
Google says: (auto->en) sometimes are not eggdrops SpaÃ~_ and this is the reason why egghelp exists .. Haw
Code: Select all
!tr auto@zh-CN dictionary
Google says: (auto->zh-cn) Translation: English (automatically detected) ? Chinese >> ?ֵ?
Code: Select all
!tr auto@en 字典
Google says: (auto->en) Translation: Polish (automatically detected) ? English >> Wx