/**
 *  Copyright (C) 2004 Frans Englich <frans.englich@telia.com>
 *
 *  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.
 *
 *  This program 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 General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *
 *
 *  Please see the README
 *
 */

#include "main.h"

#include <QLayout>
#include <QLabel>
#include <QLineEdit>
#include <QPixmap>
#include <QStringList>
#include <QEvent>
#include <QDragEnterEvent>
#include <QDBusInterface>
#include <QDBusReply>
#include <QImageReader>

#include <kpushbutton.h>
#include <kguiitem.h>
#include <kpassworddialog.h>
#include <kuser.h>
#include <kdialog.h>
#include <kicon.h>
#include <kmimetype.h>
#include <kstandarddirs.h>
#include <kaboutdata.h>
#include <kmessagebox.h>
#include <QProcess>
#include <kio/netaccess.h>
#include <kurl.h>

#include "settings.h"
#include "pass.h"
#include <KPluginFactory>
#include <KPluginLoader>


K_PLUGIN_FACTORY(Factory, registerPlugin<KCMUserAccount>();)
K_EXPORT_PLUGIN(Factory("useraccount"))

static bool setASProp(KCMUserAccount* kcmua, const qlonglong uid, const QString &prop, const QString &value)
{
    QDBusInterface ainterface(
        "org.freedesktop.Accounts",
        "/org/freedesktop/Accounts",
        "org.freedesktop.Accounts",
        QDBusConnection::systemBus()
    );
    QDBusReply<QDBusObjectPath> reply = ainterface.call("FindUserById", uid);
    if (reply.isValid()) {
        QDBusInterface uinterface(
            "org.freedesktop.Accounts",
            reply.value().path(),
            "org.freedesktop.Accounts.User",
            QDBusConnection::systemBus(),
            kcmua
        );
        QDBusReply<void> ureply = uinterface.call(prop, value);
        if (!ureply.isValid()) {
            kWarning() << ureply.error().message();
            return false;
        }
    }
    return true;
}

KCMUserAccount::KCMUserAccount( QWidget *parent, const QVariantList &)
    : KCModule( Factory::componentData(), parent)
{
    QVBoxLayout *topLayout = new QVBoxLayout(this);
    topLayout->setSpacing(KDialog::spacingHint());
    topLayout->setMargin(0);

    _mw = new MainWidget(this);
    installEventFilter(this);
    setAcceptDrops(true);
    topLayout->addWidget( _mw );

    connect( _mw->btnChangeFace, SIGNAL(clicked()), SLOT(slotFaceButtonClicked()));
    connect( _mw->btnChangePassword, SIGNAL(clicked()), SLOT(slotChangePassword()));
    _mw->btnChangePassword->setGuiItem( KGuiItem( i18n("Change &Password..."), "preferences-desktop-user-password" ));

    connect( _mw->leRealname, SIGNAL(textChanged(QString)), SLOT(changed()));
    connect( _mw->leOrganization, SIGNAL(textChanged(QString)), SLOT(changed()));
    connect( _mw->leEmail, SIGNAL(textChanged(QString)), SLOT(changed()));
    connect( _mw->leSMTP, SIGNAL(textChanged(QString)), SLOT(changed()));
    connect( _mw->leSSL, SIGNAL(currentIndexChanged(QString)), SLOT(changed()));

    _ku = new KUser();
    _kes = new KEMailSettings();

    _mw->lblUsername->setText( _ku->loginName() );
    QFont font( _mw->lblUsername->font() );
    font.setPointSizeF( font.pointSizeF()  * 1.41 );
    font.setBold( true );
    _mw->lblUsername->setFont( font );
    _mw->lblUID->setText( QString().number(_ku->uid()) );

    KAboutData *about = new KAboutData("kcm_useraccount", 0,
        ki18n("Password & User Information"), 0, KLocalizedString(),
        KAboutData::License_GPL,
        ki18n("(C) 2002, Braden MacDonald, "
            "(C) 2004 Ravikiran Rajagopal"));

    about->addAuthor(ki18n("Frans Englich"), ki18n("Maintainer"), "frans.englich@telia.com");
    about->addAuthor(ki18n("Ravikiran Rajagopal"), KLocalizedString(), "ravi@kde.org");
    about->addAuthor(ki18n("Michael H\303\244ckel"), KLocalizedString(), "haeckel@kde.org" );

    about->addAuthor(ki18n("Braden MacDonald"), ki18n("Face editor"), "bradenm_k@shaw.ca");
    about->addAuthor(ki18n("Geert Jansen"), ki18n("Password changer"), "jansen@kde.org",
                    "http://www.stack.nl/~geertj/");
    about->addAuthor(ki18n("Daniel Molkentin"));
    about->addAuthor(ki18n("Alex Zepeda"));
    about->addAuthor(ki18n("Hans Karlsson"), ki18n("Icons"), "karlsson.h@home.se");
    about->addAuthor(ki18n("Hermann Thomas"), ki18n("Icons"), "h.thomas@gmx.de");
    setAboutData(about);

    setQuickHelp( i18n("<qt>Here you can change your personal information, which "
        "will be used, for instance, in mail programs and word processors. You can "
        "change your login password by clicking <em>Change Password...</em>.</qt>") );

    addConfig( KCFGPassword::self(), this );
    load();
}

void KCMUserAccount::slotChangePassword()
{
    QString bin = KStandardDirs::findExe("kdepasswd");
    if ( bin.isEmpty() ) {
        kDebug() << "kcm_useraccount: kdepasswd was not found.";
        KMessageBox::sorry ( this, i18n( "A program error occurred: the internal "
            "program 'kdepasswd' could not be found. You will "
            "not be able to change your password."));

        _mw->btnChangePassword->setEnabled(false);
        return;
    }
    QStringList lst;
    lst << _ku->loginName();
    QProcess::startDetached(bin,lst);
}


KCMUserAccount::~KCMUserAccount()
{
    delete _ku;
    delete _kes;
}

void KCMUserAccount::load()
{
    _mw->lblUsername->setText(_ku->loginName());

    QString realName = _kes->getSetting( KEMailSettings::RealName );

    if (realName.isEmpty()) {
        realName = _ku->property(KUser::FullName);
    }

    _mw->leRealname->setText( realName );
    _mw->leEmail->setText( _kes->getSetting( KEMailSettings::EmailAddress ));
    _mw->leOrganization->setText( _kes->getSetting( KEMailSettings::Organization ));
    _mw->leSMTP->setText( _kes->getSetting( KEMailSettings::OutServer ));
    const QString serverssl = _kes->getSetting( KEMailSettings::OutServerSSL );
    const int sslmatchindex = _mw->leSSL->findText(serverssl, Qt::MatchFixedString);
    if (sslmatchindex >= 0) {
        _mw->leSSL->setCurrentIndex( sslmatchindex );
    } else {
        // try, same default as KEMail
        _mw->leSSL->setCurrentIndex( 1 );
    }

    // load user face
    _facePixmap = QPixmap( KCFGUserAccount::faceFile() );
    _mw->btnChangeFace->setIcon( KIcon(_facePixmap) );
    if (!_facePixmap.isNull()) {
        _mw->btnChangeFace->setIconSize(_facePixmap.size());
    }

    KCModule::load(); /* KConfigXT */

}

void KCMUserAccount::save()
{
    KCModule::save(); /* KConfigXT */

/*
 * FIXME: there is apparently no way to set full name
 * non-interactively as a normal user on FreeBSD.
 */
#if !defined(Q_OS_FREEBSD) && !defined(Q_OS_DRAGONFLY)
    /* Save realname to /etc/passwd */
    if ( _mw->leRealname->isModified() ) {
        // save icon file also with accountsservice
        const QString name = _mw->leRealname->text();
        const bool result = setASProp(
            this, qlonglong(_ku->uid()),
            QString::fromLatin1("SetRealName"), name
        );
        if (!result) {
            KMessageBox::error(this, i18n("There was an error setting the name: %1", name));
        }
    }

    if ( _mw->leEmail->isModified() ) {
        // save e-mail with accountsservice
        const QString email = _mw->leEmail->text();
        const bool result = setASProp(
            this, qlonglong(_ku->uid()),
            QString::fromLatin1("SetEmail"), email
        );
        if (!result) {
            KMessageBox::error(this, i18n("There was an error setting the Email: %1", email));
        }
    }
#endif

    /* Save the image */
    if( !_facePixmap.isNull() )
    {
        if( !_facePixmap.save(KCFGUserAccount::faceFile(), "PNG")) {
            KMessageBox::error(this, i18n("There was an error saving the image: %1", KCFGUserAccount::faceFile()));
        }
        // save icon file also with accountsservice
        const bool result = setASProp(
            this, qlonglong(_ku->uid()),
            QString::fromLatin1("SetIconFile"), KCFGUserAccount::faceFile()
        );
        if (!result) {
            KMessageBox::error(this, i18n("There was an error setting the image: %1", KCFGUserAccount::faceFile()));
        }
    } else {
        // delete existing image
        if (QFile::exists(KCFGUserAccount::faceFile())) {
            if ( !KIO::NetAccess::del(KCFGUserAccount::faceFile(), this) ) {
                KMessageBox::error( this, i18n("There was an error deleting the image: %1",
                    KCFGUserAccount::faceFile()) );
            }
        }
    }

    /* Save KDE's homebrewn settings */
    _kes->setSetting( KEMailSettings::RealName, _mw->leRealname->text() );
    _kes->setSetting( KEMailSettings::EmailAddress, _mw->leEmail->text() );
    _kes->setSetting( KEMailSettings::Organization, _mw->leOrganization->text() );
    _kes->setSetting( KEMailSettings::OutServer, _mw->leSMTP->text() );
    _kes->setSetting( KEMailSettings::OutServerSSL, _mw->leSSL->currentText().toLower() );
}

void KCMUserAccount::changeFace(const QPixmap &pix)
{
    _facePixmap = pix;
    _mw->btnChangeFace->setIcon( KIcon(_facePixmap) );
    if ( !_facePixmap.isNull() ) {
        _mw->btnChangeFace->setIconSize(_facePixmap.size());
    }
    emit changed( true );
}

void KCMUserAccount::slotFaceButtonClicked()
{
    ChFaceDlg* pDlg = new ChFaceDlg( KGlobal::dirs()->resourceDirs("data").last() +
        "/kdm/pics/users/", this );

    if ( pDlg->exec() == QDialog::Accepted ) {
        changeFace( pDlg->getFaceImage() );
    }

    delete pDlg;
}

/**
 * I merged faceButtonDropEvent into this /Frans
 * The function was called after checking event type and
 * the code is now below that if statement
 */
bool KCMUserAccount::eventFilter(QObject *, QEvent *e)
{
    QDragEnterEvent *ee = (QDragEnterEvent *) e;
    if (e->type() == QEvent::DragEnter) {
        KUrl::List uris = KUrl::List::fromMimeData(ee->mimeData());
        if (!uris.isEmpty()) {
            ee->accept();
        } else {
            ee->ignore();
        }
        return true;
    } else if (e->type() == QEvent::Drop) {
        KUrl::List uris = KUrl::List::fromMimeData(ee->mimeData());
        if (!uris.isEmpty()) {
            KUrl *url = new KUrl(uris.first());

            bool tempfile = false;
            QString pixPath;
            if (url->isLocalFile()) {
                pixPath = url->path();
            } else {
                tempfile = true;
                KIO::NetAccess::download(*url, pixPath, this);
            }
            QImageReader reader(pixPath);
            if ( !reader.canRead() ) {
                KMessageBox::sorry( this, i18n( "%1 does not appear to be an image file.\n", url->path()));
            } else {
                changeFace( QPixmap( pixPath ) );
            }
            if (tempfile) {
                KIO::NetAccess::removeTempFile(pixPath);
            }
        }
        return true;
    }
    return false;
}

#include "moc_main.cpp"