summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/security/main.pm94
-rwxr-xr-xperl-install/standalone/drakbackup1874
-rwxr-xr-xperl-install/standalone/drakconnect246
3 files changed, 1087 insertions, 1127 deletions
diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm
index 370295b7f..baa0fa95b 100644
--- a/perl-install/security/main.pm
+++ b/perl-install/security/main.pm
@@ -4,17 +4,19 @@ use strict;
use standalone;
use common;
-use my_gtk qw(:helpers :wrappers :ask);
+use ugtk2 qw(:helpers :wrappers :ask :create);
use run_program;
use security::level;
use security::msec;
+my $w;
+
# factorize this with rpmdrake and harddrake2
sub wait_msg {
- my $mainw = my_gtk->new('wait');
- my $label = new Gtk::Label($_[0]);
- $mainw->{window}->add(gtkpack(gtkadd(create_vbox(), $label)));
+ my $mainw = ugtk2->new('wait', ( modal => 1, transient => $w->{rwindow} ));
+ my $label = new Gtk2::Label($_[0]);
+ $mainw->{window}->add($label);
$mainw->{window}->show_all;
$mainw->{window}->realize;
$label->signal_connect(expose_event => sub { $mainw->{displayed} = 1 });
@@ -28,10 +30,10 @@ sub wait_msg {
sub remove_wait_msg { $_[0]->destroy }
sub basic_seclevel_explanations {
- my $text = new Gtk::Text(undef, undef);
- $text->set_editable(0);
- $text->insert(undef, $text->style->black, undef,
- N("Standard: This is the standard security recommended for a computer that will be used to connect
+ my $text = new Gtk2::TextView;
+ $text->set_editable(0);
+ gtktext_insert($text,
+ formatAlaTeX(N("Standard: This is the standard security recommended for a computer that will be used to connect
to the Internet as a client.
High: There are already some restrictions, and more automatic checks are run every night.
@@ -45,9 +47,9 @@ Paranoid: This is similar to the previous level, but the system is entirely clo
Security Administrator:
If the 'Security Alerts' option is set, security alerts will be sent to this user (username or
- email)"));
-
- gtkpack_(gtkshow(new Gtk::HBox(0, 0)), 1, $text);
+ email)")));
+
+ gtkpack_(gtkshow(new Gtk2::HBox(0, 0)), 1, $text);
}
sub basic_seclevel_option {
@@ -61,56 +63,56 @@ sub basic_seclevel_option {
$$seclevel_entry->set_popdown_strings(@sec_levels);
$$seclevel_entry->entry->set_text($current_level);
- new Gtk::Label(N("Security Level:")), $$seclevel_entry;
+ new Gtk2::Label(N("Security Level:")), $$seclevel_entry;
}
sub new_editable_combo {
- my $w = new Gtk::Combo();
+ my $w = new Gtk2::Combo();
$w->entry->set_editable(0);
$w;
}
sub set_default_tip {
my ($entry, $default) = @_;
- gtkset_tip(new Gtk::Tooltips, $entry, N(" (default value: %s)", $default));
+ gtkset_tip(new Gtk2::Tooltips, $entry, N(" (default value: %s)", $default));
}
sub draksec_main {
my $msec = new security::msec;
- my $w = my_gtk->new('draksec');
+ $w = ugtk2->new('draksec');
my $window = $w->{window};
############################ MAIN WINDOW ###################################
- # Set different options to Gtk::Window
+ # Set different options to Gtk2::Window
unless ($::isEmbedded) {
- $w->{rwindow}->set_policy(1, 1, 1);
- $w->{rwindow}->set_position(1);
+# $w->{rwindow}->set_policy(1, 1, 1);
+ $w->{rwindow}->set_position('center');
$w->{rwindow}->set_title("DrakSec");
- $window->set_usize(598, 590);
+ $window->set_size_request(598, 590);
}
# Connect the signals
$window->signal_connect('delete_event', sub { $window->destroy() });
- $window->signal_connect('destroy', sub { my_gtk->exit() });
+ $window->signal_connect('destroy', sub { ugtk2->exit() });
- $window->add(my $vbox = gtkshow(new Gtk::VBox(0, 0)));
+ $window->add(my $vbox = gtkshow(new Gtk2::VBox(0, 0)));
# Create the notebook (for bookmarks at the top)
my $notebook = create_notebook();
$notebook->set_tab_pos('top');
######################## BASIC OPTIONS PAGE ################################
- my $seclevel_entry = new Gtk::Combo();
+ my $seclevel_entry = new Gtk2::Combo();
- $notebook->append_page(gtkpack__(gtkshow(my $basic_page = new Gtk::VBox(0, 0)),
+ $notebook->append_page(gtkpack__(gtkshow(my $basic_page = new Gtk2::VBox(0, 0)),
basic_seclevel_explanations($msec),
create_packtable ({ col_spacings => 10, row_spacings => 5 },
[ basic_seclevel_option(\$seclevel_entry, $msec) ],
- [ new Gtk::Label(N("Security Alerts:")),
- my $secadmin_check = new Gtk::CheckButton ],
- [ new Gtk::Label(N("Security Administrator:")),
- my $secadmin_entry = new Gtk::Entry ])),
- new Gtk::Label(N("Basic")));
+ [ new Gtk2::Label(N("Security Alerts:")),
+ my $secadmin_check = new Gtk2::CheckButton ],
+ [ new Gtk2::Label(N("Security Administrator:")),
+ my $secadmin_entry = new Gtk2::Entry ])),
+ new Gtk2::Label(N("Basic")));
$secadmin_entry->set_text($msec->get_check_value("MAIL_USER"));
$secadmin_check->set_active(1) if $msec->get_check_value("MAIL_WARN") eq "yes";
@@ -125,8 +127,8 @@ sub draksec_main {
my ($domain, $label) = @$_;
my %values;
- $notebook->append_page(gtkshow(createScrolledWindow(gtkpack(new Gtk::VBox(0, 0),
- new Gtk::Label(N("The following options can be set to customize your\nsystem security. If you need explanations, click on Help.\n")),
+ $notebook->append_page(gtkshow(create_scrolled_window(gtkpack(new Gtk2::VBox(0, 0),
+ new Gtk2::Label(N("The following options can be set to customize your\nsystem security. If you need explanations, click on Help.\n")),
create_packtable({ col_spacings => 10, row_spacings => 5 },
map {
my $i = $_;
@@ -142,39 +144,39 @@ sub draksec_main {
$values{$i}->set_popdown_strings(@alllocal_choices);
}
} else {
- $values{$i} = new Gtk::Entry();
+ $values{$i} = new Gtk2::Entry();
$entry = $values{$i};
}
$entry->set_text($msec->get_function_value($i));
set_default_tip($entry, $default);
- [ new Gtk::Label($i), $values{$i} ];
+ [ new Gtk2::Label($i), $values{$i} ];
} $msec->get_functions($domain))))),
- new Gtk::Label($label));
+ new Gtk2::Label($label));
$options_values{$domain} = \%values;
}
######################## PERIODIC CHECKS ###################################
my %security_checks_value;
- $notebook->append_page(gtkshow(createScrolledWindow(gtkpack(new Gtk::VBox(0, 0),
- new Gtk::Label(N("The following options can be set to customize your\nsystem security. If you need explanations, click on Help.\n")),
+ $notebook->append_page(gtkshow(create_scrolled_window(gtkpack(new Gtk2::VBox(0, 0),
+ new Gtk2::Label(N("The following options can be set to customize your\nsystem security. If you need explanations, click on Help.\n")),
create_packtable({ col_spacings => 10, row_spacings => 5 },
map {
- my $i = $_;
- if (!member(qw(MAIL_WARN MAIL_USER), $i)) {
+ if (!member(qw(MAIL_WARN MAIL_USER), $_)) {
+ my $i = $_;
$security_checks_value{$i} = new_editable_combo();
my $entry = $security_checks_value{$i}->entry;
set_default_tip($entry, $msec->get_check_default);
$security_checks_value{$i}->set_popdown_strings(qw(yes no default));
$entry->set_text($msec->get_check_value($i));
- [ gtkshow(new Gtk::Label(translate($i))), $security_checks_value{$i} ];
- }
+ [ gtkshow(new Gtk2::Label(translate($i))), $security_checks_value{$i} ];
+ } else { undef }
} ($msec->get_default_checks))))),
- new Gtk::Label(N("Periodic Checks")));
+ new Gtk2::Label(N("Periodic Checks")));
####################### OK CANCEL BUTTONS ##################################
- my $bok = gtksignal_connect(new Gtk::Button(N("Ok")),
+ my $bok = gtksignal_connect(new Gtk2::Button(N("Ok")),
'clicked' => sub {
my $seclevel_value = $seclevel_entry->entry->get_text();
my $secadmin_check_value = $secadmin_check->get_active();
@@ -218,21 +220,21 @@ sub draksec_main {
remove_wait_msg($w);
- my_gtk->exit(0);
+ ugtk2->exit(0);
});
- my $bcancel = gtksignal_connect(new Gtk::Button(N("Cancel")),
- 'clicked' => sub { my_gtk->exit(0) });
+ my $bcancel = gtksignal_connect(new Gtk2::Button(N("Cancel")),
+ 'clicked' => sub { ugtk2->exit(0) });
gtkpack_($vbox,
1, gtkshow($notebook),
- 0, gtkadd(gtkadd(gtkshow(new Gtk::HBox(0, 0)),
+ 0, gtkadd(gtkadd(gtkshow(new Gtk2::HBox(0, 0)),
$bok),
$bcancel));
$bcancel->can_default(1);
$bcancel->grab_default();
$w->main;
- my_gtk->exit(0);
+ ugtk2->exit(0);
}
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 321a34418..99771c78e 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -57,13 +57,13 @@
# backup_user_toto_date_hour.tar.*
# backup_other_date_hour.tar.*
#
-# first incremental backup: (if backup_base* does not exist )
+# first incremental backup: (if backup_base* does not exist)
#
# backup_base_sys_date_hour.tar.*
# backup_base_user_toto_date_hour.tar.*
# backup_base_other_date_hour.tar.*
#
-# other incremental backup: (if backup_base* already exist )
+# other incremental backup: (if backup_base* already exist)
#
# backup_incr_sys_date_hour.tar.*
# backup_incr_user_toto_date_hour.tar.*
@@ -117,9 +117,8 @@
# DONE TODAY:
#________________________________________________________________
-use Gtk;
-use lib qw(/usr/lib/libDrakX);
use strict;
+use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
use interactive;
@@ -199,7 +198,7 @@ my @sys_files = ("/etc");
my @user_list;
my @list_other;
my $cfg_dir = "/etc/drakxtools/drakbackup/";
-my $config{PATH_TO_SAVE} = "/var/lib/drakbackup";
+my $save_path = "/var/lib/drakbackup";
my $log_buff;
my $comp_mode = 0;
my $backup_sys = 1;
@@ -260,8 +259,8 @@ my $good_restore_path = 1;
# allow not-root user with own config
if ($ENV{USER} ne 'root') {
$cfg_dir = "$user_home/.drakbackup/";
- $config{PATH_TO_SAVE} = $cfg_dir . "backups";
- -d $config{PATH_TO_SAVE} or mkdir_p $config{PATH_TO_SAVE};
+ $save_path = $cfg_dir . "backups";
+ -d $save_path or mkdir_p $save_path;
$nonroot_user = 1;
$not_warned = 1;
$backup_sys = 0;
@@ -285,7 +284,7 @@ sub show_conf {
print "DrakBackup configuration:\n\n";
read_conf_file();
system_state();
- print $system_state . "\n";
+ print "$system_state\n";
exit(0);
}
@@ -377,7 +376,7 @@ sub all_user_list {
push @all_user_list, $user;
}
}
- close (PASSWD);
+ close(PASSWD);
if ($DEBUG) {
print "/-- User list --/ \n";
print " -> $_\n" foreach @all_user_list;
@@ -389,7 +388,7 @@ sub the_time {
$the_time = "_";
$the_time .= localtime->year() + 1900;
if (localtime->mon() < 9) { $the_time .= "0" }
- $the_time .= localtime->mon() +1;
+ $the_time .= localtime->mon() + 1;
if (localtime->mday() < 10) { $the_time .= "0" }
$the_time .= localtime->mday();
$the_time .= "_";
@@ -423,7 +422,6 @@ sub get_cd_info {
my @line_data;
my @drive_names;
my $i;
- my $key;
my $info;
my %data => (
@@ -442,7 +440,7 @@ sub get_cd_info {
my $cd_drives;
foreach (@cd_info) {
@line_data = split(/[:\t]+/, $_);
- if ($line_data[0] =~ "drive name") {
+ if ($line_data[0] =~ /drive name/) {
$cd_drives = @line_data-1;
chop($line_data[$cd_drives]);
@drive_names = @line_data;
@@ -483,7 +481,7 @@ sub get_cd_info {
#- now just report the data if we called --cd-info from the command line
if (!$interactive) {
- foreach $key (keys %cd_devices) {
+ foreach my $key (keys %cd_devices) {
print "\n{$key}->{rec_dev} = $cd_devices{$key}->{rec_dev}\n";
print "{$key}->{speed} = $cd_devices{$key}->{speed}\n";
print "{$key}->{chg_speed} = $cd_devices{$key}->{chg_speed}\n";
@@ -496,71 +494,70 @@ sub get_cd_info {
} else {
#- in non-interactive mode we just let all the devices through
#- as a general purpose probe - in reality we want only burners
- foreach $key (keys %cd_devices) {
+ foreach my $key (keys %cd_devices) {
delete $cd_devices{$key} if $cd_devices{$key}{rec_dev} eq ''
}
}
}
sub save_conf_file {
-
- write_sitecopyrc() if $net_proto eq 'webdav';
- write_password_file() if $net_proto eq 'rsync' && $passwd_user;
-
+ write_sitecopyrc() if $net_proto eq 'webdav';
+ write_password_file() if $net_proto eq 'rsync' && $passwd_user;
+
my @cfg_list = ("SYS_FILES=@sys_files\n",
- "HOME_FILES=@user_list\n",
- "OTHER_FILES=@list_other\n",
- "PATH_TO_SAVE=$config{PATH_TO_SAVE}\n",
- "HOST_PATH=$host_path\n",
- "NET_PROTO=$net_proto\n",
- "CD_TIME=$cd_time\n",
- "USER_MAIL=$user_mail\n",
- "DAEMON_TIME_SPACE=$when_space\n",
- "CD_DEVICE=$cd_device\n",
- "LOGIN=$login_user\n",
- "TAPE_DEVICE=$tape_device\n",
- "HOST_NAME=$host_name\n"
- );
- $no_critical_sys and push @cfg_list, "NO_CRITICAL_SYS\n" ;
- $no_critical_sys or push @cfg_list, "CRITICAL_SYS\n" ;
+ "HOME_FILES=@user_list\n",
+ "OTHER_FILES=@list_other\n",
+ "PATH_TO_SAVE=$save_path\n",
+ "HOST_PATH=$host_path\n",
+ "NET_PROTO=$net_proto\n",
+ "CD_TIME=$cd_time\n",
+ "USER_MAIL=$user_mail\n",
+ "DAEMON_TIME_SPACE=$when_space\n",
+ "CD_DEVICE=$cd_device\n",
+ "LOGIN=$login_user\n",
+ "TAPE_DEVICE=$tape_device\n",
+ "HOST_NAME=$host_name\n"
+ );
+ $no_critical_sys and push @cfg_list, "NO_CRITICAL_SYS\n";
+ $no_critical_sys or push @cfg_list, "CRITICAL_SYS\n";
$send_mail and push @cfg_list, "SEND_MAIL\n";
- $backup_sys_versions and push @cfg_list, "SYS_INCREMENTAL_BACKUPS\n" ;
- $backup_user_versions and push @cfg_list, "USER_INCREMENTAL_BACKUPS\n" ;
- $backup_other_versions and push @cfg_list, "OTHER_INCREMENTAL_BACKUPS\n" ;
- $media_erase and push @cfg_list, "MEDIA_ERASE\n" ;
- $media_eject and push @cfg_list, "MEDIA_EJECT\n" ;
- $multi_session and push @cfg_list, "MULTI_SESSION\n" ;
- $remember_pass and push @cfg_list, "LOGIN=$login_user\n" ;
- $remember_pass and push @cfg_list, "PASSWD=$passwd_user\n" ;
- $remember_pass and push @cfg_list, "REMEMBER_PASS\n" ;
- $user_keys and push @cfg_list, "USER_KEYS\n" ;
- $xfer_keys and push @cfg_list, "DRAK_KEYS\n" ;
- $use_expect and push @cfg_list, "USE_EXPECT\n" ;
- $cd_with_install_boot and push @cfg_list, "CD_WITH_INSTALL_BOOT\n" ;
- ($daemon_media eq 'ssh') and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=ssh\n" ;
- ($daemon_media eq 'ftp') and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=ftp\n" ;
- ($daemon_media eq 'hd') and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=hd\n" ;
- ($daemon_media eq 'cd') and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=cd\n" ;
- ($daemon_media eq 'tape') and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=tape\n" ;
- ($daemon_media eq 'webdav') and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=webdav\n" ;
- ($daemon_media eq 'rsync') and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=rsync\n" ;
- $hd_quota and push @cfg_list, "HD_QUOTA\n" ;
- $where_hd and push @cfg_list, "USE_HD\n" ;
- $where_cd and push @cfg_list, "USE_CD\n" ;
- $where_tape and push @cfg_list, "USE_TAPE\n" ;
- $tape_norewind and push @cfg_list, "TAPE_NOREWIND\n" ;
- $where_net and push @cfg_list, "USE_NET\n" ;
+ $backup_sys_versions and push @cfg_list, "SYS_INCREMENTAL_BACKUPS\n";
+ $backup_user_versions and push @cfg_list, "USER_INCREMENTAL_BACKUPS\n";
+ $backup_other_versions and push @cfg_list, "OTHER_INCREMENTAL_BACKUPS\n";
+ $media_erase and push @cfg_list, "MEDIA_ERASE\n";
+ $media_eject and push @cfg_list, "MEDIA_EJECT\n";
+ $multi_session and push @cfg_list, "MULTI_SESSION\n";
+ $remember_pass and push @cfg_list, "LOGIN=$login_user\n";
+ $remember_pass and push @cfg_list, "PASSWD=$passwd_user\n";
+ $remember_pass and push @cfg_list, "REMEMBER_PASS\n";
+ $user_keys and push @cfg_list, "USER_KEYS\n";
+ $xfer_keys and push @cfg_list, "DRAK_KEYS\n";
+ $use_expect and push @cfg_list, "USE_EXPECT\n";
+ $cd_with_install_boot and push @cfg_list, "CD_WITH_INSTALL_BOOT\n";
+ $daemon_media eq 'ssh' and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=ssh\n";
+ $daemon_media eq 'ftp' and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=ftp\n";
+ $daemon_media eq 'hd' and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=hd\n";
+ $daemon_media eq 'cd' and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=cd\n";
+ $daemon_media eq 'tape' and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=tape\n";
+ $daemon_media eq 'webdav' and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=webdav\n";
+ $daemon_media eq 'rsync' and $backup_daemon and push @cfg_list, "DAEMON_MEDIA=rsync\n";
+ $hd_quota and push @cfg_list, "HD_QUOTA\n";
+ $where_hd and push @cfg_list, "USE_HD\n";
+ $where_cd and push @cfg_list, "USE_CD\n";
+ $where_tape and push @cfg_list, "USE_TAPE\n";
+ $tape_norewind and push @cfg_list, "TAPE_NOREWIND\n";
+ $where_net and push @cfg_list, "USE_NET\n";
$cdrw and push @cfg_list, "CDRW\n";
$dvdr and push @cfg_list, "DVDR\n";
$dvdram and push @cfg_list, "DVDRAM\n";
- $what_no_browser or push @cfg_list, "BROWSER_CACHE\n" ;
+ $what_no_browser or push @cfg_list, "BROWSER_CACHE\n";
$backup_sys or push @cfg_list, "NO_SYS_FILES\n";
if ($comp_mode) {
- push @cfg_list, "OPTION_COMP=TAR.BZ2\n";
+ push @cfg_list, "OPTION_COMP=TAR.BZ2\n";
} else {
- push @cfg_list, "OPTION_COMP=TAR.GZ\n";
+ push @cfg_list, "OPTION_COMP=TAR.GZ\n";
}
- $del_hd_files and push @cfg_list, "DEL_HD_FILES\n" ;
+ $del_hd_files and push @cfg_list, "DEL_HD_FILES\n";
output_p($cfg_file, @cfg_list);
chmod(0600, $cfg_file);
save_cron_files() if $backup_daemon;
@@ -602,22 +599,24 @@ 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";
+# %config = getVarsFromSh($cfg_file) || print "You must be root to read configuration file. \n";
+ open (CONF_FILE, "<" . $cfg_file) || print "You must be root to read configuration file. \n";
local $_;
while (<CONF_FILE>) {
next unless /\S/;
next if /^#/;
chomp;
- if (/^SYS_FILES/) { s/^SYS_FILES=//gi; @sys_files = split(' ', $_) }
- if (/^HOME_FILES/) { s/^HOME_FILES=//gi; @user_list = split(' ', $_) }
- if (/^OTHER_FILES/) { s/^OTHER_FILES=//gi; @list_other = split(' ', $_) }
+ if (/^SYS_FILES/) { s/^SYS_FILES=//gi; @sys_files = split(' ', $_) }
+ if (/^HOME_FILES/) { s/^HOME_FILES=//gi; @user_list = split(' ', $_) }
+ if (/^OTHER_FILES/) { s/^OTHER_FILES=//gi; @list_other = split(' ', $_) }
+ if (/^PATH_TO_SAVE/) { s/^PATH_TO_SAVE=//gi; $save_path = $_ }
if (/^NO_SYS_FILES/) { $backup_sys = 0 }
if (/^NO_USER_FILES/) { $backup_user = 0 }
if (/^OPTION_COMP/) { s/^OPTION_COMP=//gi; /TAR.GZ/ and $comp_mode = 0; /TAR.BZ2/ and $comp_mode = 1 }
if (/^BROWSER_CACHE/) { $what_no_browser = 0 }
if (/^CDRW/) { $cdrw = 1 }
if (/^DVDR/) { $dvdr = 1 }
- if (/^DVDRAM/) { $dvdram = 1 }
+ if (/^DVDRAM/) { $dvdram = 1 }
if (/^NET_PROTO/) { s/^NET_PROTO=//gi; $net_proto = $_ }
if (/^HOST_PATH/) { s/^HOST_PATH=//gi; $host_path = $_ }
if (/^DAEMON_MEDIA/) { s/^DAEMON_MEDIA=//gi; $daemon_media = $_ }
@@ -626,33 +625,33 @@ sub read_conf_file {
if (/^USE_CD/) { $where_cd = 1 }
if (/^USE_NET/) { $where_net = 1 }
if (/^USE_TAPE/) { $where_tape = 1 }
- if (/^TAPE_NOREWIND/) { $tape_norewind = 1 }
+ if (/^TAPE_NOREWIND/) { $tape_norewind = 1 }
if (/^CD_TIME/) { s/^CD_TIME=//gi; $cd_time = $_ }
if (/^DAEMON_TIME_SPACE/) { s/^DAEMON_TIME_SPACE=//gi; $when_space = $_ }
if (/^CD_WITH_INSTALL_BOOT/) { $cd_with_install_boot = 1 }
- if (/^CD_DEVICE/) { s/^CD_DEVICE=//gi; $cd_device = $_ }
+ if (/^CD_DEVICE/) { s/^CD_DEVICE=//gi; $cd_device = $_ }
if (/^HOST_NAME/) { s/^HOST_NAME=//gi; $host_name = $_ }
if (/^REMEMBER_PASS/) { $remember_pass = 1 }
- if (/^USER_KEYS/) { $user_keys = 1 }
- if (/^DRAK_KEYS/) { $xfer_keys = 1; $user_keys = 0 }
- if (/^USE_EXPECT/) { $use_expect = 1; $user_keys = 0 }
- if (/^LOGIN/) { s/^LOGIN=//gi; $login_user = $_ }
+ if (/^USER_KEYS/) { $user_keys = 1 }
+ if (/^DRAK_KEYS/) { $xfer_keys = 1; $user_keys = 0 }
+ if (/^USE_EXPECT/) { $use_expect = 1; $user_keys = 0 }
+ if (/^LOGIN/) { s/^LOGIN=//gi; $login_user = $_ }
if (/^PASSWD/) { s/^PASSWD=//gi; $passwd_user = $_; $remember_pass = 1 }
if (/^USER_MAIL/) { s/^USER_MAIL=//gi; $user_mail = $_ }
if (/^SEND_MAIL/) { $send_mail = 1 }
if (/^TAPE_DEVICE/) { s/TAPE_DEVICE=//gi; $tape_device = $_ }
- if (/^MEDIA_ERASE/) { $media_erase = 1 }
- if (/^MEDIA_EJECT/) { $media_eject = 1 }
- if (/^MULTI_SESSION/) { $multi_session = 1 }
+ if (/^MEDIA_ERASE/) { $media_erase = 1 }
+ if (/^MEDIA_EJECT/) { $media_eject = 1 }
+ if (/^MULTI_SESSION/) { $multi_session = 1 }
if (/^SYS_INCREMENTAL_BACKUPS/) { $backup_sys_versions = 1 }
if (/^USER_INCREMENTAL_BACKUPS/) { $backup_user_versions = 1 }
if (/^OTHER_INCREMENTAL_BACKUPS/) { $backup_other_versions = 1 }
- if (/^NO_CRITICAL_SYS/) { $no_critical_sys = 1 }
- if (/^CRITICAL_SYS/) { $no_critical_sys = 0 }
- if (/^DEL_HD_FILES/) { $del_hd_files = 1 }
- }
- read_cron_files();
- $cfg_file_exist = 1;
+ if (/^NO_CRITICAL_SYS/) { $no_critical_sys = 1 }
+ if (/^CRITICAL_SYS/) { $no_critical_sys = 0 }
+ if (/^DEL_HD_FILES/) { $del_hd_files = 1 }
+ }
+ 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
@@ -675,7 +674,7 @@ sub write_sitecopyrc {
);
output_p("$user_home/.sitecopyrc", @cfg_list);
chmod(0600, "$user_home/.sitecopyrc");
- -d "$user_home/.sitecopy" or mkdir_p ("$user_home/.sitecopy");
+ -d "$user_home/.sitecopy" or mkdir_p("$user_home/.sitecopy");
chmod(0700, "$user_home/.sitecopy");
}
@@ -692,7 +691,7 @@ sub show_warning {
$mode = N_("FATAL") if $mode eq "f";
$mode = N_("INFO") if $mode eq "i";
if ($interactive) {
- $in->ask_warn('',translate($mode).": ".translate($warning));
+ $in->ask_warn('', translate($mode).": ".translate($warning));
} else {
warn "$mode: $warning\n";
}
@@ -722,7 +721,7 @@ sub ftp_client {
$ftp->login($login_user, $passwd_user);
$ftp->cwd($host_path);
foreach (@file_list_to_send_by_ftp) {
- $interactive and $pbar->set_value(0);
+ $interactive and $pbar->set_fraction(0);
$interactive and progress($pbar, 0.5, $_);
$interactive and $pbar->set_show_text($_);
$ftp->put($_);
@@ -774,15 +773,15 @@ sub do_expect {
@send_files = @file_list_to_send_by_ftp if $mode eq "backup";
- $interactive and $pbar->set_value(0);
- $interactive and $pbar3->set_value(0);
+ $interactive and $pbar->set_fraction(0);
+ $interactive and $pbar3->set_fraction(0);
$interactive and progress($pbar, 0.5, "File Transfer...");
foreach (@send_files) {
$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');
@@ -791,15 +790,15 @@ sub do_expect {
}
}
- if (!(-e $backup_key) && ($mode eq "sendkey")) {
- $in->ask_warn('',N("This may take a moment to generate the keys."));
+ if (!(-e $backup_key) && $mode eq "sendkey") {
+ $in->ask_warn('', N("This may take a moment to generate the keys."));
cursor_wait();
#- not using a passphrase for the moment
system("ssh-keygen -P '' -t dsa -f $backup_key");
cursor_norm();
}
- my $exp = Expect->spawn($exp_command) or $in->ask_warn('',N("ERROR: Cannot spawn %s.", $exp_command));
+ my $exp = Expect->spawn($exp_command) or $in->ask_warn('', N("ERROR: Cannot spawn %s.", $exp_command));
$interactive and progress($pbar3, 1/@send_files, N("Total progess"));
$interactive and $stext->set_text($_);
@@ -826,8 +825,8 @@ 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 eq 0) && ($mode eq "sendkey");
- $log_buff .= "$_\n" if ($exit_stat eq 0) && ($mode eq "backup");
+ $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 eq 0 && $mode eq "sendkey";
+ $log_buff .= "$_\n" if $exit_stat eq 0 && $mode eq "backup";
$exp->hard_close();
}
$interactive and progress($pbar, 0.5, "Done...");
@@ -845,7 +844,7 @@ sub ssh_client {
} else {
$command = "scp -P $scp_port -i $backup_key $_ $login_user\@$host_name:$host_path";
}
- $interactive and $pbar->set_value(0);
+ $interactive and $pbar->set_fraction(0);
$interactive and progress($pbar, 0.5, "File Transfer...");
$interactive and $stext->set_text($_);
$log_buff .= $command . "\n\n";
@@ -903,7 +902,7 @@ sub check_for_cd {
show_warning("f", N_("Does not appear to be recordable media!"));
return(1);
}
- if (($log_buff =~ /Is not erasable/) && ($media_erase)) {
+ if ($log_buff =~ /Is not erasable/ && $media_erase) {
show_warning("f", N_("Not erasable media!"));
return(1);
}
@@ -931,7 +930,7 @@ sub check_for_cd {
sub write_on_cd {
my $command = "cdrecord -v dev=$cd_device -data ";
#- only blank if it's the first session
- $command .= "blank=fast " if ($media_erase) && ($session_offset eq '');
+ $command .= "blank=fast " if $media_erase && $session_offset eq '';
#- multi-session mode
$command .= "-multi -pad " if $multi_session;
$command .= "$save_path/drakbackup.iso";
@@ -943,7 +942,7 @@ sub write_on_cd {
sub erase_cdrw {
#- we can only hit this via interactive
$interactive = 0;
- $in->ask_warn('',N("This may take a moment to erase the media."));
+ $in->ask_warn('', N("This may take a moment to erase the media."));
cursor_wait();
my $command = "cdrecord dev=$cd_device -blank=fast";
spawn_progress($command, "Erasing CDRW...");
@@ -958,8 +957,8 @@ sub spawn_progress {
$interactive and progress($pbar3, 0, translate($descr));
$interactive and $pbar3->set_activity_mode(1);
- $interactive and ($pbar3->set_value(0));
- $interactive and ($timer = Gtk->timeout_add(2, \&progress_timeout));
+ $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";
@@ -970,12 +969,12 @@ sub spawn_progress {
$log_buff .= $value;
if ($interactive) {
$stext->set_text($value);
- Gtk->main_iteration while (Gtk->events_pending);
+ gtkflush();
}
}
close TMP;
$interactive and $pbar3->set_activity_mode(0);
- $interactive and Gtk->timeout_remove($timer);
+ $interactive and Gtk2->timeout_remove($timer);
}
sub progress_timeout {
@@ -984,7 +983,7 @@ sub progress_timeout {
$new_val = $pbar3->get_value() + 1;
$adj = $pbar3->adjustment;
$new_val = $adj->lower if $new_val > $adj->upper;
- $pbar3->set_value($new_val);
+ $pbar3->set_fraction($new_val);
return(1);
}
@@ -1138,7 +1137,7 @@ sub build_backup_files {
my $base_sys_exist = 0;
my $base_user_exist = 0;
my $base_other_exist = 0;
- my @list_temp ;
+ my @list_temp;
my @list_other_;
my @dir_content;
my $file_date;
@@ -1151,11 +1150,11 @@ sub build_backup_files {
read_conf_file();
the_time();
$send_mail and complete_results();
- -d $save_path or mkdir_p ($save_path);
+ -d $save_path or mkdir_p($save_path);
if ($comp_mode) {
$DEBUG and $tar_cmd = "tar cv --use-compress-program /usr/bin/bzip2 ";
$DEBUG or $tar_cmd = "tar c --use-compress-program /usr/bin/bzip2 ";
- $tar_ext = "tar.bz2" ;
+ $tar_ext = "tar.bz2";
} else {
$DEBUG and $tar_cmd = "tar cvpz ";
$DEBUG or $tar_cmd = "tar cpz ";
@@ -1171,7 +1170,7 @@ sub build_backup_files {
-d $save_path and @dir_content = all($save_path);
grep (/^backup\_base\_sys/, @dir_content) and $base_sys_exist = 1;
- if (($where_hd && !$daemon) || ($daemon)) {
+ if ($where_hd && !$daemon || $daemon) {
$interactive and progress($pbar, 0.5, N("Backup system files..."));
if ($backup_sys) {
if ($backup_sys_versions) {
@@ -1305,18 +1304,18 @@ 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';
- $results .= N("\nDrakbackup activities via %s:\n\n", $daemon_media) ;
+ $results .= N("\nDrakbackup activities via %s:\n\n", $daemon_media);
$results .= $log_buff;
}
#- leave this one alone for now - works well
#- integrate with other methods later
- if (($where_net && !$daemon && ($net_proto eq 'ftp')) || ($daemon && ($daemon_media eq 'ftp'))) {
+ if (($where_net && !$daemon && $net_proto eq 'ftp') || $daemon && $daemon_media eq 'ftp') {
$results .= N("file list sent by FTP: %s\n ", $_) foreach @file_list_to_send_by_ftp;
$interactive and build_backup_ftp_status();
if (ftp_client()) {
@@ -1328,10 +1327,10 @@ sub build_backup_files {
#- consolidate all the other methods under here - interactive and --default should land here
if (!$daemon) {
- if ($where_net && $net_proto && ($net_proto ne 'ftp')) {
+ 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);
+ ssh_client() 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);
}
@@ -1359,7 +1358,7 @@ sub build_backup_files {
#- write our catalog file
if (!$media_problem) {
my $catalog = substr($the_time, 1);
- if ((!$where_net) && (!$where_tape) && (!$where_cd)) {
+ if (!$where_net && !$where_tape && !$where_cd) {
$catalog .= ":HD:localhost:$save_path";
$net_proto = '';
}
@@ -1367,14 +1366,14 @@ sub build_backup_files {
$catalog .= ":CD:$vol_name:$cd_device" if $where_cd;
$catalog .= ":Tape:$vol_name:$tape_device" if $where_tape;
$catalog .= ":System" if $backup_sys;
- $catalog .= ":I" if ($backup_sys_versions) && ($backup_sys);
- $catalog .= ":F" if (!$backup_sys_versions) && ($backup_sys);
+ $catalog .= ":I" if $backup_sys_versions && $backup_sys;
+ $catalog .= ":F" if !$backup_sys_versions && $backup_sys;
$catalog .= ":Users=(@user_list)" if $backup_user;
- $catalog .= ":I" if ($backup_user_versions) && ($backup_user);
- $catalog .= ":F" if (!$backup_user_versions) && ($backup_user);
+ $catalog .= ":I" if $backup_user_versions && $backup_user;
+ $catalog .= ":F" if !$backup_user_versions && $backup_user;
$catalog .= ":Other=(@list_other)" if @list_other;
- $catalog .= ":I" if ($backup_other_versions) && (@list_other);
- $catalog .= ":F" if (!$backup_other_versions) && (@list_other);
+ $catalog .= ":I" if $backup_other_versions && @list_other;
+ $catalog .= ":F" if !$backup_other_versions && @list_other;
$catalog .= "\n";
local *CATALOG;
@@ -1384,7 +1383,7 @@ sub build_backup_files {
}
#- clean up HD files if del_hd_files and media isn't hd
- if (($del_hd_files) && (($where_cd) || ($where_tape) || ($where_net)) && ($daemon_media ne 'hd')) {
+ if ($del_hd_files && ($where_cd || $where_tape || $where_net) && $daemon_media ne 'hd') {
foreach (@file_list_to_send_by_ftp) {
# unlink($_) if (/$tar_ext$/) && (!/backup_base/);
unlink($_) if /$tar_ext$/;
@@ -1424,7 +1423,7 @@ sub check_pkg_needs {
if ($where_net) {
$extra_pkg = 'rsync' if $net_proto eq 'rsync';
$extra_pkg = 'sitecopy wget' if $net_proto eq 'webdav';
- $extra_pkg = 'perl-Expect' if ($net_proto eq 'ssh') && (($use_expect) || ($xfer_keys));
+ $extra_pkg = 'perl-Expect' if $net_proto eq 'ssh' && ($use_expect || $xfer_keys);
}
$extra_pkg = 'mt-st' if $where_tape;
if ($extra_pkg) {
@@ -1442,31 +1441,28 @@ sub check_pkg_needs {
sub cursor_wait {
# turn the cursor to a watch
- $window1->window->set_cursor(new Gtk::Gdk::Cursor(150));
- Gtk->main_iteration while Gtk->events_pending;
+ $window1->window->set_cursor(new Gtk2::Gdk::Cursor(150));
+ gtkflush();
}
sub cursor_norm {
# restore normal cursor
- $window1->window->set_cursor(new Gtk::Gdk::Cursor(68));
- Gtk->main_iteration while Gtk->events_pending;
+ $window1->window->set_cursor(new Gtk2::Gdk::Cursor(68));
+ gtkflush();
}
sub show_status {
- #- just a generic routine to display an array of text in the GUI screen
-
- my $text = new Gtk::Text(undef, undef);
+ #- just a generic routine to display an array of text in the GUI screen
+
+ my $text = new Gtk2::TextView;
$table->destroy();
gtkpack($advanced_box,
- $table = gtkpack_(new Gtk::VBox(0,10),
- 1, gtkpack_(new Gtk::HBox(0,0),
- 1, gtktext_insert(gtkset_editable($text, 0), $results),
- 0, new Gtk::VScrollbar($text->vadj),
- ),
- ),
- );
+ $table = gtkpack_(new Gtk2::VBox(0,10),
+ 1, gtktext_insert(gtkset_editable($text, 0), [ [ $results ] ]),
+ ),
+ );
$central_widget = \$table;
$table->show_all();
}
@@ -1484,14 +1480,14 @@ sub file_ok_sel {
my $file_name = $file_selection->get_filename();
if (!member($file_name, @list_other)) {
push(@list_other, $file_name);
- $list_other->add(gtkshow(new Gtk::ListItem($file_name)));
+ $list_other->add(gtkshow(new Gtk2::ListItem($file_name)));
}
}
sub filedialog_where_hd {
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk::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() });
@@ -1502,7 +1498,7 @@ sub filedialog_where_hd {
sub filedialog_restore_find_path {
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk::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() });
@@ -1516,7 +1512,7 @@ sub filedialog_generic {
my ($fileops, $prompt, $widget, $set_var) = @_;
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk::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());
${$widget}->set_text(${$set_var});
@@ -1530,7 +1526,7 @@ sub filedialog_generic {
sub filedialog {
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk::FileSelection(N("Select the files or directories and click on 'Add'")), destroy => sub { $file_dialog->destroy() } );
+ $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->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
@@ -1573,14 +1569,14 @@ sub advanced_what_sys {
my $box_what_sys;
gtkpack($advanced_box,
- $box_what_sys = gtkpack_(new Gtk::VBox(0, 15),
+ $box_what_sys = gtkpack_(new Gtk2::VBox(0, 15),
1, N("\nPlease check all options that you need.\n"),
1, N("These options can backup and restore all files in your /etc directory.\n"),
- 0, my $check_what_sys = new Gtk::CheckButton(N("Backup your System files. (/etc directory)")),
- 0, my $check_what_versions = new Gtk::CheckButton(N("Use incremental backup (do not replace old backups)")),
- 0, my $check_what_critical = new Gtk::CheckButton(N("Do not include critical files (passwd, group, fstab)")),
+ 0, my $check_what_sys = new Gtk2::CheckButton(N("Backup your System files. (/etc directory)")),
+ 0, my $check_what_versions = new Gtk2::CheckButton(N("Use incremental backup (do not replace old backups)")),
+ 0, my $check_what_critical = new Gtk2::CheckButton(N("Do not include critical files (passwd, group, fstab)")),
0, N("With this option you will be able to restore any version\n of your /etc directory."),
- 1, new Gtk::VBox(0, 15),
+ 1, new Gtk2::VBox(0, 15),
),
);
check_list([$check_what_sys, \$backup_sys], [$check_what_critical, \$no_critical_sys], [$check_what_versions, \$backup_sys_versions]);
@@ -1595,14 +1591,14 @@ sub advanced_what_user {
all_user_list();
gtkpack($advanced_box,
- $box_what_user = gtkpack_(new Gtk::VBox(0, 15),
+ $box_what_user = gtkpack_(new Gtk2::VBox(0, 15),
0, N("Please check all users that you want to include in your backup."),
- 0, new Gtk::HSeparator,
- 1, createScrolledWindow(
- gtkpack__(new Gtk::VBox(0,0),
+ 0, new Gtk2::HSeparator,
+ 1, create_scrolled_window(
+ gtkpack__(new Gtk2::VBox(0,0),
map { my $name = $_;
my @user_list_tmp;
- my $b = new Gtk::CheckButton($name);
+ my $b = new Gtk2::CheckButton($name);
if (grep /^$name$/, @user_list) {
$check_what_user{$_}[1] = 1;
gtkset_active($b, 1);
@@ -1611,7 +1607,7 @@ sub advanced_what_user {
gtkset_active($b, 0);
}
$b->signal_connect(toggled => sub {
- if ($check_what_user{$name}[1] ) {
+ if ($check_what_user{$name}[1]) {
$check_what_user{$name}[1] = 0;
@user_list_tmp = grep(!/^$name$/, @user_list);
@user_list = @user_list_tmp;
@@ -1623,8 +1619,8 @@ sub advanced_what_user {
$b } (@all_user_list)
),
),
- 0, my $check_what_browser = new Gtk::CheckButton(N("Do not include the browser cache")),
- 0, my $check_what_user_versions = new Gtk::CheckButton(N("Use Incremental Backups (do not replace old backups)")),
+ 0, my $check_what_browser = new Gtk2::CheckButton(N("Do not include the browser cache")),
+ 0, my $check_what_user_versions = new Gtk2::CheckButton(N("Use Incremental Backups (do not replace old backups)")),
),
);
check_list([$check_what_browser, \$what_no_browser], [$check_what_user_versions, \$backup_user_versions]);
@@ -1635,20 +1631,20 @@ sub advanced_what_user {
sub advanced_what_other {
my $box_what_other;
- $list_other = new Gtk::List();
- $list_other->set_selection_mode(-extended);
- $list_other->add(gtkshow(new Gtk::ListItem($_))) foreach @list_other;
+ $list_other = new Gtk2::List();
+ $list_other->set_selection_mode('extended');
+ $list_other->add(gtkshow(new Gtk2::ListItem($_))) foreach @list_other;
gtkpack($advanced_box,
- $box_what_other = gtkpack_(new Gtk::VBox(0, 15),
- 1, gtkpack_(new Gtk::HBox(0,4),
- 1, createScrolledWindow($list_other),
+ $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 Gtk::HButtonBox, -spread),
- gtksignal_connect(new Gtk::Button(N("Add")), clicked => sub { filedialog() }),
- gtksignal_connect(new Gtk::Button(N("Remove Selected")), clicked => \&list_remove, $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 Gtk::CheckButton(N("Use Incremental Backups (do not replace old backups)") ), 0),
+ 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]);
@@ -1656,85 +1652,77 @@ sub advanced_what_other {
$up_box->show_all();
}
-sub advanced_what_entire_sys{
+sub advanced_what_entire_sys {
my $box_what;
- my ($pix_user_map, $pix_user_mask) = gtkcreate_png("user");
- my ($pix_other_map, $pix_other_mask) = gtkcreate_png("net_u");
- my ($pix_sys_map, $pix_sys_mask) = gtkcreate_png("bootloader");
-
gtkpack($advanced_box,
- $box_what = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack_(new Gtk::VBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtksignal_connect(my $button_what_other = new Gtk::Button(),
+ $box_what = 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, gtksignal_connect(my $button_what_other = new Gtk2::Button(),
clicked => sub { ${$central_widget}->destroy(); message_underdevel() }),
- 1, gtksignal_connect(my $button_what_all = new Gtk::Button(),
+ 1, gtksignal_connect(my $button_what_all = new Gtk2::Button(),
clicked => sub { ${$central_widget}->destroy(); message_underdevel() }),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
- $button_what_other->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_sys_map, $pix_sys_mask),
- new Gtk::Label(N("Linux")),
- new Gtk::HBox(0, 5)
+ $button_what_other->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("bootloader"),
+ new Gtk2::Label(N("Linux")),
+ new Gtk2::HBox(0, 5)
));
- $button_what_all->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_user_map, $pix_user_mask),
- new Gtk::Label(N("Windows (FAT32)")),
- new Gtk::HBox(0, 5)
+ $button_what_all->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("user"),
+ new Gtk2::Label(N("Windows (FAT32)")),
+ new Gtk2::HBox(0, 5)
));
fonction_env(\$box_what, \&advanced_what_entire_sys, \&advanced_what, "");
$up_box->show_all();
}
-sub advanced_what{
+sub advanced_what {
my $box_what;
- my ($pix_user_map, $pix_user_mask) = gtkcreate_png("ic82-users-40");
- my ($pix_other_map, $pix_other_mask) = gtkcreate_png("ic82-others-40");
- my ($pix_sys_map, $pix_sys_mask) = gtkcreate_png("ic82-system-40");
- my ($pix_sysp_map, $pix_sysp_mask) = gtkcreate_png("ic82-systemeplus-40");
gtkpack($advanced_box,
- $box_what = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack_(new Gtk::VBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtksignal_connect(my $button_what_sys = new Gtk::Button(),
+ $box_what = 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, gtksignal_connect(my $button_what_sys = new Gtk2::Button(),
clicked => sub { $box_what->destroy(); advanced_what_sys() }),
- 1, gtksignal_connect(my $button_what_user = new Gtk::Button(),
+ 1, gtksignal_connect(my $button_what_user = new Gtk2::Button(),
clicked => sub { ${$central_widget}->destroy(); advanced_what_user() }),
- 1, gtksignal_connect(my $button_what_other = new Gtk::Button(),
+ 1, gtksignal_connect(my $button_what_other = new Gtk2::Button(),
clicked => sub { ${$central_widget}->destroy(); advanced_what_other() }),
-# 1, gtksignal_connect(my $button_what_all = new Gtk::Button(),
+# 1, gtksignal_connect(my $button_what_all = new Gtk2::Button(),
# clicked => sub { ${$central_widget}->destroy(); advanced_what_entire_sys(); }),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
- $button_what_sys->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_sys_map, $pix_sys_mask),
- new Gtk::Label(N("System")),
- new Gtk::HBox(0, 5)
+ $button_what_sys->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-system-40"),
+ new Gtk2::Label(N("System")),
+ new Gtk2::HBox(0, 5)
));
- $button_what_user->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_user_map, $pix_user_mask),
- new Gtk::Label(N("Users")),
- new Gtk::HBox(0, 5)
+ $button_what_user->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-users-40"),
+ new Gtk2::Label(N("Users")),
+ new Gtk2::HBox(0, 5)
));
- $button_what_other->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_other_map, $pix_other_mask),
- new Gtk::Label(N("Other")),
- new Gtk::HBox(0, 5)
+ $button_what_other->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-others-40"),
+ new Gtk2::Label(N("Other")),
+ new Gtk2::HBox(0, 5)
));
-# $button_what_all->add(gtkpack(new Gtk::HBox(0,10),
-# new Gtk::Pixmap($pix_sysp_map, $pix_sysp_mask),
-# new Gtk::Label(N("An Entire System")),
-# new Gtk::HBox(0, 5)
+# $button_what_all->add(gtkpack(new Gtk2::HBox(0,10),
+# gtkcreate_img("ic82-systemeplus-40"),
+# new Gtk2::Label(N("An Entire System")),
+# new Gtk2::HBox(0, 5)
# ));
fonction_env(\$box_what, \&advanced_what, \&advanced_box, "");
@@ -1746,44 +1734,44 @@ sub advanced_where_net_types {
my $box_where_net;
gtkpack($advanced_box,
- $box_where_net = gtkpack_(new Gtk::VBox(0, 10),
- 0, new Gtk::HSeparator,
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, my $check_where_use_net = new Gtk::CheckButton(N("Use network connection to backup") ),
- 1, new Gtk::HBox(0,10),
- 0, new Gtk::Label(N("Net Method:")),
- 0, gtkset_sensitive(my $entry_net_type = new Gtk::Combo(), $where_net),
+ $box_where_net = gtkpack_(new Gtk2::VBox(0, 10),
+ 0, new Gtk2::HSeparator,
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, my $check_where_use_net = new Gtk2::CheckButton(N("Use network connection to backup")),
+ 1, new Gtk2::HBox(0,10),
+ 0, new Gtk2::Label(N("Net Method:")),
+ 0, gtkset_sensitive(my $entry_net_type = new Gtk2::Combo(), $where_net),
),
- 0, gtkpack_(new Gtk::HBox(0,5),
- 0, gtkset_sensitive(my $check_use_expect = new Gtk::CheckButton(N("Use Expect for SSH")), ($where_net && ($net_proto eq 'ssh'))),
- 0, gtkset_sensitive(my $check_xfer_keys = new Gtk::CheckButton(N("Create/Transfer\nbackup keys for SSH")), ($where_net && ($net_proto eq 'ssh'))),
- 0, gtkset_sensitive(my $button_xfer_keys = new Gtk::Button(N(" Transfer \nNow")), $xfer_keys),
- 0, gtkset_sensitive(my $check_user_keys = new Gtk::CheckButton(N("Other (not drakbackup)\nkeys in place already")), ($where_net && ($net_proto eq 'ssh'))),
+ 0, gtkpack_(new Gtk2::HBox(0,5),
+ 0, gtkset_sensitive(my $check_use_expect = new Gtk2::CheckButton(N("Use Expect for SSH")), ($where_net && $net_proto eq 'ssh')),
+ 0, gtkset_sensitive(my $check_xfer_keys = new Gtk2::CheckButton(N("Create/Transfer\nbackup keys for SSH")), ($where_net && $net_proto eq 'ssh')),
+ 0, gtkset_sensitive(my $button_xfer_keys = new Gtk2::Button(N(" Transfer \nNow")), $xfer_keys),
+ 0, gtkset_sensitive(my $check_user_keys = new Gtk2::CheckButton(N("Other (not drakbackup)\nkeys in place already")), ($where_net && $net_proto eq 'ssh')),
),
- 0, new Gtk::HSeparator,
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter the host name or IP.")), $where_net),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $host_name_entry = new Gtk::Entry(), $where_net),
+ 0, new Gtk2::HSeparator,
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the host name or IP.")), $where_net),
+ 1, new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(my $host_name_entry = new Gtk2::Entry(), $where_net),
),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter the directory (or module) to\n put the backup on this host.")), $where_net),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $host_path_entry = new Gtk::Entry(), $where_net),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the directory (or module) to\n put the backup on this host.")), $where_net),
+ 1, new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(my $host_path_entry = new Gtk2::Entry(), $where_net),
),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter your login")), $where_net),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $login_user_entry = new Gtk::Entry(), $where_net),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter your login")), $where_net),
+ 1, new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(my $login_user_entry = new Gtk2::Entry(), $where_net),
),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter your password")), $where_net),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $passwd_user_entry = new Gtk::Entry(), $where_net),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter your password")), $where_net),
+ 1, new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(my $passwd_user_entry = new Gtk2::Entry(), $where_net),
),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $check_remember_pass = new Gtk::CheckButton(N("Remember this password")), $where_net),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 1, new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(my $check_remember_pass = new Gtk2::CheckButton(N("Remember this password")), $where_net),
),
),
);
@@ -1794,7 +1782,7 @@ sub advanced_where_net_types {
if ($passwd_user && $login_user && $host_name) {
do_expect("sendkey", $backup_key);
} else {
- $in->ask_warn('',N("Need hostname, username and password!"));
+ $in->ask_warn('', N("Need hostname, username and password!"));
}
});
$passwd_user_entry->set_visibility(0);
@@ -1815,7 +1803,7 @@ sub advanced_where_net_types {
$button_xfer_keys->set_sensitive($sensitive);
$check_user_keys->set_sensitive($sensitive);
});
- check_list ([$check_remember_pass, \$remember_pass]);
+ check_list([$check_remember_pass, \$remember_pass]);
gtksignal_connect(gtkset_active($check_where_use_net, $where_net), toggled => sub {
invbool \$where_net;
#- assure other methods disabled
@@ -1871,80 +1859,79 @@ sub advanced_where_cd {
get_cd_info();
- my $combo_where_cd_device = new Gtk::Combo();
- $combo_where_cd_device->set_popdown_strings (sort keys %cd_devices) if keys %cd_devices;
+ my $combo_where_cd_device = new Gtk2::Combo();
+ $combo_where_cd_device->set_popdown_strings(sort keys %cd_devices) if keys %cd_devices;
- my $combo_where_cd_time = new Gtk::Combo();
- $combo_where_cd_time->set_popdown_strings ("650 Mb","700 Mb", "750 Mb", "800 Mb");
+ my $combo_where_cd_time = new Gtk2::Combo();
+ $combo_where_cd_time->set_popdown_strings("650 Mb", "700 Mb", "750 Mb", "800 Mb");
- my $combo_where_cdrecord_device = new Gtk::Combo();
+ my $combo_where_cdrecord_device = new Gtk2::Combo();
my @dev_codes;
- my $key;
- foreach $key (keys %cd_devices) {
+ foreach my $key (keys %cd_devices) {
push(@dev_codes, $cd_devices{$key}{rec_dev});
}
- $combo_where_cdrecord_device->set_popdown_strings (@dev_codes) if keys %cd_devices;
+ $combo_where_cdrecord_device->set_popdown_strings(@dev_codes) if keys %cd_devices;
gtkpack($advanced_box,
- $box_where_cd = gtkpack_(new Gtk::VBox(0, 6),
- 0, my $check_where_cd = new Gtk::CheckButton(N("Use CD/DVDROM to backup")),
- 0, new Gtk::HSeparator,
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please choose your CD/DVD device\n(Press Enter to propogate settings to other fields.\nThis field isn't necessary, only a tool to fill in the form.)")), $where_cd),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(gtkset_usize ($combo_where_cd_device, 200, 20), $where_cd),
+ $box_where_cd = gtkpack_(new Gtk2::VBox(0, 6),
+ 0, my $check_where_cd = new Gtk2::CheckButton(N("Use CD/DVDROM to backup")),
+ 0, new Gtk2::HSeparator,
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please choose your CD/DVD device\n(Press Enter to propogate settings to other fields.\nThis field isn't necessary, only a tool to fill in the form.)")), $where_cd),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(gtkset_size_request ($combo_where_cd_device, 200, 20), $where_cd),
),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please choose your CD/DVD media size (Mb)")), $where_cd),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(gtkset_usize ($combo_where_cd_time, 200, 20), $where_cd),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please choose your CD/DVD media size (Mb)")), $where_cd),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(gtkset_size_request ($combo_where_cd_time, 200, 20), $where_cd),
),
- 0, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please check for multisession CD")), $where_cd),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(my $check_multisession = new Gtk::CheckButton(), $where_cd),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please check for multisession CD")), $where_cd),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_multisession = new Gtk2::CheckButton(), $where_cd),
),
- 0, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please check if you are using CDRW media")), $where_cd),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(my $check_cdrw = new Gtk::CheckButton(), $where_cd),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please check if you are using CDRW media")), $where_cd),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_cdrw = new Gtk2::CheckButton(), $where_cd),
),
- 0, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please check if you want to erase your RW media (1st Session)")), $cdrw && $where_cd),
- 0, gtkset_sensitive(my $button_erase_now = new Gtk::Button(N(" Erase Now ")), $cdrw),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(my $check_cdrw_erase = new Gtk::CheckButton(), $cdrw && $where_cd),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please check if you want to erase your RW media (1st Session)")), $cdrw && $where_cd),
+ 0, gtkset_sensitive(my $button_erase_now = new Gtk2::Button(N(" Erase Now ")), $cdrw),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_cdrw_erase = new Gtk2::CheckButton(), $cdrw && $where_cd),
),
- 0, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please check if you are using a DVDR device")), $where_cd),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(my $check_dvdr = new Gtk::CheckButton(), $where_cd),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please check if you are using a DVDR device")), $where_cd),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_dvdr = new Gtk2::CheckButton(), $where_cd),
),
- 0, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please check if you are using a DVDRAM device")), $where_cd),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(my $check_dvdram = new Gtk::CheckButton(), $where_cd),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please check if you are using a DVDRAM device")), $where_cd),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_dvdram = new Gtk2::CheckButton(), $where_cd),
),
# don't know what this is about - hold off for now (SB)
-# 0, new Gtk::VBox(0, 5),
-# 0, gtkpack_(new Gtk::HBox(0,10),
-# 0, gtkset_sensitive(new Gtk::Label(N("Please check if you want to include\n install boot on your CD.")), $where_cd),
-# 1, new Gtk::VBox(0, 5),
-# 0, gtkset_sensitive(my $check_cd_with_install_boot = new Gtk::CheckButton(), $where_cd),
+# 0, new Gtk2::VBox(0, 5),
+# 0, gtkpack_(new Gtk2::HBox(0,10),
+# 0, gtkset_sensitive(new Gtk2::Label(N("Please check if you want to include\n install boot on your CD.")), $where_cd),
+# 1, new Gtk2::VBox(0, 5),
+# 0, gtkset_sensitive(my $check_cd_with_install_boot = new Gtk2::CheckButton(), $where_cd),
# ),
- 0, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter your CD Writer device name\n ex: 0,1,0")), $where_cd),
- 1, new Gtk::VBox(0, 5),
-# 0, gtkset_usize (gtkset_sensitive($cd_device_entry = new Gtk::Entry(), $where_cd), 200, 20),
- 0, gtkset_sensitive(gtkset_usize ($combo_where_cdrecord_device, 200, 20), $where_cd),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter your CD Writer device name\n ex: 0,1,0")), $where_cd),
+ 1, new Gtk2::VBox(0, 5),
+# 0, gtkset_size_request (gtkset_sensitive($cd_device_entry = new Gtk2::Entry(), $where_cd), 200, 20),
+ 0, gtkset_sensitive(gtkset_size_request ($combo_where_cdrecord_device, 200, 20), $where_cd),
),
),
);
@@ -1974,7 +1961,7 @@ sub advanced_where_cd {
if ($cd_device) {
erase_cdrw();
} else {
- $in->ask_warn('',N("No CD device defined!"));
+ $in->ask_warn('', N("No CD device defined!"));
}
});
$combo_where_cdrecord_device->entry->set_text($cd_device);
@@ -2011,49 +1998,49 @@ sub advanced_where_tape {
#- look for tape devices;
get_tape_info();
- my $combo_where_tape_device = new Gtk::Combo();
- $combo_where_tape_device->set_popdown_strings (@tape_devices) if @tape_devices;
+ my $combo_where_tape_device = new Gtk2::Combo();
+ $combo_where_tape_device->set_popdown_strings(@tape_devices) if @tape_devices;
my $box_where_tape;
my $button;
- my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
- #my ($pix_fs_map, $pix_fs_mask) = gtkcreate_png("filedialog");
+ 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");
gtkpack($advanced_box,
- $box_where_tape = gtkpack_(new Gtk::VBox(0, 6),
- 0, new Gtk::HSeparator,
- 0, my $check_where_tape = new Gtk::CheckButton(N("Use tape to backup") ),
- 0, new Gtk::HSeparator,
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter the device name to use for backup")), $where_tape),
- 1, new Gtk::VBox(0, 6),
- 0, gtkset_sensitive(gtkset_usize ($combo_where_tape_device, 200, 20), $where_tape),
+ $box_where_tape = gtkpack_(new Gtk2::VBox(0, 6),
+ 0, new Gtk2::HSeparator,
+ 0, my $check_where_tape = new Gtk2::CheckButton(N("Use tape to backup")),
+ 0, new Gtk2::HSeparator,
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the device name to use for backup")), $where_tape),
+ 1, new Gtk2::VBox(0, 6),
+ 0, gtkset_sensitive(gtkset_size_request ($combo_where_tape_device, 200, 20), $where_tape),
),
- 0, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please check if you want to use the non-rewinding device.")), $where_tape),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(my $check_tape_rewind = new Gtk::CheckButton(), $where_tape),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please check if you want to use the non-rewinding device.")), $where_tape),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_tape_rewind = new Gtk2::CheckButton(), $where_tape),
),
- 0, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please check if you want to erase your tape before the backup.")), $where_tape),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(my $check_tape_erase = new Gtk::CheckButton(), $where_tape),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please check if you want to erase your tape before the backup.")), $where_tape),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_tape_erase = new Gtk2::CheckButton(), $where_tape),
),
- 0, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please check if you want to eject your tape after the backup.")), $where_tape),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(my $check_tape_eject = new Gtk::CheckButton(), $where_tape),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please check if you want to eject your tape after the backup.")), $where_tape),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_tape_eject = new Gtk2::CheckButton(), $where_tape),
),
- 0, new Gtk::VBox(0, 6),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter the maximum size\n allowed for Drakbackup")), $where_tape),
- 1, new Gtk::VBox(0, 6),
- 0, gtkset_usize (gtkset_sensitive(my $spinner = new Gtk::SpinButton($adj, 0, 0), $where_tape), 200, 20),
+ 0, new Gtk2::VBox(0, 6),
+ 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, gtkpack_(new Gtk::HBox(0,10),),
+ 0, gtkpack_(new Gtk2::HBox(0,10),),
),
);
gtksignal_connect(gtkset_active($check_where_tape, $where_tape), toggled => sub {
@@ -2105,32 +2092,31 @@ sub advanced_where_hd {
my ($previous_function) = @_,
my $box_where_hd;
my $button;
- my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
- my ($pix_fs_map, $pix_fs_mask) = gtkcreate_png("ic82-dossier-32");
+ my $adj = new Gtk2::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
gtkpack($advanced_box,
- $box_where_hd = gtkpack_(new Gtk::VBox(0, 6),
- 0, new Gtk::HSeparator,
-# 0, my $check_where_hd = new Gtk::CheckButton( N("Use Hard Disk to backup") ),
-# 0, new Gtk::HSeparator,
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter the directory to save to:")), $where_hd),
- 1, new Gtk::VBox(0, 6),
- 0, gtkset_usize (gtkset_sensitive($save_path_entry = new Gtk::Entry(), $where_hd), 152, 20),
- 0, gtkset_sensitive($button = gtksignal_connect(new Gtk::Button(), clicked => sub {
+ $box_where_hd = gtkpack_(new Gtk2::VBox(0, 6),
+ 0, new Gtk2::HSeparator,
+# 0, my $check_where_hd = new Gtk2::CheckButton( N("Use Hard Disk to backup")),
+# 0, new Gtk2::HSeparator,
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the directory to save to:")), $where_hd),
+ 1, new Gtk2::VBox(0, 6),
+ 0, gtkset_size_request (gtkset_sensitive($save_path_entry = new Gtk2::Entry(), $where_hd), 152, 20),
+ 0, gtkset_sensitive($button = gtksignal_connect(new Gtk2::Button(), clicked => sub {
filedialog_where_hd()
}), $where_hd),
),
- 0, new Gtk::VBox(0, 6),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter the maximum size\n allowed for Drakbackup")), $where_hd),
- 1, new Gtk::VBox(0, 6),
- 0, gtkset_usize (gtkset_sensitive(my $spinner = new Gtk::SpinButton($adj, 0, 0), $where_hd), 200, 20),
+ 0, new Gtk2::VBox(0, 6),
+ 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, gtkpack_(new Gtk::HBox(0,10),
- 1, new Gtk::VBox(0, 6),
- 0, gtkset_sensitive(my $check_where_hd_quota = new Gtk::CheckButton(N("Use quota for backup files.")), $where_hd),
- 0, new Gtk::VBox(0, 6),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 1, new Gtk2::VBox(0, 6),
+ 0, gtkset_sensitive(my $check_where_hd_quota = new Gtk2::CheckButton(N("Use quota for backup files.")), $where_hd),
+ 0, new Gtk2::VBox(0, 6),
),
),
);
@@ -2144,7 +2130,7 @@ sub advanced_where_hd {
# ${$central_widget}->destroy();
# $current_widget->();
# });
- $button->add(gtkpack(new Gtk::HBox(0,10), new Gtk::Pixmap($pix_fs_map, $pix_fs_mask)));
+ $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() });
if ($previous_function) {
@@ -2155,23 +2141,19 @@ sub advanced_where_hd {
$up_box->show_all();
}
-sub advanced_where{
+sub advanced_where {
my $box_where;
- my ($pix_net_map, $pix_net_mask) = gtkcreate_png("ic82-network-40");
- my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("ic82-CD-40");
- my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("ic82-discdurwhat-40");
- my ($pix_tape_map, $pix_tape_mask) = gtkcreate_png("ic82-tape-40");
gtkpack($advanced_box,
- $box_where = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack_(new Gtk::VBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtksignal_connect(my $button_where_net = new Gtk::Button(), clicked => sub {
+ $box_where = 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, gtksignal_connect(my $button_where_net = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy();
advanced_where_net_types();
}),
- 1, gtksignal_connect(my $button_where_cd = new Gtk::Button(), clicked => sub {
+ 1, gtksignal_connect(my $button_where_cd = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy();
if (require_rpm("mkisofs", "cdrecord")) {
advanced_where_cd();
@@ -2180,38 +2162,38 @@ sub advanced_where{
install_rpm(\&advanced_where);
}
}),
- 1, gtksignal_connect(my $button_where_hd = new Gtk::Button(), clicked => sub {
+ 1, gtksignal_connect(my $button_where_hd = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy();
advanced_where_hd();
}),
- 1, gtksignal_connect(my $button_where_tape = new Gtk::Button(), clicked => sub {
+ 1, gtksignal_connect(my $button_where_tape = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy();
# message_underdevel();
advanced_where_tape() }),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
- $button_where_net->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_net_map, $pix_net_mask),
- new Gtk::Label(N("Network")),
- new Gtk::HBox(0, 5)
+ $button_where_net->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-network-40"),
+ new Gtk2::Label(N("Network")),
+ new Gtk2::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(N("CDROM / DVDROM")),
- new Gtk::HBox(0, 5)
+ $button_where_cd->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-CD-40"),
+ new Gtk2::Label(N("CDROM / DVDROM")),
+ new Gtk2::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(N("HardDrive / NFS")),
- new Gtk::HBox(0, 5)
+ $button_where_hd->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-discdurwhat-40"),
+ new Gtk2::Label(N("HardDrive / NFS")),
+ new Gtk2::HBox(0, 5)
));
- $button_where_tape->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_tape_map, $pix_tape_mask),
- new Gtk::Label(N("Tape")),
- new Gtk::HBox(0, 5)
+ $button_where_tape->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-tape-40"),
+ new Gtk2::Label(N("Tape")),
+ new Gtk2::HBox(0, 5)
));
fonction_env(\$box_where, \&advanced_where, \&advanced_box, "");
$up_box->show_all();
@@ -2219,11 +2201,10 @@ sub advanced_where{
#- 7/7/2002 - S.Benedict reworked when - drop all the checkboxes and use a list
#- chances that we want to do backups via multiple medias in cron are slim
-sub advanced_when{
+sub advanced_when {
my $box_when;
# $daemon_media = '';
- my ($pix_time_map, $pix_time_mask) = gtkcreate_png("ic82-when-40");
- my $combo_when_space = new Gtk::Combo();
+ my $combo_when_space = new Gtk2::Combo();
my %trans = (N("hourly") => 'hourly',
N("daily") => 'daily',
N("weekly") => 'weekly',
@@ -2232,38 +2213,38 @@ sub advanced_when{
'daily' => N("daily"),
'weekly' => N("weekly"),
'monthly' => N("monthly"));
- $combo_when_space->set_popdown_strings (N("hourly"),N("daily"),N("weekly"),N("monthly"));
+ $combo_when_space->set_popdown_strings(N("hourly"), N("daily"), N("weekly"), N("monthly"));
#- drop down list of possible medias - default to config value
- my $entry_media_type = new Gtk::Combo();
+ my $entry_media_type = new Gtk2::Combo();
$entry_media_type->set_popdown_strings(@media_types, @net_methods);
# $entry_media_type->set_value_in_list(1, 0);
$entry_media_type->entry->set_text($daemon_media);
gtkpack($advanced_box,
- $box_when = gtkpack_(new Gtk::VBox(0, 15),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 1, new Gtk::HBox(0,10),
- 1, new Gtk::Pixmap($pix_time_map, $pix_time_mask),
- 0, my $check_when_daemon = new Gtk::CheckButton(N("Use daemon") ),
- 1, new Gtk::HBox(0,10),
+ $box_when = gtkpack_(new Gtk2::VBox(0, 15),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 1, new Gtk2::HBox(0,10),
+ 1, gtkcreate_img("ic82-when-40"),
+ 0, my $check_when_daemon = new Gtk2::CheckButton(N("Use daemon")),
+ 1, new Gtk2::HBox(0,10),
),
- 0, new Gtk::HSeparator,
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please choose the time \ninterval between each backup")), $backup_daemon),
- 1, new Gtk::HBox(0,10),
+ 0, new Gtk2::HSeparator,
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please choose the time \ninterval between each backup")), $backup_daemon),
+ 1, new Gtk2::HBox(0,10),
0, gtkset_sensitive($combo_when_space, $backup_daemon),
),
- 0, new Gtk::HBox(0,10),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please choose the\nmedia for backup.")), $backup_daemon),
- 1, new Gtk::HBox(0,10),
- 0, gtkpack_(new Gtk::VBox(0,10),
+ 0, new Gtk2::HBox(0,10),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please choose the\nmedia for backup.")), $backup_daemon),
+ 1, new Gtk2::HBox(0,10),
+ 0, gtkpack_(new Gtk2::VBox(0,10),
0, gtkset_sensitive($entry_media_type, $backup_daemon),
),
),
- 0, new Gtk::HSeparator,
- 1, gtkset_sensitive(new Gtk::Label(N("Please be sure that the cron daemon is included in your services.
+ 0, new Gtk2::HSeparator,
+ 1, gtkset_sensitive(new Gtk2::Label(N("Please be sure that the cron daemon is included in your services.
\nNote that currently all 'net' medias also use the hard drive.")), $backup_daemon),
),
);
@@ -2282,31 +2263,30 @@ sub advanced_when{
$up_box->show_all();
}
-sub advanced_options{
+sub advanced_options {
my $box_options;
- my ($pix_options_map, $pix_options_mask) = gtkcreate_png("ic82-moreoption-40");
gtkpack($advanced_box,
- $box_options = gtkpack_(new Gtk::VBox(0, 15),
-# 0, gtkpack_(new Gtk::HBox(0,10),
-# 1, new Gtk::VBox(0,10),
-# 1, new Gtk::Pixmap($pix_options_map, $pix_options_mask),
+ $box_options = gtkpack_(new Gtk2::VBox(0, 15),
+# 0, gtkpack_(new Gtk2::HBox(0,10),
+# 1, new Gtk2::VBox(0,10),
+# 1, gtkcreate_img("ic82-moreoption-40"),
# 1, N("Please choose correct options to backup."),
-# 1, new Gtk::VBox(0,10),
+# 1, new Gtk2::VBox(0,10),
# ),
-# 0, new Gtk::HSeparator,
-# 0, gtkpack_(new Gtk::VBox(0,10),
-# 0, gtkset_sensitive(my $check_tar_bz2 = new Gtk::CheckButton( N("Use Tar and bzip2 (very slow) [Please be careful if you\n (un)select this option, as all your old backups will be deleted.]") ), 0),
-# 0, gtkset_sensitive(my $check_backupignore = new Gtk::CheckButton( N("Use .backupignore files")), 0),
- 0, new Gtk::VBox(0,10),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, my $check_mail = new Gtk::CheckButton(N("Send mail report after each backup to:")),
- 1, new Gtk::HBox(0,10),
- 0, my $mail_entry = new Gtk::Entry(),
+# 0, new Gtk2::HSeparator,
+# 0, gtkpack_(new Gtk2::VBox(0,10),
+# 0, gtkset_sensitive(my $check_tar_bz2 = new Gtk2::CheckButton( N("Use Tar and bzip2 (very slow) [Please be careful if you\n (un)select this option, as all your old backups will be deleted.]")), 0),
+# 0, gtkset_sensitive(my $check_backupignore = new Gtk2::CheckButton( N("Use .backupignore files")), 0),
+ 0, new Gtk2::VBox(0,10),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, my $check_mail = new Gtk2::CheckButton(N("Send mail report after each backup to:")),
+ 1, new Gtk2::HBox(0,10),
+ 0, my $mail_entry = new Gtk2::Entry(),
),
# ),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, my $check_del_hd_files = new Gtk::CheckButton(N("Delete Hard Drive tar files after backup to other media.")),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, my $check_del_hd_files = new Gtk2::CheckButton(N("Delete Hard Drive tar files after backup to other media.")),
),
),
);
@@ -2318,50 +2298,46 @@ sub advanced_options{
$up_box->show_all();
}
-sub advanced_box{
+sub advanced_box {
my $box_adv;
- my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("ic82-discdurwhat-40");
- my ($pix_time_map, $pix_time_mask) = gtkcreate_png("ic82-when-40");
- my ($pix_net_map, $pix_net_mask) = gtkcreate_png("ic82-where-40");
- my ($pix_options_map, $pix_options_mask) = gtkcreate_png("ic82-moreoption-40");
gtkpack($advanced_box,
- $box_adv = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack_(new Gtk::VBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtksignal_connect(my $button_what = new Gtk::Button(), clicked => sub {
+ $box_adv = 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, gtksignal_connect(my $button_what = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy(); advanced_what() }),
- 1, gtksignal_connect(my $button_where = new Gtk::Button(), clicked => sub {
+ 1, gtksignal_connect(my $button_where = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy(); advanced_where() }),
- 1, gtksignal_connect(my $button_when = new Gtk::Button(), clicked => sub {
+ 1, gtksignal_connect(my $button_when = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy(); advanced_when() }),
- 1, gtksignal_connect(my $button_options = new Gtk::Button(), clicked => sub {
+ 1, gtksignal_connect(my $button_options = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy(); advanced_options() }),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
- $button_what->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
- new Gtk::Label(N("What")),
- new Gtk::HBox(0, 5)
+ $button_what->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-discdurwhat-40"),
+ new Gtk2::Label(N("What")),
+ new Gtk2::HBox(0, 5)
));
- $button_where->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_net_map, $pix_net_mask),
- new Gtk::Label(N("Where")),
- new Gtk::HBox(0, 5)
+ $button_where->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-where-40"),
+ new Gtk2::Label(N("Where")),
+ new Gtk2::HBox(0, 5)
));
- $button_when->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_time_map, $pix_time_mask),
- new Gtk::Label(N("When")),
- new Gtk::HBox(0, 5)
+ $button_when->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-when-40"),
+ new Gtk2::Label(N("When")),
+ new Gtk2::HBox(0, 5)
));
- $button_options->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_options_map, $pix_options_mask),
- new Gtk::Label(N("More Options")),
- new Gtk::HBox(0, 5)
+ $button_options->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-moreoption-40"),
+ new Gtk2::Label(N("More Options")),
+ new Gtk2::HBox(0, 5)
));
fonction_env(\$box_adv, \&advanced_box, \&interactive_mode_box, "");
$up_box->show_all();
@@ -2371,16 +2347,16 @@ sub advanced_box{
sub wizard_step3 {
my $box2;
- my $text = new Gtk::Text(undef, undef);
+ my $text = new Gtk2::TextView;
system_state();
- gtktext_insert($text, $system_state);
+ gtktext_insert($text, [ [ $system_state ] ]);
button_box_restore_main();
gtkpack($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, gtkpack_(new Gtk::VBox(0,10),
+ $box2 = gtkpack_(new Gtk2::HBox(0, 15),
+ 1, gtkpack_(new Gtk2::VBox(0,10),
0, N("Drakbackup Configuration"),
- 1, createScrolledWindow($text),
+ 1, create_scrolled_window($text),
),
),
);
@@ -2393,50 +2369,50 @@ sub wizard_step2 {
my $box2;
gtkpack($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack_(new Gtk::VBox(0, 15),
- 1, new Gtk::VBox(0, 5),
+ $box2 = 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),
0, N("Please choose where you want to backup"),
- 0, gtkpack_(new Gtk::HBox(0, 15),
- 0, my $check_wizard_hd = new Gtk::CheckButton(N("on Hard Drive")),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(N("Configure")), clicked => sub {
+ 0, gtkpack_(new Gtk2::HBox(0, 15),
+ 0, my $check_wizard_hd = new Gtk2::CheckButton(N("on Hard Drive")),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("Configure")), clicked => sub {
${$central_widget}->destroy();
to_ok();
advanced_where_hd(\&wizard_step2);
to_normal();
}), $where_hd),
),
- 0, gtkpack_(new Gtk::HBox(0, 15),
- 0, my $check_wizard_net = new Gtk::CheckButton(N("across Network")),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(N("Configure")), clicked => sub {
+ 0, gtkpack_(new Gtk2::HBox(0, 15),
+ 0, my $check_wizard_net = new Gtk2::CheckButton(N("across Network")),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("Configure")), clicked => sub {
${$central_widget}->destroy();
to_ok();
advanced_where_net_types(\&wizard_step2);
to_normal();
}), $where_net),
),
- 0, gtkpack_(new Gtk::HBox(0, 15),
- 0, my $check_wizard_cd = new Gtk::CheckButton(N("on CDROM")),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(N("Configure")), clicked => sub {
+ 0, gtkpack_(new Gtk2::HBox(0, 15),
+ 0, my $check_wizard_cd = new Gtk2::CheckButton(N("on CDROM")),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("Configure")), clicked => sub {
${$central_widget}->destroy();
advanced_where_cd(\&wizard_step2);
}), $where_cd),
),
- 0, gtkpack_(new Gtk::HBox(0, 15),
- 0, my $check_wizard_tape = new Gtk::CheckButton(N("on Tape Device")),
- 1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(N("Configure")), clicked => sub {
+ 0, gtkpack_(new Gtk2::HBox(0, 15),
+ 0, my $check_wizard_tape = new Gtk2::CheckButton(N("on Tape Device")),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("Configure")), clicked => sub {
${$central_widget}->destroy();
advanced_where_tape(\&wizard_step2);
}), $where_tape),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
foreach ([$check_wizard_hd, \$where_hd],
@@ -2466,23 +2442,23 @@ sub wizard {
my $box2;
gtkpack($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack_(new Gtk::VBox(0, 15),
- 1, new Gtk::VBox(0, 5),
+ $box2 = 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),
0, N("Please choose what you want to backup"),
- 0, my $check_wizard_sys = new Gtk::CheckButton(N("Backup system")),
- 0, my $check_wizard_user = new Gtk::CheckButton(N("Backup Users")),
- 0, gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 0, gtksignal_connect(new Gtk::Button(N("Select user manually")), clicked => sub {
+ 0, my $check_wizard_sys = new Gtk2::CheckButton(N("Backup system")),
+ 0, my $check_wizard_user = new Gtk2::CheckButton(N("Backup Users")),
+ 0, gtkpack_(new Gtk2::HBox(0, 15),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtksignal_connect(new Gtk2::Button(N("Select user manually")), clicked => sub {
${$central_widget}->destroy();
advanced_what_user(\&wizard);
}),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
foreach ([$check_wizard_sys, \$backup_sys], [$check_wizard_user, \$backup_user]) {
@@ -2555,7 +2531,7 @@ sub find_backup_to_restore {
}
sub system_state {
- $system_state = ();
+ $system_state;
if ($cfg_file_exist) {
$system_state .= N("\nBackup Sources: \n");
@@ -2567,20 +2543,20 @@ sub system_state {
@list_other and $system_state .= "\t\t$_\n" foreach @list_other;
$where_hd and $system_state .= N("\n- Save on Hard drive on path: %s\n", $save_path);
- if (($del_hd_files) && (($where_cd) || ($where_tape) || ($where_net)) && ($daemon_media ne 'hd')) {
+ if ($del_hd_files && ($where_cd || $where_tape || $where_net) && $daemon_media ne 'hd') {
$system_state .= N("\n- Delete hard drive tar files after backup.\n");
}
#- tape and CDRW share some features
my $erase_media = 'NO';
- $erase_media = 'YES' if ($media_erase) && ($where_cd || $where_tape);
+ $erase_media = 'YES' if $media_erase && ($where_cd || $where_tape);
$where_cd and $system_state .= N("\n- Burn to CD");
$where_cd and $cdrw and $system_state .= N("RW");
$where_cd and $system_state .= N(" on device: %s", $cd_device);
$where_cd and $multi_session and $system_state .= N(" (multi-session)");
$where_tape and $system_state .= N("\n- Save to Tape on device: %s", $tape_device);
(($where_cd || $where_tape) && $media_erase) and $system_state .= N("\t\tErase=%s", $erase_media);
- ($where_cd || $where_tape) and $system_state .= "\n";
+ $where_cd || $where_tape and $system_state .= "\n";
$where_net and $system_state .= N("\n- Save via %s on host: %s\n", $net_proto, $host_name);
$where_net and $system_state .= N("\t\t user name: %s\n\t\t on path: %s \n", $login_user, $host_path);
@@ -2594,13 +2570,13 @@ sub system_state {
}
$daemon_media and $system_state .= N("\n- Daemon (%s) include:\n", $when_space);
- ($daemon_media eq 'hd') and $system_state .= N("\t-Hard drive.\n");
- ($daemon_media eq 'cd') and $system_state .= N("\t-CDROM.\n");
- ($daemon_media eq 'tape') and $system_state .= N("\t-Tape \n");
- ($daemon_media eq 'ftp') and $system_state .= N("\t-Network by FTP.\n");
- ($daemon_media eq 'ssh') and $system_state .= N("\t-Network by SSH.\n");
- ($daemon_media eq 'rsync') and $system_state .= N("\t-Network by rsync.\n");
- ($daemon_media eq 'webdav') and $system_state .= N("\t-Network by webdav.\n");
+ $daemon_media eq 'hd' and $system_state .= N("\t-Hard drive.\n");
+ $daemon_media eq 'cd' and $system_state .= N("\t-CDROM.\n");
+ $daemon_media eq 'tape' and $system_state .= N("\t-Tape \n");
+ $daemon_media eq 'ftp' and $system_state .= N("\t-Network by FTP.\n");
+ $daemon_media eq 'ssh' and $system_state .= N("\t-Network by SSH.\n");
+ $daemon_media eq 'rsync' and $system_state .= N("\t-Network by rsync.\n");
+ $daemon_media eq 'webdav' and $system_state .= N("\t-Network by webdav.\n");
} else {
$system_state = N("No configuration, please click Wizard or Advanced.\n");
}
@@ -2613,9 +2589,9 @@ sub restore_state {
$restore_state .= " - from date: $tmp[0] $tmp[1]\n";
}
if ($restore_user) {
- $restore_state .= "- Restore User Files: \n" ;
- $restore_state .= "\t\t$_\n" foreach @user_list_to_restore2 ;
- push @user_list_to_restore, (split(',', $_))[0] foreach @user_list_to_restore2 ;
+ $restore_state .= "- Restore User Files: \n";
+ $restore_state .= "\t\t$_\n" foreach @user_list_to_restore2;
+ push @user_list_to_restore, (split(',', $_))[0] foreach @user_list_to_restore2;
}
if ($restore_other) {
$restore_state .= "- Restore Other Files: \n";
@@ -2704,7 +2680,7 @@ sub show_backup_details {
my ($function, $mode, $name) = @_;
my $archive_file_detail;
my $value;
- my $fixed_font = Gtk::Gdk::Font->load("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-*-*");
+ my $fixed_font = Gtk2::Gdk::Font->load("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-*-*");
my $command2;
my $tarfile;
@@ -2737,17 +2713,17 @@ sub show_backup_details {
}
close TMP;
- my $text = new Gtk::Text(undef, undef);
+ my $text = new Gtk2::Text;
my $advanced_box_archive;
- $text->insert($fixed_font, undef, undef,$archive_file_detail);
+ $text->insert($fixed_font, undef, undef, $archive_file_detail);
gtkpack($advanced_box,
- $advanced_box_archive = gtkpack_(new Gtk::VBox(0,10),
- 1, gtkpack_(new Gtk::HBox(0,0),
+ $advanced_box_archive = gtkpack_(new Gtk2::VBox(0,10),
+ 1, gtkpack_(new Gtk2::HBox(0,0),
1, $text,
- 0, new Gtk::VScrollbar($text->vadj),
+ 0, new Gtk2::VScrollbar($text->vadj),
),
- 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
- gtksignal_connect(new Gtk::Button(N("Done")), clicked => sub {
+ 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
+ gtksignal_connect(new Gtk2::Button(N("Done")), clicked => sub {
${$central_widget}->destroy();
$function->() }),
),
@@ -2774,25 +2750,24 @@ sub valid_backup_test {
sub restore_aff_backup_problems {
my $do_restore;
my $button_restore;
- my $text = new Gtk::Text(undef, undef);
- my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
+ 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 ;
+ $restore_pbs_state .= "\t\t$_\n" foreach @files_corrupted;
$restore_pbs_state .= N("Please uncheck or remove it on next time.");
- gtktext_insert($text, $restore_pbs_state);
+ gtktext_insert($text, [ [ $restore_pbs_state ] ]);
button_box_restore_main();
gtkpack($advanced_box,
- $do_restore = gtkpack_(new Gtk::VBox(0,10),
- 0, new Gtk::VBox(0,10),
- 1, gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 0, new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+ $do_restore = gtkpack_(new Gtk2::VBox(0,10),
+ 0, new Gtk2::VBox(0,10),
+ 1, gtkpack_(new Gtk2::HBox(0, 15),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkcreate_img('warning'),
0, N("Backup files are corrupted"),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
- 0, new Gtk::VBox(0,10),
- 1, createScrolledWindow($text),
+ 0, new Gtk2::VBox(0,10),
+ 1, create_scrolled_window($text),
),
);
button_box_restore_pbs_end();
@@ -2802,16 +2777,16 @@ sub restore_aff_backup_problems {
sub restore_aff_result {
my $do_restore;
- my $text = new Gtk::Text(undef, undef);
- gtktext_insert($text, $restore_state);
+ my $text = new Gtk2::TextView;
+ gtktext_insert($text, [ [ $restore_state ] ]);
button_box_restore_main();
gtkpack($advanced_box,
- $do_restore = gtkpack_(new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
+ $do_restore = gtkpack_(new Gtk2::VBox(0,10),
+ 1, new Gtk2::VBox(0,10),
0, N(" All of your selected data have been "),
0, N(" Successfuly Restored on %s ", $restore_path),
- 1, new Gtk::VBox(0,10),
+ 1, new Gtk2::VBox(0,10),
),
);
button_box_build_backup_end();
@@ -2828,10 +2803,10 @@ sub return_path {
open (PASSWD, $passwdfile) or exit 1;
while (defined(my $line = <PASSWD>)) {
chomp($line);
- ($usr,$home_dir) = (split(/:/, $line))[0,5];
+ ($usr, $home_dir) = (split(/:/, $line))[0,5];
last if $usr eq $username;
}
- close (PASSWD);
+ close(PASSWD);
return $home_dir;
}
@@ -2863,11 +2838,11 @@ sub restore_backend {
}
$user_dir = return_path($username);
- -d $user_dir and rm_rf($user_dir) if ($remove_user_before_restore) ;
+ -d $user_dir and rm_rf($user_dir) if $remove_user_before_restore;
$DEBUG and print "user name to restore: $username, user directory: $user_dir\n";
- $untar_cmd or system(" tar xfz $path_to_find_restore/$_ -C $restore_path") ;
- $untar_cmd and system("/usr/bin/bzip2 -cd $path_to_find_restore/$_ | tar xf -C $restore_path ") ;
+ $untar_cmd or system(" tar xfz $path_to_find_restore/$_ -C $restore_path");
+ $untar_cmd and system("/usr/bin/bzip2 -cd $path_to_find_restore/$_ | tar xf -C $restore_path ");
}
#- flush this out for another cycle (SB)
@user_list_to_restore2 = ();
@@ -2921,15 +2896,15 @@ sub restore_do {
sub restore_do2 {
my $do_restore;
my $button_restore;
- my $text = new Gtk::Text(undef, undef);
+ my $text = new Gtk2::TextView;
restore_state();
- gtktext_insert($text, $restore_state);
+ gtktext_insert($text, [ [ $restore_state ] ]);
button_box_restore_main();
gtkpack($advanced_box,
- $do_restore = gtkpack_(new Gtk::VBox(0,10),
+ $do_restore = gtkpack_(new Gtk2::VBox(0,10),
0, N(" Restore Configuration "),
- 1, createScrolledWindow($text),
+ 1, create_scrolled_window($text),
),
);
button_box_restore_end();
@@ -2939,15 +2914,15 @@ sub restore_do2 {
sub restore_step_other {
my $retore_step_other;
- my $text = new Gtk::Text(undef, undef);
+ my $text = new Gtk2::TextView;
my $other_rest = cat_("$path_to_find_restore/list_other");
- gtktext_insert($text, $other_rest);
+ gtktext_insert($text, [ [ $other_rest ] ]);
gtkpack($advanced_box,
- $retore_step_other = gtkpack_(new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
- 1, createScrolledWindow($text),
- 0, my $check_restore_other_sure = new Gtk::CheckButton(N("OK to restore the other files.")),
- 1, new Gtk::VBox(0,10),
+ $retore_step_other = gtkpack_(new Gtk2::VBox(0,10),
+ 1, new Gtk2::VBox(0,10),
+ 1, create_scrolled_window($text),
+ 0, my $check_restore_other_sure = new Gtk2::CheckButton(N("OK to restore the other files.")),
+ 1, new Gtk2::VBox(0,10),
),
);
check_list([$check_restore_other_sure, \$restore_other]);
@@ -2961,21 +2936,21 @@ sub restore_step_user {
my @tmp_list = sort @user_backuped;
@user_backuped = @tmp_list;
gtkpack($advanced_box,
- $retore_step_user = gtkpack_(new Gtk::VBox(0,10),
- 0, new Gtk::VBox(0,10),
+ $retore_step_user = gtkpack_(new Gtk2::VBox(0,10),
+ 0, new Gtk2::VBox(0,10),
0, N("User list to restore (only the most recent date per user is important)"),
- 1, createScrolledWindow(gtkpack__(new Gtk::VBox(0,0),
+ 1, create_scrolled_window(gtkpack__(new Gtk2::VBox(0,0),
map { my $name;
my $var2;
my $name_complet = $_;
- $name = (split(' ',$name_complet))[0];
+ $name = (split(' ', $name_complet))[0];
my @user_list_tmp;
- my $restore_row = new Gtk::HBox(0,5);
- my $b = new Gtk::CheckButton($name_complet);
- my $details = new Gtk::Button(" Details ");
+ my $restore_row = new Gtk2::HBox(0,5);
+ my $b = new Gtk2::CheckButton($name_complet);
+ my $details = new Gtk2::Button(" Details ");
$restore_row->pack_start($b, 1, 1, 0);
- $restore_row->pack_end(new Gtk::VBox(1,5), 0, 0, 0);
+ $restore_row->pack_end(new Gtk2::VBox(1,5), 0, 0, 0);
$restore_row->pack_end($details, 0, 0, 0);
# this doesn't work - I don't understand why - but you end up with
@@ -3000,7 +2975,7 @@ sub restore_step_user {
}
}
$b->signal_connect(toggled => sub {
- if (!$check_user_to_restore{$name_complet}[1] ) {
+ if (!$check_user_to_restore{$name_complet}[1]) {
$check_user_to_restore{$name_complet}[1] = 1;
if (!grep (/$name/, @user_list_to_restore2)) {
push @user_list_to_restore2, $name_complet
@@ -3008,7 +2983,7 @@ sub restore_step_user {
} else {
$check_user_to_restore{$name_complet}[1] = 0;
foreach (@user_list_to_restore2) {
- $var2 = (split(' ',$_))[0];
+ $var2 = (split(' ', $_))[0];
if ($name ne $var2) {
push @user_list_tmp, $_;
}
@@ -3029,26 +3004,26 @@ 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) }
+ else { fonction_env(\$retore_step_user, \&restore_step_user, \&restore_step2, "restore", \&restore_do) }
$up_box->show_all();
}
sub restore_step_sys {
my $restore_step_sys;
- my $combo_restore_step_sys = new Gtk::Combo();
- $combo_restore_step_sys->set_popdown_strings (@sys_backuped);
+ 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 Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
- 0, my $check_backup_before = new Gtk::CheckButton(N("Backup the system files before:")),
- 0, gtkpack_(new Gtk::HBox(0,10),
+ $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, gtkpack_(new Gtk2::HBox(0,10),
1, N("please choose the date to restore"),
0, $combo_restore_step_sys,
- 0, my $details = new Gtk::Button(" Details "),
- 0, new Gtk::HBox(0,10),
+ 0, my $details = new Gtk2::Button(" Details "),
+ 0, new Gtk2::HBox(0,10),
),
- 1, new Gtk::VBox(0,10),
+ 1, new Gtk2::VBox(0,10),
),
);
@@ -3065,8 +3040,8 @@ sub restore_step_sys {
$combo_restore_step_sys->entry->set_text($restore_step_sys_date);
fonction_env(\$restore_step_sys, \&restore_step_sys, \&restore_step2, "restore");
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) }
+ 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();
}
@@ -3074,31 +3049,30 @@ sub restore_other_media_hd {
my ($previous_function) = @_,
my $box_where_hd;
my $button;
- my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
- my ($pix_fs_map, $pix_fs_mask) = gtkcreate_png("ic82-dossier-32");
+ my $adj = new Gtk2::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
gtkpack($advanced_box,
- $box_where_hd = gtkpack_(new Gtk::VBox(0, 6),
- 0, new Gtk::HSeparator,
- 0, my $check_where_hd = new Gtk::CheckButton(N("Use Hard Disk to backup") ),
- 0, new Gtk::HSeparator,
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter the directory to save:")), $where_hd),
- 1, new Gtk::VBox(0, 6),
- 0, gtkset_usize (gtkset_sensitive($save_path_entry = new Gtk::Entry(), $where_hd), 152, 20),
- 0, gtkset_sensitive($button = gtksignal_connect(new Gtk::Button(), clicked => sub {
+ $box_where_hd = gtkpack_(new Gtk2::VBox(0, 6),
+ 0, new Gtk2::HSeparator,
+ 0, my $check_where_hd = new Gtk2::CheckButton(N("Use Hard Disk to backup")),
+ 0, new Gtk2::HSeparator,
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the directory to save:")), $where_hd),
+ 1, new Gtk2::VBox(0, 6),
+ 0, gtkset_size_request (gtkset_sensitive($save_path_entry = new Gtk2::Entry(), $where_hd), 152, 20),
+ 0, gtkset_sensitive($button = gtksignal_connect(new Gtk2::Button(), clicked => sub {
filedialog_where_hd() }), $where_hd),
),
- 0, new Gtk::VBox(0, 6),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter the maximum size\n allowed for Drakbackup")), $where_hd),
- 1, new Gtk::VBox(0, 6),
- 0, gtkset_usize (gtkset_sensitive(my $spinner = new Gtk::SpinButton($adj, 0, 0), $where_hd), 200, 20),
+ 0, new Gtk2::VBox(0, 6),
+ 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, gtkpack_(new Gtk::HBox(0,10),
- 1, new Gtk::VBox(0, 6),
- 0, gtkset_sensitive(my $check_where_hd_quota = new Gtk::CheckButton(N("Use quota for backup files.")), $where_hd),
- 0, new Gtk::VBox(0, 6),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 1, new Gtk2::VBox(0, 6),
+ 0, gtkset_sensitive(my $check_where_hd_quota = new Gtk2::CheckButton(N("Use quota for backup files.")), $where_hd),
+ 0, new Gtk2::VBox(0, 6),
),
),
);
@@ -3108,7 +3082,7 @@ sub restore_other_media_hd {
${$central_widget}->destroy();
$current_widget->();
});
- $button->add(gtkpack(new Gtk::HBox(0,10), new Gtk::Pixmap($pix_fs_map, $pix_fs_mask)));
+ $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() });
if ($previous_function) { fonction_env(\$box_where_hd, \&advanced_where_hd, \&$previous_function, "") }
@@ -3121,28 +3095,28 @@ sub restore_find_net {
my $box_where_net;
gtkpack($advanced_box,
- $box_where_net = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack_(new Gtk::VBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, new Gtk::VBox(0,10),
- 1, gtksignal_connect(new Gtk::Button(N("FTP Connection")), clicked => sub {
+ $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 Gtk::Button(N("Secure Connection")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Secure Connection")), clicked => sub {
$box_where_net->destroy();
if ($previous_function) {
} else {
}
}),
- 1, new Gtk::VBox(0, 5),
- 1, new Gtk::VBox(0,10),
+ 1, new Gtk2::VBox(0, 5),
+ 1, new Gtk2::VBox(0,10),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
if ($previous_function) { fonction_env(\$box_where_net, \&advanced_where_net, \&$previous_function, "") }
@@ -3153,35 +3127,33 @@ sub restore_find_net {
sub restore_other_media {
my $box_find_restore;
my $button;
- my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
- my ($pix_fs_map, $pix_fs_mask) = gtkcreate_png("ic82-dossier-32");
gtkpack($advanced_box,
- $box_find_restore = gtkpack_(new Gtk::VBox(0, 6),
- 0, new Gtk::HSeparator,
- 0, my $check_other_media_hd = new Gtk::CheckButton(N("Restore from Hard Disk.") ),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(N("Please enter the directory where backups are stored")), $other_media_hd),
- 1, new Gtk::VBox(0, 6),
- 0, gtkset_usize (gtkset_sensitive($restore_find_path_entry = new Gtk::Entry(), $other_media_hd), 152, 20),
- 0, gtkset_sensitive($button = gtksignal_connect(new Gtk::Button(), clicked => sub {
+ $box_find_restore = gtkpack_(new Gtk2::VBox(0, 6),
+ 0, new Gtk2::HSeparator,
+ 0, my $check_other_media_hd = new Gtk2::CheckButton(N("Restore from Hard Disk.")),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk2::Label(N("Please enter the directory where backups are stored")), $other_media_hd),
+ 1, new Gtk2::VBox(0, 6),
+ 0, gtkset_size_request (gtkset_sensitive($restore_find_path_entry = new Gtk2::Entry(), $other_media_hd), 152, 20),
+ 0, gtkset_sensitive($button = gtksignal_connect(new Gtk2::Button(), clicked => sub {
filedialog_restore_find_path();
}), $other_media_hd),
),
- 1, new Gtk::VBox(0, 6),
-# 0, new Gtk::HSeparator,
-# 0, my $check_other_media_net = new Gtk::CheckButton( N("Restore from Network") ),
-# 0, new Gtk::VBox(0, 6),
-# 1, gtkpack(new Gtk::HBox(0,10),
-# new Gtk::VBox(0, 6),
-# gtkset_sensitive(gtksignal_connect(new Gtk::Button("Network"), clicked => sub {
+ 1, new Gtk2::VBox(0, 6),
+# 0, new Gtk2::HSeparator,
+# 0, my $check_other_media_net = new Gtk2::CheckButton( N("Restore from Network")),
+# 0, new Gtk2::VBox(0, 6),
+# 1, gtkpack(new Gtk2::HBox(0,10),
+# new Gtk2::VBox(0, 6),
+# gtkset_sensitive(gtksignal_connect(new Gtk2::Button("Network"), clicked => sub {
# ${$central_widget}->destroy();
-# restore_find_net(\&restore_other_media);}), !$other_media_hd ),
-# new Gtk::VBox(0, 6),
+# restore_find_net(\&restore_other_media);}), !$other_media_hd),
+# new Gtk2::VBox(0, 6),
# ),
-# 1, new Gtk::VBox(0, 6),
-# 0, new Gtk::HSeparator,
- 0, new Gtk::VBox(0, 6),
+# 1, new Gtk2::VBox(0, 6),
+# 0, new Gtk2::HSeparator,
+ 0, new Gtk2::VBox(0, 6),
),
);
gtksignal_connect(gtkset_active($check_other_media_hd, $other_media_hd), toggled => sub {
@@ -3194,7 +3166,7 @@ sub restore_other_media {
# ${$central_widget}->destroy();
# $current_widget->();
# });
- $button->add(gtkpack(new Gtk::HBox(0,10), new Gtk::Pixmap($pix_fs_map, $pix_fs_mask)));
+ $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() });
#- not sure if this was the original intent - address the crash at "Next"
@@ -3209,9 +3181,9 @@ sub restore_step2 {
my $user_exist;
my $restore_info_path = $save_path;
- $restore_info_path = $path_to_find_restore if ($where_hd) || ($where_cd);
+ $restore_info_path = $path_to_find_restore if $where_hd || $where_cd;
my $info_prefix = "backup";
- $info_prefix = "list" if ($where_net) || ($where_tape);
+ $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 }
@@ -3225,29 +3197,29 @@ sub restore_step2 {
# $backup_sys_versions || $backup_user_versions and $backup_bef_restore = 1;
gtkpack($advanced_box,
- $retore_step2 = gtkpack_(new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, my $check_restore_other_src = new Gtk::CheckButton(N("Select another media to restore from")),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(N("Other Media")), clicked => sub {
+ $retore_step2 = gtkpack_(new Gtk2::VBox(0,10),
+ 1, new Gtk2::VBox(0,10),
+ 1, new Gtk2::VBox(0,10),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, my $check_restore_other_src = new Gtk2::CheckButton(N("Select another media to restore from")),
+ 1, new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("Other Media")), clicked => sub {
${$central_widget}->destroy();
restore_other_media();
}), $restore_other_src),
),
- 0, gtkset_sensitive(my $check_restore_sys = new Gtk::CheckButton(N("Restore system")), $sys_exist),
- 0, gtkset_sensitive(my $check_restore_user = new Gtk::CheckButton(N("Restore Users")), $user_exist),
- 0, gtkset_sensitive(my $check_restore_other = new Gtk::CheckButton(N("Restore Other")), $other_exist),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, my $check_restore_other_path = new Gtk::CheckButton(N("select path to restore (instead of /)")),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $restore_path_entry = new Gtk::Entry(), $restore_other_path),
+ 0, gtkset_sensitive(my $check_restore_sys = new Gtk2::CheckButton(N("Restore system")), $sys_exist),
+ 0, gtkset_sensitive(my $check_restore_user = new Gtk2::CheckButton(N("Restore Users")), $user_exist),
+ 0, gtkset_sensitive(my $check_restore_other = new Gtk2::CheckButton(N("Restore Other")), $other_exist),
+ 0, gtkpack_(new Gtk2::HBox(0,10),
+ 0, my $check_restore_other_path = new Gtk2::CheckButton(N("select path to restore (instead of /)")),
+ 1, new Gtk2::HBox(0,10),
+ 0, gtkset_sensitive(my $restore_path_entry = new Gtk2::Entry(), $restore_other_path),
),
- 0, gtkset_sensitive(my $check_backup_bef_restore = new Gtk::CheckButton(N("Do new backup before restore (only for incremental backups.)")),
+ 0, gtkset_sensitive(my $check_backup_bef_restore = new Gtk2::CheckButton(N("Do new backup before restore (only for incremental backups.)")),
$backup_sys_versions || $backup_user_versions),
- 0, gtkset_sensitive(my $check_remove_user_dir = new Gtk::CheckButton(N("Remove user directories before restore.")), $user_exist),
- 1, new Gtk::VBox(0,10),
+ 0, gtkset_sensitive(my $check_remove_user_dir = new Gtk2::CheckButton(N("Remove user directories before restore.")), $user_exist),
+ 1, new Gtk2::VBox(0,10),
),
);
@@ -3262,8 +3234,8 @@ sub restore_step2 {
if (!$restore_sys && !$restore_user && !$restore_other) { $next_widget = \&message_norestore_box }
elsif ($restore_sys && $backup_sys_versions) { $next_widget = \&restore_step_sys }
elsif ($restore_user) { $next_widget = \&restore_step_user }
- elsif ($restore_other){ $next_widget = \&restore_step_other }
- else{ $next_widget = \&restore_do }
+ elsif ($restore_other) { $next_widget = \&restore_step_other }
+ else { $next_widget = \&restore_do }
})
}
gtksignal_connect(gtkset_active($check_restore_other_path, $restore_other_path), toggled => sub {
@@ -3280,8 +3252,8 @@ sub restore_step2 {
if (!$restore_sys && !$restore_user && !$restore_other) { $next_widget = \&message_norestore_box }
elsif ($restore_sys && $backup_sys_versions) { $next_widget = \&restore_step_sys }
elsif ($restore_user) { $next_widget = \&restore_step_user }
- elsif ($restore_other){ $next_widget = \&restore_step_other }
- else{ $next_widget = \&restore_do }
+ 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();
@@ -3295,21 +3267,21 @@ sub catalog_restore {
my $restore_path_entry;
#- catalog info in tree view
- my $tree_catalog = new Gtk::Tree();
+ my $tree_catalog = new Gtk2::Tree();
# file details in list widget
- my $list_bu_files = new Gtk::List();
+ my $list_bu_files = new Gtk2::List();
$list_bu_files->set_selection_mode('extended');
#- read the catalog
my @catalog = cat_("$cfg_dir/drakbackup_catalog");
- foreach (@catalog){
+ foreach (@catalog) {
chop;
my $full_cat_entry = $_;
my @line_data = split(':', $_);
my $t = $line_data[0];
- my $t_catalog = new_with_label Gtk::TreeItem($t);
+ my $t_catalog = new_with_label Gtk2::TreeItem($t);
gtksignal_connect($t_catalog, select => sub {
$cat_entry = $full_cat_entry;
@restore_files = ();
@@ -3319,7 +3291,7 @@ sub catalog_restore {
foreach (@contents) {
chop;
my $s = $_;
- my $f_item = $list_bu_files->add(gtkshow(new Gtk::ListItem($s)));
+ my $f_item = $list_bu_files->add(gtkshow(new Gtk2::ListItem($s)));
gtksignal_connect($f_item, select => sub { push @restore_files, $s });
gtksignal_connect($f_item, deselect => sub { @restore_files = () });
}
@@ -3327,7 +3299,7 @@ sub catalog_restore {
});
$tree_catalog->append($t_catalog);
- my $c_detail = new Gtk::Tree();
+ my $c_detail = new Gtk2::Tree();
$t_catalog->set_subtree($c_detail);
my $indexer = 0;
@@ -3339,8 +3311,8 @@ sub catalog_restore {
$m = "Device or Path: " if $indexer == 3;
$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 Gtk::TreeItem($m);
+ $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);
@@ -3351,15 +3323,15 @@ sub catalog_restore {
}
gtkpack($advanced_box,
- $catalog_box = gtkpack_(new Gtk::HBox(0,10),
- 0, new Gtk::VBox(0,10),
- 1, gtkpack_(new Gtk::VBox(0,5),
- 1, gtkpack_(new Gtk::VBox(0, 10),
- 1, createScrolledWindow($tree_catalog),
- 1, createScrolledWindow($list_bu_files),
+ $catalog_box = gtkpack_(new Gtk2::HBox(0,10),
+ 0, new Gtk2::VBox(0,10),
+ 1, gtkpack_(new Gtk2::VBox(0,5),
+ 1, gtkpack_(new Gtk2::VBox(0, 10),
+ 1, create_scrolled_window($tree_catalog),
+ 1, create_scrolled_window($list_bu_files),
),
- 0, gtkpack_(new Gtk::HBox(1, 10),
- 1, gtksignal_connect(new Gtk::Button(N("Restore Selected\nCatalog Entry")), clicked => sub {
+ 0, gtkpack_(new Gtk2::HBox(1, 10),
+ 1, gtksignal_connect(new Gtk2::Button(N("Restore Selected\nCatalog Entry")), clicked => sub {
if ($cat_entry) {
my $media_check = restore_catalog_entry($cat_entry, ());
if ($media_check) {
@@ -3369,7 +3341,7 @@ sub catalog_restore {
}
}
}),
- 1, gtksignal_connect(new Gtk::Button(N("Restore Selected\nFiles")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Restore Selected\nFiles")), clicked => sub {
my $files = @restore_files;
#- grab the array before the widget clears it
my @passed_files = @restore_files;
@@ -3382,17 +3354,17 @@ sub catalog_restore {
}
}
}),
- 1, gtkpack_(new Gtk::VBox(0, 5),
- 0, new Gtk::Label("Restore To Path"),
- 0, $restore_path_entry = new Gtk::Entry(),
+ 1, gtkpack_(new Gtk2::VBox(0, 5),
+ 0, new Gtk2::Label("Restore To Path"),
+ 0, $restore_path_entry = new Gtk2::Entry(),
),
- 1, gtksignal_connect(new Gtk::Button(N("Change\nRestore Path")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Change\nRestore Path")), clicked => sub {
filedialog_generic(0, "Path To Restore To", \$restore_path_entry, \$restore_path);
}),
),
- 0, new Gtk::VBox(0,10),
+ 0, new Gtk2::VBox(0,10),
),
- 0, new Gtk::VBox(0,10),
+ 0, new Gtk2::VBox(0,10),
),
);
@@ -3465,7 +3437,7 @@ sub restore_catalog_entry {
if ($media eq 'CD') {
#- we know the cdrecord device, and the label
#- prompt the user for the right CD
- $in->ask_okcancel(N("Restore From CD"),N("Insert the CD with volume label %s\n in the CD drive under mount point /mnt/cdrom", $vol_host) ,1) ? $vol_name = get_cd_volname() : return(0);
+ $in->ask_okcancel(N("Restore From CD"), N("Insert the CD with volume label %s\n in the CD drive under mount point /mnt/cdrom", $vol_host) ,1) ? ($vol_name = get_cd_volname()) : return 0;
if ($vol_name ne $vol_host) {
show_warning("f", N("Not the correct CD label. Disk is labelled %s.", $vol_name));
return(0);
@@ -3477,7 +3449,7 @@ sub restore_catalog_entry {
if ($media eq 'Tape') {
#- a little more complicated, we need to check if other backups
#- were done on this tape, and try to find the offset to this one
- $in->ask_okcancel(N("Restore From Tape"),N("Insert the tape with volume label %s\n in the tape drive device %s", $vol_host, $dev_path) ,1) ? $vol_name = get_tape_label($dev_path) : return(0);
+ $in->ask_okcancel(N("Restore From Tape"), N("Insert the tape with volume label %s\n in the tape drive device %s", $vol_host, $dev_path) ,1) ? ($vol_name = get_tape_label($dev_path)) : return(0);
if ($vol_name ne $vol_host) {
show_warning("f", N("Not the correct tape label. Tape is labelled %s.", $vol_name));
return(0);
@@ -3486,7 +3458,7 @@ sub restore_catalog_entry {
}
}
- if (($media eq 'ftp') || ($media eq 'webdav') || ($media eq 'ssh') || ($media eq 'rsync')) {
+ if ($media eq 'ftp' || $media eq 'webdav' || $media eq 'ssh' || $media eq 'rsync') {
#- show the user what we know of the connection from the catalog
#- and the config file, let them override if necessary
@@ -3500,19 +3472,19 @@ sub restore_catalog_entry {
#- ftp needs all parameters entered
$in->ask_from(N("Restore Via Network"), N("Restore Via Network Protocol: %s", $media),
- [ { label => N("Host Name"), val => \$vol_host },
+ [ { label => N("Host Name"), val => \$vol_host },
{ label => N("Host Path or Module"), val => \$dev_path },
{ label => N("Username"), val => \$username },
{ label => N("Password"), val => \$userpass, hidden => 1 },
- ]) or goto return(0);
+ ]) or goto return(0);
- if (($media eq 'ftp') || ($media eq 'rsync')) {
+ if ($media eq 'ftp' || $media eq 'rsync') {
if ($userpass eq '') {
show_warning("f", N_("Password required"));
return(0);
}
}
- if (($media eq 'ftp') || ($media eq 'rsync') || ($media eq 'ssh')) {
+ if ($media eq 'ftp' || $media eq 'rsync' || $media eq 'ssh') {
if ($username eq '') {
show_warning("f", N_("Username required"));
return(0);
@@ -3528,7 +3500,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)
- if ($media eq 'rsync') || ($media eq 'ssh') || ($media eq 'webdav');
+ if $media eq 'rsync' || $media eq 'ssh' || $media eq 'webdav';
}
# cleanup our restore dir - unlink fails here?
@@ -3771,12 +3743,12 @@ sub restore_box {
if ($other_backuped || $sys_backuped || @user_backuped) {
gtkpack($advanced_box,
- $retore_box = gtkpack_(new Gtk::HBox(0,1),
- 1, new Gtk::VBox(0,10),
- 1, gtkpack_(new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
- 1, gtksignal_connect(new Gtk::Button(N("Restore all backups")), clicked => sub {
+ $retore_box = gtkpack_(new Gtk2::HBox(0,1),
+ 1, new Gtk2::VBox(0,10),
+ 1, gtkpack_(new Gtk2::VBox(0,10),
+ 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();
button_box_restore();
@user_list_to_restore2 = sort @user_backuped;
@@ -3785,15 +3757,15 @@ sub restore_box {
$restore_user = 1;
restore_do()
}),
- 1, gtksignal_connect(new Gtk::Button(N("Custom Restore")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Custom Restore")), clicked => sub {
$retore_box->destroy();
button_box_restore();
restore_step2();
}),
- 1, new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
+ 1, new Gtk2::VBox(0,10),
+ 1, new Gtk2::VBox(0,10),
),
- 1, new Gtk::HBox(0,10),
+ 1, new Gtk2::HBox(0,10),
),
);
} else {
@@ -3806,48 +3778,46 @@ sub restore_box {
}
sub restore_find_media_box {
-
- my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
- my $entry_new_path;
- my $mount_media = 1;
- $good_restore_path = 0;
+ my $entry_new_path;
+ my $mount_media = 1;
+ $good_restore_path = 0;
my $message = "Unable to find backups to restore...\n";
- $message .= "Verify that $path_to_find_restore is the correct path" if ($where_hd) && ($where_cd);
- $message .= " and the CD is in the drive" if $where_cd;
- if ($where_tape || $net_proto) {
- $message .= "Backups on unmountable media - Use Catalog to restore";
- $mount_media = 0;
- }
- $message .= ".";
-
+ $message .= "Verify that $path_to_find_restore is the correct path" if $where_hd && $where_cd;
+ $message .= " and the CD is in the drive" if $where_cd;
+ if ($where_tape || $net_proto) {
+ $message .= "Backups on unmountable media - Use Catalog to restore";
+ $mount_media = 0;
+ }
+ $message .= ".";
+
gtkpack($advanced_box,
- $box2 = gtkpack_(new Gtk::VBox(0, 5),
- 1, gtkpack(new Gtk::HBox(0, 15),
- new Gtk::VBox(0, 5),
- new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+ $box2 = gtkpack_(new Gtk2::VBox(0, 5),
+ 1, gtkpack(new Gtk2::HBox(0, 15),
+ new Gtk2::VBox(0, 5),
+ gtkcreate_img('warning'),
translate($message),
- new Gtk::VBox(0, 5),
+ new Gtk2::VBox(0, 5),
),
- 1, gtkpack(new Gtk::HBox(0, 15),
- new Gtk::VBox(0, 5),
- gtkpack(new Gtk::VBox(0, 10),
- gtkset_sensitive(gtksignal_connect(new Gtk::Button(N("CD in place - continue.")), clicked => sub {
+ 1, gtkpack(new Gtk2::HBox(0, 15),
+ new Gtk2::VBox(0, 5),
+ 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();
interactive_mode_box("restore");
}), $mount_media),
- $new_path_entry = gtkset_sensitive(new Gtk::Entry(), $mount_media),
- gtkset_sensitive(gtksignal_connect(new Gtk::Button(N("Browse to new restore repository.")), clicked => sub {
+ $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);
}), $mount_media),
- gtksignal_connect(new Gtk::Button(N("Restore From Catalog")), clicked => sub {
+ gtksignal_connect(new Gtk2::Button(N("Restore From Catalog")), clicked => sub {
$box2->destroy();
catalog_restore();
}),
),
- new Gtk::VBox(0, 5),
+ new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
$new_path_entry->set_text($path_to_find_restore);
@@ -3858,11 +3828,11 @@ sub restore_find_media_box {
sub restore_status {
${$central_widget}->destroy();
- $pbar3 = new Gtk::ProgressBar;
- $stext = new Gtk::Label("");
+ $pbar3 = new Gtk2::ProgressBar;
+ $stext = new Gtk2::Label("");
gtkpack($advanced_box,
- $table = gtkpack(new Gtk::VBox(0, 5),
- new Gtk::HBox(0,5),
+ $table = gtkpack(new Gtk2::VBox(0, 5),
+ new Gtk2::HBox(0,5),
create_packtable({ col_spacings => 10, row_spacings => 5 },
[""],
[""],
@@ -3874,7 +3844,7 @@ sub restore_status {
[$pbar3],
[""],
[""],
- [$pbar3->{label} = new Gtk::Label(' ') ],
+ [$pbar3->{label} = new Gtk2::Label(' ') ],
[""],
),
$stext,
@@ -3883,7 +3853,7 @@ sub restore_status {
$custom_help = "options";
$central_widget = \$table;
$up_box->show_all();
- Gtk->main_iteration while Gtk->events_pending;
+ gtkflush();
}
################################################ BUTTON_BOX ################################################
@@ -3892,31 +3862,31 @@ sub restore_status {
# # 1-n - [button name, fonctions associated]
# $button_box_tmp->destroy();
# gtkpack($button_box,
-# $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
-# 0, gtksignal_connect(new Gtk::Button($_->[0]), clicked => sub {$_->[1]}) foreach (@_),
-# } ), );
+# $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+# 0, gtksignal_connect(new Gtk2::Button($_->[0]), clicked => sub {$_->[1]}) foreach (@_),
+# }),);
# }
sub button_box_adv {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 0, gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 0, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box();
}),
- 0, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help);
+ adv_help(\&$current_widget, $custom_help);
}),
- 1, new Gtk::HBox(0, 1),
- 0, gtksignal_connect(new Gtk::Button(N("Previous")), clicked => sub {
+ 1, new Gtk2::HBox(0, 1),
+ 0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub {
${$central_widget}->destroy();
$previous_widget->();
}),
- 0, gtksignal_connect(new Gtk::Button(N("Save")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Save")), clicked => sub {
${$central_widget}->destroy();
- if (!check_pkg_needs()) {
+ unless (check_pkg_needs()) {
save_conf_file();
$previous_widget->();
}
@@ -3933,21 +3903,21 @@ sub button_box_restore_main {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(gtkpack_(new Gtk::HButtonBox,
- 0, gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub {
+ $button_box_tmp = gtkpack_(gtkpack_(new Gtk2::HButtonBox,
+ 0, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
${$central_widget}->destroy();
- interactive_mode_box()
+ interactive_mode_box();
}),
- 0, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
adv_help(\&$current_widget, $custom_help);
}),
- 1, new Gtk::HBox(0, 1),
- 0, gtksignal_connect(new Gtk::Button(N("Previous")), clicked => sub {
+ 1, new Gtk2::HBox(0, 1),
+ 0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box()
}),
- 0, gtksignal_connect(new Gtk::Button(N("Ok")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Ok")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box() }),
),
@@ -3959,21 +3929,21 @@ sub button_box_backup_end {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 0, gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 0, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box()
}),
- 0, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help)
+ adv_help(\&$current_widget, $custom_help)
}),
- 1, new Gtk::HBox(0, 1),
- 0, gtksignal_connect(new Gtk::Button(N("Previous")), clicked => sub {
+ 1, new Gtk2::HBox(0, 1),
+ 0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub {
${$central_widget}->destroy();
$previous_widget->()
}),
- 0, gtksignal_connect(new Gtk::Button(N("Build Backup")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Build Backup")), clicked => sub {
${$central_widget}->destroy();
build_backup_status();
build_backup_files();
@@ -3986,21 +3956,21 @@ sub button_box_wizard_end {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 0, gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 0, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box();
}),
- 0, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help);
+ adv_help(\&$current_widget, $custom_help);
}),
- 1, new Gtk::HBox(0, 1),
- 0, gtksignal_connect(new Gtk::Button(N("Previous")), clicked => sub {
+ 1, new Gtk2::HBox(0, 1),
+ 0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub {
${$central_widget}->destroy();
$previous_widget->();
}),
- 0, gtksignal_connect(new Gtk::Button(N("Save")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Save")), clicked => sub {
${$central_widget}->destroy();
save_conf_file();
interactive_mode_box();
@@ -4013,21 +3983,21 @@ sub button_box_restore_end {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 0, gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 0, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box();
}),
- 0, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help);
+ adv_help(\&$current_widget, $custom_help);
}),
- 1, new Gtk::HBox(0, 1),
- 0, gtksignal_connect(new Gtk::Button(N("Previous")), clicked => sub {
+ 1, new Gtk2::HBox(0, 1),
+ 0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub {
${$central_widget}->destroy();
$previous_widget->();
}),
- 0, gtksignal_connect(new Gtk::Button(N("Restore")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Restore")), clicked => sub {
${$central_widget}->destroy();
restore_backend();
}),
@@ -4039,10 +4009,10 @@ sub button_box_build_backup_end {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 1, new Gtk::HBox(0, 5),
- 1, new Gtk::HBox(0, 5),
- 0, gtksignal_connect(new Gtk::Button(N("Ok")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 1, new Gtk2::HBox(0, 5),
+ 1, new Gtk2::HBox(0, 5),
+ 0, gtksignal_connect(new Gtk2::Button(N("Ok")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box();
}),
@@ -4054,14 +4024,14 @@ sub button_box_restore_pbs_end {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 1, new Gtk::HBox(0, 5),
- 1, new Gtk::HBox(0, 5),
- 1, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 1, new Gtk2::HBox(0, 5),
+ 1, new Gtk2::HBox(0, 5),
+ 1, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help);
+ adv_help(\&$current_widget, $custom_help);
}),
- 0, gtksignal_connect(new Gtk::Button(N("Ok")), clicked => sub {
+ 0, gtksignal_connect(new Gtk2::Button(N("Ok")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box();
}),
@@ -4073,21 +4043,21 @@ sub button_box_build_backup {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 1, gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 1, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box();
}),
- 1, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help);
+ adv_help(\&$current_widget, $custom_help);
}),
- 1, new Gtk::HBox(0, 0),
- 0, gtksignal_connect(new Gtk::Button(N("Previous")), clicked => sub {
+ 1, new Gtk2::HBox(0, 0),
+ 0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub {
${$central_widget}->destroy();
$previous_widget->();
}),
- 1, gtksignal_connect(new Gtk::Button(N("Next")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Next")), clicked => sub {
${$central_widget}->destroy();
$next_widget->();
}),
@@ -4100,21 +4070,21 @@ sub button_box_restore {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 1, gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 1, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box();
}),
- 1, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help);
+ adv_help(\&$current_widget, $custom_help);
}),
- 1, new Gtk::HBox(0, 0),
- 0, gtksignal_connect(new Gtk::Button(N("Previous")), clicked => sub {
+ 1, new Gtk2::HBox(0, 0),
+ 0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub {
${$central_widget}->destroy();
$previous_widget->();
}),
- 1, gtksignal_connect(new Gtk::Button(N("Next")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Next")), clicked => sub {
${$central_widget}->destroy();
$next_widget->();
}),
@@ -4130,21 +4100,21 @@ sub button_box_find_media {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 1, gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 1, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
$box2->destroy();
interactive_mode_box();
}),
- 1, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
$box2->destroy();
- adv_help(\&$current_widget,$custom_help);
+ adv_help(\&$current_widget, $custom_help);
}),
- 1, new Gtk::HBox(0, 0),
- 0, gtksignal_connect(new Gtk::Button(N("Previous")), clicked => sub {
+ 1, new Gtk2::HBox(0, 0),
+ 0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub {
$box2->destroy();
interactive_mode_box();
}),
- 1, gtkset_sensitive(gtksignal_connect(new Gtk::Button(N("Next")), clicked => sub {
+ 1, gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("Next")), clicked => sub {
$box2->destroy();
interactive_mode_box("restore");
}), $mount_media),
@@ -4156,21 +4126,21 @@ sub button_box_wizard {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack_(new Gtk::HButtonBox,
- 1, gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub {
+ $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
+ 1, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub {
${$central_widget}->destroy();
interactive_mode_box()
}),
- 1, gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help)
+ adv_help(\&$current_widget, $custom_help)
}),
- 1, new Gtk::HBox(0, 0),
- 0, gtksignal_connect(new Gtk::Button($next_widget ? N("Previous") : N("OK")), clicked => sub {
+ 1, new Gtk2::HBox(0, 0),
+ 0, gtksignal_connect(new Gtk2::Button($next_widget ? N("Previous") : N("OK")), clicked => sub {
${$central_widget}->destroy();
$previous_widget ? $previous_widget->() : $next_widget->();
}),
- if_($next_widget, 1, gtksignal_connect(new Gtk::Button(N("Next")), clicked => sub {
+ if_($next_widget, 1, gtksignal_connect(new Gtk2::Button(N("Next")), clicked => sub {
${$central_widget}->destroy();
$next_widget ? $next_widget->() : $previous_widget->();
})),
@@ -4182,13 +4152,11 @@ sub button_box_main {
$button_box_tmp->destroy();
gtkpack($button_box,
- $button_box_tmp = gtkpack(gtkset_layout(new Gtk::HButtonBox, -start),
- gtksignal_connect(new Gtk::Button(N("Close")), clicked => sub {
- Gtk->main_quit()
- }),
- gtksignal_connect(new Gtk::Button(N("Help")), clicked => sub {
+ $button_box_tmp = gtkpack(gtkset_layout(new Gtk2::HButtonBox, 'start'),
+ gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub { ugtk2->exit(0) }),
+ gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&interactive_mode_box,$custom_help)
+ adv_help(\&interactive_mode_box, $custom_help)
}),
),
);
@@ -4199,17 +4167,16 @@ sub button_box_main {
sub dialog_one {
$table->destroy();
my ($label) = @_;
- my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
gtkadd($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 0, gtkpack_(new Gtk::HBox(0, 15),
- 0, new Gtk::VBox(0, 5),
- 0, new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+ $box2 = gtkpack_(new Gtk2::HBox(0, 15),
+ 1, new Gtk2::VBox(0, 5),
+ 0, gtkpack_(new Gtk2::HBox(0, 15),
+ 0, new Gtk2::VBox(0, 5),
+ 0, gtkcreate_img('warning'),
0, $label),
- 0, new Gtk::VBox(0, 5),
- 1, new Gtk::VBox(0, 5),
+ 0, new Gtk2::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
button_box_restore_main();
@@ -4238,10 +4205,10 @@ sub install_rpm {
}
my $box_what_user;
gtkpack($advanced_box,
- $box_what_user = gtkpack_(new Gtk::VBox(0, 15),
+ $box_what_user = gtkpack_(new Gtk2::VBox(0, 15),
0, N("The following packages need to be installed:\n @list_of_rpm_to_install"),
- 0, new Gtk::HSeparator,
- 0, gtksignal_connect(new Gtk::Button(N("Install")), clicked => sub {
+ 0, new Gtk2::HSeparator,
+ 0, gtksignal_connect(new Gtk2::Button(N("Install")), clicked => sub {
system("/usr/sbin/urpmi --X @list_of_rpm_to_install");
${$central_widget}->destroy();
$previous_widget->();
@@ -4255,18 +4222,17 @@ sub install_rpm {
sub message_norestore_box {
$box2->destroy();
- my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
gtkadd($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack(new Gtk::HBox(0, 15),
- new Gtk::VBox(0, 5),
- new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+ $box2 = gtkpack_(new Gtk2::HBox(0, 15),
+ 1, new Gtk2::VBox(0, 5),
+ 1, gtkpack(new Gtk2::HBox(0, 15),
+ new Gtk2::VBox(0, 5),
+ gtkcreate_img('warning'),
N("Please select data to restore..."),
- new Gtk::VBox(0, 5),
+ new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
button_box_restore_main();
@@ -4278,18 +4244,17 @@ sub message_norestore_box {
sub message_common_box {
$box2->destroy();
my ($label) = @_;
- my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
gtkadd($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack(new Gtk::HBox(0, 15),
- new Gtk::VBox(0, 5),
- new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+ $box2 = gtkpack_(new Gtk2::HBox(0, 15),
+ 1, new Gtk2::VBox(0, 5),
+ 1, gtkpack(new Gtk2::HBox(0, 15),
+ new Gtk2::VBox(0, 5),
+ gtkcreate_img('warning'),
$label,
- new Gtk::VBox(0, 5),
+ new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
$previous_widget = \&wizard;
@@ -4318,18 +4283,17 @@ sub message_common_box_2 {
my ($label, $restore_main) = @_;
$box2->destroy();
- my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
gtkadd($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack(new Gtk::HBox(0, 15),
- new Gtk::VBox(0, 5),
- new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+ $box2 = gtkpack_(new Gtk2::HBox(0, 15),
+ 1, new Gtk2::VBox(0, 5),
+ 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."),
- new Gtk::VBox(0, 5),
+ new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
button_box_restore_main() if $restore_main;
@@ -4353,7 +4317,7 @@ sub progress {
if ($new_val > 1) { $new_val = 1 }
$progressbar->update($new_val);
$progressbar->{label}->set($label_text);
- Gtk->main_iteration while Gtk->events_pending;
+ gtkflush();
}
sub find_backup_to_put_on_cd {
@@ -4364,49 +4328,49 @@ sub find_backup_to_put_on_cd {
foreach (grep /^backup_other/, @list_backup) {
$other_backuped = 1;
chomp;
- my $tail = (split(' ',`du $save_path/$_`))[0] ;
+ my $tail = (split(' ', `du $save_path/$_`))[0];
s/^backup_other//gi;
s/.tar.gz$//gi;
s/.tar.bz2$//gi;
- my @user_date = split(/\_20/,$_);
- my @user_date2 = split(/\_/,$user_date[1]);
+ my @user_date = split /\_20/;
+ my @user_date2 = split(/\_/, $user_date[1]);
my $to_put = " other_data, (tail: $tail ko, date: 20$user_date2[0], hour: $user_date2[1])";
push @data_backuped , $to_put;
}
foreach (grep /_sys_/, @list_backup) {
$sys_backuped = 1;
chomp;
- my $tail = (split(' ',`du $save_path/$_`))[0] ;
+ my $tail = (split(' ', `du $save_path/$_`))[0];
s/^backup_other//gi;
s/.tar.gz$//gi;
s/.tar.bz2$//gi;
- my @user_date = split(/\_20/,$_);
- my @user_date2 = split(/\_/,$user_date[1]);
+ my @user_date = split /\_20/;
+ my @user_date2 = split(/\_/, $user_date[1]);
my $to_put = " system, (tail: $tail ko, date: 20$user_date2[0], hour: $user_date2[1])";
push @data_backuped , $to_put;
}
foreach (grep /user_/, @list_backup) {
chomp;
- my $tail = (split(' ',`du $save_path/$_`))[0] ;
+ my $tail = (split(' ', `du $save_path/$_`))[0];
s/^backup_user_//gi;
s/.tar.gz$//gi;
s/.tar.bz2$//gi;
- my @user_date = split(/\_20/,$_);
- my @user_date2 = split(/\_/,$user_date[1]);
+ my @user_date = split /\_20/;
+ my @user_date2 = split(/\_/, $user_date[1]);
my $to_put = " $user_date[0], (tail: $tail ko, date: 20$user_date2[0], hour: $user_date2[1])";
push @data_backuped , $to_put;
}
}
sub build_backup_status {
- $pbar = new Gtk::ProgressBar;
- $pbar1 = new Gtk::ProgressBar;
- $pbar2 = new Gtk::ProgressBar;
- $pbar3 = new Gtk::ProgressBar;
- $stext = new Gtk::Label("");
+ $pbar = new Gtk2::ProgressBar;
+ $pbar1 = new Gtk2::ProgressBar;
+ $pbar2 = new Gtk2::ProgressBar;
+ $pbar3 = new Gtk2::ProgressBar;
+ $stext = new Gtk2::Label("");
button_box_build_backup_end();
gtkpack($advanced_box,
- $table = gtkpack(new Gtk::VBox(0, 5),
+ $table = gtkpack(new Gtk2::VBox(0, 5),
create_packtable({ col_spacings => 10, row_spacings => 5 },
[""],
[""],
@@ -4416,13 +4380,13 @@ sub build_backup_status {
[""],
[""],
[N("Backup system files")],
- [ $pbar, $pbar->{label} = new Gtk::Label(' ') ],
+ [ $pbar, $pbar->{label} = new Gtk2::Label(' ') ],
[N("Backup user files") ],
- [$pbar1,$pbar1->{label} = new Gtk::Label(' ') ],
+ [$pbar1, $pbar1->{label} = new Gtk2::Label(' ') ],
[N("Backup other files")],
- [ $pbar2, $pbar2->{label} = new Gtk::Label(' ') ],
+ [ $pbar2, $pbar2->{label} = new Gtk2::Label(' ') ],
[N("Total Progress")],
- [$pbar3,$pbar3->{label} = new Gtk::Label(' ') ],
+ [$pbar3, $pbar3->{label} = new Gtk2::Label(' ') ],
),
$stext,
),
@@ -4430,63 +4394,63 @@ sub build_backup_status {
$custom_help = "options";
$central_widget = \$table;
$up_box->show_all();
- Gtk->main_iteration while Gtk->events_pending;
+ gtkflush();
}
sub build_backup_ftp_status {
- $pbar = new Gtk::ProgressBar;
- $pbar3 = new Gtk::ProgressBar;
+ $pbar = new Gtk2::ProgressBar;
+ $pbar3 = new Gtk2::ProgressBar;
$table->destroy();
button_box_build_backup_end();
- $pbar->set_value(0);
- $pbar3->set_value(0);
+ $pbar->set_fraction(0);
+ $pbar3->set_fraction(0);
gtkpack($advanced_box,
- $table = gtkpack_(new Gtk::VBox(0, 15),
+ $table = gtkpack_(new Gtk2::VBox(0, 15),
1, N("files sending by FTP"),
- 1, new Gtk::VBox(0, 15),
+ 1, new Gtk2::VBox(0, 15),
1, create_packtable ({ col_spacings => 10, row_spacings => 5 },
-# [ $pbar->set_show_text( $show_text );
+# [ $pbar->set_show_text( $show_text);
[N("Sending files...")],
[""],
- [ $pbar->{label} = new Gtk::Label(' ') ],
+ [ $pbar->{label} = new Gtk2::Label(' ') ],
[ $pbar],
[""],
[N("Total Progress")],
- [ $pbar3->{label} = new Gtk::Label(' ') ],
+ [ $pbar3->{label} = new Gtk2::Label(' ') ],
[$pbar3],
),
- 1, new Gtk::VBox(0, 15),
+ 1, new Gtk2::VBox(0, 15),
),
);
$custom_help = "options";
$central_widget = \$table;
$up_box->show_all();
- Gtk->main_iteration while Gtk->events_pending;
+ gtkflush();
}
sub build_backup_box_see_conf {
- my $box2;
- my $text = new Gtk::Text(undef, undef);
+ my $box2;
+ my $text = new Gtk2::TextView;
system_state();
- gtktext_insert($text, $system_state);
+ gtktext_insert($text, [ [ $system_state ] ]);
button_box_restore_main();
gtkpack($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, gtkpack_(new Gtk::VBox(0,10),
- 0, N("Drakbackup Configuration"),
- 1, createScrolledWindow($text),
- ),
- ),
- );
+ $box2 = gtkpack_(new Gtk2::HBox(0, 15),
+ 1, gtkpack_(new Gtk2::VBox(0,10),
+ 0, N("Drakbackup Configuration"),
+ 1, create_scrolled_window($text),
+ ),
+ ),
+ );
button_box_backup_end();
$custom_help = "";
$central_widget = \$box2;
$current_widget = \&build_backup_box_see_conf;
- $previous_widget =\&build_backup_box;
+ $previous_widget = \&build_backup_box;
$up_box->show_all();
}
@@ -4495,7 +4459,7 @@ sub build_backup_box_progress {
}
sub aff_total_tail {
- my @toto ;
+ my @toto;
my $total = 0;
push @toto, (split (",", $_))[1] foreach @list_to_build_on_cd;
foreach (@toto) {
@@ -4509,44 +4473,42 @@ sub aff_total_tail {
sub build_backup_box {
$box2->destroy();
- my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("ic82-CD-40");
- my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("ic82-discdurwhat-40");
- my ($pix_options_map, $pix_options_mask) = gtkcreate_png("ic82-moreoption-40");
+# my ($pix_cd_map, $pix_cd_mask) = gtkcreate_img("ic82-CD-40");
gtkadd($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack_(new Gtk::VBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtksignal_connect(my $button_from_conf_file = new Gtk::Button(), clicked => sub {
+ $box2 = 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, gtksignal_connect(my $button_from_conf_file = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy();
build_backup_box_see_conf();
}),
- 0, new Gtk::VBox(0, 5),
- 1, gtksignal_connect(my $button_see_conf = new Gtk::Button(), clicked => sub {
+ 0, new Gtk2::VBox(0, 5),
+ 1, gtksignal_connect(my $button_see_conf = new Gtk2::Button(), clicked => sub {
${$central_widget}->destroy();
build_backup_box_see_conf();
}),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
- $button_from_conf_file->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
- new Gtk::Label(N("Backup Now from configuration file")),
- new Gtk::HBox(0, 5)
+ $button_from_conf_file->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-discdurwhat-40"),
+ new Gtk2::Label(N("Backup Now from configuration file")),
+ new Gtk2::HBox(0, 5)
));
- $button_see_conf->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_options_map, $pix_options_mask),
- new Gtk::Label(N("View Backup Configuration.")),
- new Gtk::HBox(0, 5)
+ $button_see_conf->add(gtkpack(new Gtk2::HBox(0,10),
+ gtkcreate_img("ic82-moreoption-40"),
+ new Gtk2::Label(N("View Backup Configuration.")),
+ new Gtk2::HBox(0, 5)
));
button_box_restore_main();
fonction_env(\$box2, \&build_backup_box, \&interactive_mode_box, "options");
- $up_box->show_all();
+ $up_box->show_all();
}
################################################ INTERACTIVE ################################################
@@ -4557,21 +4519,21 @@ sub interactive_mode_box {
read_conf_file();
gtkadd($advanced_box,
- $box2 = gtkpack_(new Gtk::HBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtkpack_(new Gtk::VBox(0, 15),
- 1, new Gtk::VBox(0, 5),
- 1, gtksignal_connect(new Gtk::Button(N("Wizard Configuration")), clicked => sub {
+ $box2 = 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, gtksignal_connect(new Gtk2::Button(N("Wizard Configuration")), clicked => sub {
${$central_widget}->destroy();
read_conf_file();
wizard();
}),
- 1, gtksignal_connect(new Gtk::Button(N("Advanced Configuration")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Advanced Configuration")), clicked => sub {
button_box_adv();
${$central_widget}->destroy();
advanced_box();
}),
- 1, gtksignal_connect(new Gtk::Button(N("Backup Now")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Backup Now")), clicked => sub {
${$central_widget}->destroy();
if ($cfg_file_exist) {
build_backup_box();
@@ -4579,13 +4541,13 @@ sub interactive_mode_box {
message_noconf_box();
}
}),
- 1, gtksignal_connect(new Gtk::Button(N("Restore")), clicked => sub {
+ 1, gtksignal_connect(new Gtk2::Button(N("Restore")), clicked => sub {
${$central_widget}->destroy();
restore_box();
}),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
- 1, new Gtk::VBox(0, 5),
+ 1, new Gtk2::VBox(0, 5),
),
);
button_box_main();
@@ -4600,40 +4562,39 @@ sub interactive_mode_box {
sub interactive_mode {
$interactive = 1;
- eval { require my_gtk };
- die "Can't load my_gtk...\n" if $@;
- my_gtk->import(qw(:helpers :wrappers));
+ eval { require ugtk2 };
+ die "Can't load ugtk2...\n" if $@;
+ ugtk2->import(qw(:helpers :wrappers :create));
$in = 'interactive'->vnew('', 'default');
my $box;
- $my_win = my_gtk->new('drakbackup');
+ $my_win = ugtk2->new('drakbackup');
$window1 = $my_win->{window};
unless ($::isEmbedded) {
- $my_win->{rwindow}->set_position(1);
+ $my_win->{rwindow}->set_position('center');
$my_win->{rwindow}->set_title(N("Drakbackup"));
}
- $my_win->{rwindow}->signal_connect (delete_event => sub { my_gtk->exit(0) });
- my ($pix_u_map, $pix_u_mask) = gtkcreate_png("drakbackup.540x57");
+ $my_win->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
read_conf_file();
gtkadd($window1,
- gtkpack(new Gtk::VBox(0,0),
- gtkpack(gtkset_usize ($up_box = new Gtk::VBox(0, 5), 540, 400),
- $box = gtkpack_(new Gtk::VBox(0, 3),
- if_(!$::isEmbedded, 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask)),
- 1, gtkpack_(new Gtk::HBox(0, 3),
- 1, gtkpack_(new Gtk::HBox(0, 15),
- 0, new Gtk::HBox(0, 5),
- 1, $advanced_box = gtkpack_(new Gtk::HBox(0, 15),
- 1, $box2 = gtkpack_(new Gtk::VBox(0, 15),),
+ gtkpack(new Gtk2::VBox(0,0),
+ gtkpack(gtkset_size_request($up_box = new Gtk2::VBox(0, 5), 540, 400),
+ $box = gtkpack_(new Gtk2::VBox(0, 3),
+ if_(!$::isEmbedded, 0, gtkcreate_img("drakbackup.540x57")),
+ 1, gtkpack_(new Gtk2::HBox(0, 3),
+ 1, gtkpack_(new Gtk2::HBox(0, 15),
+ 0, new Gtk2::HBox(0, 5),
+ 1, $advanced_box = gtkpack_(new Gtk2::HBox(0, 15),
+ 1, $box2 = gtkpack_(new Gtk2::VBox(0, 15),),
),
- 0, new Gtk::HBox(0, 5),
+ 0, new Gtk2::HBox(0, 5),
),
),
- 0, new Gtk::HSeparator,
- 0, $button_box = gtkpack(new Gtk::VBox(0, 15),
- $button_box_tmp = gtkpack(new Gtk::VBox(0, 0),),
+ 0, new Gtk2::HSeparator,
+ 0, $button_box = gtkpack(new Gtk2::VBox(0, 15),
+ $button_box_tmp = gtkpack(new Gtk2::VBox(0, 0),),
),
),
),
@@ -4655,8 +4616,6 @@ sub interactive_mode {
sub adv_help {
my ($function, $custom_help) = @_,
- my $text = new Gtk::Text(undef, undef);
- my $advanced_box_help;
################################################ help definition ##############################################
@@ -4829,20 +4788,19 @@ backup data files by hand.
);
################################################ help function ##############################################
-
- gtktext_insert($text, $custom_helps{$custom_help} || $custom_helps{main});
- gtkpack($advanced_box,
- $advanced_box_help = gtkpack_(new Gtk::VBox(0,10),
- 1, gtkpack_(new Gtk::HBox(0,0),
- 1, $text,
- 0, new Gtk::VScrollbar($text->vadj),
- ),
- 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
- gtksignal_connect(new Gtk::Button(N("OK")), clicked => sub {
- ${$central_widget}->destroy(); $function->() }),
- ),
- )
- );
+ my $text = new Gtk2::TextView;
+ gtktext_insert($text, $custom_helps{$custom_help} || $custom_helps{main});
+ gtkpack($advanced_box,
+ my $advanced_box_help = gtkpack_(new Gtk2::VBox(0,10),
+ 1, create_scrolled_window($text),
+ 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
+ gtksignal_connect(new Gtk2::Button(N("OK")), clicked => sub {
+ $$central_widget->destroy();
+ $function->();
+ }),
+ ),
+ )
+ );
$central_widget = \$advanced_box_help;
$up_box->show_all();
}
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index b8f880371..30f95a37e 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -60,56 +60,56 @@ MDK::Common::Globals::init(
);
$::isEmbedded && ref($in) =~ /gtk/ or goto dd;
-require my_gtk;
-import my_gtk qw(:helpers :wrappers);
+require ugtk2;
+import ugtk2 qw(:helpers :wrappers);
my $expert_mode = 0;
network::netconnect::read_net_conf('', $netcnx, $netc);
any::load_category_no_message('net', undef);
my @all_cards = network::ethernet::conf_network_card_backend ($netc, $intf, undef, undef, undef, undef);
network::netconnect::load_conf($netcnx, $netc, $intf);
-my $window1 = my_gtk->new('drakconnect');
-$window1->{rwindow}->signal_connect (delete_event => sub { my_gtk->exit(0) });
+my $window1 = ugtk2->new('drakconnect');
+$window1->{rwindow}->signal_connect (delete_event => sub { ugtk2->exit(0) });
unless ($::isEmbedded) {
- $window1->{rwindow}->set_position(1);
+ $window1->{rwindow}->set_position('center');
$window1->{rwindow}->set_title(N("Network configuration (%d adapters)", @all_cards));
- $window1->{rwindow}->set_usize(500, 400);
+ $window1->{rwindow}->set_size_request(500, 400);
}
$window1->{rwindow}->border_width(10);
-my $vbox1 = new Gtk::VBox(0,10);
+my $vbox1 = new Gtk2::VBox(0,10);
$window1->{rwindow}->add($vbox1);
-my $hbox1 = new Gtk::HBox(0,0);
+my $hbox1 = new Gtk2::HBox(0,0);
$vbox1->pack_start($hbox1,0,0,0);
-$hbox1->pack_start(new Gtk::Label(N("Profile: ")),0,0,0);
+$hbox1->pack_start(new Gtk2::Label(N("Profile: ")),0,0,0);
-my $combo1 = new Gtk::Combo;
+my $combo1 = new Gtk2::Combo;
$combo1->set_popdown_strings (network::netconnect::get_profiles());
my $old_profile = $netcnx->{PROFILE};
$combo1->entry->set_text($netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default");
$combo1->entry->set_editable(0);
$hbox1->pack_start($combo1,0,0,0);
-my $button_del = new Gtk::Button(N("Del profile..."));
+my $button_del = new Gtk2::Button(N("Del profile..."));
$button_del->signal_connect(clicked => sub {
- my $dialog = new Gtk::Dialog();
- $dialog->set_position(1);
+ my $dialog = new Gtk2::Dialog();
+ $dialog->set_position('center');
$dialog->vbox->set_border_width(10);
$dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
- $dialog->vbox->pack_start(new Gtk::Label(N("Profile to delete:")),1,1,0);
- my $combo_dialog = new Gtk::Combo;
+ $dialog->vbox->pack_start(new Gtk2::Label(N("Profile to delete:")),1,1,0);
+ my $combo_dialog = new Gtk2::Combo;
$combo_dialog->set_popdown_strings (grep { ! /default/ } network::netconnect::get_profiles());
$combo_dialog->entry->set_editable(0);
$dialog->vbox->pack_start($combo_dialog,1,1,0);
- my $bbox_dialog = new Gtk::HButtonBox;
+ my $bbox_dialog = new Gtk2::HButtonBox;
$dialog->action_area->add($bbox_dialog);
- $bbox_dialog->set_layout(-end);
- my $button_ok = new Gtk::Button N("OK");
+ $bbox_dialog->set_layout('end');
+ my $button_ok = new Gtk2::Button N("OK");
$button_ok->signal_connect (clicked => sub {
network::netconnect::del_profile($netcnx, $combo_dialog->entry->get_text());
$netcnx->{PROFILE} eq $combo_dialog->entry->get_text() and $netcnx->{PROFILE} = "default";
Gtk->main_quit();
});
$bbox_dialog->add($button_ok);
- my $button_cancel = new Gtk::Button N("Cancel");
+ my $button_cancel = new Gtk2::Button N("Cancel");
$button_cancel->signal_connect (clicked => sub { Gtk->main_quit() });
$bbox_dialog->add($button_cancel);
$dialog->show_all;
@@ -122,26 +122,26 @@ $button_del->signal_connect(clicked => sub {
});
$hbox1->pack_start($button_del,0,0,5);
$button_del->set_sensitive(network::netconnect::get_profiles() > 1);
-my $button_new = new Gtk::Button(N("New profile..."));
+my $button_new = new Gtk2::Button(N("New profile..."));
$button_new->signal_connect(clicked => sub {
- my $dialog = new Gtk::Dialog();
- $dialog->set_position(1);
+ my $dialog = new Gtk2::Dialog();
+ $dialog->set_position('center');
$dialog->vbox->set_border_width(10);
$dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
- $dialog->vbox->pack_start(new Gtk::Label(N("Name of the profile to create (the new profile is created as a copy of the current one) :")),1,1,0);
- my $entry_dialog = new Gtk::Entry;
+ $dialog->vbox->pack_start(new Gtk2::Label(N("Name of the profile to create (the new profile is created as a copy of the current one) :")),1,1,0);
+ my $entry_dialog = new Gtk2::Entry;
$dialog->vbox->pack_start($entry_dialog,1,1,0);
- my $bbox_dialog = new Gtk::HButtonBox;
+ my $bbox_dialog = new Gtk2::HButtonBox;
$dialog->action_area->add($bbox_dialog);
- $bbox_dialog->set_layout(-end);
- my $button_ok = new Gtk::Button N("OK");
+ $bbox_dialog->set_layout('end');
+ my $button_ok = new Gtk2::Button N("OK");
$button_ok->signal_connect (clicked => sub {
network::netconnect::add_profile($netcnx, $entry_dialog->get_text());
$netcnx->{PROFILE} = $entry_dialog->get_text();
Gtk->main_quit();
});
$bbox_dialog->add($button_ok);
- my $button_cancel = new Gtk::Button N("Cancel");
+ my $button_cancel = new Gtk2::Button N("Cancel");
$button_cancel->signal_connect (clicked => sub { Gtk->main_quit() });
$bbox_dialog->add($button_cancel);
$dialog->show_all;
@@ -152,21 +152,21 @@ $button_new->signal_connect(clicked => sub {
$combo1->set_popdown_strings(network::netconnect::get_profiles());
});
$hbox1->pack_start($button_new,0,0,5);
-my $hbox2 = new Gtk::HBox(0,0);
+my $hbox2 = new Gtk2::HBox(0,0);
$vbox1->pack_start($hbox2,0,0,0);
-$hbox2->pack_start(new Gtk::Label(N("Hostname: ")),0,0,0);
+$hbox2->pack_start(new Gtk2::Label(N("Hostname: ")),0,0,0);
my $hostname = chomp_(`hostname`);
-my $label_host = new Gtk::Label($hostname);
+my $label_host = new Gtk2::Label($hostname);
$hbox2->pack_start($label_host,0,0,0);
-#$vbox1->pack_start(new Gtk::HSeparator,1,1,5);
+#$vbox1->pack_start(new Gtk2::HSeparator,1,1,5);
-my $frame1 = new Gtk::Frame (N("Internet access"));
+my $frame1 = new Gtk2::Frame (N("Internet access"));
$vbox1->pack_start($frame1,1,1,0);
-my $vbox_frame1 = new Gtk::VBox(0,0);
+my $vbox_frame1 = new Gtk2::VBox(0,0);
$vbox_frame1->set_border_width(5);
$frame1->add($vbox_frame1);
-my $table1 = new Gtk::Table (3,3, 0);
+my $table1 = new Gtk2::Table (3,3, 0);
$table1->set_border_width(5);
$table1->set_row_spacings(5);
$table1->set_col_spacings(5);
@@ -174,12 +174,12 @@ $table1->set_col_spacings(5);
$vbox_frame1->pack_start($table1,1,1,0);
#attach (table, child, left_attach, right_attach, top_attach, bottom_attach, xoptions, yoptions, xpadding, ypadding)
#$table->attach($button[0], 0, 1, 0, 1, {expand=>1,fill=>1}, {expand=>1,fill=>1},0,0);
-$table1->attach(new Gtk::Label(N("Type:")), 0, 1, 0, 1, 'fill', 'fill',0,0);
-my $label4 = new Gtk::Label($netcnx->{type});
+$table1->attach(new Gtk2::Label(N("Type:")), 0, 1, 0, 1, 'fill', 'fill',0,0);
+my $label4 = new Gtk2::Label($netcnx->{type});
$table1->attach($label4, 1, 2, 0, 1, 'fill', 'fill',0,0);
-my $label5 = new Gtk::Label($netcnx->{type} eq 'lan' ? N("Gateway:") : N("Interface:"));
+my $label5 = new Gtk2::Label($netcnx->{type} eq 'lan' ? N("Gateway:") : N("Interface:"));
$table1->attach($label5, 0, 1, 1, 2, 'fill', 'fill',0,0);
-my $label6 = new Gtk::Label($netcnx->{type} eq 'lan' ? $netc->{GATEWAY} : $netcnx->{NET_INTERFACE});
+my $label6 = new Gtk2::Label($netcnx->{type} eq 'lan' ? $netc->{GATEWAY} : $netcnx->{NET_INTERFACE});
$table1->attach($label6, 1, 2, 1, 2, 'fill', 'fill',0,0);
my $isconnected = -1;
#-sub connected_local {
@@ -188,14 +188,14 @@ my $isconnected = -1;
#- Gtk->main_iteration while Gtk->events_pending;
#- $isconnected = connected();
#-}
-my $label7 = new Gtk::Label(N("Status:"));
+my $label7 = new Gtk2::Label(N("Status:"));
$table1->attach($label7, 0, 1, 2, 3, 'fill', 'fill',0,0);
-my $label8 = new Gtk::Label(N("Testing your connection..."));
+my $label8 = new Gtk2::Label(N("Testing your connection..."));
$table1->attach($label8, 1, 2, 2, 3, 'fill', 'fill',0,0);
-my $warning_label1 = new Gtk::Label("");
+my $warning_label1 = new Gtk2::Label("");
$vbox_frame1->pack_start($warning_label1,0,0,0);
-my $button2 = new Gtk::Button(N("Wait please"));
+my $button2 = new Gtk2::Button(N("Wait please"));
$button2->set_sensitive(0);
$button2->signal_connect(clicked => sub {
if (!$isconnected && cat_($connect_prog) =~ m|/usr/bin/kppp| && -e '/usr/bin/kppp') {
@@ -212,20 +212,20 @@ $table1->attach($button2, 2, 3, 2, 3, 'fill', 'fill',0,0);
#$table1->attach($button1, 2, 3, 1, 2, 'fill', 'fill',0,0);
-my $hbox_frame1_button = new Gtk::HBox(0,0);
-my $button1 = new Gtk::Button(N("Configure Internet Access..."));
+my $hbox_frame1_button = new Gtk2::HBox(0,0);
+my $button1 = new Gtk2::Button(N("Configure Internet Access..."));
$button1->signal_connect(clicked => [ \&configure_net, '', $netcnx, $netc, $intf]);
$hbox_frame1_button->pack_start($button1, 0, 0, 0);
$vbox_frame1->pack_start($hbox_frame1_button,0,0,0);
-#$vbox1->pack_start(new Gtk::HSeparator,1,1,5);
+#$vbox1->pack_start(new Gtk2::HSeparator,1,1,5);
-my $frame2 = new Gtk::Frame (N("LAN configuration"));
+my $frame2 = new Gtk2::Frame (N("LAN configuration"));
$vbox1->pack_start($frame2,1,1,0);
-my $vbox2 = new Gtk::VBox(0,0);
+my $vbox2 = new Gtk2::VBox(0,0);
$vbox2->set_border_width(5);
$frame2->add($vbox2);
-my $clist1 = new_with_titles Gtk::CList("", N("Interface"), N("IP address"), N("Protocol"), N("Driver"), N("State"));
+my $clist1 = new_with_titles Gtk2::CList("", N("Interface"), N("IP address"), N("Protocol"), N("Driver"), N("State"));
$clist1->set_column_auto_resize($_,1) foreach (0..4);
$clist1->column_titles_passive();
$clist1->set_shadow_type('etched_out');
@@ -236,21 +236,21 @@ my $ip_regexp = qr/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;
build_clist();
-my $hbox3 = new Gtk::HBox(0,0);
-my $button3 = new Gtk::Button(N("Configure Local Area Network..."));
+my $hbox3 = new Gtk2::HBox(0,0);
+my $button3 = new Gtk2::Button(N("Configure Local Area Network..."));
$button3->signal_connect(clicked => [ \&configure_lan, '', $netcnx, $netc, $intf]);
$hbox3->pack_start($button3, 0, 0, 0);
$vbox2->pack_start($hbox3, 0, 0, 0);
-#$vbox1->pack_start(new Gtk::HSeparator,0,0,5);
+#$vbox1->pack_start(new Gtk2::HSeparator,0,0,5);
-my $bbox0 = new Gtk::HButtonBox;
+my $bbox0 = new Gtk2::HButtonBox;
$vbox1->pack_start($bbox0,0,0,0);
-$bbox0->set_layout(-end);
+$bbox0->set_layout('end');
-$bbox0->add(new Gtk::Label(N("Click here to launch the wizard ->")));
-my $button_wizard = new Gtk::Button N("Wizard...");
+$bbox0->add(new Gtk2::Label(N("Click here to launch the wizard ->")));
+my $button_wizard = new Gtk2::Button N("Wizard...");
$button_wizard->signal_connect(clicked => sub {
$::isWizard = 1;
system("drakconnect --wizard");
@@ -261,14 +261,14 @@ $button_wizard->signal_connect(clicked => sub {
});
$bbox0->add($button_wizard);
-$vbox1->pack_start(new Gtk::HSeparator,0,0,5);
+$vbox1->pack_start(new Gtk2::HSeparator,0,0,5);
-my $bbox1 = new Gtk::HButtonBox;
+my $bbox1 = new Gtk2::HButtonBox;
$vbox1->pack_start($bbox1,0,0,0);
-$bbox1->set_layout(-end);
+$bbox1->set_layout('end');
#$bbox1->set_border_width(5);
-my $button_expert = new Gtk::Button N("Expert Mode");
+my $button_expert = new Gtk2::Button N("Expert Mode");
$button_expert->signal_connect (clicked => sub {
foreach ($button1, $button3) { $expert_mode ? $_->hide() : $_->show() }
$button_expert->child->set($expert_mode ? N("Expert Mode") : N("Normal Mode"));
@@ -276,26 +276,26 @@ $button_expert->signal_connect (clicked => sub {
});
$bbox1->add($button_expert);
-my $button_apply = new Gtk::Button N("Apply");
+my $button_apply = new Gtk2::Button N("Apply");
$button_apply->signal_connect (clicked => sub {
apply();
});
$button_apply->set_sensitive(0);
$bbox1->add($button_apply);
-my $button_cancel = new Gtk::Button N("Cancel");
+my $button_cancel = new Gtk2::Button N("Cancel");
$button_cancel->signal_connect (clicked => sub {
$combo1->entry->set_text($old_profile);
update();
quit_global();
});
$bbox1->add($button_cancel);
-my $button_ok = new Gtk::Button N("OK");
+my $button_ok = new Gtk2::Button N("OK");
$button_ok->signal_connect (clicked => sub {
- my $dialog = new Gtk::Dialog();
- $dialog->set_position(1);
+ my $dialog = new Gtk2::Dialog();
+ $dialog->set_position('center');
$dialog->vbox->set_border_width(10);
- my $label = new Gtk::Label(N("Please Wait... Applying the configuration"));
+ my $label = new Gtk2::Label(N("Please Wait... Applying the configuration"));
$dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
$dialog->vbox->pack_start($label,1,1,20);
$dialog->show_all;
@@ -322,7 +322,7 @@ Gtk->main_iteration while Gtk->events_pending;
$::isEmbedded and kill 'USR2', $::CCPID;
my $tag = Gtk->timeout_add(4000, \&update2);
$window1->main;
-my_gtk->exit(0);
+ugtk2->exit(0);
dd:
network::netconnect::intro('', $netcnx, $in);
@@ -338,7 +338,7 @@ sub build_clist {
$state = /eth$i/ ? "up" : "down";
} else { $ip = $intf->{"eth$_"}{IPADDR}; $state = "n/a" }
$clist1->append("", "eth$i", $ip , $intf->{"eth$i"}{BOOTPROTO}, $all_cards[$i]->[1], $state);
- $clist1->set_pixmap ($i, 0, gtkcreate_png("eth_card_mini2.png"));
+ $clist1->set_pixmap ($i, 0, gtkcreate_img("eth_card_mini2.png"));
$clist1->set_selectable($i, 0);
}
@@ -410,26 +410,26 @@ sub update2 {
}
sub quit_global {
- my_gtk->exit(0);
+ ugtk2->exit(0);
}
sub configure_lan {
my (undef, $prefix, $netcnx, $netc, $intf) = @_;
- my $window = new Gtk::Window -toplevel;
+ my $window = new Gtk2::Window -toplevel;
my @card_tab;
if (@all_cards < 1) {
- my $dialog = new Gtk::Dialog();
- $dialog->set_position(1);
+ my $dialog = new Gtk2::Dialog();
+ $dialog->set_position('center');
$dialog->vbox->set_border_width(10);
$dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
- $dialog->vbox->pack_start(new Gtk::Label(N("You don't have any configured interface.
+ $dialog->vbox->pack_start(new Gtk2::Label(N("You don't have any configured interface.
Configure them first by clicking on 'Configure'")),1,1,0);
- my $bbox_dialog = new Gtk::HButtonBox;
+ my $bbox_dialog = new Gtk2::HButtonBox;
$dialog->action_area->add($bbox_dialog);
- $bbox_dialog->set_layout(-end);
- my $button_ok = new Gtk::Button N("OK");
+ $bbox_dialog->set_layout('end');
+ my $button_ok = new Gtk2::Button N("OK");
$button_ok->signal_connect (clicked => sub { Gtk->main_quit() });
$bbox_dialog->add($button_ok);
$dialog->show_all;
@@ -441,13 +441,13 @@ Configure them first by clicking on 'Configure'")),1,1,0);
$window->set_policy (1, 1, 1);
$window->signal_connect (delete_event => sub { Gtk->main_quit });
- $window->set_position(1);
+ $window->set_position('center');
$window->set_title(N("LAN configuration"));
$window->border_width(10);
- my $vbox1 = new Gtk::VBox(0,0);
+ my $vbox1 = new Gtk2::VBox(0,0);
$window->add($vbox1);
- $vbox1->pack_start(new Gtk::Label(N("LAN Configuration")),0,1,0);
- my $notebook = new Gtk::Notebook;
+ $vbox1->pack_start(new Gtk2::Label(N("LAN Configuration")),0,1,0);
+ my $notebook = new Gtk2::Notebook;
$vbox1->pack_start($notebook,0,1,0);
my @eth_data;
foreach (0..$#all_cards) {
@@ -455,9 +455,9 @@ Configure them first by clicking on 'Configure'")),1,1,0);
my @conf_data;
$card_tab[2*$_] = \@infos;
$card_tab[2*$_+1] = \@conf_data;
- my $vbox_local = new Gtk::VBox(0,0);
+ my $vbox_local = new Gtk2::VBox(0,0);
$vbox_local->set_border_width(10);
- $vbox_local->pack_start(new Gtk::Label(N("Adapter %s: %s", $_+1 , "eth$_")),1,1,0);
+ $vbox_local->pack_start(new Gtk2::Label(N("Adapter %s: %s", $_+1 , "eth$_")),1,1,0);
# Eth${_}Hostname = $netc->{HOSTNAME}
# Eth${_}HostAlias = " . do { $netc->{HOSTNAME} =~ /([^\.]*)\./; $1 } . "
# Eth${_}Driver = $all_cards[$_]->[1]
@@ -469,19 +469,19 @@ Configure them first by clicking on 'Configure'")),1,1,0);
);
my $i = 0;
foreach my $j (@conf_data) {
- $infos[2*$i] = new Gtk::HBox(0,0);
- my $l = new Gtk::Label($j->[0]);
+ $infos[2*$i] = new Gtk2::HBox(0,0);
+ my $l = new Gtk2::Label($j->[0]);
$l->set_justify('left');
$infos[2*$i]->pack_start($l,1,1,0);
$vbox_local->pack_start($infos[2*$i],0,0,0);
if (defined $j->[2]) {
- my $c = new Gtk::Combo();
+ my $c = new Gtk2::Combo();
$c->set_popdown_strings(@{$j->[2]});
$infos[2*$i+1] = $c->entry;
$infos[2*$i+1]->set_editable(0);
$infos[2*$i]->pack_start($c,0,0,0);
} else {
- $infos[2*$i+1] = new Gtk::Entry();
+ $infos[2*$i+1] = new Gtk2::Entry();
$infos[2*$i]->pack_start($infos[2*$i+1],0,0,0);
}
$infos[2*$i+1]->set_text(${$j->[1]});
@@ -490,7 +490,7 @@ Configure them first by clicking on 'Configure'")),1,1,0);
my $c = $_;
my $widget_temp;
if (-e "$prefix/etc/sysconfig/network-scripts/ifcfg-eth$c") {
- $widget_temp = gtksignal_connect(new Gtk::Button(ethisup($c) ? N("deactivate now") : N("activate now")),
+ $widget_temp = gtksignal_connect(new Gtk2::Button(ethisup($c) ? N("deactivate now") : N("activate now")),
clicked => sub {
system("/sbin/if".(ethisup($c)?"down" : "up")." eth$c");
gtkbuttonset($_[0], ethisup($c)? N("deactivate now") : N("activate now"));
@@ -498,24 +498,24 @@ Configure them first by clicking on 'Configure'")),1,1,0);
} else {
$widget_temp = N("This interface has not been configured yet.\nLaunch the configuration wizard in the main window");
}
- $vbox_local->pack_start(gtkpack__(new Gtk::HBox(0,0),
+ $vbox_local->pack_start(gtkpack__(new Gtk2::HBox(0,0),
$widget_temp
),0,0,0);
# $clist1->append($_+1, "eth$_", $intf->{"eth$_"}{IPADDR}, $intf->{"eth$_"}{BOOTPROTO}, $all_cards[$_]->[1]);
# $clist1->set_selectable($_, 0);
# require Data::Dumper;
# print "------------\n" . Data::Dumper->Dump([$b],['b']) . "\n";
- my $hbox_local = new Gtk::HBox(0,0);
+ my $hbox_local = new Gtk2::HBox(0,0);
my $pix = gtkpng("/usr/share/libDrakX/pixmaps/eth_card_mini.png");
$hbox_local->pack_start($pix,0,0,0);
- $hbox_local->pack_start(new Gtk::Label("eth$_"),0,0,0);
+ $hbox_local->pack_start(new Gtk2::Label("eth$_"),0,0,0);
$hbox_local->show_all;
$notebook->append_page($vbox_local, $hbox_local);
}
- my $bbox1 = new Gtk::HButtonBox;
+ my $bbox1 = new Gtk2::HButtonBox;
$vbox1->pack_start($bbox1,0,0,10);
- $bbox1->set_layout(-end);
- my $button_ok = new Gtk::Button(N("OK"));
+ $bbox1->set_layout('end');
+ my $button_ok = new Gtk2::Button(N("OK"));
$button_ok->signal_connect (clicked => sub {
foreach (0..$#all_cards) {
my $i = 0;
@@ -531,7 +531,7 @@ Configure them first by clicking on 'Configure'")),1,1,0);
$window->destroy(); Gtk->main_quit;
});
$bbox1->add($button_ok);
- my $button_cancel = new Gtk::Button(N("Cancel"));
+ my $button_cancel = new Gtk2::Button(N("Cancel"));
$button_cancel->signal_connect (clicked => sub { $window->destroy(); Gtk->main_quit });
$bbox1->add($button_cancel);
@@ -549,16 +549,16 @@ Configure them first by clicking on 'Configure'")),1,1,0);
sub configure_net {
my (undef, $prefix, $netcnx, $netc, $intf) = @_;
if (!$netcnx->{type}) {
- my $dialog = new Gtk::Dialog();
- $dialog->set_position(1);
+ my $dialog = new Gtk2::Dialog();
+ $dialog->set_position('center');
$dialog->vbox->set_border_width(10);
$dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
- $dialog->vbox->pack_start(new Gtk::Label(N("You don't have any internet connection.
+ $dialog->vbox->pack_start(new Gtk2::Label(N("You don't have any internet connection.
Create one first by clicking on 'Configure'")),1,1,0);
- my $bbox_dialog = new Gtk::HButtonBox;
+ my $bbox_dialog = new Gtk2::HButtonBox;
$dialog->action_area->add($bbox_dialog);
- $bbox_dialog->set_layout(-end);
- my $button_ok = new Gtk::Button N("OK");
+ $bbox_dialog->set_layout('end');
+ my $button_ok = new Gtk2::Button N("OK");
$button_ok->signal_connect (clicked => sub {
Gtk->main_quit();
});
@@ -573,32 +573,32 @@ Create one first by clicking on 'Configure'")),1,1,0);
my @infos;
$cnx = $netcnx->{$netcnx->{type}};
my $auto_detect = {};
- my $window = new Gtk::Window -toplevel;
+ my $window = new Gtk2::Window -toplevel;
$window->set_policy (1, 1, 1);
$window->signal_connect (delete_event => sub { Gtk->main_quit });
- $window->set_position(1);
+ $window->set_position('center');
$window->set_title(N("Internet connection configuration"));
$window->border_width(10);
- my $vbox1 = new Gtk::VBox(0,0);
+ my $vbox1 = new Gtk2::VBox(0,0);
$window->add($vbox1);
- $vbox1->pack_start(new Gtk::Label(N("Internet Connection Configuration")),0,1,0);
+ $vbox1->pack_start(new Gtk2::Label(N("Internet Connection Configuration")),0,1,0);
- $vbox1->pack_start(new Gtk::HSeparator,0,0,5);
- my $table1 = new Gtk::Table (2, 4, 0);
+ $vbox1->pack_start(new Gtk2::HSeparator,0,0,5);
+ my $table1 = new Gtk2::Table (2, 4, 0);
$table1->set_row_spacings(5);
$table1->set_col_spacings(5);
$vbox1->pack_start($table1,0,0,0);
- $table1->attach(new Gtk::Label(N("Profile: ")), 0, 1, 0, 1, 'fill', 'fill',0,0);
- $table1->attach(new Gtk::Label(translate($netcnx->{PROFILE})), 1, 2, 0, 1, 'fill', 'fill',0,0);
- $table1->attach(new Gtk::Label(N("Connection type: ")), 0, 1, 1, 2, 'fill', 'fill',0,0);
- $table1->attach(new Gtk::Label(translate($netcnx->{type})), 1, 2, 1, 2, 'fill', 'fill',0,0);
-# my $button1 = new Gtk::Button(N("Reconfigure using wizard..."));
+ $table1->attach(new Gtk2::Label(N("Profile: ")), 0, 1, 0, 1, 'fill', 'fill',0,0);
+ $table1->attach(new Gtk2::Label(translate($netcnx->{PROFILE})), 1, 2, 0, 1, 'fill', 'fill',0,0);
+ $table1->attach(new Gtk2::Label(N("Connection type: ")), 0, 1, 1, 2, 'fill', 'fill',0,0);
+ $table1->attach(new Gtk2::Label(translate($netcnx->{type})), 1, 2, 1, 2, 'fill', 'fill',0,0);
+# my $button1 = new Gtk2::Button(N("Reconfigure using wizard..."));
# $table1->attach($button1, 2, 4, 0, 2, 'fill', 'fill',0,0);
- $vbox1->pack_start(new Gtk::HSeparator,0,0,5);
+ $vbox1->pack_start(new Gtk2::HSeparator,0,0,5);
- my $frame1 = new Gtk::Frame (N("Parameters"));
+ my $frame1 = new Gtk2::Frame (N("Parameters"));
$vbox1->pack_start($frame1,1,1,0);
- my $vbox2 = new Gtk::VBox(0,0);
+ my $vbox2 = new Gtk2::VBox(0,0);
$frame1->add($vbox2);
my $i = 0;
my @conf_data = ([N("Card IRQ"), \$cnx->{irq} ],
@@ -629,18 +629,18 @@ Create one first by clicking on 'Configure'")),1,1,0);
[N("Connection timeout (in sec)"), \$cnx->{huptimeout} ]
);
foreach (@conf_data) {
- $infos[2*$i] = new Gtk::HBox(0,0);
- my $l = new Gtk::Label($_->[0]);
+ $infos[2*$i] = new Gtk2::HBox(0,0);
+ my $l = new Gtk2::Label($_->[0]);
$l->set_justify('left');
$infos[2*$i]->pack_start($l,1,1,0);
$vbox2->pack_start($infos[2*$i],0,0,0);
if (defined $_->[2]) {
- my $c = new Gtk::Combo();
+ my $c = new Gtk2::Combo();
$c->set_popdown_strings(@{$_->[2]});
$infos[2*$i+1] = $c->entry;
$infos[2*$i]->pack_start($c,0,0,0);
} else {
- $infos[2*$i+1] = new Gtk::Entry();
+ $infos[2*$i+1] = new Gtk2::Entry();
$infos[2*$i]->pack_start($infos[2*$i+1],0,0,0);
#hide password if Entry Password
if ($_->[0] eq N("Account Password") || $_->[0] eq N("Password")) { $infos[2*$i+1]->set_visibility(0) };
@@ -655,13 +655,13 @@ Create one first by clicking on 'Configure'")),1,1,0);
@mask = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0) if ($netcnx->{type} eq 'modem'||$netcnx->{type} eq 'isdn_external');
@mask = (0,0,0,0,0,0,1,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0) if $netcnx->{type} =~ 'adsl';
@mask = (0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0) if $netcnx->{type} eq 'cable';
- $vbox1->pack_start(new Gtk::HSeparator,0,0,5);
+ $vbox1->pack_start(new Gtk2::HSeparator,0,0,5);
- my $bbox1 = new Gtk::HButtonBox;
+ my $bbox1 = new Gtk2::HButtonBox;
$vbox1->pack_start($bbox1,0,0,0);
- $bbox1->set_layout(-end);
- my $button_ok = new Gtk::Button N("OK");
+ $bbox1->set_layout('end');
+ my $button_ok = new Gtk2::Button N("OK");
$button_ok->signal_connect (clicked => sub {
$i = 0;
foreach (@mask) {
@@ -673,7 +673,7 @@ Create one first by clicking on 'Configure'")),1,1,0);
$window->destroy(); Gtk->main_quit;
});
$bbox1->add($button_ok);
- my $button_cancel = new Gtk::Button N("Cancel");
+ my $button_cancel = new Gtk2::Button N("Cancel");
$button_cancel->signal_connect (clicked => sub { $window->destroy(); Gtk->main_quit });
$bbox1->add($button_cancel);