summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2002-04-04 20:15:02 +0000
committerSebastien Dupont <sdupont@mandriva.com>2002-04-04 20:15:02 +0000
commit1e1c83fc66614d9ab13c6eb47313c76786e5a7f9 (patch)
tree9f7d88fa59681d5c848cf1e228cb98069612e40b /perl-install
parent806784f620dfb17a5ebeef84ae6266c2293fe306 (diff)
downloaddrakx-backup-do-not-use-1e1c83fc66614d9ab13c6eb47313c76786e5a7f9.tar
drakx-backup-do-not-use-1e1c83fc66614d9ab13c6eb47313c76786e5a7f9.tar.gz
drakx-backup-do-not-use-1e1c83fc66614d9ab13c6eb47313c76786e5a7f9.tar.bz2
drakx-backup-do-not-use-1e1c83fc66614d9ab13c6eb47313c76786e5a7f9.tar.xz
drakx-backup-do-not-use-1e1c83fc66614d9ab13c6eb47313c76786e5a7f9.zip
please yduret, do not commit these changes on cvs before to test it.
you can say "bugs fixes" only if you have corrected some errors but not if you create it! the backup on cd was disabled because the backend is not available for moment.
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")),