summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup54
1 files changed, 28 insertions, 26 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index bc7528b8d..0a2414641 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
#
# Copyright (C) 2001 MandrakeSoft by Sebastien DUPONT <dupont_s@epita.fr>
# Redistribution of this file is permitted under the terms of the GNU
@@ -242,6 +242,7 @@ my $cdrw_erase = 0;
my $no_critical_sys = 1;
my $send_mail = 0;
my $user_mail;
+my @user_info;
foreach (@ARGV) {
/--default/ and backend_mode();
@@ -942,36 +943,37 @@ sub advanced_what{
$up_box->show_all();
}
+
sub advanced_where_net_ftp {
my ($previous_function) = @_,
my $box_where_net;
gtkpack($advanced_box,
- $box_where_net = gtkpack__(new Gtk::VBox(0, 15),
- new Gtk::HSeparator,
- my $check_where_net_ftp = new Gtk::CheckButton( _("Use FTP connection to backup") ),
- new Gtk::HSeparator,
- gtkpack_(new Gtk::HBox(0,10),
+ $box_where_net = gtkpack_(new Gtk::VBox(0, 15),
+ 0, new Gtk::HSeparator,
+ 0, my $check_where_net_ftp = new Gtk::CheckButton( _("Use FTP connection to backup") ),
+ 0, new Gtk::HSeparator,
+ 0, gtkpack_(new Gtk::HBox(0,10),
0, gtkset_sensitive(new Gtk::Label(_("Please enter the host name or IP.")), $where_net_ftp),
1, new Gtk::HBox(0,10),
0, gtkset_sensitive(my $host_name_entry = new Gtk::Entry(), $where_net_ftp),
),
- gtkpack_(new Gtk::HBox(0,10),
- gtkset_sensitive(new Gtk::Label(_("Please enter the directory to\n put the backup on this host.")), $where_net_ftp),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please enter the directory to\n put the backup on this host.")), $where_net_ftp),
1, new Gtk::HBox(0,10),
0, gtkset_sensitive(my $host_path_entry = new Gtk::Entry(), $where_net_ftp),
),
- gtkpack_(new Gtk::HBox(0,10),
+ 0, gtkpack_(new Gtk::HBox(0,10),
0, gtkset_sensitive(new Gtk::Label(_("Please enter your login")), $where_net_ftp),
1, new Gtk::HBox(0,10),
0, gtkset_sensitive(my $login_user_entry = new Gtk::Entry(), $where_net_ftp),
),
- gtkpack_(new Gtk::HBox(0,10),
+ 0, gtkpack_(new Gtk::HBox(0,10),
0, gtkset_sensitive(new Gtk::Label(_("Please enter your password")), $where_net_ftp),
1, new Gtk::HBox(0,10),
0, gtkset_sensitive(my $passwd_user_entry = new Gtk::Entry(), $where_net_ftp),
- ),
- gtkpack_(new Gtk::HBox(0,10),
+ ),
+ 0, gtkpack_(new Gtk::HBox(0,10),
1, new Gtk::HBox(0,10),
0, gtkset_sensitive(my $check_remember_pass = new Gtk::CheckButton( _("Remember this password")), $where_net_ftp),
),
@@ -1232,15 +1234,15 @@ sub advanced_where{
1, gtksignal_connect(my $button_where_net = new Gtk::Button(), clicked => sub {
# $box_where->destroy(); advanced_where_net(); }),
$box_where->destroy(); advanced_where_net_ftp(); }),
- 1, gtksignal_connect(my $button_where_cd = new Gtk::Button(), clicked => sub {
- ${$central_widget}->destroy();
- if (require_rpm("mkisofs", "cdrecord", "toto")) { advanced_where_cd(); }
- else {
- print "have to install @list_of_rpm_to_install...\n";
- ${$central_widget}->destroy();
- install_rpm(\&advanced_where);
- }
- }),
+# 1, gtksignal_connect(my $button_where_cd = new Gtk::Button(), clicked => sub {
+# ${$central_widget}->destroy();
+# if (require_rpm("mkisofs", "cdrecord", "toto")) { advanced_where_cd(); }
+# else {
+# print "have to install @list_of_rpm_to_install...\n";
+# ${$central_widget}->destroy();
+# install_rpm(\&advanced_where);
+# }
+# }),
1, gtksignal_connect(my $button_where_hd = new Gtk::Button(), clicked => sub {
${$central_widget}->destroy(); advanced_where_hd(); }),
# 1, gtksignal_connect(my $button_where_tape = new Gtk::Button(), clicked => sub {
@@ -1255,11 +1257,11 @@ sub advanced_where{
new Gtk::Label(_("Network")),
new Gtk::HBox(0, 5)
));
- $button_where_cd->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_cd_map, $pix_cd_mask),
- new Gtk::Label(_("CDROM / DVDROM")),
- new Gtk::HBox(0, 5)
- ));
+# $button_where_cd->add(gtkpack(new Gtk::HBox(0,10),
+# new Gtk::Pixmap($pix_cd_map, $pix_cd_mask),
+# new Gtk::Label(_("CDROM / DVDROM")),
+# new Gtk::HBox(0, 5)
+# ));
$button_where_hd->add(gtkpack(new Gtk::HBox(0,10),
new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
new Gtk::Label(_("HardDrive / NFS")),