path: root/ui/qt5/runner/errorpage.cc

/*
 * errorpage.cc - Implementation of the UI.Perform.Error page
 * horizon-run-qt5, the Qt 5 executor user interface for
 * Project Horizon
 *
 * Copyright (c) 2019 Adélie Linux and contributors.  All rights reserved.
 * This code is licensed under the AGPL 3.0 license, as noted in the
 * LICENSE-code file in the root directory of this repository.
 *
 * SPDX-License-Identifier: AGPL-3.0-only
 */

#include "errorpage.hh"

#include <QFileDialog>
#include <QHBoxLayout>
#include <QLabel>
#include <QMessageBox>
#include <QProcess>
#include <QPushButton>
#include <QVBoxLayout>

#include "executorwizard.hh"
#include "executepage.hh"
#include "../horizonhelpwindow.hh"

ErrorPage::ErrorPage(QWidget *parent) : HorizonWizardPage(parent) {
    setTitle(tr("Installation Couldn't Finish"));
    loadWatermark("intro");
    setFinalPage(true);

    descLabel = new QLabel(tr("I am Error."));
    descLabel->setWordWrap(true);

    QPushButton *viewLog = new QPushButton(tr("&View Log"));
    viewLog->setWhatsThis(tr("Opens a log viewer, in which you can examine the contents of the installation log file."));
    connect(viewLog, &QPushButton::clicked, [=]{
        QFile log("/var/log/horizon/executor.log");
        log.open(QFile::ReadOnly);
        HorizonHelpWindow window(&log, this, true);
        window.exec();
    });
    QPushButton *saveData = new QPushButton(tr("&Save Script/Log..."));
    saveData->setWhatsThis(tr("Allows you to save the HorizonScript and installation log files to removable media."));
    connect(saveData, &QPushButton::clicked, [=]{
        bool success = true;

        QString dir = QFileDialog::getExistingDirectory(this, tr("Choose Directory"), "/target/root");
        if(dir.size() > 0) {
            success = QFile::copy("/etc/horizon/installfile", dir + QDir::separator() + "installfile");
            if(success) success = QFile::copy("/var/log/horizon/executor.log", dir + QDir::separator() + "install.log");
        }

        if(!success) {
            QMessageBox::critical(this, tr("Could Not Save Installation Data"), tr("Unable to save installation data to %1.").arg(dir));
        }
    });
    QPushButton *popAnXterm = new QPushButton(tr("Open &Terminal"));
    popAnXterm->setWhatsThis(tr("Opens a terminal, to allow you to run commands from the installation environment."));
    connect(popAnXterm, &QPushButton::clicked, [=]{
        QProcess p;
        p.execute("xterm", {"-fa", "Liberation Mono", "-fs", "12"});
    });

    QHBoxLayout *buttonLayout = new QHBoxLayout;
    buttonLayout->addWidget(viewLog);
    buttonLayout->addWidget(saveData);
    buttonLayout->addWidget(popAnXterm);

    QVBoxLayout *layout = new QVBoxLayout;
    layout->addWidget(descLabel);
    layout->addStretch();
    layout->addLayout(buttonLayout);

    setLayout(layout);
}

void ErrorPage::initializePage() {
    ExecutePage *epage = dynamic_cast<ExecutePage *>(wizard()->page(ExecutorWizard::Page_Execute));
    switch(epage->currentPhase()) {
    case ExecutePage::Prepare:
        descLabel->setText(tr(
            "An issue occurred while preparing this computer for installation.\n\n"
            "This almost always indicates a corrupted installation medium, or a hardware fault.\n\n"
            "Try creating a new installation medium.  If that doesn't work, you will need to have your computer serviced.\n\n"
            "Technical Details: A failure in the Prepare phase means the Executor process failed to start, crashed during initialisation, or encountered an early parsing failure in the HorizonScript."));
        break;
    case ExecutePage::Validate:
        descLabel->setText(tr(
            "An issue occurred while validating the installation script.\n\n"
            "If you used the System Installation Wizard, you have encountered a bug in the wizard.  "
            "Please choose \"Save Script/Log...\" and follow the instructions at https://horizon.adelielinux.org/bug to report this issue.\n\n"
            "If you wrote the script yourself, you have made a syntax error."));
        break;
    case ExecutePage::Disk:
        descLabel->setText(tr(
            "An issue occurred while manipulating this computer's hard disk(s).\n\n"
            "This may indicate a disk is read-only, an issue with the disk's controller or cabling, or a failing disk.\n\n"
            "Ensure you have selected the correct hard disk drive.  "
            "If the correct disk is selected, check the cabling from the drive to the controller, and the controller to the computer.\n\n"
            "Otherwise, ensure the disk is not physically damaged."));
        break;
    case ExecutePage::PreMeta:
    case ExecutePage::Net:
    case ExecutePage::Pkg:
    case ExecutePage::PostMeta:
        break;
    }
}