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.
tdeutils/kgpg/keyservers.cpp

575 lines
22 KiB

/***************************************************************************
keyservers.cpp - description
-------------------
begin : Tue Nov 26 2002
copyright : (C) 2002 by Jean-Baptiste Mardelle
email : bj@altern.org
***************************************************************************/
/***************************************************************************
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
#include <stdlib.h>
#include <tqfile.h>
#include <tqcheckbox.h>
#include <kapplication.h>
#include <kiconloader.h>
#include <kcombobox.h>
#include <kdialogbase.h>
#include <kmessagebox.h>
#include <tqtextcodec.h>
#include <tqlayout.h>
#include <tqlabel.h>
#include <tqdialog.h>
#include <tqpushbutton.h>
#include <tqbuttongroup.h>
#include <tqhbuttongroup.h>
#include <tqvbuttongroup.h>
#include <tqregexp.h>
#include <tqcursor.h>
#include <klocale.h>
#include <kprocess.h>
#include <kprocio.h>
#include <klistview.h>
#include <kstatusbar.h>
#include <kconfig.h>
#include <klineedit.h>
#include <ksimpleconfig.h>
#include <kaction.h>
#include <kdebug.h>
#include "kgpgsettings.h"
#include "searchres.h"
#include "detailedconsole.h"
#include "keyservers.h"
keyServer::keyServer(TQWidget *tqparent, const char *name,bool modal,bool autoClose):KDialogBase( Swallow, i18n("Key Server"), Close, Close, tqparent, name,modal)
{
autoCloseWindow=autoClose;
config=new KSimpleConfig ("kgpgrc");
page=new keyServerWidget();
setMainWidget(page);
syncCombobox();
page->kLEimportid->setFocus();
connect(page->Buttonimport,TQT_SIGNAL(clicked()),this,TQT_SLOT(slotImport()));
connect(page->Buttonsearch,TQT_SIGNAL(clicked()),this,TQT_SLOT(slotSearch()));
connect(page->Buttonexport,TQT_SIGNAL(clicked()),this,TQT_SLOT(slotPreExport()));
connect(this,TQT_SIGNAL(okClicked()),this,TQT_SLOT(slotOk()));
connect(page->cBproxyI,TQT_SIGNAL(toggled(bool)),this,TQT_SLOT(slotEnableProxyI(bool)));
connect(page->cBproxyE,TQT_SIGNAL(toggled(bool)),this,TQT_SLOT(slotEnableProxyE(bool)));
connect(page->kLEimportid, TQT_SIGNAL( textChanged ( const TQString & )), this, TQT_SLOT( slotTextChanged( const TQString &)));
page->cBproxyI->setChecked(KGpgSettings::useProxy());
page->cBproxyE->setChecked(KGpgSettings::useProxy());
const char *httpproxy = getenv("http_proxy");
if (httpproxy) {
page->cBproxyI->setEnabled(true);
page->cBproxyE->setEnabled(true);
page->kLEproxyI->setText(httpproxy);
page->kLEproxyE->setText(httpproxy);
}
KProcIO *encid=new KProcIO(TQTextCodec::codecForLocale());
*encid << "gpg"<<"--no-secmem-warning"<<"--no-tty"<<"--with-colon"<<"--list-keys";
TQObject::connect(encid, TQT_SIGNAL(readReady(KProcIO *)),this, TQT_SLOT(slotprocread(KProcIO *)));
encid->start(KProcess::NotifyOnExit,true);
page->Buttonimport->setEnabled( !page->kLEimportid->text().isEmpty());
page->Buttonsearch->setEnabled( !page->kLEimportid->text().isEmpty());
setMinimumSize(tqsizeHint());
}
keyServer::~keyServer()
{}
void keyServer::slotTextChanged( const TQString &text)
{
page->Buttonimport->setEnabled( !text.isEmpty());
page->Buttonsearch->setEnabled( !text.isEmpty());
}
void keyServer::slotEnableProxyI(bool on)
{
page->kLEproxyI->setEnabled(on);
}
void keyServer::slotEnableProxyE(bool on)
{
page->kLEproxyE->setEnabled(on);
}
void keyServer::slotprocread(KProcIO *p)
{
///////////////////////////////////////////////////////////////// extract encryption keys
bool dead;
TQString tst;
//TQPixmap pixkeySingle(KGlobal::iconLoader()->loadIcon("kgpg_key1",KIcon::Small,20));
while (p->readln(tst)!=-1) {
//tst=tst.stripWhiteSpace();
if (tst.startsWith("pub")) {
const TQString trust=tst.section(':',1,1);
TQString id=TQString("0x"+tst.section(':',4,4).right(8));
switch( trust[0] ) {
case 'i':
dead=true;
break;
case 'd':
dead=true;
break;
case 'r':
dead=true;
break;
case 'e':
dead=true;
break;
default:
dead=false;
break;
}
tst=tst.section(':',9,9);
if (tst.length()>35) {
tst.remove(35,tst.length());
tst+="...";
}
if ((!dead) && (!tst.isEmpty()))
// page->kCBexportkey->insertItem(pixkeySingle,id+": "+tst);
page->kCBexportkey->insertItem(id+": "+tst);
}
}
}
void keyServer::slotSearch()
{
if (page->kCBimportks->currentText().isEmpty())
return;
if (page->kLEimportid->text().isEmpty()) {
KMessageBox::sorry(this,i18n("You must enter a search string."));
return;
}
//listpop = new KeyServer( this,"result",WType_Dialog | WShowModal);
dialogServer=new KDialogBase(KDialogBase::Swallow, i18n("Import Key From Keyserver"), KDialogBase::Ok | KDialogBase::Close,KDialogBase::Ok,this,0,true);
dialogServer->setButtonText(KDialogBase::Ok,i18n("&Import"));
dialogServer->enableButtonOK(false);
listpop=new searchRes();
listpop->kLVsearch->setColumnWidthMode(0,TQListView::Manual);
listpop->kLVsearch->setColumnWidthMode(1,TQListView::Manual);
listpop->kLVsearch->setColumnWidth(0,150);
listpop->kLVsearch->setColumnWidth(1,130);
listpop->statusText->setText(i18n("Connecting to the server..."));
connect(listpop->kLVsearch,TQT_SIGNAL(selectionChanged()),this,TQT_SLOT(transferKeyID()));
connect(dialogServer,TQT_SIGNAL(okClicked()),this,TQT_SLOT(preimport()));
connect(listpop->kLVsearch,TQT_SIGNAL(doubleClicked(TQListViewItem *,const TQPoint &,int)),dialogServer,TQT_SIGNAL(okClicked()));
connect(dialogServer,TQT_SIGNAL(closeClicked()),this,TQT_SLOT(handleQuit()));
connect( listpop , TQT_SIGNAL( destroyed() ) , this, TQT_SLOT( abortSearch()));
count=0;
cycle=false;
readmessage=TQString();
searchproc=new KProcIO(TQTextCodec::codecForLocale());
TQString keyserv=page->kCBimportks->currentText();
*searchproc<<"gpg"<<"--utf8-strings";
if (page->cBproxyI->isChecked()) {
searchproc->setEnvironment("http_proxy",page->kLEproxyI->text());
*searchproc<< "--keyserver-options"<<"honor-http-proxy";
} else
*searchproc<< "--keyserver-options"<<"no-honor-http-proxy";
*searchproc<<"--keyserver"<<keyserv<<"--command-fd=0"<<"--status-fd=2"<<"--search-keys"<<page->kLEimportid->text().stripWhiteSpace();
keyNumbers=0;
TQObject::connect(searchproc, TQT_SIGNAL(processExited(KProcess *)),this, TQT_SLOT(slotsearchresult(KProcess *)));
TQObject::connect(searchproc, TQT_SIGNAL(readReady(KProcIO *)),this, TQT_SLOT(slotsearchread(KProcIO *)));
searchproc->start(KProcess::NotifyOnExit,true);
TQApplication::setOverrideCursor(TQCursor(TQt::BusyCursor));
dialogServer->setMainWidget(listpop);
listpop->setMinimumSize(listpop->tqsizeHint());
listpop->setMinimumWidth(550);
dialogServer->exec();
}
void keyServer::handleQuit()
{
if (searchproc->isRunning())
{
TQApplication::restoreOverrideCursor();
disconnect(searchproc,0,0,0);
searchproc->kill();
}
dialogServer->close();
}
void keyServer::abortSearch()
{
if (dialogServer) {
delete dialogServer;
dialogServer=0L;
}
}
void keyServer::preimport()
{
transferKeyID();
if (listpop->kLEID->text().isEmpty()) {
KMessageBox::sorry(this,i18n("You must choose a key."));
return;
}
page->kLEimportid->setText(listpop->kLEID->text());
dialogServer->close();
slotImport();
}
void keyServer::transferKeyID()
{
if (!listpop->kLVsearch->firstChild())
return;
TQString kid,keysToSearch;
listpop->kLEID->clear();
TQPtrList< TQListViewItem >searchList=listpop->kLVsearch->selectedItems();
for ( uint i = 0; i < searchList.count(); ++i )
{
if ( searchList.at(i) )
keysToSearch.append(" "+searchList.at(i)->text(3));
}
// kdDebug(2100)<<keysToSearch<<endl;
listpop->kLEID->setText(keysToSearch.stripWhiteSpace());
}
void keyServer::slotsearchresult(KProcess *)
{
TQString nb;
dialogServer->enableButtonOK(true);
TQApplication::restoreOverrideCursor();
nb=nb.setNum(keyNumbers);
//listpop->kLVsearch->setColumnText(0,i18n("Found %1 matching keys").tqarg(nb));
listpop->statusText->setText(i18n("Found %1 matching keys").tqarg(nb));
if (listpop->kLVsearch->firstChild()!=NULL) {
listpop->kLVsearch->setSelected(listpop->kLVsearch->firstChild(),true);
listpop->kLVsearch->setCurrentItem(listpop->kLVsearch->firstChild());
transferKeyID();
}
}
void keyServer::slotsearchread(KProcIO *p)
{
TQString required;
TQString keymail,keyname;
while (p->readln(required,true)!=-1) {
//required=TQString::fromUtf8(required);
if (required.find("keysearch.prompt")!=-1) {
if (count<4)
p->writeStdin(TQString("N"));
else {
p->writeStdin(TQString("Q"));
p->closeWhenDone();
}
required=TQString();
}
if (required.find("GOT_IT")!=-1) {
count++;
required=TQString();
}
if (required.find("(")==0) {
cycle=true;
TQString fullname=required.remove(0,required.find(")")+1).stripWhiteSpace();
if (fullname.find("<")!=-1) {
keymail=fullname.section('<',-1,-1);
if (keymail.endsWith(">")) keymail.truncate(keymail.length()-1);
keyname=fullname.section('<',0,0);
} else {
keymail=TQString();
keyname=fullname;
}
kitem=new KListViewItem(listpop->kLVsearch,keyname,keymail,TQString(),TQString());
keyNumbers++;
count=0;
required=TQString();
}
if ((cycle) && (!required.isEmpty())) {
TQString subkey=required.stripWhiteSpace();
if (subkey.find(" key ")!=-1 && subkey.at(0).isDigit ())
{
TQString kid=subkey.section(",",0,0).stripWhiteSpace();
kid=kid.right(8);
kitem->setText(3,kid);
TQString creation=subkey.section("created",1,1);
if (creation.startsWith(":")) creation=creation.right(creation.length()-1);
kitem->setText(2,creation);
cycle=false;
}
else
{
if (subkey.find("<")!=-1) {
keymail=subkey.section('<',-1,-1);
if (keymail.endsWith(">")) keymail.truncate(keymail.length()-1);
keyname=subkey.section('<',0,0);
} else {
keymail=TQString();
keyname=subkey;
}
KListViewItem *subk = new KListViewItem(kitem,keyname,keymail,TQString(),TQString());
subk->setSelectable(false);
}
required=TQString();
}
}
}
void keyServer::slotPreExport()
{
slotExport(TQStringList(page->kCBexportkey->currentText().section(':', 0, 0)));
}
void keyServer::slotExport(TQStringList keyIds)
{
if (page->kCBexportks->currentText().isEmpty())
return;
readmessage=TQString();
exportproc=new KProcIO(TQTextCodec::codecForLocale());
TQString keyserv=page->kCBexportks->currentText();
*exportproc<<"gpg"<<"--utf8-strings";
if (!page->exportAttributes->isChecked())
*exportproc<<"--export-options"<<"no-include-attributes";
if (page->cBproxyE->isChecked()) {
exportproc->setEnvironment("http_proxy",page->kLEproxyE->text());
*exportproc<< "--keyserver-options"<<"honor-http-proxy";
} else
*exportproc<< "--keyserver-options"<<"no-honor-http-proxy";
*exportproc << "--status-fd=2" << "--keyserver" << keyserv << "--send-keys" << keyIds;
TQObject::connect(exportproc, TQT_SIGNAL(processExited(KProcess *)),this, TQT_SLOT(slotexportresult(KProcess *)));
TQObject::connect(exportproc, TQT_SIGNAL(readReady(KProcIO *)),this, TQT_SLOT(slotimportread(KProcIO *)));
exportproc->start(KProcess::NotifyOnExit,true);
TQApplication::setOverrideCursor(TQCursor(TQt::BusyCursor));
importpop = new TQDialog( this,0,true,TQt::WDestructiveClose);
TQVBoxLayout *vbox=new TQVBoxLayout(importpop,3);
TQLabel *tex=new TQLabel(importpop);
tex->setText(i18n("<b>Connecting to the server...</b>"));
TQPushButton *Buttonabort=new TQPushButton(i18n("&Abort"),importpop);
vbox->addWidget(tex);
vbox->addWidget(Buttonabort);
importpop->setMinimumWidth(250);
importpop->adjustSize();
importpop->show();
connect(importpop,TQT_SIGNAL(destroyed ()),this,TQT_SLOT(abortExport()));
connect(Buttonabort,TQT_SIGNAL(clicked ()),importpop,TQT_SLOT(close()));
}
void keyServer::abortExport()
{
TQApplication::restoreOverrideCursor();
if (exportproc->isRunning())
{
disconnect(exportproc,0,0,0);
exportproc->kill();
}
}
void keyServer::slotexportresult(KProcess*)
{
TQApplication::restoreOverrideCursor();
KMessageBox::information(0,readmessage);
if (importpop)
delete importpop;
}
void keyServer::slotImport()
{
if (page->kCBimportks->currentText().isEmpty())
return;
if (page->kLEimportid->text().isEmpty()) {
KMessageBox::sorry(this,i18n("You must enter a search string."));
return;
}
readmessage=TQString();
importproc=new KProcIO(TQTextCodec::codecForLocale());
TQString keyserv=page->kCBimportks->currentText();
*importproc<<"gpg"<<"--utf8-strings";
if (page->cBproxyI->isChecked()) {
importproc->setEnvironment("http_proxy",page->kLEproxyI->text());
*importproc<< "--keyserver-options"<<"honor-http-proxy";
} else
*importproc<< "--keyserver-options"<<"no-honor-http-proxy";
*importproc<<"--status-fd=2"<<"--keyserver"<<keyserv<<"--recv-keys";
TQString keyNames=page->kLEimportid->text();
keyNames=keyNames.stripWhiteSpace();
keyNames=keyNames.simplifyWhiteSpace();
while (!keyNames.isEmpty()) {
TQString fkeyNames=keyNames.section(' ',0,0);
keyNames.remove(0,fkeyNames.length());
keyNames=keyNames.stripWhiteSpace();
*importproc<<TQString(TQFile::encodeName(fkeyNames));
}
TQObject::connect(importproc, TQT_SIGNAL(processExited(KProcess *)),this, TQT_SLOT(slotimportresult(KProcess *)));
TQObject::connect(importproc, TQT_SIGNAL(readReady(KProcIO *)),this, TQT_SLOT(slotimportread(KProcIO *)));
importproc->start(KProcess::NotifyOnExit,true);
importproc->closeWhenDone();
TQApplication::setOverrideCursor(TQCursor(TQt::BusyCursor));
importpop = new TQDialog( this,0,true,TQt::WDestructiveClose);
TQVBoxLayout *vbox=new TQVBoxLayout(importpop,3);
TQLabel *tex=new TQLabel(importpop);
tex->setText(i18n("<b>Connecting to the server...</b>"));
TQPushButton *Buttonabort=new TQPushButton(i18n("&Abort"),importpop);
vbox->addWidget(tex);
vbox->addWidget(Buttonabort);
importpop->setMinimumWidth(250);
importpop->adjustSize();
importpop->show();
connect(Buttonabort,TQT_SIGNAL(clicked()),importpop,TQT_SLOT(close()));
connect(importpop,TQT_SIGNAL(destroyed ()),this,TQT_SLOT(abortImport()));
}
void keyServer::abortImport()
{
TQApplication::restoreOverrideCursor();
if (importproc->isRunning())
{
disconnect(importproc,0,0,0);
importproc->kill();
emit importFinished(TQString());
}
if (autoCloseWindow) close();
}
void keyServer::slotimportresult(KProcess*)
{
TQApplication::restoreOverrideCursor();
TQString importedNb,importedNbSucess,importedNbProcess,resultMessage, parsedOutput,importedNbUnchanged,importedNbSig;
TQString notImportesNbSec,importedNbMissing,importedNbRSA,importedNbUid,importedNbSub,importedNbRev,readNbSec;
TQString importedNbSec,dupNbSec;
parsedOutput=readmessage;
TQStringList importedKeys;
while (parsedOutput.find("IMPORTED")!=-1) {
parsedOutput.remove(0,parsedOutput.find("IMPORTED")+8);
importedKeys+=parsedOutput.section("\n",0,0).stripWhiteSpace();
}
if (readmessage.find("IMPORT_RES")!=-1) {
importedNb=readmessage.section("IMPORT_RES",-1,-1);
importedNb=importedNb.stripWhiteSpace();
importedNbProcess=importedNb.section(" ",0,0);
importedNbMissing=importedNb.section(" ",1,1);
importedNbSucess=importedNb.section(" ",2,2);
importedNbRSA=importedNb.section(" ",3,3);
importedNbUnchanged=importedNb.section(" ",4,4);
importedNbUid=importedNb.section(" ",5,5);
importedNbSub=importedNb.section(" ",6,6);
importedNbSig=importedNb.section(" ",7,7);
importedNbRev=importedNb.section(" ",8,8);
readNbSec=importedNb.section(" ",9,9);
importedNbSec=importedNb.section(" ",10,10);
dupNbSec=importedNb.section(" ",11,11);
notImportesNbSec=importedNb.section(" ",12,12);
resultMessage=i18n("<qt>%n key processed.<br></qt>","<qt>%n keys processed.<br></qt>",importedNbProcess.toULong());
if (importedNbUnchanged!="0")
resultMessage+=i18n("<qt>One key unchanged.<br></qt>","<qt>%n keys unchanged.<br></qt>",importedNbUnchanged.toULong());
if (importedNbSig!="0")
resultMessage+=i18n("<qt>One signature imported.<br></qt>","<qt>%n signatures imported.<br></qt>",importedNbSig.toULong());
if (importedNbMissing!="0")
resultMessage+=i18n("<qt>One key without ID.<br></qt>","<qt>%n keys without ID.<br></qt>",importedNbMissing.toULong());
if (importedNbRSA!="0")
resultMessage+=i18n("<qt>One RSA key imported.<br></qt>","<qt>%n RSA keys imported.<br></qt>",importedNbRSA.toULong());
if (importedNbUid!="0")
resultMessage+=i18n("<qt>One user ID imported.<br></qt>","<qt>%n user IDs imported.<br></qt>",importedNbUid.toULong());
if (importedNbSub!="0")
resultMessage+=i18n("<qt>One subkey imported.<br></qt>","<qt>%n subkeys imported.<br></qt>",importedNbSub.toULong());
if (importedNbRev!="0")
resultMessage+=i18n("<qt>One revocation certificate imported.<br></qt>","<qt>%n revocation certificates imported.<br></qt>",importedNbRev.toULong());
if (readNbSec!="0")
resultMessage+=i18n("<qt>One secret key processed.<br></qt>","<qt>%n secret keys processed.<br></qt>",readNbSec.toULong());
if (importedNbSec!="0")
resultMessage+=i18n("<qt><b>One secret key imported.</b><br></qt>","<qt><b>%n secret keys imported.</b><br></qt>",importedNbSec.toULong());
if (dupNbSec!="0")
resultMessage+=i18n("<qt>One secret key unchanged.<br></qt>","<qt>%n secret keys unchanged.<br></qt>",dupNbSec.toULong());
if (notImportesNbSec!="0")
resultMessage+=i18n("<qt>One secret key not imported.<br></qt>","<qt>%n secret keys not imported.<br></qt>",notImportesNbSec.toULong());
if (importedNbSucess!="0")
resultMessage+=i18n("<qt><b>One key imported:</b><br></qt>","<qt><b>%n keys imported:</b><br></qt>",importedNbSucess.toULong());
} else
resultMessage=i18n("No key imported... \nCheck detailed log for more infos");
TQString lastID=TQString("0x"+importedKeys.last().section(" ",0,0).right(8));
if (!lastID.isEmpty())
{
//kdDebug(2100)<<"++++++++++imported key"<<lastID<<endl;
emit importFinished(lastID);
}
if (importpop)
importpop->hide();
(void) new KDetailedInfo(0,"import_result",resultMessage,readmessage,importedKeys);
if (importpop)
delete importpop;
if (autoCloseWindow) close();
}
void keyServer::slotimportread(KProcIO *p)
{
TQString required;
while (p->readln(required,true)!=-1)
readmessage+=required+"\n";
}
void keyServer::syncCombobox()
{
config->setGroup("Servers");
TQString serverList=config->readEntry("Server_List");
TQString optionsServer=KgpgInterface::getGpgSetting("keyserver", KGpgSettings::gpgConfigPath());
page->kCBexportks->clear();
page->kCBimportks->clear();
if (!optionsServer.isEmpty()) {
page->kCBexportks->insertItem(optionsServer);
page->kCBimportks->insertItem(optionsServer);
}
else if ( serverList.isEmpty() )
serverList = "hkp://wwwkeys.eu.pgp.net,hkp://search.keyserver.net,hkp://wwwkeys.pgp.net,hkp://pgp.dtype.org,hkp://wwwkeys.us.pgp.net"; // same as ini kgpgoptions.cpp
page->kCBexportks->insertStringList(TQStringList::split(",",serverList));
page->kCBimportks->insertStringList(TQStringList::split(",",serverList));
}
void keyServer::slotOk()
{
accept();
}
#include "keyservers.moc"