summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2003-02-26 00:50:18 +0000
committerStew Benedict <stewb@mandriva.org>2003-02-26 00:50:18 +0000
commit4d6268e95f28a5111f06909289ab7c3ef5a08d52 (patch)
treef15d59d5f4d06388be708e47fd6c420d6de621b9 /perl-install/standalone/drakbackup
parente1f4904d5e50fc3ae3a3f3035b1981658fe7c80e (diff)
downloaddrakx-backup-do-not-use-4d6268e95f28a5111f06909289ab7c3ef5a08d52.tar
drakx-backup-do-not-use-4d6268e95f28a5111f06909289ab7c3ef5a08d52.tar.gz
drakx-backup-do-not-use-4d6268e95f28a5111f06909289ab7c3ef5a08d52.tar.bz2
drakx-backup-do-not-use-4d6268e95f28a5111f06909289ab7c3ef5a08d52.tar.xz
drakx-backup-do-not-use-4d6268e95f28a5111f06909289ab7c3ef5a08d52.zip
Gtk2 port. Bugzilla reports. Some perl_checker errors still, but cleaner.
(some are generated by calls from other modules used)
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup343
1 files changed, 164 insertions, 179 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 24a3eba35..d332f7b8b 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -96,7 +96,7 @@
# 2 - calcul disk space.
# use quota.
#WHY? - Apple can read Joliet - would you really be restoring on MacOS?
-#Or for bootable - PPC is being depracated anyway ;(
+#Or for bootable - PPC is being deprecated anyway ;(
# 4 - write on cd --> ! change Joliet to HFS for Apple
# 6 - total backup.( all partitions wanted, windows partitions for example!)
# dump use for total backup.
@@ -122,6 +122,8 @@ use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
use interactive;
+#- to make perl_checker happy - comment out to use daemon/command line mode
+use ugtk2 qw(:helpers :wrappers :create);
use common;
use Time::localtime;
@@ -194,10 +196,11 @@ my $tar_ext = "tar.gz";
# config. FILES -> Default PATH & Global variables.
my %config;
-my @sys_files = ("/etc");
+my @sys_files = "/etc";
my @user_list;
my @list_other;
my $cfg_dir = "/etc/drakxtools/drakbackup/";
+my $cfg_file = $cfg_dir . "drakbackup.conf";
my $save_path = "/var/lib/drakbackup";
my $log_buff;
my $comp_mode = 0;
@@ -248,7 +251,7 @@ my $scp_port = 22;
my $use_expect = 0;
my $xfer_keys = 0;
my $user_keys = 1;
-my $user_home = $ENV{"HOME"};
+my $user_home = $ENV{HOME};
my $backup_key = $user_home . "/.ssh/identity-drakbackup";
my $nonroot_user = 0;
my $not_warned = 0;
@@ -256,6 +259,16 @@ my $media_problem = 0;
my $vol_name = 'Drakbackup';
my $good_restore_path = 1;
+foreach (@ARGV) {
+
+ /--default/ and backend_mode();
+ /--daemon/ and daemon_mode();
+ /--show-conf/ and show_conf();
+ /--config-info/ and explain_conf();
+ /--cd-info/ and get_cd_info(), exit(0);
+ /--debug/ and $DEBUG = 1, next;
+}
+
# allow not-root user with own config
if ($ENV{HOME} ne '/root') {
standalone::explanations("Running as $ENV{USER}...");
@@ -267,19 +280,9 @@ if ($ENV{HOME} ne '/root') {
$backup_sys = 0;
$backup_daemon = 0;
$daemon = 0;
- @user_list = ("$ENV{USER}");
-}
-my $cfg_file = $cfg_dir . "drakbackup.conf";
-
-foreach (@ARGV) {
-
- /--default/ and backend_mode();
- /--daemon/ and daemon_mode();
- /--show-conf/ and show_conf();
- /--config-info/ and explain_conf();
- /--cd-info/ and get_cd_info(), exit(0);
- /--debug/ and $DEBUG = 1, next;
+ @user_list = $ENV{USER};
}
+$cfg_file = $cfg_dir . "drakbackup.conf";
sub show_conf {
print "DrakBackup configuration:\n\n";
@@ -363,13 +366,13 @@ sub daemon_mode {
interactive_mode();
sub all_user_list {
- my ($username) = @_;
my $passwdfile = "/etc/passwd";
my $user;
my $uid;
@all_user_list = ();
- open (PASSWD, $passwdfile) or exit 1;
+ local *PASSWD;
+ open(PASSWD, $passwdfile) or exit 1;
while (defined(my $line = <PASSWD>)) {
chomp($line);
($user, $uid) = (split(/:/, $line))[0, 2];
@@ -601,6 +604,7 @@ sub save_cron_files {
sub read_conf_file {
if (-e $cfg_file) {
# %config = getVarsFromSh($cfg_file) || print "You must be root to read configuration file. \n";
+ local *CONF_FILE;
open(CONF_FILE, "<" . $cfg_file) || print "You must be root to read configuration file. \n";
local $_;
while (<CONF_FILE>) {
@@ -651,16 +655,16 @@ sub read_conf_file {
if (/^CRITICAL_SYS/) { $no_critical_sys = 0 }
if (/^DEL_HD_FILES/) { $del_hd_files = 1 }
}
- read_cron_files();
- $cfg_file_exist = 1;
+ close(CONF_FILE);
+ read_cron_files();
+ $cfg_file_exist = 1;
} else {
$cfg_file_exist = 0;
#- these were 1 by default, but that made it so the user could never save the
#- inverse behavior. this allows incremental as the default if not configured
$backup_sys_versions = 1;
$backup_user_versions = 1;
- }
- close CONF_FILE;
+ }
}
sub write_sitecopyrc {
@@ -724,10 +728,10 @@ sub ftp_client {
foreach (@file_list_to_send_by_ftp) {
$interactive and $pbar->set_fraction(0);
$interactive and progress($pbar, 0.5, $_);
- $interactive and $pbar->set_show_text($_);
+ $interactive and $pbar->set_text($_);
$ftp->put($_);
$interactive and progress($pbar, 0.5, $_);
- $interactive and $pbar->set_show_text($_);
+ $interactive and $pbar->set_text($_);
$interactive and progress($pbar3, 1/@file_list_to_send_by_ftp, N("Total progess"));
}
$ftp->quit;
@@ -740,7 +744,7 @@ sub do_expect {
#- a remote server, as well as transfer a key and restore.
#- Using the key after it is setup is preferred.
- my ($mode, $filename) = @_;
+ my ($mode) = @_;
eval { require Expect };
@@ -767,7 +771,7 @@ sub do_expect {
my $timeout = 20;
my $exp_command;
- my @send_files = ("$backup_key.pub");
+ my @send_files = "$backup_key.pub";
#- just bypass progress for sendkey for now
$interactive = 0 if $mode eq "sendkey";
@@ -782,7 +786,7 @@ sub do_expect {
$exp_command = "scp -P $scp_port $_ $login_user\@$host_name:$host_path" if $mode eq "backup";
$exp_command = "ssh-copy-id -i $_ $login_user\@$host_name" if $mode eq "sendkey";
- if ((-e $backup_key) && $mode eq "sendkey") {
+ if (-e $backup_key && $mode eq "sendkey") {
if ($in->ask_yesorno('', N("%s exists, delete?\n\nWarning: If you've already done this process you'll probably\n need to purge the entry from authorized_keys on the server.", $backup_key))) {
unlink($backup_key);
unlink($backup_key . '.pub');
@@ -806,7 +810,7 @@ sub do_expect {
#- run scp, look for some common errors and try to track successful progress for GUI
$exp->expect($timeout,
- [ qr'password: $', sub {
+ [ qr 'password: $', sub {
$spawn_ok = 1;
my $fh = shift;
$fh->send("$passwd_user\n");
@@ -849,9 +853,9 @@ sub ssh_client {
$interactive and progress($pbar, 0.5, "File Transfer...");
$interactive and $stext->set_text($_);
$log_buff .= $command . "\n\n";
- local *TMP;
+ local *TMP;
open TMP, "$command 2>&1 |";
- while ($value = <TMP>) {
+ while ($value = <TMP>) {
$log_buff .= $value;
}
close TMP;
@@ -957,14 +961,14 @@ sub spawn_progress {
my $timer;
$interactive and progress($pbar3, 0, translate($descr));
- $interactive and $pbar3->set_activity_mode(1);
+# $interactive and $pbar3->set_activity_mode(1);
$interactive and $pbar3->set_fraction(0);
$interactive and $timer = Gtk2->timeout_add(2, \&progress_timeout);
$log_buff .= "\n" . $descr . ":\n";
$log_buff .= $command . "\n\n";
- local *TMP;
+ local *TMP;
open TMP, "$command 2>&1 |";
while ($value = <TMP>) {
$log_buff .= $value;
@@ -974,7 +978,7 @@ sub spawn_progress {
}
}
close TMP;
- $interactive and $pbar3->set_activity_mode(0);
+# $interactive and $pbar3->set_activity_mode(0);
$interactive and Gtk2->timeout_remove($timer);
}
@@ -1134,14 +1138,10 @@ sub build_backup_files {
my $tar_cmd_sys;
my $tar_cmd_user;
my $tar_cmd_other;
- my $vartemp;
my $base_sys_exist = 0;
- my $base_user_exist = 0;
- my $base_other_exist = 0;
- my @list_temp;
my @list_other_;
my @dir_content;
- my $file_date;
+ local $_;
$results = "";
$log_buff = "";
#- flush this so if the user does 2 runs in a row we don't try to send the same files
@@ -1169,7 +1169,7 @@ sub build_backup_files {
$nonroot_user and $tar_cmd_user .= " --exclude .drakbackup";
-d $save_path and @dir_content = all($save_path);
- grep (/^backup\_base\_sys/, @dir_content) and $base_sys_exist = 1;
+ grep(/^backup\_base\_sys/, @dir_content) and $base_sys_exist = 1;
if ($where_hd && !$daemon || $daemon) {
$interactive and progress($pbar, 0.5, N("Backup system files..."));
@@ -1305,7 +1305,7 @@ sub build_backup_files {
# ftp_client() if $ftp_daemon;
rsync_client() if $daemon_media eq 'rsync';
ssh_client() if $daemon_media eq 'ssh' && !$use_expect;
- do_expect("backup", "") if $daemon_media eq 'ssh' && $use_expect;
+ do_expect("backup") if $daemon_media eq 'ssh' && $use_expect;
webdav_client() if $daemon_media eq 'webdav';
build_cd() if $daemon_media eq 'cd';
build_tape() if $daemon_media eq 'tape';
@@ -1331,7 +1331,7 @@ sub build_backup_files {
if ($where_net && $net_proto && $net_proto ne 'ftp') {
rsync_client() if $net_proto eq 'rsync';
ssh_client() if $net_proto eq 'ssh' && !$use_expect;
- do_expect("backup", "") if $net_proto eq 'ssh' && $use_expect;
+ do_expect("backup") if $net_proto eq 'ssh' && $use_expect;
webdav_client() if $net_proto eq 'webdav';
$results .= N("\nDrakbackup activities via %s:\n\n", $net_proto);
}
@@ -1377,9 +1377,9 @@ sub build_backup_files {
$catalog .= ":F" if !$backup_other_versions && @list_other;
$catalog .= "\n";
- local *CATALOG;
+ local *CATALOG;
open(CATALOG, ">> $cfg_dir/drakbackup_catalog") || show_warning("w", N_("Can't create catalog!"));
- print(CATALOG $catalog);
+ print CATALOG $catalog;
close(CATALOG);
}
@@ -1404,7 +1404,7 @@ my @list_of_rpm_to_install;
sub require_rpm {
my $all_rpms_found = 1;
my $res;
- my @file_cache = cat_("/var/log/rpmpkgs");
+# my @file_cache = cat_("/var/log/rpmpkgs");
@list_of_rpm_to_install = ();
#- reverted to old method - /var/log/rpmpkgs is not always accurate
# my($pkg) = @_;
@@ -1442,13 +1442,13 @@ sub check_pkg_needs {
sub cursor_wait {
# turn the cursor to a watch
- $window1->window->set_cursor(new Gtk2::Gdk::Cursor(150));
+ $window1->window->set_cursor(new Gtk2::Gdk::Cursor("GDK_WATCH"));
gtkflush();
}
sub cursor_norm {
# restore normal cursor
- $window1->window->set_cursor(new Gtk2::Gdk::Cursor(68));
+ $window1->window->set_cursor(new Gtk2::Gdk::Cursor("GDK_LEFT_PRT"));
gtkflush();
}
@@ -1468,20 +1468,12 @@ sub show_status {
$table->show_all();
}
-sub list_remove {
- my($widget, $list) = @_;
- my @to_remove;
- push @to_remove, $list->child_position($_) foreach $list->selection;
- splice @list_other, $_, 1 foreach reverse sort @to_remove;
- $list->remove_items($list->selection);
-}
-
sub file_ok_sel {
- my ($widget, $file_selection) = @_;
+ my ($file_selection) = @_;
my $file_name = $file_selection->get_filename();
if (!member($file_name, @list_other)) {
- push(@list_other, $file_name);
- $list_other->add(gtkshow(new Gtk2::ListItem($file_name)));
+ push(@list_other, $file_name);
+ $list_other->add(gtkshow(new Gtk2::ListItem($file_name)));
}
}
@@ -1501,26 +1493,26 @@ sub filedialog_restore_find_path {
$file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy() });
$file_dialog->ok_button->signal_connect(clicked => sub {
- $restore_find_path_entry->set_text($file_dialog->get_filename());
- $file_dialog->destroy() });
+ $restore_find_path_entry->set_text($file_dialog->get_filename());
+ $file_dialog->destroy()
+ });
$file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
$file_dialog->show();
}
sub filedialog_generic {
- #- a more generic file dialog, expect a flag for fileops visible or not
+ #- a more generic file dialog
#- a title prompt, the widget to get updated and the variable to update
- my ($fileops, $prompt, $widget, $set_var) = @_;
+ my ($prompt, $widget, $set_var) = @_;
my $file_dialog;
$file_dialog = gtksignal_connect(new Gtk2::FileSelection(translate($prompt)), destroy => sub { $file_dialog->destroy() });
$file_dialog->ok_button->signal_connect(clicked => sub {
- ${$set_var} = ($file_dialog->get_filename());
+ ${$set_var} = $file_dialog->get_filename();
${$widget}->set_text(${$set_var});
$file_dialog->destroy()
});
$file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
- $file_dialog->hide_fileop_buttons() if !$fileops;
$file_dialog->show();
}
@@ -1528,11 +1520,8 @@ sub filedialog {
my $file_dialog;
$file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("Select the files or directories and click on 'Add'")), destroy => sub { $file_dialog->destroy() });
- $file_dialog->ok_button->signal_connect(clicked => \&file_ok_sel, $file_dialog);
- $file_dialog->ok_button->child->set(N("Add"));
+ $file_dialog->ok_button->signal_connect(clicked => sub { file_ok_sel($file_dialog) });
$file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
- $file_dialog->cancel_button->child->set(N("Close"));
-# $file_dialog->set_filename(N("Select the files or directories and click on 'Add'"));
$file_dialog->show();
}
@@ -1632,22 +1621,44 @@ sub advanced_what_user {
sub advanced_what_other {
my $box_what_other;
- $list_other = new Gtk2::List();
- $list_other->set_selection_mode('extended');
- $list_other->add(gtkshow(new Gtk2::ListItem($_))) foreach @list_other;
-
+ my $file_iter;
+ my $iter = Gtk2::TreeIter->new;
+ my $other_file;
+ my @to_remove;
+
+ my $list_model = Gtk2::ListStore->new(Gtk2::GType->STRING);
+ my $list_other = Gtk2::TreeView->new_with_model($list_model);
+ $list_other->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
+ $list_other->set_headers_visible(0);
+
+ foreach (@list_other) {
+ $list_model->append($iter);
+ $list_model->set($iter, [ 0 => $_ ]);
+ }
+
+ $list_other->get_selection->signal_connect(changed => sub {
+ my ($model, $iter) = $_[0]->get_selected;
+ $model && $iter or return;
+ $other_file = $model->get($iter, 0);
+ $file_iter = $iter;
+ });
+
gtkpack($advanced_box,
$box_what_other = gtkpack_(new Gtk2::VBox(0, 15),
- 1, gtkpack_(new Gtk2::HBox(0,4),
- 1, create_scrolled_window($list_other),
- ),
- 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
- gtksignal_connect(new Gtk2::Button(N("Add")), clicked => sub { filedialog() }),
- gtksignal_connect(new Gtk2::Button(N("Remove Selected")), clicked => \&list_remove, $list_other),
- ),
- 0, gtkset_sensitive(my $check_what_other_versions = new Gtk2::CheckButton(N("Use Incremental Backups (do not replace old backups)")), 0),
- ),
- );
+ 1, gtkpack_(new Gtk2::HBox(0,4),
+ 1, create_scrolled_window($list_other),
+ ),
+ 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
+ gtksignal_connect(new Gtk2::Button(N("Add")), clicked => sub { filedialog() }),
+ gtksignal_connect(new Gtk2::Button(N("Remove Selected")), clicked => sub {
+ $list_model->remove($file_iter);
+ push @to_remove, $other_file;
+ splice @list_other, $_, 1 foreach reverse sort @to_remove;
+ }),
+ ),
+ 0, gtkset_sensitive(my $check_what_other_versions = new Gtk2::CheckButton(N("Use Incremental Backups (do not replace old backups)")), 0),
+ ),
+ );
check_list([$check_what_other_versions, \$backup_other_versions]);
fonction_env(\$box_what_other, \&advanced_what_other, \&advanced_what, "what");
$up_box->show_all();
@@ -1778,10 +1789,10 @@ sub advanced_where_net_types {
);
$entry_net_type->set_popdown_strings(@net_methods);
$entry_net_type->entry->set_text($net_proto);
- $entry_net_type->entry->editable(0);
+ $entry_net_type->entry->set_property('editable', 0);
$button_xfer_keys->signal_connect('clicked', sub {
if ($passwd_user && $login_user && $host_name) {
- do_expect("sendkey", $backup_key);
+ do_expect("sendkey");
} else {
$in->ask_warn('', N("Need hostname, username and password!"));
}
@@ -1847,9 +1858,9 @@ sub advanced_where_net_types {
$current_widget->();
});
if ($previous_function) {
- fonction_env (\$box_where_net, \&advanced_where_net_types, \&$previous_function, "net");
+ fonction_env(\$box_where_net, \&advanced_where_net_types, \&$previous_function, "net");
} else {
- fonction_env (\$box_where_net, \&advanced_where_net_types, \&advanced_where, "net");
+ fonction_env(\$box_where_net, \&advanced_where_net_types, \&advanced_where, "net");
}
$up_box->show_all();
}
@@ -2003,10 +2014,11 @@ sub advanced_where_tape {
$combo_where_tape_device->set_popdown_strings(@tape_devices) if @tape_devices;
my $box_where_tape;
- my $button;
my $adj = new Gtk2::Adjustment(550.0, 1.0, 10000.0, 1.0, 5.0, 0.0);
#my ($pix_fs_map, $pix_fs_mask) = gtkcreate_img("filedialog");
-
+ local $_;
+ my $spinner;
+
gtkpack($advanced_box,
$box_where_tape = gtkpack_(new Gtk2::VBox(0, 6),
0, new Gtk2::HSeparator,
@@ -2039,7 +2051,7 @@ sub advanced_where_tape {
0, gtkpack_(new Gtk2::HBox(0,10),
0, gtkset_sensitive(new Gtk2::Label(N("Please enter the maximum size\n allowed for Drakbackup")), $where_tape),
1, new Gtk2::VBox(0, 6),
- 0, gtkset_size_request(gtkset_sensitive(my $spinner = new Gtk2::SpinButton($adj, 0, 0), $where_tape), 200, 20),
+ 0, gtkset_size_request(gtkset_sensitive($spinner = new Gtk2::SpinButton($adj, 0, 0), $where_tape), 200, 20),
),
0, gtkpack_(new Gtk2::HBox(0,10),),
),
@@ -2094,7 +2106,8 @@ sub advanced_where_hd {
my $box_where_hd;
my $button;
my $adj = new Gtk2::Adjustment(550.0, 1.0, 10000.0, 1.0, 5.0, 0.0);
-
+ my $spinner;
+
gtkpack($advanced_box,
$box_where_hd = gtkpack_(new Gtk2::VBox(0, 6),
0, new Gtk2::HSeparator,
@@ -2112,7 +2125,7 @@ sub advanced_where_hd {
0, gtkpack_(new Gtk2::HBox(0,10),
0, gtkset_sensitive(new Gtk2::Label(N("Please enter the maximum size\n allowed for Drakbackup")), $where_hd),
1, new Gtk2::VBox(0, 6),
- 0, gtkset_size_request(gtkset_sensitive(my $spinner = new Gtk2::SpinButton($adj, 0, 0), $where_hd), 200, 20),
+ 0, gtkset_size_request(gtkset_sensitive($spinner = new Gtk2::SpinButton($adj, 0, 0), $where_hd), 200, 20),
),
0, gtkpack_(new Gtk2::HBox(0,10),
1, new Gtk2::VBox(0, 6),
@@ -2349,6 +2362,8 @@ sub advanced_box {
sub wizard_step3 {
my $box2;
my $text = new Gtk2::TextView;
+ save_conf_file();
+ read_conf_file();
system_state();
gtktext_insert($text, [ [ $system_state ] ]);
button_box_restore_main();
@@ -2485,9 +2500,8 @@ sub find_backup_to_restore {
my @list_backup_tmp2;
my $to_put;
@sys_backuped = ();
- my @list_backup_tmp;
- my @user_backuped_tmp;
-
+ local $_;
+
@user_backuped = ();
-d $path_to_find_restore and @list_backup_tmp2 = all($path_to_find_restore);
@@ -2527,7 +2541,7 @@ sub find_backup_to_restore {
# my $to_put = " $nom, (date: $date, hour: $heure)";
$to_put = "$_ user: $nom, date: $day/$month/$year, hour: $hour:$min";
push @user_backuped , $to_put;
- grep (/^$nom$/, @user_list_backuped) or push @user_list_backuped, $nom;
+ grep(/^$nom$/, @user_list_backuped) or push @user_list_backuped, $nom;
}
}
@@ -2606,6 +2620,7 @@ sub restore_state {
sub select_most_recent_selected_of {
my ($user_name) = @_;
my @list_tmp2;
+ local $_;
my @tmp = sort @user_list_to_restore2;
foreach (grep /$user_name\_/, sort @tmp) { push @list_tmp2 , $_ }
return pop @list_tmp2;
@@ -2617,6 +2632,7 @@ sub select_user_data_to_restore {
my @list_tmp;
my @list_tmp2;
@user_list_to_restore = ();
+ local $_;
-d $path_to_find_restore and my @list_backup_tmp2 = grep /^backup/, all($path_to_find_restore);
@list_tmp2 = @list_backup_tmp2;
@@ -2662,7 +2678,8 @@ sub select_user_data_to_restore {
sub select_sys_data_to_restore {
my $var_eq = 1;
my @list_tmp;
-
+ local $_;
+
-d $path_to_find_restore and @list_tmp = grep /^backup/, all($path_to_find_restore);
my @more_recent = split(' ', $restore_step_sys_date);
my $more_recent = pop @more_recent;
@@ -2681,7 +2698,8 @@ sub show_backup_details {
my ($function, $mode, $name) = @_;
my $archive_file_detail;
my $value;
- my $fixed_font = Gtk2::Gdk::Font->load("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-*-*");
+# dies in gtk2
+# my $fixed_font = Gtk2::Gdk::Font->load("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-*-*");
my $command2;
my $tarfile;
@@ -2716,7 +2734,7 @@ sub show_backup_details {
my $text = new Gtk2::Text;
my $advanced_box_archive;
- $text->insert($fixed_font, undef, undef, $archive_file_detail);
+ $text->insert_text($archive_file_detail, 0);
gtkpack($advanced_box,
$advanced_box_archive = gtkpack_(new Gtk2::VBox(0,10),
1, gtkpack_(new Gtk2::HBox(0,0),
@@ -2750,7 +2768,6 @@ sub valid_backup_test {
sub restore_aff_backup_problems {
my $do_restore;
- my $button_restore;
my $text = new Gtk2::TextView;
my $restore_pbs_state = N("List of data corrupted:\n\n");
$restore_pbs_state .= "\t\t$_\n" foreach @files_corrupted;
@@ -2801,7 +2818,8 @@ sub return_path {
my $usr;
my $home_dir;
my $passwdfile = "/etc/passwd";
- open (PASSWD, $passwdfile) or exit 1;
+ local *PASSWD;
+ open(PASSWD, $passwdfile) or exit 1;
while (defined(my $line = <PASSWD>)) {
chomp($line);
($usr, $home_dir) = (split(/:/, $line))[0,5];
@@ -2818,6 +2836,7 @@ sub restore_backend {
my $tnom;
my $username;
my $theure2;
+ local $_;
if (grep /tar.gz$/, all($path_to_find_restore)) {
$untar_cmd = 0;
@@ -2896,7 +2915,6 @@ sub restore_do {
sub restore_do2 {
my $do_restore;
- my $button_restore;
my $text = new Gtk2::TextView;
restore_state();
gtktext_insert($text, [ [ $restore_state ] ]);
@@ -2978,7 +2996,7 @@ sub restore_step_user {
$b->signal_connect(toggled => sub {
if (!$check_user_to_restore{$name_complet}[1]) {
$check_user_to_restore{$name_complet}[1] = 1;
- if (!grep (/$name/, @user_list_to_restore2)) {
+ if (!grep(/$name/, @user_list_to_restore2)) {
push @user_list_to_restore2, $name_complet
}
} else {
@@ -3011,13 +3029,14 @@ sub restore_step_user {
sub restore_step_sys {
my $restore_step_sys;
+ my $check_backup_before;
my $combo_restore_step_sys = new Gtk2::Combo();
$combo_restore_step_sys->set_popdown_strings(@sys_backuped);
gtkpack($advanced_box,
$restore_step_sys = gtkpack_(new Gtk2::VBox(0,10),
1, new Gtk2::VBox(0,10),
- 0, my $check_backup_before = new Gtk2::CheckButton(N("Backup the system files before:")),
+ 0, $check_backup_before = new Gtk2::CheckButton(N("Backup the system files before:")),
0, gtkpack_(new Gtk2::HBox(0,10),
1, N("please choose the date to restore"),
0, $combo_restore_step_sys,
@@ -3051,7 +3070,8 @@ sub restore_other_media_hd {
my $box_where_hd;
my $button;
my $adj = new Gtk2::Adjustment(550.0, 1.0, 10000.0, 1.0, 5.0, 0.0);
-
+ my $spinner;
+
gtkpack($advanced_box,
$box_where_hd = gtkpack_(new Gtk2::VBox(0, 6),
0, new Gtk2::HSeparator,
@@ -3068,7 +3088,7 @@ sub restore_other_media_hd {
0, gtkpack_(new Gtk2::HBox(0,10),
0, gtkset_sensitive(new Gtk2::Label(N("Please enter the maximum size\n allowed for Drakbackup")), $where_hd),
1, new Gtk2::VBox(0, 6),
- 0, gtkset_size_request(gtkset_sensitive(my $spinner = new Gtk2::SpinButton($adj, 0, 0), $where_hd), 200, 20),
+ 0, gtkset_size_request(gtkset_sensitive($spinner = new Gtk2::SpinButton($adj, 0, 0), $where_hd), 200, 20),
),
0, gtkpack_(new Gtk2::HBox(0,10),
1, new Gtk2::VBox(0, 6),
@@ -3091,40 +3111,6 @@ sub restore_other_media_hd {
$up_box->show_all();
}
-sub restore_find_net {
- my ($previous_function) = @_,
- my $box_where_net;
-
- gtkpack($advanced_box,
- $box_where_net = gtkpack_(new Gtk2::HBox(0, 15),
- 1, new Gtk2::VBox(0, 5),
- 1, gtkpack_(new Gtk2::VBox(0, 15),
- 1, new Gtk2::VBox(0, 5),
- 1, new Gtk2::VBox(0,10),
- 1, gtksignal_connect(new Gtk2::Button(N("FTP Connection")), clicked => sub {
- $box_where_net->destroy();
- if ($previous_function) {
- message_underdevel();
- } else {
- }
- }),
- 1, gtksignal_connect(new Gtk2::Button(N("Secure Connection")), clicked => sub {
- $box_where_net->destroy();
- if ($previous_function) {
- } else {
- }
- }),
- 1, new Gtk2::VBox(0, 5),
- 1, new Gtk2::VBox(0,10),
- ),
- 1, new Gtk2::VBox(0, 5),
- ),
- );
- if ($previous_function) { fonction_env(\$box_where_net, \&advanced_where_net, \&$previous_function, "") }
- else { fonction_env(\$box_where_net, \&advanced_where_net, \&advanced_where, "") }
- $up_box->show_all();
-}
-
sub restore_other_media {
my $box_find_restore;
my $button;
@@ -3180,18 +3166,19 @@ sub restore_step2 {
my $other_exist;
my $sys_exist;
my $user_exist;
-
+ local $_;
+
my $restore_info_path = $save_path;
$restore_info_path = $path_to_find_restore if $where_hd || $where_cd;
my $info_prefix = "backup";
$info_prefix = "list" if $where_net || $where_tape;
if (-f "$restore_info_path/$info_prefix\_other*") { $other_exist = 1 }
- else { my $other_exist = 0; $restore_other = 0 }
+ else { $other_exist = 0; $restore_other = 0 }
if (grep /\_sys\_/, grep /^$info_prefix/, all("$restore_info_path/")) { $sys_exist = 1 }
- else { my $sys_exist = 0; $restore_sys = 0 }
+ else { $sys_exist = 0; $restore_sys = 0 }
if (grep /\_user\_/, grep /^$info_prefix/, all("$restore_info_path/")) { $user_exist = 1 }
- else { my $user_exist = 0; $restore_user = 0 }
+ else { $user_exist = 0; $restore_user = 0 }
# disabling this (sb) - very nicely wipes out your backup media if the user isn't very careful
# cycling through the GUI turns it back on for you!!!
@@ -3227,7 +3214,7 @@ sub restore_step2 {
foreach ([$check_restore_sys, \$restore_sys],
[$check_backup_bef_restore, \$backup_bef_restore],
[$check_restore_user, \$restore_user],
- [$check_remove_user_dir, \$remove_user_before_restore ],
+ [$check_remove_user_dir, \$remove_user_before_restore],
[$check_restore_other, \$restore_other]) {
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub {
@@ -3262,13 +3249,16 @@ sub restore_step2 {
sub catalog_restore {
my $catalog_box;
- my $label;
my $cat_entry;
my @restore_files;
my $restore_path_entry;
#- catalog info in tree view
- my $tree_catalog = new Gtk2::Tree();
+ my $model = Gtk2::TreeStore->new(Gtk2::GType->STRING);
+ my $tree_catalog = Gtk2::TreeView->new_with_model($model);
+ $tree_catalog->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
+ $tree_catalog->set_headers_visible(0);
+ $tree_catalog->get_selection->set_mode('single');
# file details in list widget
my $list_bu_files = new Gtk2::List();
@@ -3282,13 +3272,17 @@ sub catalog_restore {
my $full_cat_entry = $_;
my @line_data = split(':', $_);
my $t = $line_data[0];
- my $t_catalog = new_with_label Gtk2::TreeItem($t);
+
+ my $t_catalog = Gtk2::TreeIter->new;
+ $model->append($t_catalog, undef);
+ $model->set($t_catalog, [ 0 => $t ]);
+
gtksignal_connect($t_catalog, select => sub {
$cat_entry = $full_cat_entry;
@restore_files = ();
- foreach my $filename (my @details = glob("$save_path/list*$t.txt")) {
+ foreach my $filename (glob("$save_path/list*$t.txt")) {
my @contents = cat_($filename);
- $list_bu_files->clear_items();
+ $list_bu_files->clear;
foreach (@contents) {
chop;
my $s = $_;
@@ -3298,10 +3292,8 @@ sub catalog_restore {
}
}
});
- $tree_catalog->append($t_catalog);
- my $c_detail = new Gtk2::Tree();
- $t_catalog->set_subtree($c_detail);
+ my $c_detail = Gtk2::TreeIter->new;
my $indexer = 0;
foreach (@line_data) {
@@ -3313,14 +3305,12 @@ sub catalog_restore {
$m = "Type: Incremental" if $_ eq "I";
$m = "Type: Full" if $_ eq "F";
$m .= $_ if $_ ne "I" && $_ ne "F";
- my $c_det_cat = new_with_label Gtk2::TreeItem($m);
-# gtksignal_connect($k_det_nic, select => sub { $nic = $m;
-# $kernel = $t; });
- $c_detail->append($c_det_cat);
- $c_det_cat->show();
+ $model->append($c_detail, $t_catalog);
+ $model->set($c_detail, [ 0 => $m ]);
}
$indexer++;
- }
+ }
+ $c_detail->free;
}
gtkpack($advanced_box,
@@ -3360,7 +3350,7 @@ sub catalog_restore {
0, $restore_path_entry = new Gtk2::Entry(),
),
1, gtksignal_connect(new Gtk2::Button(N("Change\nRestore Path")), clicked => sub {
- filedialog_generic(0, "Path To Restore To", \$restore_path_entry, \$restore_path);
+ filedialog_generic("Path To Restore To", \$restore_path_entry, \$restore_path);
}),
),
0, new Gtk2::VBox(0,10),
@@ -3500,7 +3490,7 @@ sub restore_catalog_entry {
}
$restore_result = restore_ftp($cat_entry, $vol_host, $dev_path, $username, $userpass, @restore_files) if $media eq 'ftp';
- $restore_result = restore_rsync_ssh_webdav($cat_entry, $vol_host, $dev_path, $username, $userpass, $media, @restore_files)
+ $restore_result = restore_rsync_ssh_webdav($cat_entry, $vol_host, $dev_path, $username, $media, @restore_files)
if $media eq 'rsync' || $media eq 'ssh' || $media eq 'webdav';
}
@@ -3610,7 +3600,7 @@ sub restore_ftp {
if ($indv_files eq 0) {
#- full catalog specified
- foreach (wildard_to_tarfile($wild_card)) {
+ foreach (wildcard_to_tarfile($wild_card)) {
$ftp->get($_, "$cfg_dir/restores/$_");
$command = "tar -C $restore_path -xzf $cfg_dir/restores/$_";
spawn_progress($command, "Untarring \n$_ \nto $restore_path.");
@@ -3632,7 +3622,7 @@ sub restore_ftp {
}
sub restore_rsync_ssh_webdav {
- my ($cat_entry, $hostname, $hostpath, $username, $userpass, $mode, @restore_files) = @_;
+ my ($cat_entry, $hostname, $hostpath, $username, $mode, @restore_files) = @_;
my $indv_files = @restore_files;
my $command;
@@ -3715,8 +3705,8 @@ sub find_tape_offset {
# always off by 1 for tape label.
my $offset = 1;
foreach (@catalog) {
- if (instr($_, $label)) {
- if (!instr($_, $cat_entry)) {
+ if (index($_, $label)) {
+ if (!index($_, $cat_entry)) {
# tar seems to need 2 of these to get located
$offset++;
$offset++;
@@ -3729,10 +3719,6 @@ sub find_tape_offset {
sub restore_box {
my $retore_box;
- my $retore_box3;
- my $check_restore_sys;
- my $check_restore_user;
- my $check_restore_other;
if ($good_restore_path) {
$path_to_find_restore = $save_path if $where_hd;
@@ -3779,7 +3765,6 @@ sub restore_box {
}
sub restore_find_media_box {
- my $entry_new_path;
my $mount_media = 1;
$good_restore_path = 0;
my $message = "Unable to find backups to restore...\n";
@@ -3809,7 +3794,7 @@ sub restore_find_media_box {
}), $mount_media),
$new_path_entry = gtkset_sensitive(new Gtk2::Entry(), $mount_media),
gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("Browse to new restore repository.")), clicked => sub {
- filedialog_generic(0, "Directory To Restore From", \$new_path_entry, \$path_to_find_restore);
+ filedialog_generic("Directory To Restore From", \$new_path_entry, \$path_to_find_restore);
}), $mount_media),
gtksignal_connect(new Gtk2::Button(N("Restore From Catalog")), clicked => sub {
$box2->destroy();
@@ -3845,7 +3830,7 @@ sub restore_status {
[$pbar3],
[""],
[""],
- [$pbar3->{label} = new Gtk2::Label(' ') ],
+ [$pbar3->{label} = new Gtk2::Label(' ')],
[""],
),
$stext,
@@ -4291,7 +4276,7 @@ sub message_common_box_2 {
1, gtkpack(new Gtk2::HBox(0, 15),
new Gtk2::VBox(0, 5),
gtkcreate_img('warning'),
- N("No configuration file found \nplease click Wizard or Advanced."),
+ N("%s", $label),
new Gtk2::VBox(0, 5),
),
1, new Gtk2::VBox(0, 5),
@@ -4313,7 +4298,7 @@ sub message_underdevel {
sub progress {
my ($progressbar, $incr, $label_text) = @_;
- my($new_val) = $progressbar->get_current_percentage;
+ my ($new_val) = $progressbar->get_value;
$new_val += $incr;
if ($new_val > 1) { $new_val = 1 }
$progressbar->update($new_val);
@@ -4322,9 +4307,9 @@ sub progress {
}
sub find_backup_to_put_on_cd {
- my @list_backup_tmp;
- my @data_backuped_tmp;
@data_backuped = ();
+ local $_;
+
-d $save_path and my @list_backup = all($save_path);
foreach (grep /^backup_other/, @list_backup) {
$other_backuped = 1;
@@ -4382,12 +4367,12 @@ sub build_backup_status {
[""],
[N("Backup system files")],
[ $pbar, $pbar->{label} = new Gtk2::Label(' ') ],
- [N("Backup user files") ],
- [$pbar1, $pbar1->{label} = new Gtk2::Label(' ') ],
+ [N("Backup user files")],
+ [ $pbar1, $pbar1->{label} = new Gtk2::Label(' ') ],
[N("Backup other files")],
[ $pbar2, $pbar2->{label} = new Gtk2::Label(' ') ],
[N("Total Progress")],
- [$pbar3, $pbar3->{label} = new Gtk2::Label(' ') ],
+ [ $pbar3, $pbar3->{label} = new Gtk2::Label(' ') ],
),
$stext,
),
@@ -4417,7 +4402,7 @@ sub build_backup_ftp_status {
[N("Sending files...")],
[""],
[ $pbar->{label} = new Gtk2::Label(' ') ],
- [ $pbar],
+ [ $pbar ],
[""],
[N("Total Progress")],
[ $pbar3->{label} = new Gtk2::Label(' ') ],
@@ -4462,7 +4447,7 @@ sub build_backup_box_progress {
sub aff_total_tail {
my @toto;
my $total = 0;
- push @toto, (split (",", $_))[1] foreach @list_to_build_on_cd;
+ push @toto, (split(",", $_))[1] foreach @list_to_build_on_cd;
foreach (@toto) {
s/\s+\(tail://gi;
s/\s+//gi;
@@ -4535,7 +4520,7 @@ sub interactive_mode_box {
advanced_box();
}),
1, gtksignal_connect(new Gtk2::Button(N("Backup Now")), clicked => sub {
- ${$central_widget}->destroy();
+# ${$central_widget}->destroy();
if ($cfg_file_exist) {
build_backup_box();
} else {