#!/usr/bin/perl # Show a form for restoring some or all firewall objects require './itsecur-lib.pl'; &can_edit_error("restore"); &check_zip(); &header($text{'restore_title'}, "", undef, undef, undef, undef, &apply_button()); print "
\n"; ($mode, @dest) = &parse_backup_dest($config{'backup_dest'}); print "
\n"; print "\n"; print "\n"; print "
$text{'restore_header'}
\n"; # Show source print "\n", $mode == 1 ? $dest[0] : undef, &file_chooser_button("src"); # Show password print "\n", $config{'backup_pass'}; # Show what to restore %what = map { $_, 1 } split(/\s+/, $config{'backup_what'}); print "\n"; print "
$text{'restore_src'} \n"; printf " %s\n", $mode != 1 ? "checked" : "", $text{'restore_src1'}; print "
\n"; printf " %s\n", $mode == 1 ? "checked" : "", $text{'restore_src0'}; printf " %s
$text{'restore_pass'} \n"; printf " %s\n", $config{'backup_pass'} ? "" : "checked", $text{'backup_nopass'}; printf "\n", $config{'backup_pass'} ? "checked" : ""; printf "
$text{'restore_what'} \n"; foreach $w (@backup_opts) { printf " %s
\n", $w, $what{$w} ? "checked" : "", $text{$w."_title"}; } if (defined(&select_all_link)) { print &select_all_link("what", 0),"\n"; print &select_invert_link("what", 0),"\n"; } print "
\n"; print "
\n"; print "
\n"; &footer("", $text{'index_return'});