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.
tdelibs/tdeio/kssl/ksslsigners.cpp

252 lines
6.1 KiB

/* This file is part of the KDE project
*
* Copyright (C) 2001 George Staikos <staikos@kde.org>
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* 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 <tqstring.h>
#include <tqstringlist.h>
#include "ksslcertificate.h"
#include "ksslsigners.h"
#include <stdlib.h>
#include <kdebug.h>
#include <dcopclient.h>
#include <kdatastream.h>
KSSLSigners::KSSLSigners() {
dcc = new DCOPClient;
dcc->attach();
}
KSSLSigners::~KSSLSigners() {
delete dcc;
}
bool KSSLSigners::addCA(KSSLCertificate& cert,
bool ssl,
bool email,
bool code) {
return addCA(cert.toString(), ssl, email, code);
}
bool KSSLSigners::addCA(TQString cert,
bool ssl,
bool email,
bool code) {
TQByteArray data, retval;
TQCString rettype;
TQDataStream arg(data, IO_WriteOnly);
arg << cert;
arg << ssl << email << code;
bool rc = dcc->call("kded", "kssld",
"caAdd(TQString,bool,bool,bool)",
data, rettype, retval);
if (rc && rettype == "bool") {
TQDataStream retStream(retval, IO_ReadOnly);
bool drc;
retStream >> drc;
return drc;
}
return false;
}
bool KSSLSigners::regenerate() {
TQByteArray data, retval;
TQCString rettype;
TQDataStream arg(data, IO_WriteOnly);
bool rc = dcc->call("kded", "kssld",
"caRegenerate()",
data, rettype, retval);
if (rc && rettype == "bool") {
TQDataStream retStream(retval, IO_ReadOnly);
bool drc;
retStream >> drc;
return drc;
}
return false;
}
bool KSSLSigners::useForSSL(KSSLCertificate& cert) {
return useForSSL(cert.getSubject());
}
bool KSSLSigners::useForSSL(TQString subject) {
TQByteArray data, retval;
TQCString rettype;
TQDataStream arg(data, IO_WriteOnly);
arg << subject;
bool rc = dcc->call("kded", "kssld",
"caUseForSSL(TQString)",
data, rettype, retval);
if (rc && rettype == "bool") {
TQDataStream retStream(retval, IO_ReadOnly);
bool drc;
retStream >> drc;
return drc;
}
return false;
}
bool KSSLSigners::useForEmail(KSSLCertificate& cert) {
return useForEmail(cert.getSubject());
}
bool KSSLSigners::useForEmail(TQString subject) {
TQByteArray data, retval;
TQCString rettype;
TQDataStream arg(data, IO_WriteOnly);
arg << subject;
bool rc = dcc->call("kded", "kssld",
"caUseForEmail(TQString)",
data, rettype, retval);
if (rc && rettype == "bool") {
TQDataStream retStream(retval, IO_ReadOnly);
bool drc;
retStream >> drc;
return drc;
}
return false;
}
bool KSSLSigners::useForCode(KSSLCertificate& cert) {
return useForCode(cert.getSubject());
}
bool KSSLSigners::useForCode(TQString subject) {
TQByteArray data, retval;
TQCString rettype;
TQDataStream arg(data, IO_WriteOnly);
arg << subject;
bool rc = dcc->call("kded", "kssld",
"caUseForCode(TQString)",
data, rettype, retval);
if (rc && rettype == "bool") {
TQDataStream retStream(retval, IO_ReadOnly);
bool drc;
retStream >> drc;
return drc;
}
return false;
}
bool KSSLSigners::remove(KSSLCertificate& cert) {
return remove(cert.getSubject());
}
bool KSSLSigners::remove(TQString subject) {
TQByteArray data, retval;
TQCString rettype;
TQDataStream arg(data, IO_WriteOnly);
arg << subject;
bool rc = dcc->call("kded", "kssld",
"caRemove(TQString)",
data, rettype, retval);
if (rc && rettype == "bool") {
TQDataStream retStream(retval, IO_ReadOnly);
bool drc;
retStream >> drc;
return drc;
}
return false;
}
TQStringList KSSLSigners::list() {
TQStringList drc;
TQByteArray data, retval;
TQCString rettype;
TQDataStream arg(data, IO_WriteOnly);
bool rc = dcc->call("kded", "kssld",
"caList()",
data, rettype, retval);
if (rc && rettype == "TQStringList") {
TQDataStream retStream(retval, IO_ReadOnly);
retStream >> drc;
}
return drc;
}
TQString KSSLSigners::getCert(TQString subject) {
TQString drc;
TQByteArray data, retval;
TQCString rettype;
TQDataStream arg(data, IO_WriteOnly);
arg << subject;
bool rc = dcc->call("kded", "kssld",
"caGetCert(TQString)",
data, rettype, retval);
if (rc && rettype == "TQString") {
TQDataStream retStream(retval, IO_ReadOnly);
retStream >> drc;
}
return drc;
}
bool KSSLSigners::setUse(TQString subject, bool ssl, bool email, bool code) {
TQByteArray data, retval;
TQCString rettype;
TQDataStream arg(data, IO_WriteOnly);
arg << subject << ssl << email << code;
bool rc = dcc->call("kded", "kssld",
"caSetUse(TQString,bool,bool,bool)",
data, rettype, retval);
if (rc && rettype == "bool") {
TQDataStream retStream(retval, IO_ReadOnly);
bool drc;
retStream >> drc;
return drc;
}
return false;
}