/*
    SPDX-FileCopyrightText: 2018 Łukasz Wojniłowicz <lukasz.wojnilowicz@gmail.com>
    SPDX-FileCopyrightText: 2021 Dawid Wróbel <me@dawidwrobel.com>
    SPDX-FileCopyrightText: 2022 Thomas Baumgart <tbaumgart@kde.org>
    SPDX-License-Identifier: GPL-2.0-or-later
*/

#include "xmlstorage.h"

#include <memory>
#include <config-kmymoney.h>

// ----------------------------------------------------------------------------
// QT Includes

#include <QFile>
#include <QFileDialog>
#include <QPointer>
#include <QRegularExpression>
#include <QRegularExpressionMatch>
#include <QTemporaryFile>
#include <QTimer>

// ----------------------------------------------------------------------------
// KDE Includes

#include <KPluginFactory>
#include <KActionCollection>
#include <KLocalizedString>
#include <KMessageBox>
#include <KCompressionDevice>
#include <KIO/StoredTransferJob>
#include <KBackup>

// ----------------------------------------------------------------------------
// Project Includes

#include "appinterface.h"
#include "gpg-recover-key.h"
#include "icons.h"
#include "kgpgfile.h"
#include "kgpgkeyselectiondlg.h"
#include "kmymoneyenums.h"
#include "kmymoneysettings.h"
#include "kmymoneyutils.h"
#include "mymoneyanonwriter.h"
#include "mymoneyexception.h"
#include "mymoneyfile.h"
#include "mymoneystoragebin.h"
#include "mymoneyxmlreader.h"
#include "mymoneyxmlwriter.h"
#include "viewinterface.h"

#include "kmmyesno.h"

using namespace Icons;

static constexpr KCompressionDevice::CompressionType const& COMPRESSION_TYPE = KCompressionDevice::GZip;

// define the default period to warn about an expiring recoverkey to 30 days
// but allows to override this setting during build time
#ifndef RECOVER_KEY_EXPIRATION_WARNING
#define RECOVER_KEY_EXPIRATION_WARNING 30
#endif

class XMLStoragePrivate
{
public:
    XMLStoragePrivate(XMLStorage* qq)
        : q(qq)
    {
    }

    ~XMLStoragePrivate()
    {
        unlock();
    }

    void ungetString(QIODevice* qfile, char* buf, int len)
    {
        buf = &buf[len - 1];
        while (len--) {
            qfile->ungetChar(*buf--);
        }
    }

    /**
     * This method is used by saveFile() to store the data
     * either directly in the destination file if it is on
     * the local file system or in a temporary file when
     * the final destination is reached over a network
     * protocol (e.g. FTP)
     *
     * @param localFile the name of the local file
     * @param writer pointer to the formatter
     * @param plaintext whether to override any compression & encryption settings
     * @param keyList QString containing a comma separated list of keys to be used for encryption
     *            If @p keyList is empty, the file will be saved unencrypted
     *
     * @note This method will close the file when it is written.
     */
    void saveToLocalFile(const QString& localFile, MyMoneyXmlWriter* pWriter, bool plaintext, const QString& keyList)
    {
#ifndef ENABLE_GPG
        Q_UNUSED(keyList)
#else
        // Check GPG encryption
        bool encryptFile = true;
        bool encryptRecover = false;
        if (!keyList.isEmpty()) {
            if (!KGPGFile::GPGAvailable()) {
                KMessageBox::error(nullptr,
                                   i18n("GPG does not seem to be installed on your system. Please make sure that GPG can be found using the standard search "
                                        "path. This time, encryption is disabled."),
                                   i18n("GPG not found"));
                encryptFile = false;
            } else {
                if (KMyMoneySettings::encryptRecover()) {
                    encryptRecover = true;
                    if (!KGPGFile::keyAvailable(QLatin1String(RECOVER_KEY_ID))) {
                        KMessageBox::error(
                            nullptr,
                            i18n("<p>You have selected to encrypt your data also with the KMyMoney recover key, but the key with "
                                 "id</p><p><center><b>%1</b></center></p><p>has not been found in your keyring at this time. Please make sure to "
                                 "import this key into your keyring. You can find it on the <a href=\"https://kmymoney.org/\">KMyMoney "
                                 "web-site</a>. This time your data will not be encrypted with the KMyMoney recover key.</p>",
                                 QLatin1String(RECOVER_KEY_ID)),
                            i18n("GPG Key not found"));
                        encryptRecover = false;
                    }
                }

                const auto keys = keyList.split(',', Qt::SkipEmptyParts);
                for (const QString& key : qAsConst(keys)) {
                    if (!KGPGFile::keyAvailable(key)) {
                        KMessageBox::error(nullptr,
                                           i18n("<p>You have specified to encrypt your data for the "
                                                "user-id</p><p><center><b>%1</b>.</center></p><p>Unfortunately, a valid key for this user-id was not found in "
                                                "your keyring. Please make sure to import a valid key for this user-id. This time, encryption is disabled.</p>",
                                                key),
                                           i18n("GPG Key not found"));
                        encryptFile = false;
                        break;
                    }
                }

                if (encryptFile == true) {
                    QString msg = i18n(
                        "<p>You have configured to save your data in encrypted form using GPG. Make sure you understand that you might lose all your data if "
                        "you encrypt it, but cannot decrypt it later on. If unsure, answer <b>No</b>.</p>");
                    if (KMessageBox::questionTwoActions(nullptr, msg, i18n("Store GPG encrypted"), KMMYesNo::yes(), KMMYesNo::no(), "StoreEncrypted")
                        == KMessageBox::SecondaryAction) {
                        encryptFile = false;
                    }
                }
            }
        }
#endif
        // Permissions to apply to new file
        QFileDevice::Permissions fmode = QFileDevice::ReadUser | QFileDevice::WriteUser;

        // Create a temporary file if needed
        QString writeFile = localFile;
        if (QFile::exists(localFile)) {
            QTemporaryFile tmpFile(writeFile);
            if (tmpFile.open()) {
                writeFile = tmpFile.fileName();
                // Since file is going to be replaced, stash the original permissions so they can be restored
                fmode = QFile::permissions(localFile);
            } else {
                qDebug() << "saveToLocalFile(): Cannot create tmpFile";
            }
        }

        // check if we have a filename or were able to create a temporary file
        if (writeFile.isEmpty()) {
            throw MYMONEYEXCEPTION(i18n("Unable to open file '%1' for writing.", localFile));
        }

        QSignalBlocker blockMyMoneyFile(MyMoneyFile::instance());

        MyMoneyFileTransaction ft;
        MyMoneyFile::instance()->deletePair("kmm-encryption-key");
        std::unique_ptr<QIODevice> device;

#ifdef ENABLE_GPG
        if (!keyList.isEmpty() && encryptFile && !plaintext) {
            std::unique_ptr<KGPGFile> kgpg = std::unique_ptr<KGPGFile>(new KGPGFile{writeFile});
            if (kgpg) {
                const auto keys = keyList.split(',', Qt::SkipEmptyParts);
                for (const QString& key : qAsConst(keys)) {
                    kgpg->addRecipient(key.toLatin1());
                }

                if (encryptRecover) {
                    kgpg->addRecipient(QLatin1String(RECOVER_KEY_ID));
                }
                MyMoneyFile::instance()->setValue("kmm-encryption-key", keyList);
                device = std::unique_ptr<decltype(device)::element_type>(kgpg.release());
            }
        } else
#endif
        {
            QFile* file = new QFile(writeFile);
            // The second parameter of KCompressionDevice means that KCompressionDevice will delete the QFile object
            device =
                std::unique_ptr<decltype(device)::element_type>(new KCompressionDevice{file, true, (plaintext) ? KCompressionDevice::None : COMPRESSION_TYPE});
        }

        ft.commit();

        if (!device || !device->open(QIODevice::WriteOnly)) {
            throw MYMONEYEXCEPTION(i18n("Unable to open file '%1' for writing", localFile).append(QString::fromLatin1(": ") + device->errorString()));
        }

        pWriter->setFile(MyMoneyFile::instance());
        const auto xmlWrittenOk = pWriter->write(device.get());
        device->close();

        if (!xmlWrittenOk) {
            throw MYMONEYEXCEPTION(QString::fromLatin1("XML write failure while writing to '%1'").arg(localFile));
        }

        // Check for errors if possible, only possible for KGPGFile
        QFileDevice* fileDevice = qobject_cast<QFileDevice*>(device.get());
        if (fileDevice && fileDevice->error() != QFileDevice::NoError) {
            throw MYMONEYEXCEPTION(QString::fromLatin1("Failure while writing to '%1'").arg(localFile));
        }

        if (writeFile != localFile) {
            // This simple comparison is possible because the strings are equal if no temporary file was created.
            // If a temporary file was created, it is made in a way that the name is definitely different. So no
            // symlinks etc. have to be evaluated.

            // on Windows QTemporaryFile does not release file handle even after close()
            // so QFile::rename(writeFile, localFile) will fail since Windows does not allow moving files in use
            // as a workaround QFile::copy is used instead of QFile::rename below
            // writeFile (i.e. tmpFile) will be deleted by QTemporaryFile dtor when it falls out of scope
            if (!QFile::remove(localFile)) {
                throw MYMONEYEXCEPTION(QString::fromLatin1("Failure while removing '%1'").arg(localFile));
            }
            if (!QFile::rename(writeFile, localFile)) {
                throw MYMONEYEXCEPTION(QString::fromLatin1("Failure while renaming '%1' to '%2'").arg(writeFile, localFile));
            }
        }
        QFile::setPermissions(localFile, fmode);
    }

    void checkRecoveryKeyValidity()
    {
#ifdef ENABLE_GPG
        // check if the recovery key is still valid or expires soon

        if (KMyMoneySettings::writeDataEncrypted() && KMyMoneySettings::encryptRecover()) {
            if (KGPGFile::GPGAvailable()) {
                KGPGFile file;
                QDateTime expirationDate = file.keyExpires(QLatin1String(RECOVER_KEY_ID));
                if (expirationDate.isValid() && QDateTime::currentDateTime().daysTo(expirationDate) <= RECOVER_KEY_EXPIRATION_WARNING) {
                    bool skipMessage = false;

                    // get global config object for our app.
                    KSharedConfigPtr kconfig = KSharedConfig::openConfig();
                    KConfigGroup grp;
                    QDate lastWarned;
                    if (kconfig) {
                        grp = kconfig->group("General Options");
                        lastWarned = grp.readEntry("LastRecoverKeyExpirationWarning", QDate());
                        if (QDate::currentDate() == lastWarned) {
                            skipMessage = true;
                        }
                    }
                    if (!skipMessage) {
                        if (kconfig) {
                            grp.writeEntry("LastRecoverKeyExpirationWarning", QDate::currentDate());
                        }
                        KMessageBox::information(
                            nullptr,
                            i18np("You have configured KMyMoney to use GPG to protect your data and to encrypt your data also with the KMyMoney recover key. "
                                  "This key is about to expire in %1 day. Please update the key from a keyserver using your GPG frontend (e.g. KGPG).",
                                  "You have configured KMyMoney to use GPG to protect your data and to encrypt your data also with the KMyMoney recover key. "
                                  "This key is about to expire in %1 days. Please update the key from a keyserver using your GPG frontend (e.g. KGPG).",
                                  QDateTime::currentDateTime().daysTo(expirationDate)),
                            i18n("Recover key expires soon"));
                    }
                }
            }
        }
#endif
    }

    bool lock(const QString& filename)
    {
        if (m_lockFile && (filename == m_curLockName)) {
            return true;
        }

        auto newLock = new QLockFile(filename + ".lck");
        newLock->setStaleLockTime(0);
        if (!newLock->tryLock()) {
            // in case we cannot write the lockfile, we assume that the
            // file cannot be changed as well and open it unlocked
            const bool rc = (newLock->error() == QLockFile::PermissionError);
            delete newLock;
            return rc;
        }
        unlock();
        m_lockFile.reset(newLock);
        m_curLockName = filename;
        return true;
    }

    void unlock()
    {
        if (!m_lockFile) {
            return;
        }

        m_lockFile->unlock();
        m_lockFile.reset();
        m_curLockName.clear();
    }

    XMLStorage* q;
    QString m_encryptionKeys;
    QString m_openErrorMessage;
    QUrl m_fileUrl;
    QString m_curLockName;
    std::unique_ptr<QLockFile> m_lockFile;
};
XMLStorage::XMLStorage(QObject* parent, const KPluginMetaData& metaData, const QVariantList& args)
    : KMyMoneyPlugin::Plugin(parent, metaData, args)
    , d(new XMLStoragePrivate(this))
{
    // For information, announce that we have been loaded.
    qDebug("Plugins: xmlstorage loaded");
    d->checkRecoveryKeyValidity();
}

XMLStorage::~XMLStorage()
{
    delete d;
    qDebug("Plugins: xmlstorage unloaded");
}

bool XMLStorage::open(const QUrl &url)
{
    d->m_fileUrl.clear();
    d->m_openErrorMessage.clear();

    if (url.scheme() == QLatin1String("sql"))
        return false;

    QString fileName;
    auto downloadedFile = false;
    if (url.isLocalFile()) {
        fileName = url.toLocalFile();
        if (!d->lock(fileName)) {
            d->m_openErrorMessage = i18nc("@info Problem opening data file", "File <b>%1</b> is already opened by another process.", fileName);
            return false;
        }
    } else {
        fileName = KMyMoneyUtils::downloadFile(url);
        downloadedFile = true;
    }

    if (!KMyMoneyUtils::fileExists(QUrl::fromLocalFile(fileName)))
        throw MYMONEYEXCEPTION(QString::fromLatin1("Error opening the file.\n"
                               "Requested file: '%1'.\n"
                               "Downloaded file: '%2'").arg(qPrintable(url.url()), fileName));


    QFile file(fileName);
    if (!file.open(QIODevice::ReadOnly))
        throw MYMONEYEXCEPTION(QString::fromLatin1("Cannot read the file: %1").arg(fileName));

    QByteArray qbaFileHeader(2, '\0');
    const auto sFileToShort = QString::fromLatin1("File %1 is too short.").arg(fileName);
    if (file.read(qbaFileHeader.data(), 2) != 2)
        throw MYMONEYEXCEPTION(sFileToShort);

    file.close();

    // There's a problem with the KFilterDev and KGPGFile classes:
    // One supports the at(n) member but not ungetch() together with
    // read() and the other does not provide an at(n) method but
    // supports read() that considers the ungetch() buffer. QFile
    // supports everything so this is not a problem. We solve the problem
    // for now by keeping track of which method can be used.
    auto haveAt = true;
    auto isEncrypted = false;

    QIODevice* qfile = nullptr;
    QString sFileHeader(qbaFileHeader);
    if (sFileHeader == QString("\037\213")) {        // gzipped?
        qfile = new KCompressionDevice(fileName, COMPRESSION_TYPE);
    } else if (sFileHeader == QString("--") ||        // PGP ASCII armored?
               sFileHeader == QString("\205\001") ||  // PGP binary?
               sFileHeader == QString("\205\002")) {  // PGP binary?
#ifdef ENABLE_GPG
        if (KGPGFile::GPGAvailable()) {
            qfile = new KGPGFile(fileName);
            haveAt = false;
            isEncrypted = true;
        } else
#endif
        {
            throw MYMONEYEXCEPTION(QString::fromLatin1("GPG is not available for decryption of file <b>%1</b>").arg(fileName));
        }
    } else {
        // we can't use file directly, as we delete qfile later on
        qfile = new QFile(file.fileName());
    }

    if (!qfile->open(QIODevice::ReadOnly)) {
        delete qfile;
        throw MYMONEYEXCEPTION(QString::fromLatin1("Cannot read the file: %1").arg(fileName));
    }

    qbaFileHeader.resize(8);
    if (qfile->read(qbaFileHeader.data(), 8) != 8)
        throw MYMONEYEXCEPTION(sFileToShort);

    if (haveAt)
        qfile->seek(0);
    else
        d->ungetString(qfile, qbaFileHeader.data(), 8);

    // Ok, we got the first block of 8 bytes. Read in the two
    // unsigned long int's by preserving endianness. This is
    // achieved by reading them through a QDataStream object
    qint32 magic0, magic1;
    QDataStream s(&qbaFileHeader, QIODevice::ReadOnly);
    s >> magic0;
    s >> magic1;

    // If both magic numbers match (we actually read in the
    // text 'KMyMoney' then we assume a binary file and
    // construct a reader for it. Otherwise, we construct
    // an XML reader object.
    //
    // The expression magic0 < 30 is only used to create
    // a binary reader if we assume an old binary file. This
    // should be removed at some point. An alternative is to
    // check the beginning of the file against an pattern
    // of the XML file (e.g. '?<xml' ).
    if ((magic0 == MAGIC_0_50 && magic1 == MAGIC_0_51) ||
            magic0 < 30) {
        // we do not support this file format anymore
        throw MYMONEYEXCEPTION(QString::fromLatin1("<qt>File <b>%1</b> contains the old binary format used by KMyMoney. Please use an older version of KMyMoney (0.8.x) that still supports this format to convert it to the new XML based format.</qt>").arg(fileName));
    }

    // Scan the first 70 bytes to see if we find something
    // we know. For now, we support our own XML format and
    // GNUCash XML format. If the file is smaller, then it
    // contains no valid data and we reject it anyway.
    qbaFileHeader.resize(70);
    if (qfile->read(qbaFileHeader.data(), 70) != 70)
        throw MYMONEYEXCEPTION(sFileToShort);

    if (haveAt)
        qfile->seek(0);
    else
        d->ungetString(qfile, qbaFileHeader.data(), 70);

    static const QRegularExpression kmyexp(QLatin1String("<!DOCTYPE KMYMONEY-FILE>"));
    QByteArray txt(qbaFileHeader, 70);
    const auto docType(kmyexp.match(txt));
    if (!docType.hasMatch()) {
        d->m_openErrorMessage = i18nc("@info Problem opening data file", "File <b>%1</b> is not a KMyMoney data file.", fileName);
        return false;
    }

    MyMoneyXmlReader reader;
    reader.setFile(MyMoneyFile::instance());
    reader.read(qfile);

    qfile->close();
    delete qfile;

    // if a temporary file was downloaded, then it will be removed
    // with the next call. Otherwise, it stays untouched on the local
    // filesystem.
    if (downloadedFile)
        QFile::remove(fileName);

    // make sure we setup the encryption key correctly
    if (isEncrypted) {
        if (MyMoneyFile::instance()->value("kmm-encryption-key").isEmpty()) {
            // encapsulate transactions to the engine to be able to commit/rollback
            MyMoneyFileTransaction ft;
            MyMoneyFile::instance()->setValue("kmm-encryption-key", KMyMoneySettings::gpgRecipientList().join(","));
            ft.commit();
        }
    }

    d->m_fileUrl = url;
    //write the directory used for this file as the default one for next time.
    appInterface()->writeLastUsedDir(url.toDisplayString(QUrl::RemoveFilename | QUrl::PreferLocalFile | QUrl::StripTrailingSlash));

    return true;
}

void XMLStorage::close()
{
    d->unlock();
}

QUrl XMLStorage::openUrl() const
{
    return d->m_fileUrl;
}

bool XMLStorage::save(const QUrl &url)
{
    QString filename = url.path();

    if (!appInterface()->fileOpen()) {
        KMessageBox::error(nullptr, i18n("Tried to access a file when it has not been opened"));
        return false;
    }

    std::unique_ptr<MyMoneyXmlWriter> storageWriter;

    // If this file ends in ".ANON.XML" then this should be written using the
    // anonymous writer.
    bool plaintext = filename.right(4).toLower() == ".xml";
    if (filename.right(9).toLower() == ".anon.xml")
        storageWriter = std::make_unique<MyMoneyAnonWriter>();
    else
        storageWriter = std::make_unique<MyMoneyXmlWriter>();

    QString keyList;
    if (!appInterface()->filenameURL().isEmpty())
        keyList = MyMoneyFile::instance()->value("kmm-encryption-key");
    if (keyList.isEmpty())
        keyList = d->m_encryptionKeys;

    // actually, url should be the parameter to this function
    // but for now, this would involve too many changes
    auto rc = true;
    try {
        if (! url.isValid()) {
            throw MYMONEYEXCEPTION(QString::fromLatin1("Malformed URL '%1'").arg(url.url()));
        }

        if (url.isLocalFile()) {
            filename = url.toLocalFile();
            try {
                const unsigned int nbak = KMyMoneySettings::autoBackupCopies();
                if (nbak) {
                    KBackup::numberedBackupFile(filename, QString(), KMyMoneySettings::backupExtension(), nbak);
                }
                d->saveToLocalFile(filename, storageWriter.get(), plaintext, keyList);
            } catch (const MyMoneyException &e) {
                qWarning("Unable to write changes to: %s\nReason: %s", qPrintable(filename), e.what());
                throw;
            }
        } else {
            // obtain a temporary name for the local destination
            // using QTemporaryFile. As long as the object is
            // not destroyed, the file remains opened, which causes
            // problems on MS-Windows if you want to e.g. rename it.
            // Since we just need the name at this point, we simply
            // create the object, take the name (which is only available
            // once the file is opened) and destroy the object (which
            // closes the file on the filesystem) to avoid such problems.
            const auto tmpfile = new QTemporaryFile;
            QString fileName;
            if (tmpfile->open()) {
                fileName = tmpfile->fileName();
                delete tmpfile;

                d->saveToLocalFile(fileName, storageWriter.get(), plaintext, keyList);

                Q_CONSTEXPR int permission = -1;
                QFile file(fileName);
                if (file.open(QIODevice::ReadOnly)) {
                    KIO::StoredTransferJob* putjob = KIO::storedPut(file.readAll(), url, permission, KIO::JobFlag::Overwrite);
                    if (!putjob->exec()) {
                        throw MYMONEYEXCEPTION(QString::fromLatin1("Unable to upload to '%1'.<br />%2").arg(url.toDisplayString(), putjob->errorString()));
                    }
                    file.close();
                } else {
                    qDebug() << "Cannot open" << fileName;
                }
                // remove the temporary file from the local medium
                file.remove();
            } else {
                qDebug() << "Unable to create temporary file";
            }
        }
    } catch (const MyMoneyException &e) {
        KMessageBox::error(nullptr, QString::fromLatin1(e.what()));
        MyMoneyFile::instance()->setDirty();
        rc = false;
    }
    return rc;
}

bool XMLStorage::saveAs()
{
    auto rc = false;
    QStringList m_additionalGpgKeys;
    d->m_encryptionKeys.clear();

    QString selectedKeyName;
#ifdef ENABLE_GPG
    if (KGPGFile::GPGAvailable() && KMyMoneySettings::writeDataEncrypted()) {
        // fill the secret key list and combo box
        QStringList keyList;
        KGPGFile::secretKeyList(keyList);

        QPointer<KGpgKeySelectionDlg> dlg = new KGpgKeySelectionDlg(nullptr);
        dlg->setSecretKeys(keyList, KMyMoneySettings::gpgRecipient());
        dlg->setAdditionalKeys(KMyMoneySettings::gpgRecipientList());
        rc = dlg->exec();
        if ((rc == QDialog::Accepted) && (dlg != nullptr)) {
            m_additionalGpgKeys = dlg->additionalKeys();
            selectedKeyName = dlg->secretKey();
        }
        delete dlg;
        if (rc != QDialog::Accepted) {
            return rc;
        }
    }
#endif

    QString prevDir; // don't prompt file name if not a native file
    if (appInterface()->isNativeFile())
        prevDir = appInterface()->readLastUsedDir();

    QPointer<QFileDialog> dlg =
        new QFileDialog(nullptr,
                        i18n("Save As"),
                        prevDir,
                        QString(QLatin1String("%2 (%1);;")).arg(QStringLiteral("*.kmy"), i18nc("KMyMoney (Filefilter)", "KMyMoney files"))
                            + QString(QLatin1String("%2 (%1);;")).arg(QStringLiteral("*.anon.xml"), i18nc("Anonymous (Filefilter)", "Anonymous files"))
                            + QString(QLatin1String("%2 (%1);;")).arg(QStringLiteral("*.xml"), i18nc("XML (Filefilter)", "XML files"))
                            + QString(QLatin1String("%2 (%1);;")).arg(QStringLiteral("*"), i18nc("All files (Filefilter)", "All files")));
    dlg->setAcceptMode(QFileDialog::AcceptSave);
    connect(dlg, &QFileDialog::filterSelected, this, [&](const QString txt) {
        // for some reason, txt sometimes contains the filter expression only
        // e.g. "*.xml" and in some others it contains the full text with
        // the filter expression appended in parenthesis e.g.
        // "KMyMoney files (*.xml)". The following logic extracts the
        // filter and sets the default suffix based on it.
        QRegularExpression filter(QStringLiteral("\\*\\.(?<extension>[a-z\\.]+)"));
        const auto match = filter.match(txt);
        if (match.hasMatch()) {
            dlg->setDefaultSuffix(match.captured(QStringLiteral("extension")));
        } else {
            dlg->setDefaultSuffix(QString());
        }

    });

    if (dlg->exec() == QDialog::Accepted && dlg != nullptr) {
        QUrl newURL = dlg->selectedUrls().first();
        if (!newURL.fileName().isEmpty()) {
            QString newName = newURL.toDisplayString(QUrl::PreferLocalFile);

            // append extension if not present
            if (!newName.endsWith(QLatin1String(".kmy"), Qt::CaseInsensitive) &&
                    !newName.endsWith(QLatin1String(".xml"), Qt::CaseInsensitive))
                newName.append(QLatin1String(".kmy"));
            newURL = QUrl::fromUserInput(newName);

            // If this is the anonymous file export, just save it, don't actually take the
            // name, or remember it! Don't even try to encrypt it
            if (newName.endsWith(QLatin1String(".anon.xml"), Qt::CaseInsensitive))
                rc = save(newURL);
            else {
                appInterface()->writeFilenameURL(newURL);
                static const QRegularExpression keyExp(QLatin1String(".* \\((.*)\\)"));
                const auto key(keyExp.match(selectedKeyName));
                if (key.hasMatch()) {
                    d->m_encryptionKeys = key.captured(1);
                    if (!m_additionalGpgKeys.isEmpty()) {
                        if (!d->m_encryptionKeys.isEmpty())
                            d->m_encryptionKeys.append(QLatin1Char(','));
                        d->m_encryptionKeys.append(m_additionalGpgKeys.join(QLatin1Char(',')));
                    }
                }
                // clear out any existing keys so that the new ones will be used
                MyMoneyFileTransaction ft;
                try {
                    MyMoneyFile::instance()->deletePair("kmm-encryption-key");
                    ft.commit();
                } catch (MyMoneyException&) {
                    ; // do nothing
                }
                rc = save(newURL);

                appInterface()->addToRecentFiles(newURL);
                //write the directory used for this file as the default one for next time.
                appInterface()->writeLastUsedDir(newURL.toDisplayString(QUrl::RemoveFilename | QUrl::PreferLocalFile | QUrl::StripTrailingSlash));
                appInterface()->writeLastUsedFile(newName);
            }
        }
    }
    (*appInterface()->progressCallback())(0,0, i18nc("Application is ready to use", "Ready."));
    delete dlg;
    return rc;
}

eKMyMoney::StorageType XMLStorage::storageType() const
{
    return eKMyMoney::StorageType::XML;
}

QString XMLStorage::fileExtension() const
{
    return i18n("KMyMoney files (*.kmy *.xml)");
}

QString XMLStorage::openErrorMessage() const
{
    return d->m_openErrorMessage;
}

K_PLUGIN_CLASS_WITH_JSON(XMLStorage, "xmlstorage.json")

#include "xmlstorage.moc"
