You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdeaddons/konq-plugins/babelfish/plugin_babelfish.cpp

377 lines
16 KiB

/* This file is part of the KDE Project
Copyright (C) 2001 Kurt Granroth <granroth@kde.org>
Original code: plugin code, connecting to Babelfish and support for selected text
Copyright (C) 2003 Rand2342 <rand2342@yahoo.com>
Submenus, TDEConfig file and support for other translation engines
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License version 2 as published by the Free Software Foundation.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public License
along with this library; see the file COPYING.LIB. If not, write to
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
*/
#include "plugin_babelfish.h"
#include <tdeaction.h>
#include <kinstance.h>
#include <tdemessagebox.h>
#include <tdelocale.h>
#include <tdeconfig.h>
#include <kgenericfactory.h>
#include <tdeaboutdata.h>
#include <tdehtml_part.h>
typedef KGenericFactory<PluginBabelFish> BabelFishFactory;
static const TDEAboutData aboutdata("babelfish", I18N_NOOP("Translate Web Page") , "1.0" );
K_EXPORT_COMPONENT_FACTORY( libbabelfishplugin, BabelFishFactory( &aboutdata ) )
PluginBabelFish::PluginBabelFish( TQObject* parent, const char* name,
const TQStringList & )
: Plugin( parent, name )
{
setInstance(BabelFishFactory::instance());
m_menu = new TDEActionMenu( i18n("Translate Web &Page"), "babelfish",
actionCollection(), "translatewebpage" );
m_menu->setDelayed( false );
m_en = new TDEActionMenu( i18n("&English To"), "babelfish",
actionCollection(), "translatewebpage_en" );
m_fr = new TDEActionMenu( i18n("&French To"), "babelfish",
actionCollection(), "translatewebpage_fr" );
m_de = new TDEActionMenu( i18n("&German To"), "babelfish",
actionCollection(), "translatewebpage_de" );
m_es = new TDEActionMenu( i18n("&Spanish To"), "babelfish",
actionCollection(), "translatewebpage_es" );
m_pt = new TDEActionMenu( i18n("&Portuguese To"), "babelfish",
actionCollection(), "translatewebpage_pt" );
m_it = new TDEActionMenu( i18n("&Italian To"), "babelfish",
actionCollection(), "translatewebpage_it" );
m_nl = new TDEActionMenu( i18n("&Dutch To"), "babelfish",
actionCollection(), "translatewebpage_nl" );
m_en->insert( new TDEAction( i18n("&Chinese (Simplified)"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_zh") );
m_en->insert( new TDEAction( i18n("Chinese (&Traditional)"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_zhTW") );
m_en->insert( new TDEAction( i18n("&Dutch"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_nl") );
m_en->insert( new TDEAction( i18n("&French"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_fr") );
m_en->insert( new TDEAction( i18n("&German"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_de") );
m_en->insert( new TDEAction( i18n("&Italian"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_it") );
m_en->insert( new TDEAction( i18n("&Japanese"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_ja") );
m_en->insert( new TDEAction( i18n("&Korean"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_ko") );
m_en->insert( new TDEAction( i18n("&Norwegian"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_no") );
m_en->insert( new TDEAction( i18n("&Portuguese"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_pt") );
m_en->insert( new TDEAction( i18n("&Russian"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_ru") );
m_en->insert( new TDEAction( i18n("&Spanish"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_es") );
m_en->insert( new TDEAction( i18n("T&hai"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "en_th") );
m_fr->insert( new TDEAction( i18n("&Dutch"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "fr_nl") );
m_fr->insert( new TDEAction( i18n("&English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "fr_en") );
m_fr->insert( new TDEAction( i18n("&German"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "fr_de") );
m_fr->insert( new TDEAction( i18n("&Italian"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "fr_it") );
m_fr->insert( new TDEAction( i18n("&Portuguese"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "fr_pt") );
m_fr->insert( new TDEAction( i18n("&Spanish"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "fr_es") );
m_de->insert( new TDEAction( i18n("&English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "de_en") );
m_de->insert( new TDEAction( i18n("&French"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "de_fr") );
m_es->insert( new TDEAction( i18n("&English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "es_en") );
m_es->insert( new TDEAction( i18n("&French"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "es_fr") );
m_pt->insert( new TDEAction( i18n("&English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "pt_en") );
m_pt->insert( new TDEAction( i18n("&French"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "pt_fr") );
m_it->insert( new TDEAction( i18n("&English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "it_en") );
m_it->insert( new TDEAction( i18n("&French"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "it_fr") );
m_nl->insert( new TDEAction( i18n("&English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "nl_en") );
m_nl->insert( new TDEAction( i18n("&French"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "nl_fr") );
m_menu->insert( new TDEAction( i18n("&Chinese (Simplified) to English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "zh_en") );
m_menu->insert( new TDEAction( i18n("Chinese (&Traditional) to English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "zhTW_en") );
m_menu->insert( m_nl );
m_menu->insert( m_en );
m_menu->insert( m_fr );
m_menu->insert( m_de );
m_menu->insert( m_it );
m_menu->insert( new TDEAction( i18n("&Japanese to English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "ja_en") );
m_menu->insert( new TDEAction( i18n("&Korean to English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "ko_en") );
m_menu->insert( m_pt );
m_menu->insert( new TDEAction( i18n("&Russian to English"), 0,
this, TQT_SLOT(translateURL()),
actionCollection(), "ru_en") );
m_menu->insert( m_es );
m_menu->setEnabled( true );
// TODO: we could also support plain text viewers...
if ( parent && parent->inherits( "TDEHTMLPart" ) )
{
KParts::ReadOnlyPart* part = static_cast<KParts::ReadOnlyPart *>(parent);
connect( part, TQT_SIGNAL(started(TDEIO::Job*)), this,
TQT_SLOT(slotStarted(TDEIO::Job*)) );
}
}
PluginBabelFish::~PluginBabelFish()
{
delete m_menu;
}
void PluginBabelFish::slotStarted( TDEIO::Job* )
{
if ( parent()->inherits("TDEHTMLPart") &&
// Babelfish wants http URLs only. No https.
static_cast<KParts::ReadOnlyPart *>(parent())->url().protocol().lower() == "http" )
{
m_menu->setEnabled( true );
}
else
{
m_menu->setEnabled( false );
}
}
void PluginBabelFish::translateURL()
{
// we need the sender() for the language name
if ( !sender() )
return;
// The parent is assumed to be a TDEHTMLPart
if ( !parent()->inherits("TDEHTMLPart") )
{
TQString title = i18n( "Cannot Translate Source" );
TQString text = i18n( "Only web pages can be translated using "
"this plugin." );
KMessageBox::sorry( 0L, text, title );
return;
}
// Select engine
TDEConfig cfg( "translaterc", true );
TQString engine = cfg.readEntry( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name(), "babelfish" );
// Get URL
TDEHTMLPart *part = dynamic_cast<TDEHTMLPart *>(parent());
if ( !part )
return;
// we check if we have text selected. if so, we translate that. If
// not, we translate the url
TQString totrans;
if ( part->hasSelection() )
{
if( engine == "reverso" || engine == "tsail" )
{
KMessageBox::sorry( 0L,
i18n( "Only full webpages can be translated for this language pair." ),i18n( "Translation Error" ) );
return;
}
totrans = KURL::encode_string( part->selectedText() );
} else {
KURL url = part->url();
// Check syntax
if ( !url.isValid() )
{
TQString title = i18n( "Malformed URL" );
TQString text = i18n( "The URL you entered is not valid, please "
"correct it and try again." );
KMessageBox::sorry( 0L, text, title );
return;
}
totrans = KURL::encode_string( url.url() );
}
// Create URL
KURL result;
TQString query;
if( engine == "freetranslation" ) {
query = "sequence=core&Submit=FREE Translation&language=";
if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_es" ) )
query += "English/Spanish";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_de" ) )
query += "English/German";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_it" ) )
query += "English/Italian";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_nl" ) )
query += "English/Dutch";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_pt" ) )
query += "English/Portuguese";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_no" ) )
query += "English/Norwegian";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_zh" ) )
query += "English/SimplifiedChinese";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_zhTW" ) )
query += "English/TraditionalChinese";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "es_en" ) )
query += "Spanish/English";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "fr_en" ) )
query += "French/English";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "de_en" ) )
query += "German/English";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "it_en" ) )
query += "Italian/English";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "nl_en" ) )
query += "Dutch/English";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "pt_en" ) )
query += "Portuguese/English";
else // Should be en_fr
query += "English/French";
if ( part->hasSelection() )
{
result = KURL( "http://ets.freetranslation.com" );
query += "&mode=html&template=results_en-us.htm&srctext=";
} else {
result = KURL( "http://www.freetranslation.com/web.asp" );
query += "&url=";
}
query += totrans;
} else if( engine == "parsit" ) {
// Does only English -> Thai
result = KURL( "http://c3po.links.nectec.or.th/cgi-bin/Parsitcgi.exe" );
query = "mode=test&inputtype=";
if ( part->hasSelection() )
query += "text&TxtEng=";
else
query += "html&inputurl=";
query += totrans;
} else if( engine == "reverso" ) {
result = KURL( "http://www.reverso.net/url/frame.asp" );
query = "autotranslate=on&templates=0&x=0&y=0&directions=";
if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "de_fr" ) )
query += "524292";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "fr_en" ) )
query += "65544";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "fr_de" ) )
query += "262152";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "de_en" ) )
query += "65540";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_de" ) )
query += "262145";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_es" ) )
query += "2097153";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "es_en" ) )
query += "65568";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "fr_es" ) )
query += "2097160";
else // "en_fr"
query += "524289";
query += "&url=";
query += totrans;
} else if( engine == "tsail" ) {
result = KURL( "http://www.t-mail.com/cgi-bin/tsail" );
query = "sail=full&lp=";
if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "zhTW_en" ) )
query += "tw-en";
else if( TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name() == TQString( "en_zhTW" ) )
query += "en-tw";
else
{
query += TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name();
query[15] = '-';
}
query += totrans;
} else if( engine == "voila" ) {
result = KURL( "http://trans.voila.fr/voila" );
query = "systran_id=Voila-fr&systran_lp=";
query += TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name();
if ( part->hasSelection() )
query += "&systran_charset=utf-8&systran_text=";
else
query += "&systran_url=";
query += totrans;
} else {
// Using the altavista babelfish engine
result = KURL( "http://babelfish.altavista.com/babelfish/tr" );
query = "lp=";
query += TQT_TQOBJECT(const_cast<TQT_BASE_OBJECT_NAME*>(sender()))->name();
if ( part->hasSelection() )
query += "&text=";
else
query += "&url=";
query += totrans;
}
result.setQuery( query );
// Connect to the fish
emit part->browserExtension()->openURLRequest( result );
}
#include <plugin_babelfish.moc>