1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
/*
* 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;
}
}
|
