+my $DEBUG = 0;

+my $restore_sys = 1;

+my $restore_user = 1;

+my $restore_other = 1;

+my @user_backuped = ();

+my @sys_backuped = ();

+my $sys_backuped = 0;

+my $other_backuped = 0;

+my @user_list_to_restore = ();

+my @sys_list_to_restore = ();

+my @data_backuped = ();

+my @list_to_build_on_cd = ();

+my $restore_path = "/";

+my $restore_other_path = 0;

+my @user_list_backuped = ();

+my @files_corrupted = ();

+my @file_list_to_send_by_ftp = ();

+my @list_other = ();

+my $cfg_file = "/etc/drakxtools/drakbackup/drakbackup.conf";

+my $save_path = "/var/lib/drakbackup";

+my $comp_mode = 0;

+my $backup_sys = 1;

+my $backup_user = 1;

+my $backup_daemon = 1;

+my $backup_sys_versions = 1;

+my $backup_user_versions = 1;

+my $what_no_browser = 1;

+my $cdrw = 0;

+my $net_proto = '';

+my $host_path = '';

+my $login_user = '';

+my $daemon = 0;

+my $ssh_daemon = 0;

+my $ftp_daemon = 0;

+my $hd_daemon = 0;

+my $cd_daemon = 0;

+my $hd_quota = 0;

+my $where_net_ftp = 0;

+my $where_net_ssh = 0;

+my $where_net = 0;

+my $where_hd = 1;

+my $where_cd = 0;

+my $where_tape = 0;

+my $cd_time = 650;

+my $cd_devive = '';

+my $host_name = '';

+my $backupignore = 0;

+my $auth_choice = 0;

+my $remember_pass = 0;

+my $passwd_user = '';

+my $save_device_tape = ();

+my $cdrw_erase = 0;

+my $no_critical_sys = 1;

+my $send_mail = 0;

+ /--default/ and backend_mode();

+ /--daemon/ and daemon_mode();

+ /--debug/ and $DEBUG = 1, next;

+ my ( $uname, $uid );

+ @user_info = getpwent();

+ ( $uname, $uid ) = @user_info[ 0, 2 ];

+ push ( @all_user_list, $uname )

+ if ( $uid > 500 )

+ and !( $uname eq "nobody" );

+ if ( localtime->mon() < 9 ) { $the_time .= "0"; }

+ $the_time .= localtime->mon() + 1;

+ if ( localtime->mday() < 10 ) { $the_time .= "0"; }

+ if ( localtime->hour() < 10 ) { $the_time .= "0"; }

+ if ( localtime->min() < 10 ) { $the_time .= "0"; }

+ if ( localtime->sec() < 10 ) { $the_time .= "0"; }

+ $the_time .= localtime->sec();

+ my @cfg_list = (

+ "SYS_FILES=@sys_files\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", "CDRW_DEVICE=$cd_devive\n",

+ "LOGIN=$login_user\n", "TAPE_DEVICE=$save_device_tape\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";

+ $cdrw_erase and push @cfg_list, "CDRW_ERASE\n";

+ $where_net_ftp and push @cfg_list, "USE_NET_FTP\n";

+ $where_net_ssh and push @cfg_list, "USE_NET_SSH\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";

+ $auth_choice or push @cfg_list, "AUTH_CHOICE=0\n";

+ if ( $auth_choice == 1 ) { push @cfg_list, "AUTH_CHOICE=1\n"; }

+ if ( $auth_choice == 2 ) { push @cfg_list, "AUTH_CHOICE=2\n"; }

+ $cd_with_install_boot and push @cfg_list, "CD_WITH_INSTALL_BOOT\n";

+ $ssh_daemon and push @cfg_list, "SSH_DAEMON\n";

+ $ftp_daemon and push @cfg_list, "FTP_DAEMON\n";

+ $hd_daemon and push @cfg_list, "HD_DAEMON\n";

+ $cd_daemon and push @cfg_list, "CD_DAEMON\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_net and push @cfg_list, "USE_NET\n";

+ $cdrw and push @cfg_list, "CDRW\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" }

+ else { push @cfg_list, "OPTION_COMP=TAR.GZ\n" }

+ output_p( $cfg_file, @cfg_list );

+ if ( -f "/etc/cron.$_/drakbackup" ) {

+ $when_space = $_;

+ $daemon_found = 1;

+ last;

+ }

+ !$daemon_found and $backup_daemon = 0;

+ my @cron_file = ( "#!/bin/sh\n", "\n", "/usr/sbin/drakbackup --daemon" );

+ foreach (qw(hourly daily weekly monthly)) {

+ -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup");

+ }

+ output_p( "/etc/cron.$when_space/drakbackup", @cron_file );

+ system("chmod +x /etc/cron.$when_space/drakbackup");

+ }

+ else {

+ foreach (qw(hourly daily weekly monthly)) {

+ -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup");

+ }

+ if ( -e $cfg_file ) {

+ open( CONF_FILE, "<" . "$cfg_file" )

+ || print "You must be root to read configuration file. \n";

+ 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 (/^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 (/^NET_PROTO/) { s/^NET_PROTO=//gi; $net_proto = $_; }

+ if (/^HOST_PATH/) { s/^HOST_PATH=//gi; $host_path = $_; }

+ if (/^SSH_DAEMON/) { $ssh_daemon = 1; }

+ if (/^FTP_DAEMON/) { $ftp_daemon = 1; }

+ if (/^HD_DAEMON/) { $hd_daemon = 1; }

+ if (/^CD_DAEMON/) { $cd_daemon = 1; }

+ if (/^HD_QUOTA/) { $hd_quota = 1; }

+ if (/^USE_HD/) { $where_hd = 1; }

+ if (/^USE_CD/) { $where_cd = 1; }

+ if (/^USE_NET/) { $where_net = 1; }

+ if (/^USE_TAPE/) { $where_tape = 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 (/^CDRW_DEVICE/) { s/^CDRW_DEVICE=//gi; $cd_devive = $_; }

+ if (/^HOST_NAME/) { s/^HOST_NAME=//gi; $host_name = $_; }

+ if (/^AUTH_CHOICE/) { s/^AUTH_CHOICE=//gi; $auth_choice = $_; }

+ if (/^REMEMBER_PASS/) { $remember_pass = 1; }

+ if (/^LOGIN/) {

+ s/^LOGIN=//gi;

+ $login_user = $_;

+ $remember_pass = 1;

+ }

+ if (/^PASSWD/) {

+ s/^PASSWD=//gi;

+ $passwd_user = $_;

+ $remember_pass = 1;

+ }

+ if (/^USER_MAIL/) { s/^USER_MAIL=//gi; $user_mail = $_; }

+ if (/^USE_NET_FTP/) { $where_net_ftp = 1; }

+ if (/^SEND_MAIL/) { $send_mail = 1; }

+ if (/^USE_NET_SSH/) { $where_net_ssh = 1; }

+ if (/^TAPE_DEVICE/) { s/TAPE_DEVICE=//gi; $save_device_tape = $_; }

+ if (/^CDRW_ERASE/) { $cdrw_erase = 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; }

+ }

+ read_cron_files();

+ $cfg_file_exist = 1;

+ }

+ close CONF_FILE;

+ $results .=

+"***********************************************************************\n\n";

+ $daemon or $results .= _("\n DrakBackup Report \n\n");

+ $daemon

+ and $results .=

+ _("\n DrakBackup Daemon Report\n\n\n");

+ $results .=

+"***********************************************************************\n\n";

+ $results .=

+"\n\n***********************************************************************\n\n";

+ $results .= _("\n DrakBackup Report Details\n\n\n");

+ $results .=

+"***********************************************************************\n\n";

+ use Net::FTP;

+ $DEBUG

+ and print "file list to send : $_\n " foreach @file_list_to_send_by_ftp;

+ if ( $DEBUG && $interactive ) {

+ $ftp = Net::FTP->new( "$host_name", Debug => 1 ) or return (1);

+ }

+ elsif ($interactive) {

+ $ftp = Net::FTP->new( "$host_name", Debug => 0 ) or return (1);

+ }

+ else { $ftp = Net::FTP->new( "$host_name", Debug => 0 ) or return (1); }

+ $ftp->login( "$login_user", "$passwd_user" );

+ $ftp->cwd("$host_path");

+ $pbar->set_value(0);

+ $interactive and progress( $pbar, 0.5, $_ );

+ $interactive and $pbar->set_show_text($_);

+ $ftp->put("$_");

+ $interactive and progress( $pbar, 0.5, $_ );

+ $interactive and $pbar->set_show_text($_);

+ $interactive

+ and

+ progress( $pbar3, 1 / @file_list_to_send_by_ftp, _("total progess") );

+ $ftp->quit;

+ return (0);

+

+ # system("cdrecord ");

+

+ # system("mkisofs -r -J -T -v -V 'Drakbackup' -o drakbackup.iso /var/lib/drakbackup");

+ open F, "|/usr/sbin/sendmail -f$user_mail $user_mail" or return (1);

+ close F or return (1);

+ return (0);

+ my $base_sys_exist = 0;

+ my $base_user_exist = 0;

+ my @list_temp = ();

+ the_time();

+ -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";

+ }

+ else {

+ $DEBUG and $tar_cmd = "tar cvpz ";

+ $DEBUG or $tar_cmd = "tar cpz ";

+ $tar_ext = "tar.gz";

+ }

+ $tar_cmd_sys = $tar_cmd;

+ $tar_cmd_user = $tar_cmd;

+ $no_critical_sys

+ and $tar_cmd_sys .=

+ "--exclude passwd --exclude fstab --exclude group --exclude mtab";

+ $what_no_browser

+ and $tar_cmd_user .= "--exclude NewCache --exclude Cache --exclude cache";

+ grep ( /^backup\_base\_sys/, @dir_content ) and $base_sys_exist = 1;

+

+ if ( ( $where_hd && !$daemon ) || ( $daemon && $hd_daemon ) ) {

+ $interactive and progress( $pbar, 0.5, _("Backup system files...") );

+ if ($backup_sys) {

+ if ($backup_sys_versions) {

+ if ( grep /^backup\_incr\_sys/, @dir_content ) {

+ my @more_recent = grep /^backup\_incr\_sys/,

+ sort @dir_content;

+ $more_recent = pop @more_recent;

+ $DEBUG and print "more recent file: $more_recent\n";

+ system(

+"find @sys_files -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_sys$the_time.txt"

+ );

+ if ( !cat_("$save_path/list_incr_sys$the_time.txt") ) {

+ system("rm $save_path/list_incr_sys$the_time.txt");

+ }

+ else {

+ system(

+"$tar_cmd_sys -f $save_path/backup_incr_sys$the_time.$tar_ext -T $save_path/list_incr_sys$the_time.txt"

+ );

+ push @file_list_to_send_by_ftp,

+ "$save_path/backup_incr_sys$the_time.$tar_ext";

+ push @file_list_to_send_by_ftp,

+ "$save_path/list_incr_sys$the_time.txt";

+ $results .=

+"\nfile: $save_path/backup_incr_sys$the_time.$tar_ext\n";

+ $results .=

+ cat_("$save_path/list_incr_sys$the_time.txt");

+ }

+ }

+ elsif ( grep /^backup\_base\_sys/, @dir_content ) {

+ my @more_recent = grep /^backup\_base\_sys/,

+ sort @dir_content;

+ $more_recent = pop @more_recent;

+ $DEBUG and print "more recent file: $more_recent\n";

+ system(

+"find @sys_files -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_sys$the_time.txt"

+ );

+ if ( !cat_("$save_path/list_incr_sys$the_time.txt") ) {

+ system("rm $save_path/list_incr_sys$the_time.txt");

+ }

+ else {

+ system(

+"$tar_cmd_sys -f $save_path/backup_incr_sys$the_time.$tar_ext -T $save_path/list_incr_sys$the_time.txt"

+ );

+ push @file_list_to_send_by_ftp,

+ "$save_path/backup_incr_sys$the_time.$tar_ext";

+ push @file_list_to_send_by_ftp,

+ "$save_path/list_incr_sys$the_time.txt";

+ $results .=

+"\nfile: $save_path/backup_incr_sys$the_time.$tar_ext\n";

+ $results .=

+ cat_("$save_path/list_incr_sys$the_time.txt");

+ }

+ }

+ else {

+ system(

+"$tar_cmd_sys -f $save_path/backup_base_sys$the_time.$tar_ext @sys_files"

+ );

+ push @file_list_to_send_by_ftp,

+ "$save_path/backup_base_sys$the_time.$tar_ext";

+ $results .=

+ "\nfile: $save_path/backup_base_sys$the_time.$tar_ext\n";

+ }

+ }

+ else {

+

+ # system("cd $save_path && rm -f backup_sys* backup_base_sys* backup_incr_sys*");

+ system(

+"$tar_cmd_sys -f $save_path/backup_sys$the_time.$tar_ext @sys_files"

+ );

+ push @file_list_to_send_by_ftp,

+ "$save_path/backup_sys$the_time.$tar_ext";

+ $results .= "\nfile: $save_path/backup_sys$the_time.$tar_ext\n";

+ }

+ }

+

+ $interactive and progress( $pbar, 0.5, _("Backup system files...") );

+ $interactive

+ and progress( $pbar3, 0.3, _("Hard Disk Backup files...") );

+

+ if (@list_other) {

+ system("cd $save_path && rm -f backup_other* ");

+ system(

+"$tar_cmd_other -f $save_path/backup_other$the_time.$tar_ext @list_other"

+ );

+ push @file_list_to_send_by_ftp,

+ "$save_path/backup_other$the_time.$tar_ext";

+ $results .= "\nfile: $save_path/backup_other$the_time.$tar_ext\n";

+

+ #old foreach (@list_other) { push @list_other_, $_ . "\n"; }

+ @list_other_ = map { "$_\n" } @list_other;

+ output_p( $save_path . '/list_other', @list_other_ );

+ }

+

+ $interactive and progress( $pbar1, 1, _("Backup User files...") );

+ $interactive

+ and progress( $pbar3, 0.3, _("Hard Disk Backup Progress...") );

+

+ if ($backup_user) {

+ foreach (@user_list) {

+ my $user = $_;

+ $path_name = return_path($user);

+ if ($backup_user_versions) {

+ if ( grep( /^backup\_incr\_user\_$user\_/, @dir_content ) )

+ {

+ my @more_recent = grep /^backup\_incr\_user\_$user\_/,

+ sort @dir_content;

+ $more_recent = pop @more_recent;

+ $DEBUG and print "more recent file: $more_recent\n";

+ system(

+"find $path_name -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_user_$user$the_time.txt"

+ );

+ if (

+ !cat_(

+ "$save_path/list_incr_user_$user$the_time.txt"

+ )

+ )

+ {

+ system(

+"rm $save_path/list_incr_user_$user$the_time.txt"

+ );

+ }

+ else {

+ system(

+"$tar_cmd_user -f $save_path/backup_incr_user_$user$the_time.$tar_ext -T $save_path/list_incr_user_$user$the_time.txt"

+ );

+ push @file_list_to_send_by_ftp,

+"$save_path/backup_incr_user_$user$the_time.$tar_ext";

+ push @file_list_to_send_by_ftp,

+ "$save_path/list_incr_user_$user$the_time.txt";

+ $results .=

+" \nfile: $save_path/backup_incr_user_$user$the_time.$tar_ext\n";

+ $results .= cat_(

+ "$save_path/list_incr_user_$user$the_time.txt");

+ }

+ }

+ elsif ( grep /^backup\_base\_user\_$user\_/, @dir_content )

+ {

+ my @more_recent = grep /^backup\_base\_user\_$user\_/,

+ sort @dir_content;

+ $more_recent = pop @more_recent;

+ $DEBUG and print "more recent file: $more_recent\n";

+ system(

+"find $path_name -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_user_$user$the_time.txt"

+ );

+ if (

+ !cat_(

+ "$save_path/list_incr_user_$user$the_time.txt"

+ )

+ )

+ {

+ system(

+"rm $save_path/list_incr_user_$user$the_time.txt"

+ );

+ }

+ else {

+ system(

+"$tar_cmd_user -f $save_path/backup_incr_user_$user$the_time.$tar_ext -T $save_path/list_incr_user_$user$the_time.txt"

+ );

+ push @file_list_to_send_by_ftp,

+"$save_path/backup_incr_user_$user$the_time.$tar_ext";

+ push @file_list_to_send_by_ftp,

+ "$save_path/list_incr_user_$user$the_time.txt";

+ $results .=

+"\nfile: $save_path/backup_incr_user_$user$the_time.$tar_ext\n";

+ $results .= cat_(

+ "$save_path/list_incr_user_$user$the_time.txt");

+ }

+ }

+ else {

+ system(

+"$tar_cmd_user -f $save_path/backup_base_user_$user$the_time.$tar_ext $path_name"

+ );

+ push @file_list_to_send_by_ftp,

+ "$save_path/backup_base_user_$user$the_time.$tar_ext";

+ $results .=

+"\nfile: $save_path/backup_base_user_$user$the_time.$tar_ext\n";

+ }

+ }

+ else {

+ system(

+"cd $save_path && rm -f backup_user_$_* backup_base_user_$_* backup_incr_user_$_*"

+ );

+ system(

+"$tar_cmd_user -f $save_path/backup_user_$_$the_time.$tar_ext $path_name"

+ );

+ push @file_list_to_send_by_ftp,

+ "$save_path/backup_user_$_$the_time.$tar_ext";

+ $results .=

+"\nfile: $save_path/backup_user_$user$the_time.$tar_ext\n";

+ }

+ }

+ }

+ $interactive and progress( $pbar2, 1, _("Backup Other files...") );

+ $interactive

+ and progress( $pbar3, 0.4, _("Hard Disk Backup files...") );

+ if ( ( $where_net_ssh && !$daemon ) || ( $daemon && $ssh_daemon ) ) {

+

+ #ssh_client();

+ }

+ if ( ( $where_net_ftp && !$daemon ) || ( $daemon && $ftp_daemon ) ) {

+ $results .= _( "file list send by FTP : %s\n ", $_ )

+ foreach @file_list_to_send_by_ftp;

+ $interactive and build_backup_ftp_status();

+ if ( ftp_client() ) {

+ $results .= _(

+"\n FTP connexion problem: It was not possible to send your backup files by FTP.\n"

+ );

+ $interactive and client_ftp_pb();

+ }

+ }

+ if ( ( $where_cd && !$daemon ) || ( $daemon && $cd_daemon ) ) {

+ build_cd();

+ }

+ if ($send_mail) {

+ if ( send_mail("$results") ) {

+ $interactive and send_mail_pb();

+ $interactive or print _(" Error during mail sending. \n");

+ }

+ }

+}

+

+ my @file_cache = cat_("/var/log/rpmpkgs");

+

+ # my($pkg) = @_;

+ $res = grep /$pkg/, @file_cache;

+

+ # $res = system("rpm -qa | grep $_");

+ if ( $res == 0 ) {

+ $all_rpms_found = 0;

+ push @list_of_rpm_to_install, $pkg;

+ }

+ return ($all_rpms_found);

+ my ( $widget, $list ) = @_;

+ push @to_remove, $list->child_position($_) foreach ( $list->selection );

+ splice @list_other, $_, 1 foreach ( reverse sort @to_remove );

+ $list->remove_items( $list->selection );

+sub file_ok_sel {

+ my ( $widget, $file_selection ) = @_;

+ if ( !member( $file_name, @list_other ) ) {

+ push ( @list_other, $file_name );

+ $list_other->add( gtkshow( new Gtk::ListItem($file_name) ) );

+ $file_dialog = gtksignal_connect(

+ new Gtk::FileSelection( _("File Selection") ),

+ destroy => sub { $file_dialog->destroy(); }

+ );

+ $file_dialog->ok_button->signal_connect(

+ clicked => sub {

+ $save_path_entry->set_text( $file_dialog->get_filename() );

+ $file_dialog->destroy();

+ }

+ );

+ $file_dialog->cancel_button->signal_connect(

+ clicked => sub { $file_dialog->destroy() } );

+ $file_dialog = gtksignal_connect(

+ new Gtk::FileSelection( _("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();

+ }

+ );

+ $file_dialog->cancel_button->signal_connect(

+ clicked => sub { $file_dialog->destroy() } );

+ $file_dialog = gtksignal_connect(

+ new Gtk::FileSelection( _("File Selection") ),

+ destroy => sub { $file_dialog->destroy(); }

+ );

+ $file_dialog->ok_button->signal_connect(

+ clicked => \&file_ok_sel,

+ $file_dialog

+ );

+ $file_dialog->ok_button->child->set( _("Add") );

+ $file_dialog->cancel_button->signal_connect(

+ clicked => sub { $file_dialog->destroy() } );

+ $file_dialog->cancel_button->child->set( _("Close") );

+ $file_dialog->set_filename(

+ _("Select the files or directories and click on 'Add'") );

+ my $ref = $_->[1];

+ gtksignal_connect(

+ gtkset_active( $_->[0], ${$ref} ),

+ toggled => sub { invbool $ref }

+ );

+ }

+ (

+ $central_widget, $current_widget, $previous_widget,

+ $custom_help, $next_widget

+ )

+ = @_;

+

+ gtkpack(

+ $advanced_box,

+ $box_what_sys = gtkpack_(

+ new Gtk::VBox( 0, 15 ),

+ 1,

+ _("\nPlease check all options that you need.\n"),

+ 1,

+ _(

+"These options can backup and restore all files in your /etc directory.\n"

+ ),

+ 0,

+ my $check_what_sys = new Gtk::CheckButton(

+ _("Backup your System files. ( /etc directory )")

+ ),

+ 0,

+ my $check_what_versions = new Gtk::CheckButton(

+ _("Use incremental backup (do not replace old backups)")

+ ),

+ 0,

+ my $check_what_critical = new Gtk::CheckButton(

+ _("Do not include critical files (passwd, group, fstab)")

+ ),

+ 0,

+ _(

+"With this option you will be able to restore any version\n of your /etc directory."

+ ),

+ 1,

+ new Gtk::VBox( 0, 15 ),

+ ),

+ );

+ check_list(

+ [ $check_what_sys, \$backup_sys ],

+ [ $check_what_critical, \$no_critical_sys ],

+ [ $check_what_versions, \$backup_sys_versions ]

+ );

+ fonction_env( \$box_what_sys, \&advanced_what_sys, \&advanced_what,

+ "what" );

+ my ($previous_function) = @_, my $box_what_user;

+

+ gtkpack(

+ $advanced_box,

+ $box_what_user = gtkpack_(

+ new Gtk::VBox( 0, 15 ),

+ 0,

+ _(

+"Please check all users that you want to include in your backup."

+ ),

+ 0,

+ new Gtk::HSeparator,

+ 1,

+ createScrolledWindow(

+ gtkpack__(

+ new Gtk::VBox( 0, 0 ),

+ map {

+ my $name = $_;

+ my @user_list_tmp;

+ my $b = new Gtk::CheckButton($name);

+ if ( grep /^$name$/, @user_list ) {

+ $check_what_user{$_}[1] = 1;

+ gtkset_active( $b, 1 );

+ }

+ else {

+ $check_what_user{$_}[1] = 0;

+ gtkset_active( $b, 0 );

+ }

+ $b->signal_connect(

+ toggled => sub {

+ if ( $check_what_user{$name}[1] ) {

+ $check_what_user{$name}[1] = 0;

+ @user_list_tmp =

+ grep( !/^$name$/, @user_list );

+ @user_list = @user_list_tmp;

+ }

+ else {

+ $check_what_user{$name}[1] = 1;

+ if ( !member( $name, @user_list ) ) {

+ push @user_list, $name;

+ }

+ }

+ }

+ );

+ $b

+ } (@all_user_list)

+ ),

+ ),

+ 0,

+ my $check_what_browser =

+ new Gtk::CheckButton( _("Do not include the browser cache") ),

+ 0,

+ my $check_what_user_versions = new Gtk::CheckButton(

+ _("Use Incremental Backups (do not replace old backups)")

+ ),

+ ),

+ );

+ check_list(

+ [ $check_what_browser, \$what_no_browser ],

+ [ $check_what_user_versions, \$backup_user_versions ]

+ );

+ if ($previous_function) {

+ fonction_env( \$box_what_user, \&advanced_what_user,

+ \&$previous_function, "what", \&$previous_function );

+ }

+ else {

+ fonction_env( \$box_what_user, \&advanced_what_user, \&advanced_what,

+ "what" );

+ }

+ $list_other->set_selection_mode( -extended );

+ $list_other->add( gtkshow( new Gtk::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),

+ ),

+ 0,

+ gtkadd(

+ gtkset_layout( new Gtk::HButtonBox, -spread ),

+ gtksignal_connect(

+ new Gtk::Button( _("Add") ),

+ clicked => sub { filedialog() }

+ ),

+ gtksignal_connect(

+ new Gtk::Button( _("Remove Selected") ),

+ clicked => \&list_remove,

+ $list_other

+ ),

+ ),

+ 0,

+ gtkset_sensitive(

+ my $check_what_other_versions = new Gtk::CheckButton(

+ _("Use Incremental Backups (do not replace old backups)")

+ ),

+ 0

+ ),

+ ),

+ );

+ check_list( [ $check_what_other_versions, \$backup_other_versions ] );

+ fonction_env( \$box_what_other, \&advanced_what_other, \&advanced_what,

+ "what" );

+sub advanced_what_entire_sys {

+

+ 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(),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ message_underdevel();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ my $button_what_all = new Gtk::Button(),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ message_underdevel();

+ }

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::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( _("Linux") ),

+ new Gtk::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( _("Windows (FAT32)") ),

+ new Gtk::HBox( 0, 5 )

+ )

+ );

+ fonction_env( \$box_what, \&advanced_what_entire_sys, \&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(),

+ clicked =>

+ sub { $box_what->destroy(); advanced_what_sys(); }

+ ),

+ 1,

+ gtksignal_connect(

+ my $button_what_user = new Gtk::Button(),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ advanced_what_user();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ my $button_what_other = new Gtk::Button(),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ advanced_what_other();

+ }

+ ),

+

+ # 1, gtksignal_connect(my $button_what_all = new Gtk::Button(),

+ # clicked => sub { ${$central_widget}->destroy(); advanced_what_entire_sys(); }),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::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( _("System") ),

+ new Gtk::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( _("Users") ),

+ new Gtk::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( _("Other") ),

+ new Gtk::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(_("An Entire System")),

+ # new Gtk::HBox(0, 5)

+ # ));

+

+ fonction_env( \$box_what, \&advanced_what, \&advanced_box, "" );

+ my ($previous_function) = @_, my $box_where_net;

+

+ gtkpack(

+ $advanced_box,

+ $box_where_net = gtkpack_(

+ new Gtk::VBox( 0, 15 ),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ my $check_where_net_ftp =

+ new Gtk::CheckButton( _("Use FTP connection to backup") ),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label( _("Please enter the host name or IP.") ),

+ $where_net_ftp

+ ),

+ 1,

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ my $host_name_entry = new Gtk::Entry(),

+ $where_net_ftp

+ ),

+ ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"Please enter the directory to\n put the backup on this host."

+ )

+ ),

+ $where_net_ftp

+ ),

+ 1,

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ my $host_path_entry = new Gtk::Entry(),

+ $where_net_ftp

+ ),

+ ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label( _("Please enter your login") ),

+ $where_net_ftp

+ ),

+ 1,

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ my $login_user_entry = new Gtk::Entry(),

+ $where_net_ftp

+ ),

+ ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label( _("Please enter your password") ),

+ $where_net_ftp

+ ),

+ 1,

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ my $passwd_user_entry = new Gtk::Entry(),

+ $where_net_ftp

+ ),

+ ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 1,

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ my $check_remember_pass =

+ new Gtk::CheckButton( _("Remember this password") ),

+ $where_net_ftp

+ ),

+ ),

+ ),

+ );

+ $passwd_user_entry->set_text($passwd_user);

+ $passwd_user_entry->signal_connect( 'changed',

+ sub { $passwd_user = $passwd_user_entry->get_text() } );

+ $host_path_entry->set_text($host_path);

+ $host_name_entry->set_text($host_name);

+ $login_user_entry->set_text($login_user);

+ $host_name_entry->signal_connect( 'changed',

+ sub { $host_name = $host_name_entry->get_text() } );

+ $host_path_entry->signal_connect( 'changed',

+ sub { $host_path = $host_path_entry->get_text() } );

+ $login_user_entry->signal_connect( 'changed',

+ sub { $login_user = $login_user_entry->get_text() } );

+ check_list( [ $check_remember_pass, \$remember_pass ] );

+ gtksignal_connect(

+ gtkset_active( $check_where_net_ftp, $where_net_ftp ),

+ toggled => sub {

+ invbool \$where_net_ftp;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ }

+ );

+ if ($previous_function) {

+ fonction_env( \$box_where_net, \&advanced_where_net_ftp,

+ \&$previous_function, "ftp" );

+ }

+ else {

+ fonction_env( \$box_where_net, \&advanced_where_net_ftp,

+ \&advanced_where, "ftp" );

+ }

+ my ($previous_function) = @_, my $box_where_ssh;

+

+ gtkpack(

+ $advanced_box,

+ $box_where_ssh = gtkpack_(

+ new Gtk::VBox( 0, 15 ),

+ 1,

+ gtkpack(

+ new Gtk::HBox( 0, 15 ),

+ new Gtk::VBox( 0, 15 ),

+ gtkpack_(

+ new Gtk::VBox( 0, 15 ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button("rsync"),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ message_underdevel();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button("WebDav"),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ message_underdevel();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button("scp"),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ message_underdevel();

+ }

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ new Gtk::VBox( 0, 15 ),

+ ),

+ ),

+ );

+

+ # test si x11

+ #print system("xterm -fn 7x14 -bg black -fg white -e ssh-keygen -f ~/.ssh/identity-backup && scp") . "\n";

+

+ if ($previous_function) {

+ fonction_env( \$box_where_ssh, \&advanced_where_net_ssh,

+ \&$previous_function, "ssh" );

+ }

+ else {

+ fonction_env( \$box_where_ssh, \&advanced_where_net_ssh,

+ \&advanced_where, "ssh" );

+ }

+ my ($previous_function) = @_, 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( _("FTP Connection") ),

+ clicked => sub {

+ $box_where_net->destroy();

+ if ($previous_function) {

+ advanced_where_net_ftp( \&$previous_function );

+ }

+ else {

+ advanced_where_net_ftp();

+ }

+ }

+ ),

+ if_(

+ 0,

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Secure Connection") ),

+ clicked => sub {

+ $box_where_net->destroy();

+ if ($previous_function) {

+ advanced_where_net_ssh( \&$previous_function );

+ }

+ else {

+ advanced_where_net_ssh();

+ }

+ }

+ )

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 1,

+ new Gtk::VBox( 0, 10 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ if ($previous_function) {

+ fonction_env( \$box_where_net, \&advanced_where_net,

+ \&$previous_function, "remote" );

+ }

+ else {

+ fonction_env(

+ \$box_where_net, \&advanced_where_net,

+ \&advanced_where, "remote"

+ );

+ }

+ my ($previous_function) = @_, my $box_where_cd;

+ $combo_where_cd_time->set_popdown_strings( "650", "700", "750", "800" );

+

+ gtkpack(

+ $advanced_box,

+ $box_where_cd = gtkpack_(

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ my $check_where_cd =

+ new Gtk::CheckButton( _("Use CD/DVDROM to backup") ),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label( _("Please choose your CD space") ),

+ $where_cd

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkset_sensitive(

+ gtkset_usize( $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(

+ _("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 Gtk::VBox( 0, 5 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _("Please check if you want to erase your CDRW before")

+ ),

+ $cdrw && $where_cd

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkset_sensitive(

+ my $check_cdrw_erase = new Gtk::CheckButton(),

+ $cdrw && $where_cd

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"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 Gtk::VBox( 0, 5 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"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_devive_entry = new Gtk::Entry(), $where_cd

+ ),

+ 200, 20

+ ),

+ ),

+ ),

+ );

+

+ foreach ( [ $check_cdrw_erase, \$cdrw_erase ],

+ [ $check_cd_with_install_boot, \$cd_with_install_boot ] )

+ {

+ my $ref = $_->[1];

+ gtksignal_connect( gtkset_active( $_->[0], ${$ref} ),

+ toggled => sub { ${$ref} = ${$ref} ? 0 : 1; } );

+ }

+ gtksignal_connect(

+ gtkset_active( $check_where_cd, $where_cd ),

+ toggled => sub {

+ $where_cd = $where_cd ? 0 : 1;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ }

+ );

+ gtksignal_connect(

+ gtkset_active( $check_cdrw, $cdrw ),

+ toggled => sub {

+ $cdrw = $cdrw ? 0 : 1;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ }

+ );

+ $cd_devive_entry->set_text($cd_devive);

+ $cd_devive_entry->signal_connect( 'changed',

+ sub { $cd_devive = $cd_devive_entry->get_text(); } );

+ $combo_where_cd_time->entry->signal_connect( 'changed',

+ sub { $cd_time = $combo_where_cd_time->entry->get_text() } );

+ if ($previous_function) {

+ fonction_env( \$box_where_cd, \&advanced_where_cd, \&$previous_function,

+ "" );

+ }

+ else {

+ fonction_env( \$box_where_cd, \&advanced_where_cd, \&advanced_where,

+ "" );

+ }

+ my ($previous_function) = @_, my $box_where_tape;

+ my ( $pix_fs_map, $pix_fs_mask ) = gtkcreate_png("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( _("Use tape to backup") ),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _("Please enter the device name to use for backup")

+ ),

+ $where_tape

+ ),

+ 1,

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ gtkset_usize(

+ gtkset_sensitive(

+ my $save_device_tape_entry = new Gtk::Entry(),

+ $where_tape

+ ),

+ 200, 20

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"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,

+ gtkpack_( new Gtk::HBox( 0, 10 ), ),

+ ),

+ );

+ gtksignal_connect(

+ gtkset_active( $check_where_tape, $where_tape ),

+ toggled => sub {

+ $where_tape = $where_tape ? 0 : 1;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ }

+ );

+ $save_device_tape_entry->set_text($save_device_tape);

+ $save_device_tape_entry->signal_connect( 'changed',

+ sub { $save_device_tape = $save_device_tape_entry->get_text() } );

+ if ($previous_function) {

+ fonction_env( \$box_where_tape, \&advanced_where_tape,

+ \&$previous_function, "" );

+ }

+ else {

+ fonction_env( \$box_where_tape, \&advanced_where_tape, \&advanced_where,

+ "" );

+ }

+ my ($previous_function) = @_, my $box_where_hd;

+ my ( $pix_fs_map, $pix_fs_mask ) = gtkcreate_png("ic82-dossier-32");

+

+ gtkpack(

+ $advanced_box,

+ $box_where_hd = gtkpack_(

+ new Gtk::VBox( 0, 6 ),

+ 0, new Gtk::HSeparator,

+

+ # 0, my $check_where_hd = new Gtk::CheckButton( _("Use Hard Disk to backup") ),

+ # 0, new Gtk::HSeparator,

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label( _("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 {

+ filedialog_where_hd();

+ }

+ ),

+ $where_hd

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"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,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 1,

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ gtkset_sensitive(

+ my $check_where_hd_quota =

+ new Gtk::CheckButton( _("Use quota for backup files.") ),

+ $where_hd

+ ),

+ 0,

+ new Gtk::VBox( 0, 6 ),

+ ),

+ ),

+ );

+ foreach ( [ $check_where_hd_quota, \$hd_quota ] ) {

+ my $ref = $_->[1];

+ gtksignal_connect( gtkset_active( $_->[0], ${$ref} ),

+ toggled => sub { ${$ref} = ${$ref} ? 0 : 1; } );

+ }

+

+ # gtksignal_connect(gtkset_active($check_where_hd, $where_hd), toggled => sub {

+ # $where_hd = $where_hd ? 0 : 1;

+ # $where_hd = 1;

+ # ${$central_widget}->destroy();

+ # $current_widget->();

+ # });

+ $button->add(

+ gtkpack(

+ new Gtk::HBox( 0, 10 ),

+ new Gtk::Pixmap( $pix_fs_map, $pix_fs_mask )

+ )

+ );

+ $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,

+ "" );

+ }

+ else {

+ fonction_env( \$box_where_hd, \&advanced_where_hd, \&advanced_where,

+ "" );

+ }

+sub advanced_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->destroy(); advanced_where_net(); }),

+ $box_where->destroy();

+ advanced_where_net_ftp();

+ }

+ ),

+

+ # 1, gtksignal_connect(my $button_where_cd = new Gtk::Button(), clicked => sub {

+ # ${$central_widget}->destroy();

+ # if (require_rpm("mkisofs", "cdrecord", "toto")) { advanced_where_cd(); }

+ # else {

+ # print "have to install @list_of_rpm_to_install...\n";

+ # ${$central_widget}->destroy();

+ # install_rpm(\&advanced_where);

+ # }

+ # }),

+ 1,

+ gtksignal_connect(

+ my $button_where_hd = new Gtk::Button(),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ advanced_where_hd();

+ }

+ ),

+

+ # 1, gtksignal_connect(my $button_where_tape = new Gtk::Button(), clicked => sub {

+ # ${$central_widget}->destroy(); message_underdevel();}), #advanced_where_tape(); }),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::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( _("Network") ),

+ new Gtk::HBox( 0, 5 )

+ )

+ );

+

+ # $button_where_cd->add(gtkpack(new Gtk::HBox(0,10),

+ # new Gtk::Pixmap($pix_cd_map, $pix_cd_mask),

+ # new Gtk::Label(_("CDROM / DVDROM")),

+ # new Gtk::HBox(0, 5)

+ # ));

+ $button_where_hd->add(

+ gtkpack(

+ new Gtk::HBox( 0, 10 ),

+ new Gtk::Pixmap( $pix_hd_map, $pix_hd_mask ),

+ new Gtk::Label( _("HardDrive / NFS") ),

+ new Gtk::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(_("Tape")),

+ # new Gtk::HBox(0, 5)

+ # ));

+ fonction_env( \$box_where, \&advanced_where, \&advanced_box, "" );

+sub advanced_when {

+ my ( $pix_time_map, $pix_time_mask ) = gtkcreate_png("ic82-when-40");

+ my %trans = (

+ _("hourly") => 'hourly',

+ _("daily") => 'daily',

+ _("weekly") => 'weekly',

+ _("monthly") => 'monthly'

+ );

+ my %trans2 = (

+ 'hourly' => _("hourly"),

+ 'daily' => _("daily"),

+ 'weekly' => _("weekly"),

+ 'monthly' => _("monthly")

+ );

+ $combo_when_space->set_popdown_strings( _("hourly"), _("daily"),

+ _("weekly"), _("monthly") );

+

+ 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( _("Use daemon") ),

+ 1,

+ new Gtk::HBox( 0, 10 ),

+ ),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"Please choose the time \ninterval between each backup"

+ )

+ ),

+ $backup_daemon

+ ),

+ 1,

+ new Gtk::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( _("Please choose the\nmedia for backup.") ),

+ $backup_daemon

+ ),

+ 1,

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkpack_(

+ new Gtk::VBox( 0, 10 ),

+

+ # 0, gtkset_sensitive($check_where_cd_daemon = new Gtk::CheckButton(_("Use CD/DVDROM with daemon")), $backup_daemon),

+ 0,

+ gtkset_sensitive(

+ $check_where_hd_daemon =

+ new Gtk::CheckButton(

+ _("Use Hard Drive with daemon") ),

+ $backup_daemon

+ ),

+

+ # 0, gtkset_sensitive($check_where_ssh_daemon = new Gtk::CheckButton( _("Use SSH with daemon")), $backup_daemon),

+ 0,

+ gtkset_sensitive(

+ $check_where_ftp_daemon =

+ new Gtk::CheckButton( _("Use FTP with daemon") ),

+ $backup_daemon

+ ),

+ ),

+ ),

+ 0,

+ new Gtk::HSeparator,

+ 1,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"Please be sure that the cron daemon is included in your services."

+ )

+ ),

+ $backup_daemon

+ ),

+ ),

+ );

+

+ check_list(

+ [ $check_where_hd_daemon, \$hd_daemon ],

+ [ $check_where_ftp_daemon, \$ftp_daemon ]

+ );

+

+ # check_list([$check_where_hd_daemon, \$hd_daemon], [$check_where_ftp_daemon, \$ftp_daemon],

+ # [$check_where_cd_daemon, \$cd_daemon],[$check_where_ssh_daemon, \$ssh_daemon] );

+ gtksignal_connect(

+ gtkset_active( $check_when_daemon, $backup_daemon ),

+ toggled => sub {

+ $backup_daemon = $backup_daemon ? 0 : 1;

+ ${$central_widget}->destroy();

+ advanced_when();

+ }

+ );

+ $combo_when_space->entry->signal_connect( 'changed',

+ sub { $when_space = $trans{ $combo_when_space->entry->get_text() }; } );

+ fonction_env( \$box_when, \&advanced_when, \&advanced_box, "" );

+sub advanced_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),

+ # 1, _("Please choose correct options to backup."),

+ # 1, new Gtk::VBox(0,10),

+ # ),

+ # 0, new Gtk::HSeparator,

+ # 0, gtkpack_(new Gtk::VBox(0,10),

+ # 0, gtkset_sensitive(my $check_tar_bz2 = new Gtk::CheckButton( _("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( _("Use .backupignore files")), 0),

+ 0,

+ new Gtk::VBox( 0, 10 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ my $check_mail = new Gtk::CheckButton(

+ _("Send mail report after each backup to :")

+ ),

+ 1,

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ my $mail_entry = new Gtk::Entry(),

+ ),

+

+ # ),

+ ),

+ );

+ check_list( [ $check_mail, \$send_mail ] );

+

+ # check_list([$check_mail, \$send_mail], [$check_tar_bz2, \$comp_mode], [$check_backupignore, \$backupignore]);

+ $mail_entry->set_text($user_mail);

+ $mail_entry->signal_connect( 'changed',

+ sub { $user_mail = $mail_entry->get_text() } );

+ fonction_env( \$box_options, \&advanced_options, \&advanced_box,

+ "options" );

+sub advanced_box {

+ 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 {

+ ${$central_widget}->destroy();

+ advanced_what();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ my $button_where = new Gtk::Button(),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ advanced_where();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ my $button_when = new Gtk::Button(),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ advanced_when();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ my $button_options = new Gtk::Button(),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ advanced_options();

+ }

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $button_what->add(

+ gtkpack(

+ new Gtk::HBox( 0, 10 ),

+ new Gtk::Pixmap( $pix_hd_map, $pix_hd_mask ),

+ new Gtk::Label( _("What") ),

+ new Gtk::HBox( 0, 5 )

+ )

+ );

+ $button_where->add(

+ gtkpack(

+ new Gtk::HBox( 0, 10 ),

+ new Gtk::Pixmap( $pix_net_map, $pix_net_mask ),

+ new Gtk::Label( _("Where") ),

+ new Gtk::HBox( 0, 5 )

+ )

+ );

+ $button_when->add(

+ gtkpack(

+ new Gtk::HBox( 0, 10 ),

+ new Gtk::Pixmap( $pix_time_map, $pix_time_mask ),

+ new Gtk::Label( _("When") ),

+ new Gtk::HBox( 0, 5 )

+ )

+ );

+ $button_options->add(

+ gtkpack(

+ new Gtk::HBox( 0, 10 ),

+ new Gtk::Pixmap( $pix_options_map, $pix_options_mask ),

+ new Gtk::Label( _("More Options") ),

+ new Gtk::HBox( 0, 5 )

+ )

+ );

+ fonction_env( \$box_adv, \&advanced_box, \&interactive_mode_box, "" );

+ my $box2;

+ my $text = new Gtk::Text( undef, undef );

+ gtktext_insert( $text, $system_state );

+ gtkpack(

+ $advanced_box,

+ $box2 = gtkpack_(

+ new Gtk::HBox( 0, 15 ),

+ 1,

+ gtkpack_(

+ new Gtk::VBox( 0, 10 ), 0,

+ _("Drakbackup Configuration"), 1,

+ createScrolledWindow($text),

+ ),

+ ),

+ );

+ fonction_env( \$box2, \&wizard_step3, \&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 ),

+ 0,

+ _("Please choose where you want to backup"),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 15 ),

+ 0,

+ my $check_wizard_hd =

+ new Gtk::CheckButton( _("on Hard Drive") ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkset_sensitive(

+ gtksignal_connect(

+ new Gtk::Button( _("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( _("across Network") ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkset_sensitive(

+ gtksignal_connect(

+ new Gtk::Button( _("Configure") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ to_ok();

+ advanced_where_net( \&wizard_step2 );

+ to_normal();

+ }

+ ),

+ $where_net

+ ),

+ ),

+

+ # 0, gtkpack_(new Gtk::HBox(0, 15),

+ # 0, my $check_wizard_cd = new Gtk::CheckButton(_("on CDROM")),

+ # 1, new Gtk::VBox(0, 5),

+ # 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("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(_("on Tape Device")),

+ # 1, new Gtk::VBox(0, 5),

+ # 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Configure")),

+ # clicked => sub {

+ # ${$central_widget}->destroy();

+ # advanced_where_tape(\&wizard_step2);

+ # }), $where_tape),

+ # ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ foreach (

+ [ $check_wizard_hd, \$where_hd ],

+

+ # [$check_wizard_cd, \$where_cd],

+ # [$check_wizard_tape, \$where_tape],

+ [ $check_wizard_net, \$where_net ]

+ )

+ {

+ my $ref = $_->[1];

+ gtksignal_connect(

+ gtkset_active( $_->[0], ${$ref} ),

+ toggled => sub {

+ ${$ref} = ${$ref} ? 0 : 1;

+ $where_hd = 1;

+ if ( !$where_hd && !$where_cd && !$where_net ) {

+ $next_widget = \&message_noselect_box;

+ }

+ else { $next_widget = \&wizard_step3; }

+ if ( !$where_net ) { $where_net_ssh = 0; $where_net_ftp = 0; }

+ else { $where_net_ftp = 1; }

+ ${$central_widget}->destroy();

+ wizard_step2();

+ }

+ );

+ }

+ if ( !$where_hd && !$where_cd && !$where_net ) {

+ fonction_env( \$box2, \&wizard_step2, \&wizard, "",

+ \&message_noselect_box );

+ }

+ else {

+ fonction_env( \$box2, \&wizard_step2, \&wizard, "", \&wizard_step3 );

+ }

+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 ),

+ 0,

+ _("Please choose what you want to backup"),

+ 0,

+ my $check_wizard_sys =

+ new Gtk::CheckButton( _("Backup system") ),

+ 0,

+ my $check_wizard_user =

+ new Gtk::CheckButton( _("Backup Users") ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 15 ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Select user manually") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ advanced_what_user( \&wizard );

+ }

+ ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ foreach (

+ [ $check_wizard_sys, \$backup_sys ],

+ [ $check_wizard_user, \$backup_user ]

+ )

+ {

+ my $ref = $_->[1];

+ gtksignal_connect(

+ gtkset_active( $_->[0], ${$ref} ),

+ toggled => sub {

+ ${$ref} = ${$ref} ? 0 : 1;

+ if ( $backup_sys || $backup_user && @user_list ) {

+ $next_widget = \&wizard_step2;

+ }

+ else { $next_widget = \&message_noselect_what_box; }

+ }

+ );

+ }

+ if ( $backup_sys || $backup_user && @user_list ) {

+ fonction_env( \$box2, \&wizard, \&interactive_mode_box, "",

+ \&wizard_step2 );

+ }

+ else {

+ fonction_env( \$box2, \&wizard, \&interactive_mode_box, "",

+ \&message_noselect_what_box );

+ }

+

+ # fixme:

+ # faire test existance cd

+ # faire reponse si non existance de $path_to_find_restore

+ my @list_backup = ();

+ s/\_base//gi;

+ s/\_incr//gi;

+ push @list_backup, $_;

+ }

+ if ( grep /^backup_other/, @list_backup ) { $other_backuped = 1; }

+ if ( grep /^backup_sys/, @list_backup ) { $sys_backuped = 1; }

+ foreach ( grep /^backup_sys_/, @list_backup ) {

+ chomp;

+ s/^backup_sys_//gi;

+ s/.tar.gz$//gi;

+ s/.tar.bz2$//gi;

+ my ( $date, $heure ) = /^(.*)_([^_]*)$/;

+ my $year = substr( $date, 0, 4 );

+ my $month = substr( $date, 4, 2 );

+ my $day = substr( $date, 6, 2 );

+ my $hour = substr( $heure, 0, 2 );

+ my $min = substr( $heure, 2, 2 );

+ $to_put = "$day/$month/$year $hour:$min $_";

+ push @sys_backuped, $to_put;

+ }

+ $restore_step_sys_date = $to_put;

+ foreach ( grep /^backup_user_/, @list_backup ) {

+ chomp;

+ s/^backup_user_//gi;

+ s/.tar.gz$//gi;

+ s/.tar.bz2$//gi;

+ my ( $nom, $date, $heure ) = /^(.*)_([^_]*)_([^_]*)$/;

+ my $year = substr( $date, 0, 4 );

+ my $month = substr( $date, 4, 2 );

+ my $day = substr( $date, 6, 2 );

+ my $hour = substr( $heure, 0, 2 );

+ my $min = substr( $heure, 2, 2 );

+

+ # my $to_put = " $nom, (date: $date, hour: $heure)";

+ $to_put =

+ "$_ user: $nom, date: $day/$month/$year, hour: $hour:$min";

+ push @user_backuped, $to_put;

+ grep ( /^$nom$/, @user_list_backuped )

+ or push @user_list_backuped, $nom;

+ if ($cfg_file_exist) {

+ $system_state .= _("\nBackup Sources: \n");

+ $backup_sys and $system_state .= _("\n- System Files:\n");

+ $backup_sys and $system_state .= "\t\t$_\n" foreach @sys_files;

+ @list_other and $system_state .= _("\n- Other Files:\n");

+ @list_other and $system_state .= "\t\t$_\n" foreach @list_other;

+ $where_hd

+ and $system_state .=

+ _( "\n- Save on Hard drive on path : %s\n", $save_path );

+ $where_net_ftp

+ and $system_state .=

+ _( "\n- Save on FTP on host : %s\n", $host_name );

+ $where_net_ftp

+ and $system_state .= _( "\t\t user name: %s\n\t\t on path: %s \n",

+ $login_user, $host_path );

+ $system_state .= _("\n- Options:\n");

+ $backup_sys or $system_state .= _("\tDo not include System Files\n");

+ if ($comp_mode) { $system_state .= _("\tBackups use tar and bzip2\n"); }

+ else { $system_state .= _("\tBackups use tar and gzip\n"); }

+ $system_state .= _( "\n- Daemon (%s) include :\n", $when_space );

+ $hd_daemon and $system_state .= _("\t-Hard drive.\n");

+ $cd_daemon and $system_state .= _("\t-CDROM.\n");

+ $ftp_daemon and $system_state .= _("\t-Network by FTP.\n");

+ $ssh_daemon and $system_state .= _("\t-Network by SSH.\n");

+ }

+ else {

+ $system_state =

+ _("No configuration, please click Wizard or Advanced.\n");

+ }

+ my @tmp = split ( ' ', $restore_step_sys_date );

+ if ($restore_sys) {

+ $restore_state .= "- Restore System Files.\n";

+ $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;

+ }

+ if ($restore_other) {

+ $restore_state .= "- Restore Other Files: \n";

+ -f "$path_to_find_restore/list_other"

+ and $restore_state .= "\t\t$_\n" foreach

+ split ( "\n", cat_("$path_to_find_restore/list_other") );

+ $restore_state .= "- Path to Restore: $restore_path \n";

+ foreach ( grep /$user_name\_/, sort @tmp ) { push @list_tmp2, $_; }

+ my $var_eq = 1;

+ my @list_tmp = ();

+ my @list_tmp2 = ();

+ -d $path_to_find_restore

+ and my @list_backup_tmp2 = grep /^backup/, all($path_to_find_restore);

+ s/\_base//gi;

+ s/\_incr//gi;

+ push @list_backup, $_;

+ $var_eq = 1;

+ my $more_recent =

+ ( split ( ' ', select_most_recent_selected_of($var_tmp) ) )[0];

+ foreach ( grep /^backup\_user\_$var_tmp\_/, sort @list_backup ) {

+ s/.tar.gz//gi;

+ s/.tar.bz2//gi;

+ if ($more_recent) {

+ if ( $_ =~ /$more_recent/ ) {

+ push @list_tmp, $_;

+ $var_eq = 0;

+ }

+ else { $var_eq and push @list_tmp, $_; }

+ }

+ }

+ }

+ foreach my $var_to_restore (@list_tmp) {

+ $var_to_restore =~ s/backup_//gi;

+ foreach my $var_exist ( sort @list_tmp2 ) {

+ if ( $var_exist =~ /$var_to_restore/ ) {

+ push @user_list_to_restore, $var_exist;

+ }

+ }

+ }

+ $DEBUG

+ and print "(incremental restore) real user list to restore : $_ \n"

+ foreach (@user_list_to_restore);

+ my $var_eq = 1;

+ -d $path_to_find_restore

+ and @list_tmp = grep /^backup/, all($path_to_find_restore);

+ my @more_recent = split ( ' ', $restore_step_sys_date );

+ foreach my $var_exist ( grep /\_sys\_/, sort @list_tmp ) {

+ if ( $var_exist =~ /$more_recent/ ) {

+ push @sys_list_to_restore, $var_exist;

+ $var_eq = 0;

+ }

+ else { $var_eq and push @sys_list_to_restore, $var_exist; }

+ $DEBUG

+ and print "sys list to restore: $_\n " foreach (@sys_list_to_restore);

+ if ( system("gzip -l $path_to_find_restore/$_") > 1 ) {

+ push @files_corrupted, $_;

+ $is_corrupted = -1;

+ }

+ my $text = new Gtk::Text( undef, undef );

+ my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning');

+ $restore_pbs_state .= "\t\t$_\n" foreach @files_corrupted;

+ 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 ), 0,

+ _("Backup files are corrupted"), 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 10 ),

+ 1,

+ createScrolledWindow($text),

+ ),

+ );

+ fonction_env( \$do_restore, \&restore_aff_backup_problems,

+ "", "restore_pbs" );

+ my $text = new Gtk::Text( undef, undef );

+ gtktext_insert( $text, $restore_state );

+

+ gtkpack(

+ $advanced_box,

+ $do_restore = gtkpack_(

+ new Gtk::VBox( 0, 10 ),

+ 1,

+ new Gtk::VBox( 0, 10 ),

+ 0,

+ _(" All your selectionned data have been "),

+ 0,

+ _( " Successfuly Restored on %s ", $restore_path ),

+ 1,

+ new Gtk::VBox( 0, 10 ),

+ ),

+ );

+ open( PASSWD, $passwdfile ) or exit 1;

+ while ( defined( my $line = <PASSWD> ) ) {

+ chomp($line);

+ ( $usr, $home_dir ) = ( split ( /:/, $line ) )[ 0, 5 ];

+ last if ( $usr eq $username );

+ close(PASSWD);

+ if ( grep /tar.gz$/, all($path_to_find_restore) ) { $untar_cmd = 0; }

+ if ($restore_user) {

+ if ($backup_user_versions) {

+ select_user_data_to_restore();

+ if ( valid_backup_test(@user_list_to_restore) == -1 ) {

+ $exist_problem = 1;

+ restore_aff_backup_problems();

+ }

+ else {

+ foreach (@user_list_to_restore) {

+ my ( $tnom, $username, $theure2 ) =

+ /^(\w+\_\w+\_user_)(.*)_(\d+\_\d+.*)$/;

+ $DEBUG

+ and print

+"user name to restore: $username, user directory: $user_dir\n";

+ if ($remove_user_before_restore) {

+ $user_dir = return_path($username);

+ -d $user_dir and rm_rf($user_dir);

+ }

+ $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 "

+ );

+ }

+ }

+ }

+ }

+ if ($restore_sys) {

+ if ($backup_sys_versions) {

+ select_sys_data_to_restore();

+ if ( valid_backup_test(@sys_list_to_restore) == -1 ) {

+ $exist_problem = 1;

+ restore_aff_backup_problems();

+ }

+ else {

+ $untar_cmd

+ or

+ system("tar xfz $path_to_find_restore/$_ -C $restore_path ")

+ foreach @sys_list_to_restore;

+ $untar_cmd

+ and system(

+"/usr/bin/bzip2 -cd $path_to_find_restore/$_ | tar xf -C $restore_path "

+ ) foreach @sys_list_to_restore;

+ }

+ }

+ else {

+ $untar_cmd

+ or system(

+"tar xfz $path_to_find_restore/backup_sys.tar.gz -C $restore_path "

+ );

+ $untar_cmd

+ and system(

+"/usr/bin/bzip2 -cd $path_to_find_restore/backup_sys.tar.bz2 | tar xf -C $restore_path "

+ );

+ }

+ }

+ if ($restore_other) {

+ $untar_cmd

+ or system(

+"tar xfz $path_to_find_restore/backup_other.tar.gz -C $restore_path "

+ );

+ $untar_cmd

+ and system(

+"/usr/bin/bzip2 -cd $path_to_find_restore/backup_other.tar.bz2 | tar xf -C $restore_path "

+ );

+ if ($restore_sys) { $backup_sys = 1; }

+ else { $backup_sys = 0; }

+ if ($restore_user) {

+ $backup_user = 1;

+ @user_list = @user_list_to_restore;

+ }

+ else { $backup_user = 0; }

+ build_backup_status();

+ read_conf_file();

+ build_backup_files();

+ $table->destroy();

+ my $text = new Gtk::Text( undef, undef );

+ gtktext_insert( $text, $restore_state );

+

+ gtkpack(

+ $advanced_box,

+ $do_restore = gtkpack_(

+ new Gtk::VBox( 0, 10 ), 0,

+ _(" Restore Configuration "), 1,

+ createScrolledWindow($text),

+ ),

+ );

+ fonction_env( \$do_restore, \&restore_do2, \&restore_box, "restore" );

+ my $text = new Gtk::Text( undef, undef );

+ 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( _("OK to restore the other files.") ),

+ 1,

+ new Gtk::VBox( 0, 10 ),

+ ),

+ );

+ check_list( [ $check_restore_other_sure, \$restore_other ] );

+ fonction_env( \$retore_step_other, \&restore_step_other, \&restore_step2,

+ "restore", \&restore_do );

+

+ @user_backuped = @tmp_list;

+

+ gtkpack(

+ $advanced_box,

+ $retore_step_user = gtkpack_(

+ new Gtk::VBox( 0, 10 ),

+ 0,

+ new Gtk::VBox( 0, 10 ),

+ 0,

+ _(

+"User list to restore (only the most recent date per user is important)"

+ ),

+ 1,

+ createScrolledWindow(

+ gtkpack__(

+ new Gtk::VBox( 0, 0 ),

+ map {

+ my $name;

+ my $var2;

+ my $name_complet = $_;

+ $name = ( split ( ' ', $name_complet ) )[0];

+ my @user_list_tmp = ();

+

+ my $b = new Gtk::CheckButton($name_complet);

+ if ( grep $name_complet, @user_list_to_restore2 ) {

+ gtkset_active( $b, 1 );

+ $check_user_to_restore{$name_complet}[1] = 1;

+ }

+ else {

+ gtkset_active( $b, 0 );

+ $check_user_to_restore{$name_complet}[1] = 0;

+ }

+ $b->signal_connect(

+ toggled => sub {

+ if ( !$check_user_to_restore{$name_complet}[1] )

+ {

+ $check_user_to_restore{$name_complet}[1] =

+ 1;

+ if (

+ !grep ( /$name/,

+ @user_list_to_restore2 ) )

+ {

+ push @user_list_to_restore2,

+ $name_complet;

+ }

+ }

+ else {

+ $check_user_to_restore{$name_complet}[1] =

+ 0;

+ foreach (@user_list_to_restore2) {

+ $var2 = ( split ( ' ', $_ ) )[0];

+ if ( $name ne $var2 ) {

+ push @user_list_tmp, $_;

+ }

+ }

+ @user_list_to_restore2 = @user_list_tmp;

+ }

+ }

+ );

+ $b

+ } (@user_backuped)

+ ),

+ ),

+ ),

+ );

+ if ($restore_other) {

+ fonction_env( \$retore_step_user, \&restore_step_user, "", "restore",

+ \&restore_step_other );

+ }

+ else {

+ fonction_env( \$retore_step_user, \&restore_step_user, "", "restore",

+ \&restore_do );

+ }

+ $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( _("Backup the system files before:") ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ), 1,

+ _("please choose the date to restore"), 0,

+ $combo_restore_step_sys, 0,

+ new Gtk::HBox( 0, 10 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 10 ),

+ ),

+ );

+ $combo_restore_step_sys->entry->signal_connect(

+ 'changed',

+ sub {

+ $restore_step_sys_date = $combo_restore_step_sys->entry->get_text();

+ }

+ );

+ fonction_env( \$restore_step_sys, \&restore_step_sys, "", "restore", );

+ if ($restore_user) {

+ fonction_env( \$restore_step_sys, \&restore_step_sys, "", "restore",

+ \&restore_step_user );

+ }

+ elsif ($restore_other) {

+ fonction_env( \$restore_step_sys, \&restore_step_sys, "", "restore",

+ \&restore_step_other );

+ }

+ else {

+ fonction_env( \$restore_step_sys, \&restore_step_sys, "", "restore",

+ \&restore_do );

+ }

+ my ($previous_function) = @_, my $box_where_hd;

+ my ( $pix_fs_map, $pix_fs_mask ) = gtkcreate_png("ic82-dossier-32");

+

+ gtkpack(

+ $advanced_box,

+ $box_where_hd = gtkpack_(

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ my $check_where_hd =

+ new Gtk::CheckButton( _("Use Hard Disk to backup") ),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label( _("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 {

+ filedialog_where_hd();

+ }

+ ),

+ $where_hd

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"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,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 1,

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ gtkset_sensitive(

+ my $check_where_hd_quota =

+ new Gtk::CheckButton( _("Use quota for backup files.") ),

+ $where_hd

+ ),

+ 0,

+ new Gtk::VBox( 0, 6 ),

+ ),

+ ),

+ );

+ check_list( [ $check_where_hd_quota, \$hd_quota ] );

+ gtksignal_connect(

+ gtkset_active( $check_where_hd, $where_hd ),

+ toggled => sub {

+ $where_hd = $where_hd ? 0 : 1;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ }

+ );

+ $button->add(

+ gtkpack(

+ new Gtk::HBox( 0, 10 ),

+ new Gtk::Pixmap( $pix_fs_map, $pix_fs_mask )

+ )

+ );

+ $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,

+ "" );

+ }

+ else {

+ fonction_env( \$box_where_hd, \&advanced_where_hd, \&advanced_where,

+ "" );

+ }

+ my ($previous_function) = @_, 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( _("FTP Connection") ),

+ clicked => sub {

+ $box_where_net->destroy();

+ if ($previous_function) {

+ message_underdevel();

+

+ # advanced_where_net_ftp(\&$previous_function);

+ }

+ else {

+ advanced_where_net_ftp();

+ }

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Secure Connection") ),

+ clicked => sub {

+ $box_where_net->destroy();

+ if ($previous_function) {

+ advanced_where_net_ssh( \&$previous_function );

+ }

+ else {

+ advanced_where_net_ssh();

+ }

+ }

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 1,

+ new Gtk::VBox( 0, 10 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ if ($previous_function) {

+ fonction_env( \$box_where_net, \&advanced_where_net,

+ \&$previous_function, "" );

+ }

+ else {

+ fonction_env( \$box_where_net, \&advanced_where_net, \&advanced_where,

+ "" );

+ }

+ 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( _("Restore from Hard Disk.") ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"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 {

+ 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( _("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 {

+ # ${$central_widget}->destroy();

+ # restore_find_net(\&restore_other_media);}), !$other_media_hd ),

+ # new Gtk::VBox(0, 6),

+ # ),

+ # 1, new Gtk::VBox(0, 6),

+ # 0, new Gtk::HSeparator,

+ 0,

+ new Gtk::VBox( 0, 6 ),

+ ),

+ );

+ gtksignal_connect(

+ gtkset_active( $check_other_media_hd, $other_media_hd ),

+ toggled => sub {

+ $other_media_hd = $other_media_hd ? 0 : 1;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ }

+ );

+

+ # gtksignal_connect(gtkset_active($check_other_media_net, !$other_media_hd), toggled => sub {

+ # $other_media_hd = $other_media_hd ? 0 : 1;

+ # ${$central_widget}->destroy();

+ # $current_widget->();

+ # });

+ $button->add(

+ gtkpack(

+ new Gtk::HBox( 0, 10 ),

+ new Gtk::Pixmap( $pix_fs_map, $pix_fs_mask )

+ )

+ );

+ $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() } );

+ fonction_env(

+ \$box_find_restore, \&restore_other_media,

+ \&restore_step2, "other_media"

+ );

+ if ( -f "$save_path/backup_other*" ) { $other_exist = 1; }

+ if ( grep /\_sys\_/, grep /^backup/, all("$save_path/") ) {

+ $sys_exist = 1;

+ }

+ if ( grep /\_user\_/, grep /^backup/, all("$save_path/") ) {

+ $user_exist = 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(

+ _("Select another media to restore from") ),

+ 1,

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ gtksignal_connect(

+ new Gtk::Button( _("Other Media") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ restore_other_media();

+ }

+ ),

+ $restore_other_src

+ ),

+ ),

+ 0,

+ gtkset_sensitive(

+ my $check_restore_sys =

+ new Gtk::CheckButton( _("Restore system") ),

+ $sys_exist

+ ),

+ 0,

+ gtkset_sensitive(

+ my $check_restore_user =

+ new Gtk::CheckButton( _("Restore Users") ),

+ $user_exist

+ ),

+ 0,

+ gtkset_sensitive(

+ my $check_restore_other =

+ new Gtk::CheckButton( _("Restore Other") ),

+ $other_exist

+ ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ my $check_restore_other_path = new Gtk::CheckButton(

+ _("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_backup_bef_restore = new Gtk::CheckButton(

+ _(

+"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(

+ _("Remove user directories before restore.")

+ ),

+ $sys_exist

+ ),

+ 1,

+ new Gtk::VBox( 0, 10 ),

+ ),

+ );

+ foreach (

+ [ $check_restore_sys, \$restore_sys ],

+ [ $check_backup_bef_restore, \$backup_bef_restore ],

+ [ $check_restore_user, \$restore_user ],

+ [ $check_remove_user_dir, \$remove_user_before_restore ],

+ [ $check_restore_other, \$restore_other ]

+ )

+ {

+ my $ref = $_->[1];

+ gtksignal_connect(

+ gtkset_active( $_->[0], ${$ref} ),

+ toggled => sub {

+ ${$ref} = ${$ref} ? 0 : 1;

+ 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; }

+ }

+ );

+ }

+ gtksignal_connect(

+ gtkset_active( $check_restore_other_path, $restore_other_path ),

+ toggled => sub {

+ $restore_other_path = $restore_other_path ? 0 : 1;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ }

+ );

+ gtksignal_connect(

+ gtkset_active( $check_restore_other_src, $restore_other_src ),

+ toggled => sub {

+ $restore_other_src = $restore_other_src ? 0 : 1;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ }

+ );

+ fonction_env( \$retore_step2, \&restore_step2, \&restore_box, "restore" );

+ 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; }

+ $restore_path_entry->set_text($restore_path);

+ $restore_path_entry->signal_connect( 'changed',

+ sub { $restore_path = $restore_path_entry->get_text(); } );

+ 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( _("Restore all backups") ),

+ clicked => sub {

+ $retore_box->destroy();

+ button_box_restore();

+ @user_list_to_restore2 = sort @user_backuped;

+ $restore_sys = 1;

+ $restore_other = 1;

+ $restore_user = 1;

+ restore_do();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("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 Gtk::HBox( 0, 10 ),

+ ),

+ );

+ }

+ else {

+ gtkpack(

+ $advanced_box,

+ $retore_box =

+ gtkpack_( new Gtk::HBox( 0, 1 ), message_norestorefile_box(), ),

+ ),

+ ;

+ }

+ fonction_env( \$retore_box, \&restore_box, \&interactive_mode_box,

+ "restore" );

+ gtkpack(

+ $button_box,

+ $button_box_tmp = gtkpack_(

+ new Gtk::HButtonBox,

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Cancel") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&$current_widget, $custom_help );

+ }

+ ),

+ 1,

+ new Gtk::HBox( 0, 1 ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Previous") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $previous_widget->();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Save") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ save_conf_file();

+ $previous_widget->();

+ }

+ ),

+ ),

+ );

+ gtkpack(

+ $button_box,

+ $button_box_tmp = gtkpack_(

+ gtkpack_(

+ new Gtk::HButtonBox,

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Cancel") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&$current_widget, $custom_help );

+ }

+ ),

+ 1,

+ new Gtk::HBox( 0, 1 ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Previous") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Ok") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ ),

+ ),

+ );

+ gtkpack(

+ $button_box,

+ $button_box_tmp = gtkpack_(

+ new Gtk::HButtonBox,

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Cancel") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&$current_widget, $custom_help );

+ }

+ ),

+ 1,

+ new Gtk::HBox( 0, 1 ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Previous") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $previous_widget->();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Build Backup") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ build_backup_status();

+ build_backup_files();

+ }

+ ),

+ ),

+ );

+ gtkpack(

+ $button_box,

+ $button_box_tmp = gtkpack_(

+ new Gtk::HButtonBox,

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Cancel") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&$current_widget, $custom_help );

+ }

+ ),

+ 1,

+ new Gtk::HBox( 0, 1 ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Previous") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $previous_widget->();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Save") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ save_conf_file();

+ interactive_mode_box();

+ }

+ ),

+ ),

+ );

+ gtkpack(

+ $button_box,

+ $button_box_tmp = gtkpack_(

+ new Gtk::HButtonBox,

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Cancel") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&$current_widget, $custom_help );

+ }

+ ),

+ 1,

+ new Gtk::HBox( 0, 1 ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Previous") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $previous_widget->();

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Restore") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ restore_backend();

+ }

+ ),

+ ),

+ );

+ 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( _("Ok") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+

+ ),

+ );

+ 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( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&$current_widget, $custom_help );

+ }

+ ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Ok") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+

+ ),

+ );

+ gtkpack(

+ $button_box,

+ $button_box_tmp = gtkpack_(

+ new Gtk::HButtonBox,

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Cancel") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&$current_widget, $custom_help );

+ }

+ ),

+ 1,

+ new Gtk::HBox( 0, 0 ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Previous") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $previous_widget->();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Next") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $next_widget->();

+ }

+ ),

+ ),

+ );

+ gtkpack(

+ $button_box,

+ $button_box_tmp = gtkpack_(

+ new Gtk::HButtonBox,

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Cancel") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&$current_widget, $custom_help );

+ }

+ ),

+ 1,

+ new Gtk::HBox( 0, 0 ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( _("Previous") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $previous_widget->();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Next") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $next_widget->();

+ }

+ ),

+ ),

+ );

+ gtkpack(

+ $button_box,

+ $button_box_tmp = gtkpack_(

+ new Gtk::HButtonBox,

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Cancel") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ interactive_mode_box();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&$current_widget, $custom_help );

+ }

+ ),

+ 1,

+ new Gtk::HBox( 0, 0 ),

+ 0,

+ gtksignal_connect(

+ new Gtk::Button( $next_widget ? _("Previous") : _("OK") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $previous_widget ? $previous_widget->() : $next_widget->();

+ }

+ ),

+ if_(

+ $next_widget,

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Next") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $next_widget ? $next_widget->() : $previous_widget->();

+ }

+ )

+ ),

+ ),

+ );

+ gtkpack(

+ $button_box,

+ $button_box_tmp = gtkpack(

+ gtkset_layout( new Gtk::HButtonBox, -start ),

+ gtksignal_connect(

+ new Gtk::Button( _("Close") ),

+ clicked => sub {

+ Gtk->main_quit();

+ }

+ ),

+ gtksignal_connect(

+ new Gtk::Button( _("Help") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ adv_help( \&interactive_mode_box, $custom_help );

+ }

+ ),

+ ),

+ );

+ 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 ),

+ _(

+"Please Build backup before to restore it...\n or verify that your path to save is correct."

+ ),

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $up_box->show_all();

+ 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 ),

+ 0,

+ _(

+ "Error durind sendmail

+ Please configure sendmail"

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 5 ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $custom_help = "mail_pb";

+ $up_box->show_all();

+ my ($previous_function) = @_, my $box_what_user;

+

+ gtkpack(

+ $advanced_box,

+ $box_what_user = gtkpack_(

+ new Gtk::VBox( 0, 15 ),

+ 0,

+ _("Package List to Install"),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ createScrolledWindow(

+ gtkpack__(

+ new Gtk::VBox( 0, 0 ),

+ map { my $b = new Gtk::Button($_); }

+ (@list_of_rpm_to_install)

+ ),

+ ),

+ ),

+ );

+ fonction_env( \$box_what_user, \&install_rpm, \&$previous_function,

+ "what" );

+ 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 ),

+ 0,

+ _(

+ "Error durind sending file via FTP.

+ Please correct your FTP configuration."

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 5 ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $custom_help = "mail_pb";

+ $up_box->show_all();

+ 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 ),

+ _("Please select data to restore..."),

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $up_box->show_all();

+ 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 ),

+ _("Please select media for backup..."),

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $next_widget = \&wizard_step2;

+ $central_widget = \$box2;

+ $up_box->show_all();

+ 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 ),

+ _("Please select data to backup..."),

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $next_widget = \&wizard;

+ $central_widget = \$box2;

+ $up_box->show_all();

+ 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 ),

+ _(

+"No configuration file found \nplease click Wizard or Advanced."

+ ),

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $up_box->show_all();

+ 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 ),

+ _("Under Devel ... please wait."),

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $up_box->show_all();

+ my ( $progressbar, $incr, $label_text ) = @_;

+ my ($new_val) = $progressbar->get_current_percentage;

+ if ( $new_val > 1 ) { $new_val = 1 }

+ foreach ( grep /^backup_other/, @list_backup ) {

+ $other_backuped = 1;

+ chomp;

+ 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 $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];

+ 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 $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];

+ 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 $to_put =

+" $user_date[0], (tail: $tail ko, date: 20$user_date2[0], hour: $user_date2[1])";

+ push @data_backuped, $to_put;

+ $pbar = new Gtk::ProgressBar;

+ $pbar1 = new Gtk::ProgressBar;

+ $pbar2 = new Gtk::ProgressBar;

+ $pbar3 = new Gtk::ProgressBar;

+ gtkpack(

+ $advanced_box,

+ $table = create_packtable(

+ { col_spacings => 10, row_spacings => 5 },

+ [""],

+ [""],

+ [""],

+ [""],

+ [""],

+ [""],

+ [""],

+ [""],

+ [ _("Backup system files") ],

+ [ $pbar, $pbar->{label} = new Gtk::Label(' ') ],

+ [ _("Backup user files") ],

+ [ $pbar1, $pbar1->{label} = new Gtk::Label(' ') ],

+ [ _("Backup other files") ],

+ [ $pbar2, $pbar2->{label} = new Gtk::Label(' ') ],

+ [ _("Total Progress") ],

+ [ $pbar3, $pbar3->{label} = new Gtk::Label(' ') ],

+ ),

+ );

+ $custom_help = "options";

+ $pbar = new Gtk::ProgressBar;

+ $pbar3 = new Gtk::ProgressBar;

+ gtkpack(

+ $advanced_box,

+ $table = gtkpack_(

+ new Gtk::VBox( 0, 15 ),

+ 1,

+ _("files sending by FTP"),

+ 1,

+ new Gtk::VBox( 0, 15 ),

+ 1,

+ create_packtable(

+ { col_spacings => 10, row_spacings => 5 },

+

+ # [ $pbar->set_show_text( $show_text );

+ [ _("Sending files...") ],

+ [""],

+ [ $pbar->{label} = new Gtk::Label(' ') ],

+ [$pbar],

+ [""],

+ [ _("Total Progress") ],

+ [ $pbar3->{label} = new Gtk::Label(' ') ],

+ [$pbar3],

+ ),

+ 1,

+ new Gtk::VBox( 0, 15 ),

+ ),

+ );

+ $custom_help = "options";

+ my $box2;

+ my $text = new Gtk::Text( undef, undef );

+ gtktext_insert( $text, $system_state );

+ gtkpack(

+ $advanced_box,

+ $box2 = gtkpack_(

+ new Gtk::HBox( 0, 15 ),

+ 1,

+ gtkpack_(

+ new Gtk::VBox( 0, 10 ), 0,

+ _("Drakbackup Configuration"), 1,

+ createScrolledWindow($text),

+ ),

+ ),

+ );

+ $custom_help = "";

+ $central_widget = \$box2;

+ $current_widget = \&build_backup_box_see_conf;

+ $previous_widget = \&build_backup_box;

+

+ # build_backup_files();

+ my @toto = ();

+ push @toto, ( split ( ",", $_ ) )[1] foreach @list_to_build_on_cd;

+ s/\s+\(tail://gi;

+ s/\s+//gi;

+ s/ko//gi;

+ $total += $_;

+ }

+

+ @data_backuped = @list_to_build_on_cd;

+

+ gtkpack(

+ $advanced_box,

+ $retore_step_user = gtkpack_(

+ new Gtk::VBox( 0, 10 ),

+ 0,

+ new Gtk::VBox( 0, 10 ),

+ 0,

+ _("Data list to include on CDROM."),

+ 1,

+ createScrolledWindow(

+ gtkpack__(

+ new Gtk::VBox( 0, 0 ),

+ map {

+ my $name = $_;

+ my @user_list_tmp = ();

+ my $b = new Gtk::CheckButton($name);

+ if ( grep $name, @list_to_build_on_cd ) {

+ gtkset_active( $b, 1 );

+ }

+ else {

+ gtkset_active( $b, 0 );

+ }

+ $b->signal_connect(

+ toggled => sub {

+ if ( !$check_data_to_backup_cd{$name}[1] ) {

+ $check_data_to_backup_cd{$name}[1] = 1;

+ if (

+ !grep ( /$name$/, @list_to_build_on_cd )

+ )

+ {

+ push @list_to_build_on_cd, $name;

+ }

+ }

+ else {

+ $check_data_to_backup_cd{$name}[1] = 0;

+ foreach (@list_to_build_on_cd) {

+ if ( $name ne $_ ) {

+ push @user_list_tmp, $_;

+ }

+ }

+ @list_to_build_on_cd = @user_list_tmp;

+ }

+ aff_total_tail();

+ }

+ );

+ $b

+ } (@data_backuped)

+ ),

+ ),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ $label_tail = new Gtk::Label(" "),

+ 0,

+ new Gtk::HSeparator,

+ ),

+ );

+ fonction_env( \$retore_step_user, \&restore_step_user,

+ \&build_backup_cd_box, "restore", \&build_backup_box_see_conf );

+ $combo_where_cd_time->set_popdown_strings( "650", "700", "750", "800" );

+ gtkpack(

+ $advanced_box,

+ $box_build_backup_cd = gtkpack_(

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ my $check_where_cd =

+ new Gtk::CheckButton( _("Use CD/DVDROM to backup") ),

+ 0,

+ new Gtk::HSeparator,

+ 0,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label( _("Please choose your CD space") ),

+ $where_cd

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkset_usize(

+ gtkset_sensitive( $combo_where_cd_time, $where_cd ),

+ 100, 20

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label( _("Please enter the cd writer speed") ),

+ $where_cd

+ ),

+ 1,

+ new Gtk::VBox( 0, 6 ),

+ 0,

+ gtkset_usize(

+ gtkset_sensitive(

+ my $spinner = new Gtk::SpinButton( $adj, 0, 0 ),

+ $where_cd

+ ),

+ 100, 20

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _("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 Gtk::VBox( 0, 5 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _("Please check if you want to erase your CDRW before")

+ ),

+ $cdrw && $where_cd

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkset_sensitive(

+ my $check_cdrw_erase = new Gtk::CheckButton(),

+ $cdrw && $where_cd

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"Please enter your CD Writer device name (ex: 0,1,0)"

+ )

+ ),

+ $where_cd

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkset_usize(

+ gtkset_sensitive(

+ $cd_devive_entry = new Gtk::Entry(), $where_cd

+ ),

+ 100, 20

+ ),

+ ),

+ 0,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkpack_(

+ new Gtk::HBox( 0, 10 ),

+ 0,

+ gtkset_sensitive(

+ new Gtk::Label(

+ _(

+"Please check if you want to include install boot on your CD."

+ )

+ ),

+ 0

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ 0,

+ gtkset_sensitive(

+ my $check_cd_with_install_boot = new Gtk::CheckButton(), 0

+ ),

+ ),

+ ),

+ );

+ foreach ( [ $check_cdrw_erase, \$cdrw_erase ],

+ [ $check_cd_with_install_boot, \$cd_with_install_boot ] )

+ {

+ my $ref = $_->[1];

+ gtksignal_connect( gtkset_active( $_->[0], ${$ref} ),

+ toggled => sub { ${$ref} = ${$ref} ? 0 : 1; } );

+ }

+ gtksignal_connect(

+ gtkset_active( $check_where_cd, $where_cd ),

+ toggled => sub {

+ $where_cd = $where_cd ? 0 : 1;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ if ($where_cd) { $next_widget = \&build_backup_cd_select_data; }

+ else { $next_widget = \&build_backup_cd_box; }

+ }

+ );

+ gtksignal_connect(

+ gtkset_active( $check_cdrw, $cdrw ),

+ toggled => sub {

+ $cdrw = $cdrw ? 0 : 1;

+ ${$central_widget}->destroy();

+ $current_widget->();

+ }

+ );

+ if ($where_cd) { $next_widget = \&build_backup_cd_select_data; }

+ else { $next_widget = \&build_backup_cd_box; }

+ $cd_devive_entry->set_text($cd_devive);

+ $cd_devive_entry->signal_connect( 'changed',

+ sub { $cd_devive = $cd_devive_entry->get_text(); } );

+ $combo_where_cd_time->entry->signal_connect( 'changed',

+ sub { $cd_time = $combo_where_cd_time->entry->get_text() } );

+ fonction_env( \$box_build_backup_cd, \&build_backup_cd_box,

+ \&build_backup_box, "" );

+ 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");

+

+ 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 {

+ ${$central_widget}->destroy();

+ build_backup_box_see_conf();

+ }

+ ),

+ 0,

+ new Gtk::VBox( 0, 5 ),

+

+ # 1, gtksignal_connect(my $button_on_cd = new Gtk::Button(),

+ # clicked => sub { ${$central_widget}->destroy();

+ # $where_cd = 1;

+ # build_backup_cd_box();

+ # }),

+ # 0, new Gtk::VBox(0, 5),

+ 1,

+ gtksignal_connect(

+ my $button_see_conf = new Gtk::Button(),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ build_backup_box_see_conf();

+ }

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::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( _("Backup Now from configuration file") ),

+ new Gtk::HBox( 0, 5 )

+ )

+ );

+

+ # $button_on_cd->add(gtkpack(new Gtk::HBox(0,10),

+ # new Gtk::Pixmap($pix_cd_map, $pix_cd_mask),

+ # new Gtk::Label(_("Backup Now on CDROM")),

+ # new Gtk::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( _("View Backup Configuration.") ),

+ new Gtk::HBox( 0, 5 )

+ )

+ );

+ fonction_env( \$box2, \&build_backup_box, \&interactive_mode_box,

+ "options" );

+ $up_box->show_all();

+ 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( _("Wizard Configuration") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ read_conf_file();

+ wizard();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Advanced Configuration") ),

+ clicked => sub {

+ button_box_adv();

+ ${$central_widget}->destroy();

+ advanced_box();

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Backup Now") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ if ($cfg_file_exist) { build_backup_box(); }

+ else { message_noconf_box(); }

+ }

+ ),

+ 1,

+ gtksignal_connect(

+ new Gtk::Button( _("Restore") ),

+ clicked =>

+ sub { ${$central_widget}->destroy(); restore_box(); }

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ 1,

+ new Gtk::VBox( 0, 5 ),

+ ),

+ );

+ $custom_help = "main";

+ $up_box->show_all();

+ my $window1 =

+ $::isEmbedded ? new Gtk::Plug($::XID) : new Gtk::Window -toplevel;

+ $window1->signal_connect( delete_event => sub { Gtk->exit(0) } );

+ $window1->set_title( _("Drakbackup") );

+ my ( $pix_u_map, $pix_u_mask ) = gtkcreate_png("drakbackup.540x57");

+ 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 ),

+ 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 ), ),

+ ),

+ 0,

+ new Gtk::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 ), ),

+ ),

+ ),

+ ),

+ ),

+ );

+ $window1->show_all();

+ my ( $function, $custom_help ) = @_,

+ my $text = new Gtk::Text( undef, undef );

+ "options" => _(

+ "options description:

+"

+ ),

+ "mail_pb" => _( "

+" ),

+ "what" => _(

+ "options description:

+"

+ ),

+ "restore" => _(

+ "restore description:

+"

+ ),

+ "main" => _(

+" Copyright (C) 2001 MandrakeSoft by DUPONT Sebastien <dupont_s\@epita.fr>"

+ )

+ . "\n\n"

+ . _(

+" This program is free software; you can redistribute it and/or modify

+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA."

+ )

+ . "\n\n _____________________\n"

+ . _(

+ "Description:

+"

+ ),

+ "ftp" => _(

+ "options description:

+"

+ ),

+ "restore_pbs" => _( "

+" )

+ );

+

+ my $default_help =

+ _(

+" Copyright (C) 2001 MandrakeSoft by DUPONT Sebastien <dupont_s\@epita.fr>"

+ )

+ . "\n\n"

+ . _(

+ " This program is free software; you can redistribute it and/or modify

+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA."

+ )

+ . "\n\n _____________________\n"

+ . _(

+ "Description:

+"

+ );

+ gtktext_insert( $text, $custom_helps{$custom_help} || $default_help );

+ 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( _("OK") ),

+ clicked => sub {

+ ${$central_widget}->destroy();

+ $function->();

+ }

+ ),

+ ),

+ )

+ );

+ $next_widget = undef;

+use standalone

+ ; #- warning, standalone must be loaded very first, for 'explanations'

+

+my $in = 'interactive'->vnew( 'su', 'network' );

+$::isEmbedded = ( $::XID, $::CCPID ) = "@ARGV" =~ /--embedded (\S*) (\S*)/;

+if ( "@ARGV" =~ /--help|-h/ ) {

+my $windows = 0;

+my $so = 1;

+my $gs = 1;

+my $abi = 1;

+my $mode = -1;

+ /--list|-l/ and $list_all_font_path = 1, $mode = -1;

+ /--xls_fonts/ and $xlsfonts = 1, $mode = -1;

+ /--windows_import|-wi/ and $windows = 1, $mode = -1;

+ /--strong|-s/ and $strong = 1, $mode = -1;

+ /--replace|-r/ and $replace = 1, $mode = -1;

+ /--application/ and $mode = 0, next;

+ if ( $i =~ /so/i ) {

+ if ( $gs != 2 ) { $gs = 0; }

+ $so = 2;

+ if ( $i =~ /gs/i ) {

+ if ( $so != 2 ) { $so = 0; }

+ $gs = 2;

+my $ttf2pt1 = '/usr/sbin/ttf2pt1';

+my $pfm2afm = '/usr/sbin/pfm2afm';

+my $type1inst = '/usr/sbin/type1inst';

+my $chkfontpath = '/usr/sbin/chkfontpath';

+my $mkttfdir = '/usr/X11R6/bin/mkttfdir';

+

+ foreach ( grep { /\d+:\s/ } `$chkfontpath -l` ) {

+ chomp;

+ s/\d+:\s//gi;

+ s/:\w*$//gi;

+ push @installed_fonts_path, $_;

+ foreach my $tmp_path (@installed_fonts_path) {

+ @temp3 = ();

+ foreach my $temp2 ( all($tmp_path) ) {

+ if ( !( ( $temp2 =~ /^fonts/ ) || ( $temp2 =~ /^type/ ) ) ) {

+ push @temp3, $temp2;

+ }

+ }

+ if ( !(@temp3) ) {

+ system("chkfontpath -r $tmp_path ")

+ or print "PERL::system command failed during chkfontpath\n";

+ }

+ $interactive and progress( $pbar, 0.1, _("Search installed fonts") );

+ $interactive and progress( $pbar, 0.1, _("Unselect fonts installed") );

+ foreach my $j ( all($i) ) {

+ push @installed_fonts_full_path, "$i/$j";

+ }

+ foreach my $fstab_line ( grep { /vfat|ntfs/ } cat_('/etc/mtab') ) {

+ my $win_dir = ( split ( '\s', $fstab_line ) )[1];

+ my @list_fonts_win = all("$win_dir/windows/fonts");

+ my @list_fonts_winnt = all("$win_dir/winnt/fonts");

+ my $nb_dir = @list_fonts_win + @list_fonts_winnt;

+ foreach ( [ \@list_fonts_win, "windows" ],

+ [ \@list_fonts_winnt, "winnt" ] )

+ {

+ foreach my $i ( @{ $_->[0] } ) {

+ if ($interactive) {

+ if ($nb_dir) {

+ progress( $pbar, 0.25 / $nb_dir, _("parse all fonts") );

+ }

+ else {

+ display_error( _("no fonts found") );

+ return 0;

+ }

+ }

+ !$replace && grep( /$i/, @installed_fonts ) and next;

+ grep ( /$i$/, @font_list )

+ or push @font_list, "$win_dir/$_->[1]/fonts/$i";

+ }

+ }

+ $interactive && $nb_dir and progress( $pbar, 1, _("done") );

+ if ( !@font_list ) {

+ print "drakfont:: could not find any font in /win*/fonts \n";

+ $interactive

+ and display_error(

+ _("could not find any font in your mounted partitions") );

+ return 0;

+ /\.ttf$/i

+ || /\.pfa$/i

+ || /\.pfb$/i

+ || /\.pcf$/i

+ || /\.pcf\.gz$/i

+ || /\.pfm$/i

+ || /\.gsf$/;

+ my @font_list_tmp = ();

+ my @font_list_tmpp = ();

+ my $dir;

+ if ( !( -e $fn ) ) { print "$_ :: no such file or directory \n" }

+ else {

+ if ( -d $fn ) {

+ $dir = $fn;

+ foreach my $i ( all($fn) ) {

+ if ( is_a_font($i) ) {

+ push @font_list_tmp, "$i";

+ foreach my $i (@font_list_tmp) {

+ !$replace && grep( /$i/, @installed_fonts )

+ and next;

+ grep /$i/, @font_list or push @font_list, "$fn/$i";

+ }

+ }

+ }

+ }

+ else {

+ if ( is_a_font($fn) ) {

+ !$replace && grep( /$fn/, @installed_fonts ) and next;

+ !grep /$fn/, (@installed_fonts) and push @font_list, "$fn";

+ }

+ }

+ }

+ $interactive

+ and progress( $pbar, 0.50 / @install, _("Reselect correct fonts") );

+ $interactive and progress( $pbar, 1, _("done") );

+ !@font_list && $interactive

+ and display_error( _("could not find any font.\n") );

+ my $fn = $_;

+ if ( -d $fn ) {

+ foreach my $i ( all($fn) ) {

+ if ( is_a_font($i) ) { push @font_list_tmp, "$i"; }

+ }

+ }

+ else {

+ if ( is_a_font($fn) ) { push @font_list_tmp, "$fn"; }

+ foreach my $j (@font_list_tmp) {

+ if ( $i =~ /$j/ ) { push @font_list, "$i"; }

+ }

+ $interactive and progress( $pbar, 1, _("Search fonts in installed list") );

+sub print_list {

+ print "Font(s) to Install :\n\n";

+ print "$_\n" foreach (@font_list);

+}

+ -e $drakfont_dir || mkdir_p($drakfont_dir);

+ -e $drakfont_dir . "/Type1" || mkdir_p( $drakfont_dir . "/Type1" );

+ -e $drakfont_dir . "/ttf" || mkdir_p( $drakfont_dir . "/ttf" );

+ -e $drakfont_dir . "/tmp" || mkdir_p( $drakfont_dir . "/tmp" );

+ -e $drakfont_dir . "/tmp/ttf" || mkdir_p( $drakfont_dir . "/tmp/ttf" );

+ -e $drakfont_dir . "/tmp/Type1" || mkdir_p( $drakfont_dir . "/tmp/Type1" );

+ -e $drakfont_dir . "/tmp/tmp" || mkdir_p( $drakfont_dir . "/tmp/tmp" );

+ -e "/usr/share/ghostscript"

+ or $gs = 0 && print "ghostscript is not installed on your system...\n";

+ dir_created();

+ foreach my $i (@font_list) {

+ cp_af( $i, $drakfont_dir . "/tmp/tmp" );

+ $interactive

+ and progress( $pbar1, 1 / @font_list, _("Fonts copy") );

+ }

+ $interactive and progress( $pbar1, 0.01, _("done") );

+ $interactive

+ and progress( $pbar2, 0.10, _("True Type fonts installation") );

+ glob("$drakfont_dir/tmp/tmp/*.TTF")

+ and system( 'cd '

+ . $drakfont_dir

+ . '/tmp/tmp ; for foo in *.TTF; do mv $foo `basename $foo .TTF`.ttf; done'

+ );

+ system( 'cd ' . $drakfont_dir . '/tmp/tmp && cp *.ttf ../../ttf' );

+ $interactive

+ and progress( $pbar2, 0.20, _("please wait during ttmkfdir...") );

+

+ # system ('cd '.$drakfont_dir.'/ttf && $ttmkfdir > fonts.dir' );

+ my $ttfdir = $drakfont_dir . "/ttf";

+ `$mkttfdir $ttfdir`;

+ $interactive and progress( $pbar2, 0.10, _("True Type install done") );

+ my $update_chkfontpath = "$chkfontpath -a $drakfont_dir/ttf";

+

+ if ( $so && $gs ) {

+ my @glob_drak = glob("$drakfont_dir/tmp/tmp/*.ttf");

+ foreach my $fontname (@glob_drak) {

+ system("cd $drakfont_dir/tmp/tmp && $ttf2pt1 -b $fontname");

+ $interactive

+ and

+ progress( $pbar2, 0.50 / @glob_drak, _("Fonts conversion") );

+ }

+ system(

+"cd $drakfont_dir/tmp/tmp && mv *.gsf *.pfb *.pfm *.afm ../Type1"

+ );

+ system("cd $drakfont_dir/tmp/Type1 && $type1inst");

+ $interactive and progress( $pbar2, 0.10, _("type1inst building") );

+ -e "$drakfont_dir/tmp/Type1/Fontmap"

+ and system(

+"cd $drakfont_dir/tmp/Type1 && cat Fontmap >> `rpm -ql ghostscript | grep Fontmap.GS` "

+ );

+ system(

+"cd $drakfont_dir/tmp/Type1 && mv *.pfm *.gsf *.afm *.pfb ../../Type1 "

+ );

+ system("cd $drakfont_dir/Type1 && $type1inst");

+ $interactive

+ and progress( $pbar2, 0.05, _("Ghostscript referencing") );

+ $update_chkfontpath .= "; $chkfontpath -a $drakfont_dir/Type1";

+ }

+

+ if ( !$so && $gs ) {

+ foreach

+ my $fontname ( @tmpl = glob("$/drakfont_dir/tmp/tmp/*.ttf") )

+ {

+ system("cd $/drakfont_dir/tmp/tmp && $ttf2pt1 -b $fontname");

+ $interactive

+ and progress( $pbar2, 0.50 / @tmpl, _("Fonts conversion") );

+ }

+ system("cd $drakfont_dir/tmp/tmp && mv *.gsf *.pfb *.pfm ../Type1");

+ system("cd $drakfont_dir/tmp/Type1 && $type1inst");

+ $interactive and progress( $pbar2, 0.1, _("type1inst building") );

+ system(

+"cd $drakfont_dir/tmp/Type1 && cat Fontmap >> `rpm -ql ghostscript | grep Fontmap.GS` "

+ );

+ system(

+"cd $drakfont_dir/tmp/Type1 && mv *.pfm *.afm *.gsf *.pfb ../../Type1 "

+ );

+ system("cd $drakfont_dir/Type1 && $type1inst");

+ $interactive

+ and progress( $pbar2, 0.05, _("Ghostscript referencing") );

+ $update_chkfontpath .= "; $chkfontpath -a $drakfont_dir/Type1";

+ }

+

+ if ( $so && !$gs ) {

+ foreach my $fontname ( @tmpl = glob("$drakfont_dir/tmp/tmp/*.ttf") )

+ {

+ system("cd $drakfont_dir/tmp/tmp && $ttf2pt1 $fontname");

+ $interactive

+ and

+ progress( $pbar2, 0.25 / @tmpl, _("ttf fonts conversion") );

+ }

+ foreach my $fontname ( @tmpl = glob("$drakfont_dir/tmp/tmp/*.pfm") )

+ {

+ system("cd $drakfont_dir/tmp/tmp && $pfm2afm $fontname");

+ $interactive

+ and

+ progress( $pbar2, 0.25 / @tmpl, _("pfm fonts conversion") );

+ }

+ system("cd $drakfont_dir/tmp/tmp && mv *.afm ../Type1");

+ system("cd $drakfont_dir/tmp/Type1 && mv *.afm ../../Type1 ");

+ system("cd $drakfont_dir/Type1 && $type1inst");

+ $interactive and progress( $pbar2, 0.14, _("type1inst building") );

+ $update_chkfontpath .= "; $chkfontpath -a $drakfont_dir/Type1";

+ }

+

+ $interactive and progress( $pbar2, 0.01, _("done") );

+ $interactive

+ and progress( $pbar3, 0.25, _("Suppress temporary Files") );

+ rm_rf("$drakfont_dir/tmp/");

+ print "\n\nretarting xfs......\n";

+ $interactive and progress( $pbar3, 0.5, _("Restart XFS") );

+ system($update_chkfontpath);

+

+ # system ($restart_xfs);

+ # system('kill -USR1 `/sbin/pidof xfs` 2&1>/dev/null');

+ system('/etc/rc.d/init.d/xfs restart');

+ $interactive and progress( $pbar3, 0.30, _("done") );

+

+ if ( all("$drakfont_dir/remove") ) {

+ system(" cd $drakfont_dir/remove && $type1inst");

+ my @Fontmap_out = cat_("$drakfont_dir/remove/Fontmap");

+ my $FontmapGS = `rpm -ql ghostscript | grep Fontmap.GS`;

+ chomp($FontmapGS);

+ my @FontmapGS_list = cat_($FontmapGS);

+ foreach my $font_gs (@FontmapGS_list) {

+ my @tmp_list = split ( ' ', $font_gs );

+ grep ( $_ =~ /$tmp_list[0]/, @Fontmap_out )

+ or push @Fontmap_new, $font_gs;

+ }

+ print $_ foreach @Fontmap_new;

+ output( $FontmapGS, @Fontmap_new );

+ -e $drakfont_dir . "/remove" || mkdir_p( $drakfont_dir . "/remove" );

+ $interactive and progress( $pbar, 1, _("done") );

+ $_ = $i;

+ if ( /.pfb$/ || /.gsf$/ || /.pfm$/ || /.pfa$/ ) {

+ system("mv $_ $drakfont_dir/remove ");

+ }

+ else {

+ rm_rf($i);

+ }

+ $i =~ s/\/\w*\.\w*//gi;

+ grep ( $i, (@list_dir) ) or push @list_dir, $i;

+ $interactive

+ and progress( $pbar1, 1 / @font_list, _("Suppress Fonts Files") );

+ $interactive and progress( $pbar1, 0.01, _("done") );

+ -e "/usr/share/ghostscript" and remove_gs_fonts();

+ if ( listlength all("$i") < 3 ) {

+ system("chkfontpath -r $i")

+ or print "PERL::system command failed during chkfontpath\n";

+ }

+ else {

+ system("cd $i && type1inst")

+ or print "PERL::system command failed during cd or type1inst\n";

+ }

+ $interactive