summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup59
1 files changed, 23 insertions, 36 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 37ecb6f7d..3e935af10 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -4200,30 +4200,39 @@ sub button_box_main {
################################################ MESSAGES ################################################
-sub send_mail_pb {
+sub dialog_one {
$table->destroy();
+ my ($label) = @_;
my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
gtkadd($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0, 15),
- 0, new Gtk::VBox(0, 5),
- 0, new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
- 0, N("Error during sendmail.
- Your report mail was not sent.
- Please configure sendmail"),
- ),
- 0, new Gtk::VBox(0, 5),
- 1, new Gtk::VBox(0, 5),
- ),
- );
+ $box2 = gtkpack_(new Gtk::HBox(0, 15),
+ 1, new Gtk::VBox(0, 5),
+ 0, gtkpack_(new Gtk::HBox(0, 15),
+ 0, new Gtk::VBox(0, 5),
+ 0, new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+ 0, $label),
+ 0, new Gtk::VBox(0, 5),
+ 1, new Gtk::VBox(0, 5),
+ ),
+ );
button_box_restore_main();
$custom_help = "mail_pb";
$central_widget = \$box2;
$up_box->show_all();
}
+sub send_mail_pb {
+ dialog_one(N("Error during sendmail.
+ Your report mail was not sent.
+ Please configure sendmail"));
+}
+
+sub client_ftp_pb {
+ dialog_one(N("Error during sending file via FTP.
+ Please correct your FTP configuration."));
+}
+
sub install_rpm {
my ($previous_function) = @_;
#- catch a crash when calling help
@@ -4247,28 +4256,6 @@ sub install_rpm {
$up_box->show_all();
}
-sub client_ftp_pb {
- $table->destroy();
- my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
-
- gtkadd($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0, 15),
- 0, new Gtk::VBox(0, 5),
- 0, new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
- 0, N("Error during sending file via FTP.
- Please correct your FTP configuration."),
- ),
- 0, new Gtk::VBox(0, 5),
- 1, new Gtk::VBox(0, 5),
- ),
- );
- button_box_restore_main();
- $custom_help = "mail_pb";
- $central_widget = \$box2;
- $up_box->show_all();
-}
sub message_norestore_box {
$box2->destroy();