API kullanarak Google çevirici
PHP- Kodu:
#
# Google Çevirici
#
# Google Translate API kullanarak tercüme yapın
# Dil seçeneklerine bir çok dil daha eklenebilir
#
# IUC 2025
#
# Kullanım:
# !tr <lg> Satır
# lg is the destination language
#
#
namespace eval gTranslator {
set lngs { "fr" "en" "es" "de" "it" "nl" "id" "tr" }
#---------------------------------------------------------------------#
# *** Ayarların Sonu *** #
# Ne yaptığınızdan emin değilseniz editlemeyin! #
#---------------------------------------------------------------------#
variable author "IUC"
variable versionNum "1.0"
variable versionName "google çevirici"
}
namespace eval gTranslator {
bind pub - !tr gTranslator::translate
proc translate { nick uhost handle chan text } {
package require http
package require json
set lngto [string tolower [lindex [split $text] 0]]
if { [lsearch $::gTranslator::lngs $lngto] == -1 } {
putserv "PRIVMSG $chan :\002Dikkat!:\002 $Çevirilecek dil geçerli değildir."
return 0
}
set text [::http::formatQuery q [join [lrange [split $text] 1 end]]]
set dturl "http://ajax.googleapis.com/ajax/services/language/detect?v=1.0&q=$text"
set res [::json::json2dict [::http::data [::http::geturl $dturl]]]
set lng [dict get $res responseData language]
if { $lng == $lngto } {
putserv "PRIVMSG $chan :\002HATA:\002 $lng dan/den $lngto diline çevirilmedi."
return 0
}
set trurl "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&langpair=$lng%7C$lngto&$text"
putlog $trurl
set res [::json::json2dict [::http::data [::http::geturl $trurl]]]
putlog $res
putserv "PRIVMSG $chan :Dil tespit edildi: $lng"
set substitution {[format %c \1]}
set trtext [subst [regsub -all -- {&#(\d+);} [dict get $res responseData translatedText] $substitution]]
putserv "PRIVMSG $chan :$trtext"
}
}
putlog "\002$::gTranslator::versionName $::gTranslator::versionNum\002 Yüklendi."
| 