summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-23 16:10:03 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-23 16:10:03 +0000
commitd6f5330ee63311a3e5c8ef52693ac7193ea83ede (patch)
tree597f252be23c47345b40109c08f58b8fa849b524 /perl-install/standalone/drakbackup
parent9731f6a53e8701039a1fa0102427fbdd5eb60df0 (diff)
downloaddrakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar
drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.gz
drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.bz2
drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.xz
drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup274
1 files changed, 137 insertions, 137 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index c268fa33e..178cda96d 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -410,18 +410,18 @@ sub all_user_list() {
sub the_time() {
$the_time = "_";
- $the_time .= localtime->year() + 1900;
- if (localtime->mon() < 9) { $the_time .= "0" }
- $the_time .= localtime->mon() + 1;
- if (localtime->mday() < 10) { $the_time .= "0" }
- $the_time .= localtime->mday();
+ $the_time .= localtime->year + 1900;
+ if (localtime->mon < 9) { $the_time .= "0" }
+ $the_time .= localtime->mon + 1;
+ if (localtime->mday < 10) { $the_time .= "0" }
+ $the_time .= localtime->mday;
$the_time .= "_";
- if (localtime->hour() < 10) { $the_time .= "0" }
- $the_time .= localtime->hour();
- if (localtime->min() < 10) { $the_time .= "0" }
- $the_time .= localtime->min();
- if (localtime->sec() < 10) { $the_time .= "0" }
- $the_time .= localtime->sec();
+ if (localtime->hour < 10) { $the_time .= "0" }
+ $the_time .= localtime->hour;
+ if (localtime->min < 10) { $the_time .= "0" }
+ $the_time .= localtime->min;
+ if (localtime->sec < 10) { $the_time .= "0" }
+ $the_time .= localtime->sec;
}
sub get_tape_info() {
@@ -859,7 +859,7 @@ sub do_expect {
my $exit_stat = $exp->exitstatus;
$in->ask_warn('', N("Transfer successful\nYou may want to verify you can login to the server with:\n\nssh -i %s %s\@%s\n\nwithout being prompted for a password.", $backup_key, $login_user, $host_name)) if $exit_stat == 0 && $mode eq "sendkey";
$log_buff .= "$_\n" if $exit_stat == 0 && $mode eq "backup";
- $exp->hard_close();
+ $exp->hard_close;
}
$interactive and progress($pbar, $plabel, 0.5, "Done...");
$interactive = 1 if $mode eq "sendkey";
@@ -1193,7 +1193,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;
+ any { /^backup_base_sys/ } @dir_content and $base_sys_exist = 1;
if ($where_hd && !$daemon || $daemon) {
$interactive and progress($pbar, $plabel, 0.5, N("Backup system files..."));
@@ -1203,7 +1203,7 @@ sub build_backup_files() {
$incr =~ s/incr/diff/ if $sys_diff_mode;
#- 8/19/2002 - changed these greps to look at the list, rather than the tar file
#- we retain the list for other media backups, but the tar file goes away, potentially
- if ((grep { /^list_incr_sys/ } @dir_content) && !$sys_diff_mode) {
+ if ((any { /^list_incr_sys/ } @dir_content) && !$sys_diff_mode) {
my @more_recent = grep { /^list_incr_sys/ } sort @dir_content;
$more_recent = pop @more_recent;
$DEBUG and print "more recent file: $more_recent\n";
@@ -1217,7 +1217,7 @@ sub build_backup_files() {
$results .= "\nfile: $save_path/backup_incr_sys$the_time.$tar_ext\n";
$results .= cat_("$save_path/list_incr_sys$the_time.txt");
}
- } elsif (grep { /^list_base_sys/ } @dir_content) {
+ } elsif (any { /^list_base_sys/ } @dir_content) {
my @more_recent = grep { /^list_base_sys/ } sort @dir_content;
$more_recent = pop @more_recent;
$DEBUG and print "more recent file: $more_recent\n";
@@ -1258,7 +1258,7 @@ sub build_backup_files() {
$incr =~ s/incr/diff/ if $user_diff_mode;
#- 8/19/2002 - changed these greps to look at the list, rather than the tar file
#- we retain the list for other media backups, but the tar file goes away, potentially
- if ((grep { /^list_incr_user_$user/ } @dir_content) && !$user_diff_mode) {
+ if ((any { /^list_incr_user_$user/ } @dir_content) && !$user_diff_mode) {
my @more_recent = grep { /^list_incr_user_$user/ } sort @dir_content;
$more_recent = pop @more_recent;
$DEBUG and print "more recent file: $more_recent\n";
@@ -1272,7 +1272,7 @@ sub build_backup_files() {
$results .= " \nfile: $save_path/backup_incr_user_$user$the_time.$tar_ext\n";
$results .= cat_("$save_path/list_incr_user_$user$the_time.txt");
}
- } elsif (grep { /^list_base_user_$user/ } @dir_content) {
+ } elsif (any { /^list_base_user_$user/ } @dir_content) {
my @more_recent = grep { /^list_base_user_$user/ } sort @dir_content;
$more_recent = pop @more_recent;
$DEBUG and print "more recent file: $more_recent\n";
@@ -1309,7 +1309,7 @@ sub build_backup_files() {
if ($backup_other_versions) {
$incr = "incr_other";
$incr =~ s/incr/diff/ if $other_diff_mode;
- if ((grep { /^list_incr_other/ } @dir_content) && !$user_diff_mode) {
+ if ((any { /^list_incr_other/ } @dir_content) && !$user_diff_mode) {
my @more_recent = grep { /^list_incr_other/ } sort @dir_content;
$more_recent = pop @more_recent;
$DEBUG and print "more recent file: $more_recent\n";
@@ -1323,7 +1323,7 @@ sub build_backup_files() {
$results .= "\nfile: $save_path/backup_incr_other$the_time.$tar_ext\n";
$results .= cat_("$save_path/list_incr_other$the_time.txt");
}
- } elsif (grep { /^list_base_other/ } @dir_content) {
+ } elsif (any { /^list_base_other/ } @dir_content) {
my @more_recent = grep { /^list_base_other/ } sort @dir_content;
$more_recent = pop @more_recent;
$DEBUG and print "more recent file: $more_recent\n";
@@ -1532,12 +1532,12 @@ sub show_status() {
$table = gtkpack_(new Gtk2::VBox(0,10), 1, $scrolled_window)
);
$central_widget = \$table;
- $table->show_all();
+ $table->show_all;
}
sub file_ok_sel {
my ($file_selection) = @_;
- my $file_name = $file_selection->get_filename();
+ my $file_name = $file_selection->get_filename;
if (!member($file_name, @list_other)) {
push(@list_other, $file_name);
$list_model->append($iter);
@@ -1548,24 +1548,24 @@ sub file_ok_sel {
sub filedialog_where_hd() {
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy() });
+ $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy });
$file_dialog->ok_button->signal_connect(clicked => sub {
$save_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();
+ $file_dialog->destroy });
+ $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
+ $file_dialog->show;
}
sub filedialog_restore_find_path() {
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy() });
+ $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();
+ $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
+ $file_dialog->show;
}
sub filedialog_generic {
@@ -1574,23 +1574,23 @@ sub filedialog_generic {
my ($prompt, $widget, $set_var) = @_;
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk2::FileSelection(translate($prompt)), destroy => sub { $file_dialog->destroy() });
+ $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->destroy;
});
- $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
- $file_dialog->show();
+ $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
+ $file_dialog->show;
}
sub filedialog() {
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("Select the files or directories and click on 'OK'")), destroy => sub { $file_dialog->destroy() });
+ $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("Select the files or directories and click on 'OK'")), destroy => sub { $file_dialog->destroy });
$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->show();
+ $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
+ $file_dialog->show;
}
################################################ ADVANCED ################################################
@@ -1636,11 +1636,11 @@ sub advanced_what_sys() {
});
$mode_buttons[1]->set_active($sys_diff_mode);
- $mode_buttons[0]->signal_connect('toggled' => sub { $sys_diff_mode = $mode_buttons[1]->get_active() });
+ $mode_buttons[0]->signal_connect('toggled' => sub { $sys_diff_mode = $mode_buttons[1]->get_active });
$mode_buttons[0]->set_sensitive($backup_sys_versions);
$mode_buttons[1]->set_sensitive($backup_sys_versions);
fonction_env(\$box_what_sys, \&advanced_what_sys, \&advanced_what, "what");
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_what_user {
@@ -1658,7 +1658,7 @@ sub advanced_what_user {
map { my $name = $_;
my @user_list_tmp;
my $b = new Gtk2::CheckButton($name);
- if (grep { /^$name$/ } @user_list) {
+ if (any { /^$name$/ } @user_list) {
$check_what_user{$_}[1] = 1;
gtkset_active($b, 1);
} else {
@@ -1693,12 +1693,12 @@ sub advanced_what_user {
$mode_buttons[1]->set_sensitive($backup_user_versions);
});
$mode_buttons[1]->set_active($user_diff_mode);
- $mode_buttons[0]->signal_connect('toggled' => sub { $user_diff_mode = $mode_buttons[1]->get_active() });
+ $mode_buttons[0]->signal_connect('toggled' => sub { $user_diff_mode = $mode_buttons[1]->get_active });
$mode_buttons[0]->set_sensitive($backup_user_versions);
$mode_buttons[1]->set_sensitive($backup_user_versions);
if ($previous_function) { fonction_env(\$box_what_user, \&advanced_what_user, \&$previous_function, "what", \&$previous_function) }
else { fonction_env(\$box_what_user, \&advanced_what_user, \&advanced_what, "what") }
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_what_other() {
@@ -1757,11 +1757,11 @@ sub advanced_what_other() {
$mode_buttons[1]->set_sensitive($backup_other_versions);
});
$mode_buttons[1]->set_active($other_diff_mode);
- $mode_buttons[0]->signal_connect('toggled' => sub { $other_diff_mode = $mode_buttons[1]->get_active() });
+ $mode_buttons[0]->signal_connect('toggled' => sub { $other_diff_mode = $mode_buttons[1]->get_active });
$mode_buttons[0]->set_sensitive($backup_other_versions);
$mode_buttons[1]->set_sensitive($backup_other_versions);
fonction_env(\$box_what_other, \&advanced_what_other, \&advanced_what, "what");
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_what_entire_sys() {
@@ -1792,7 +1792,7 @@ sub advanced_what_entire_sys() {
new Gtk2::HBox(0, 5)
));
fonction_env(\$box_what, \&advanced_what_entire_sys, \&advanced_what, "");
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_what() {
@@ -1804,7 +1804,7 @@ sub advanced_what() {
1, gtkpack_(new Gtk2::VBox(0, 15),
1, new Gtk2::VBox(0, 5),
1, gtksignal_connect(my $button_what_sys = new Gtk2::Button(),
- clicked => sub { $box_what->destroy(); advanced_what_sys() }),
+ clicked => sub { $box_what->destroy(); advanced_what_sys }),
1, gtksignal_connect(my $button_what_user = new Gtk2::Button(),
clicked => sub { destroy_widget(); advanced_what_user() }),
1, gtksignal_connect(my $button_what_other = new Gtk2::Button(),
@@ -1838,7 +1838,7 @@ sub advanced_what() {
# ));
fonction_env(\$box_what, \&advanced_what, \&advanced_box, "");
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_where_net_types {
@@ -1899,15 +1899,15 @@ sub advanced_where_net_types {
});
$passwd_user_entry->set_visibility(0);
$passwd_user_entry->set_text($passwd_user);
- $passwd_user_entry->signal_connect('changed', sub { $passwd_user = $passwd_user_entry->get_text() });
+ $passwd_user_entry->signal_connect('changed', sub { $passwd_user = $passwd_user_entry->get_text });
$host_path_entry->set_text($host_path);
$host_name_entry->set_text($host_name);
$login_user_entry->set_text($login_user);
- $host_name_entry->signal_connect('changed', sub { $host_name = $host_name_entry->get_text() });
- $host_path_entry->signal_connect('changed', sub { $host_path = $host_path_entry->get_text() });
- $login_user_entry->signal_connect('changed', sub { $login_user = $login_user_entry->get_text() });
+ $host_name_entry->signal_connect('changed', sub { $host_name = $host_name_entry->get_text });
+ $host_path_entry->signal_connect('changed', sub { $host_path = $host_path_entry->get_text });
+ $login_user_entry->signal_connect('changed', sub { $login_user = $login_user_entry->get_text });
$entry_net_type->entry->signal_connect('changed', sub {
- $net_proto = $entry_net_type->entry->get_text();
+ $net_proto = $entry_net_type->entry->get_text;
my $sensitive = 0;
$sensitive = 1 if $net_proto eq 'ssh';
$check_use_expect->set_sensitive($sensitive);
@@ -1962,7 +1962,7 @@ sub advanced_where_net_types {
} else {
fonction_env(\$box_where_net, \&advanced_where_net_types, \&advanced_where, "net");
}
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_where_cd {
@@ -2077,10 +2077,10 @@ sub advanced_where_cd {
}
});
$combo_where_cdrecord_device->entry->set_text($cd_device);
- $combo_where_cdrecord_device->entry->signal_connect('changed', sub { $cd_device = $combo_where_cdrecord_device->entry->get_text() });
+ $combo_where_cdrecord_device->entry->signal_connect('changed', sub { $cd_device = $combo_where_cdrecord_device->entry->get_text });
$combo_where_cd_time->entry->set_text($cd_time);
- $combo_where_cd_time->entry->signal_connect('changed', sub { $cd_time = $combo_where_cd_time->entry->get_text() });
+ $combo_where_cd_time->entry->signal_connect('changed', sub { $cd_time = $combo_where_cd_time->entry->get_text });
#- this one drives changes in the other entries
#- still not getting quite the desired behavior, but combo box signals seem to be limited
@@ -2088,7 +2088,7 @@ sub advanced_where_cd {
#- $combo_where_cd_device->entry->set_text($std_device);
$combo_where_cd_device->entry->signal_connect('activate', sub {
- $std_device = $combo_where_cd_device->entry->get_text();
+ $std_device = $combo_where_cd_device->entry->get_text;
$combo_where_cdrecord_device->entry->set_text($cd_devices{$std_device}{rec_dev});
$check_dvdr->set_active($cd_devices{$std_device}{dvdr});
$check_dvdram->set_active($cd_devices{$std_device}{dvdram});
@@ -2101,7 +2101,7 @@ sub advanced_where_cd {
} else {
fonction_env(\$box_where_cd, \&advanced_where_cd, \&advanced_where, "");
}
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_where_tape {
@@ -2191,14 +2191,14 @@ sub advanced_where_tape {
});
$combo_where_tape_device->entry->set_text($tape_device);
$combo_where_tape_device->entry->signal_connect('changed', sub {
- $tape_device = $combo_where_tape_device->entry->get_text();
+ $tape_device = $combo_where_tape_device->entry->get_text;
});
if ($previous_function) {
fonction_env(\$box_where_tape, \&advanced_where_tape, \&$previous_function, "");
} else {
fonction_env(\$box_where_tape, \&advanced_where_tape, \&advanced_where, "");
}
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_where_hd {
@@ -2246,13 +2246,13 @@ sub advanced_where_hd {
# });
$button->add(gtkpack(new Gtk2::HBox(0,10), gtkcreate_img("ic82-dossier-32")));
$save_path_entry->set_text($save_path);
- $save_path_entry->signal_connect('changed', sub { $save_path = $save_path_entry->get_text() });
+ $save_path_entry->signal_connect('changed', sub { $save_path = $save_path_entry->get_text });
if ($previous_function) {
fonction_env(\$box_where_hd, \&advanced_where_hd, \&$previous_function, "");
} else {
fonction_env(\$box_where_hd, \&advanced_where_hd, \&advanced_where, "");
}
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_where() {
@@ -2310,7 +2310,7 @@ sub advanced_where() {
new Gtk2::HBox(0, 5)
));
fonction_env(\$box_where, \&advanced_where, \&advanced_box, "");
- $up_box->show_all();
+ $up_box->show_all;
}
#- 7/7/2002 - S.Benedict reworked when - drop all the checkboxes and use a list
@@ -2369,12 +2369,12 @@ sub advanced_when() {
advanced_when();
});
$combo_when_space->entry->set_text($trans2{$when_space});
- $combo_when_space->entry->signal_connect('changed', sub { $when_space = $trans{$combo_when_space->entry->get_text()} });
+ $combo_when_space->entry->signal_connect('changed', sub { $when_space = $trans{$combo_when_space->entry->get_text} });
$entry_media_type->entry->signal_connect('changed', sub {
- $daemon_media = $entry_media_type->entry->get_text();
+ $daemon_media = $entry_media_type->entry->get_text;
});
fonction_env(\$box_when, \&advanced_when, \&advanced_box, "");
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_options() {
@@ -2407,9 +2407,9 @@ sub advanced_options() {
check_list([$check_mail, \$send_mail], [$check_del_hd_files, \$del_hd_files]);
# check_list([$check_mail, \$send_mail], [$check_tar_bz2, \$comp_mode], [$check_backupignore, \$backupignore]);
$mail_entry->set_text($user_mail);
- $mail_entry->signal_connect('changed', sub { $user_mail = $mail_entry->get_text() });
+ $mail_entry->signal_connect('changed', sub { $user_mail = $mail_entry->get_text });
fonction_env(\$box_options, \&advanced_options, \&advanced_box, "options");
- $up_box->show_all();
+ $up_box->show_all;
}
sub advanced_box() {
@@ -2454,7 +2454,7 @@ sub advanced_box() {
new Gtk2::HBox(0, 5)
));
fonction_env(\$box_adv, \&advanced_box, \&interactive_mode_box, "");
- $up_box->show_all();
+ $up_box->show_all;
}
################################################ WIZARD ################################################
@@ -2478,7 +2478,7 @@ sub wizard_step3() {
);
fonction_env(\$box2, \&wizard_step3, \&wizard_step2, "");
button_box_wizard_end();
- $up_box->show_all();
+ $up_box->show_all;
}
sub wizard_step2() {
@@ -2551,7 +2551,7 @@ sub wizard_step2() {
if (!$where_hd && !$where_cd && !$where_net) { fonction_env(\$box2, \&wizard_step2, \&wizard, "", \&message_noselect_box) }
else { fonction_env(\$box2, \&wizard_step2, \&wizard, "", \&wizard_step3) }
button_box_wizard();
- $up_box->show_all();
+ $up_box->show_all;
}
sub wizard() {
@@ -2590,7 +2590,7 @@ sub wizard() {
if ($backup_sys || $backup_user && @user_list) { fonction_env(\$box2, \&wizard, \&interactive_mode_box, "", \&wizard_step2) }
else { fonction_env(\$box2, \&wizard, \&interactive_mode_box, "", \&message_noselect_what_box) }
button_box_wizard();
- $up_box->show_all();
+ $up_box->show_all;
}
################################################ RESTORE ################################################
@@ -2610,8 +2610,8 @@ sub find_backup_to_restore() {
s/_incr//gi;
push @list_backup , $_;
}
- if (grep { /^backup_other/ } @list_backup) { $other_backuped = 1 }
- if (grep { /^backup_sys/ } @list_backup) { $sys_backuped = 1 }
+ if (any { /^backup_other/ } @list_backup) { $other_backuped = 1 }
+ if (any { /^backup_sys/ } @list_backup) { $sys_backuped = 1 }
foreach (grep { /^backup_sys_/ } @list_backup) {
chomp;
s/^backup_sys_//gi;
@@ -2641,7 +2641,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;
+ any { /^$nom$/ } @user_list_backuped or push @user_list_backuped, $nom;
}
}
@@ -2849,7 +2849,7 @@ sub show_backup_details {
)
);
$central_widget = \$advanced_box_archive;
- $up_box->show_all();
+ $up_box->show_all;
}
sub valid_backup_test {
@@ -2890,7 +2890,7 @@ sub restore_aff_backup_problems() {
);
button_box_restore_pbs_end();
fonction_env(\$do_restore, \&restore_aff_backup_problems, "", "restore_pbs");
- $up_box->show_all();
+ $up_box->show_all;
}
sub restore_aff_result() {
@@ -2909,7 +2909,7 @@ sub restore_aff_result() {
);
button_box_build_backup_end();
$central_widget = \$do_restore;
- $up_box->show_all();
+ $up_box->show_all;
}
@@ -2938,7 +2938,7 @@ sub restore_backend() {
my $theure2;
local $_;
- if (grep { /tar.gz$/ } all($path_to_find_restore)) {
+ if (any { /tar.gz$/ } all($path_to_find_restore)) {
$untar_cmd = 0;
} else {
$untar_cmd = 1;
@@ -3008,7 +3008,7 @@ sub restore_do() {
build_backup_status();
read_conf_file();
build_backup_files();
- $table->destroy();
+ $table->destroy;
}
restore_do2();
}
@@ -3028,7 +3028,7 @@ sub restore_do2() {
);
button_box_restore_end();
fonction_env(\$do_restore, \&restore_do2, \&restore_box, "restore");
- $up_box->show_all();
+ $up_box->show_all;
}
sub restore_step_other() {
@@ -3046,7 +3046,7 @@ sub restore_step_other() {
);
check_list([$check_restore_other_sure, \$restore_other]);
fonction_env(\$retore_step_other, \&restore_step_other, \&restore_step2, "restore", \&restore_do);
- $up_box->show_all();
+ $up_box->show_all;
}
my %check_user_to_restore;
@@ -3096,7 +3096,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 (!any { /$name/ } @user_list_to_restore2) {
push @user_list_to_restore2, $name_complet
}
} else {
@@ -3124,7 +3124,7 @@ sub restore_step_user() {
if ($restore_other) { fonction_env(\$retore_step_user, \&restore_step_user, "", "restore", \&restore_step_other) }
elsif ($restore_sys) { fonction_env(\$retore_step_user, \&restore_step_user, \&restore_step_sys, "restore", \&restore_step_other) }
else { fonction_env(\$retore_step_user, \&restore_step_user, \&restore_step2, "restore", \&restore_do) }
- $up_box->show_all();
+ $up_box->show_all;
}
sub restore_step_sys() {
@@ -3148,12 +3148,12 @@ sub restore_step_sys() {
),
);
$combo_restore_step_sys->entry->signal_connect('changed', sub {
- $restore_step_sys_date = $combo_restore_step_sys->entry->get_text();
+ $restore_step_sys_date = $combo_restore_step_sys->entry->get_text;
});
$details->signal_connect('clicked', sub {
#- we're only passing a portion of the filename to
#- the subroutine so we need to let it know this
- my $backup_date = $combo_restore_step_sys->entry->get_text();
+ my $backup_date = $combo_restore_step_sys->entry->get_;
destroy_widget();
show_backup_details(\&restore_step_sys, "sys", $backup_date);
});
@@ -3162,7 +3162,7 @@ sub restore_step_sys() {
if ($restore_user) { fonction_env(\$restore_step_sys, \&restore_step_sys, \&restore_step2, "restore", \&restore_step_user) }
elsif ($restore_other) { fonction_env(\$restore_step_sys, \&restore_step_sys, \&restore_step2, "restore", \&restore_step_other) }
else { fonction_env(\$restore_step_sys, \&restore_step_sys, \&restore_step2, "restore", \&restore_do) }
- $up_box->show_all();
+ $up_box->show_all;
}
sub restore_other_media_hd {
@@ -3205,10 +3205,10 @@ sub restore_other_media_hd {
});
$button->add(gtkpack(new Gtk2::HBox(0,10), gtkcreate_img("ic82-dossier-32")));
$save_path_entry->set_text($save_path);
- $save_path_entry->signal_connect('changed', sub { $save_path = $save_path_entry->get_text() });
+ $save_path_entry->signal_connect('changed', sub { $save_path = $save_path_entry->get_text });
if ($previous_function) { fonction_env(\$box_where_hd, \&advanced_where_hd, \&$previous_function, "") }
else { fonction_env(\$box_where_hd, \&advanced_where_hd, \&advanced_where, "") }
- $up_box->show_all();
+ $up_box->show_all;
}
sub restore_other_media() {
@@ -3255,10 +3255,10 @@ sub restore_other_media() {
# });
$button->add(gtkpack(new Gtk2::HBox(0,10), gtkcreate_img("ic82-dossier-32")));
$restore_find_path_entry->set_text($path_to_find_restore);
- $restore_find_path_entry->signal_connect('changed', sub { $path_to_find_restore = $restore_find_path_entry->get_text() });
+ $restore_find_path_entry->signal_connect('changed', sub { $path_to_find_restore = $restore_find_path_entry->get_text });
#- not sure if this was the original intent - address the crash at "Next"
fonction_env(\$box_find_restore, \&restore_other_media, \&restore_step2, "other_media", \&restore_do);
- $up_box->show_all();
+ $up_box->show_all;
}
sub restore_step2() {
@@ -3275,9 +3275,9 @@ sub restore_step2() {
if (-f "$restore_info_path/$info_prefix" . "_other*") { $other_exist = 1 }
else { $other_exist = 0; $restore_other = 0 }
- if (grep { /_sys_/ } grep { /^$info_prefix/ } all("$restore_info_path/")) { $sys_exist = 1 }
+ if (any { /_sys_/ } grep { /^$info_prefix/ } all("$restore_info_path/")) { $sys_exist = 1 }
else { $sys_exist = 0; $restore_sys = 0 }
- if (grep { /_user_/ } grep { /^$info_prefix/ } all("$restore_info_path/")) { $user_exist = 1 }
+ if (any { /_user_/ } grep { /^$info_prefix/ } all("$restore_info_path/")) { $user_exist = 1 }
else { $user_exist = 0; $restore_user = 0 }
# disabling this (sb) - very nicely wipes out your backup media if the user isn't very careful
@@ -3344,8 +3344,8 @@ sub restore_step2() {
elsif ($restore_other) { $next_widget = \&restore_step_other }
else { $next_widget = \&restore_do }
$restore_path_entry->set_text($restore_path);
- $restore_path_entry->signal_connect('changed', sub { $restore_path = $restore_path_entry->get_text() });
- $up_box->show_all();
+ $restore_path_entry->signal_connect('changed', sub { $restore_path = $restore_path_entry->get_text });
+ $up_box->show_all;
}
sub catalog_restore() {
@@ -3462,12 +3462,12 @@ sub catalog_restore() {
);
$restore_path_entry->set_text($restore_path);
- gtksignal_connect($restore_path_entry, changed => sub { $restore_path = $restore_path_entry->get_text() });
+ gtksignal_connect($restore_path_entry, changed => sub { $restore_path = $restore_path_entry->get_text });
button_box_restore();
fonction_env(\$catalog_box, \&catalog_restore, \&restore_find_media_box, "restore", \&catalog_restore);
$central_widget = \$catalog_box;
- $up_box->show_all();
+ $up_box->show_all;
}
sub restore_catalog_entry {
@@ -3838,7 +3838,7 @@ sub restore_box() {
1, new Gtk2::VBox(0,10),
1, new Gtk2::VBox(0,10),
1, gtksignal_connect(new Gtk2::Button(N("Restore all backups")), clicked => sub {
- $retore_box->destroy();
+ $retore_box->destroy;
button_box_restore();
@user_list_to_restore2 = sort @user_backuped;
$restore_sys = 1;
@@ -3847,7 +3847,7 @@ sub restore_box() {
restore_do()
}),
1, gtksignal_connect(new Gtk2::Button(N("Custom Restore")), clicked => sub {
- $retore_box->destroy();
+ $retore_box->destroy;
button_box_restore();
restore_step2();
}),
@@ -3863,7 +3863,7 @@ sub restore_box() {
}
fonction_env(\$retore_box, \&restore_box, \&interactive_mode_box, "restore");
$central_widget = \$retore_box;
- $up_box->show_all();
+ $up_box->show_all;
}
sub restore_find_media_box() {
@@ -3891,7 +3891,7 @@ sub restore_find_media_box() {
gtkpack(new Gtk2::VBox(0, 10),
gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("CD in place - continue.")), clicked => sub {
$good_restore_path = 1;
- $box2->destroy();
+ $box2->destroy;
interactive_mode_box("restore");
}), $mount_media),
$new_path_entry = gtkset_sensitive(new Gtk2::Entry(), $mount_media),
@@ -3899,7 +3899,7 @@ sub restore_find_media_box() {
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();
+ $box2->destroy;
catalog_restore();
}),
),
@@ -3911,7 +3911,7 @@ sub restore_find_media_box() {
$new_path_entry->set_text($path_to_find_restore);
button_box_find_media($mount_media);
- $up_box->show_all();
+ $up_box->show_all;
}
sub restore_status() {
@@ -3940,14 +3940,14 @@ sub restore_status() {
);
$custom_help = "options";
$central_widget = \$table;
- $up_box->show_all();
+ $up_box->show_all;
gtkflush();
}
################################################ BUTTON_BOX ################################################
sub button_box_adv() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
0, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
@@ -3973,7 +3973,7 @@ sub button_box_adv() {
}
sub button_box_restore_main() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(gtkpack_(new Gtk2::HButtonBox,
@@ -3998,7 +3998,7 @@ sub button_box_restore_main() {
}
sub button_box_backup_end() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4024,7 +4024,7 @@ sub button_box_backup_end() {
}
sub button_box_wizard_end() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4050,7 +4050,7 @@ sub button_box_wizard_end() {
}
sub button_box_restore_end() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4075,7 +4075,7 @@ sub button_box_restore_end() {
}
sub button_box_build_backup_end() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4090,7 +4090,7 @@ sub button_box_build_backup_end() {
}
sub button_box_restore_pbs_end() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4108,7 +4108,7 @@ sub button_box_restore_pbs_end() {
}
sub button_box_build_backup() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4134,7 +4134,7 @@ sub button_box_build_backup() {
sub button_box_restore() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4163,12 +4163,12 @@ sub button_box_find_media {
my ($mount_media) = @_;
#- $central_widget is not known yet?
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
1, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
- $box2->destroy();
+ $box2->destroy;
interactive_mode_box();
}),
1, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
@@ -4177,11 +4177,11 @@ sub button_box_find_media {
}),
1, new Gtk2::HBox(0, 0),
0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub {
- $box2->destroy();
+ $box2->destroy;
interactive_mode_box();
}),
1, gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("Next")), clicked => sub {
- $box2->destroy();
+ $box2->destroy;
interactive_mode_box("restore");
}), $mount_media),
),
@@ -4189,7 +4189,7 @@ sub button_box_find_media {
}
sub button_box_wizard() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4214,7 +4214,7 @@ sub button_box_wizard() {
}
sub button_box_main() {
- $button_box_tmp->destroy();
+ $button_box_tmp->destroy;
gtkpack($button_box,
$button_box_tmp = gtkpack(gtkset_layout(new Gtk2::HButtonBox, 'start'),
@@ -4229,7 +4229,7 @@ sub button_box_main() {
################################################ MESSAGES ################################################
sub dialog_one {
- $table->destroy();
+ $table->destroy;
my ($label) = @_;
gtkadd($advanced_box,
@@ -4246,7 +4246,7 @@ sub dialog_one {
button_box_restore_main();
$custom_help = "mail_pb";
$central_widget = \$box2;
- $up_box->show_all();
+ $up_box->show_all;
}
sub send_mail_pb() {
@@ -4280,12 +4280,12 @@ sub install_rpm {
),
);
fonction_env(\$box_what_user, \&install_rpm, \&$previous_function, "what");
- $up_box->show_all();
+ $up_box->show_all;
}
sub message_norestore_box() {
- $box2->destroy();
+ $box2->destroy;
gtkadd($advanced_box,
$box2 = gtkpack_(new Gtk2::HBox(0, 15),
@@ -4301,12 +4301,12 @@ sub message_norestore_box() {
);
button_box_restore_main();
$central_widget = \$box2;
- $up_box->show_all();
+ $up_box->show_all;
}
sub message_common_box {
- $box2->destroy();
+ $box2->destroy;
my ($label) = @_;
gtkadd($advanced_box,
@@ -4324,7 +4324,7 @@ sub message_common_box {
$previous_widget = \&wizard;
$next_widget = \&wizard;
$central_widget = \$box2;
- $up_box->show_all();
+ $up_box->show_all;
}
sub message_noselect_box() {
@@ -4332,7 +4332,7 @@ sub message_noselect_box() {
$previous_widget = \&wizard_step2;
$next_widget = \&wizard_step2;
$central_widget = \$box2;
- $up_box->show_all();
+ $up_box->show_all;
}
sub message_noselect_what_box() {
@@ -4340,13 +4340,13 @@ sub message_noselect_what_box() {
$previous_widget = \&wizard;
$next_widget = \&wizard;
$central_widget = \$box2;
- $up_box->show_all();
+ $up_box->show_all;
}
sub message_common_box_2 {
my ($label, $restore_main) = @_;
- $box2->destroy();
+ $box2->destroy;
gtkadd($advanced_box,
$box2 = gtkpack_(new Gtk2::HBox(0, 15),
@@ -4362,7 +4362,7 @@ sub message_common_box_2 {
);
button_box_restore_main() if $restore_main;
$central_widget = \$box2;
- $up_box->show_all();
+ $up_box->show_all;
}
sub message_noconf_box() {
message_common_box_2(N("No configuration file found \nplease click Wizard or Advanced."), 1);
@@ -4465,7 +4465,7 @@ sub build_backup_status() {
$custom_help = "options";
$central_widget = \$tbox;
- $up_box->show_all();
+ $up_box->show_all;
gtkflush();
}
@@ -4498,7 +4498,7 @@ sub build_backup_ftp_status() {
);
$custom_help = "options";
$central_widget = \$table;
- $up_box->show_all();
+ $up_box->show_all;
gtkflush();
}
@@ -4522,7 +4522,7 @@ sub build_backup_box_see_conf() {
$central_widget = \$box2;
$current_widget = \&build_backup_box_see_conf;
$previous_widget = \&build_backup_box;
- $up_box->show_all();
+ $up_box->show_all;
}
sub build_backup_box_progress() {
@@ -4578,7 +4578,7 @@ sub build_backup_box() {
button_box_restore_main();
fonction_env(\$box2, \&build_backup_box, \&interactive_mode_box, "options");
- $up_box->show_all();
+ $up_box->show_all;
}
################################################ INTERACTIVE ################################################
@@ -4622,7 +4622,7 @@ sub interactive_mode_box {
button_box_main();
$custom_help = "main";
$central_widget = \$box2;
- $up_box->show_all();
+ $up_box->show_all;
if ($mode eq "restore") {
destroy_widget();
restore_box();
@@ -4671,7 +4671,7 @@ sub interactive_mode() {
$central_widget = \$box2;
$window1->show_all;
$window1->realize;
- $window1->show_all();
+ $window1->show_all;
$my_win->main;
$my_win->exit(0);
}
@@ -4874,7 +4874,7 @@ backup data files by hand.
)
);
$central_widget = \$advanced_box_help;
- $up_box->show_all();
+ $up_box->show_all;
}
sub to_ok() {