#!/usr/bin/perl
#
#  Copyright (C) 2001-2004 Mandrakesoft by Sebastien DUPONT <dupont_s@epita.fr>
#  Updated 2002-2004 by Stew Benedict <sbenedict@mandrakesoft.com>
#  Redistribution of this file is permitted under the terms of the GNU
#  Public License (GPL)
#
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2, or (at your option)
#  any later version.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software
#  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

use lib qw(/usr/lib/libDrakX);
use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
use strict;

use interactive;
use common;
use detect_devices;

# Backend Options.
# make this global for status screen      
my ($window1, $my_win);
my $central_widget;
my $previous_widget;
my $current_widget;
my $interactive;
my $up_box;
my $advanced_box;
my $box2;
my $cfg_file_exist = 0;
my @user_list_all;
my $DEBUG = 0;
my $restore_sys = 1; 
my $restore_user = 1; 
my $restore_other = 1; 
my $restore_step_sys_date = "";
my $restore_step_other_date = "";
my @user_backuped;
my @sys_backuped;
my @other_backuped;
my @user_list_to_restore;
my @sys_list_to_restore;
my @other_list_to_restore;
my $button_box;
my $button_box_tmp;
my $next_widget;
my $system_state;
my $restore_state;
my $save_path_entry;
my $restore_find_path_entry;
my $new_path_entry;
my $pbar;
my $pbar1;
my $pbar2;
my $pbar3;
my $plabel;
my $plabel1;
my $plabel2;
my $plabel3;
my $stext;
my $list_model;
my $the_time;
my @user_list_to_restore2;
my $restore_path = "/";
my $restore_other_path = 0;
my $restore_other_src;
my $path_to_find_restore;
my $other_media_hd;
my $backup_bef_restore = 0;
my $table;
my @user_list_backuped;
my @files_corrupted;
my %check_user_to_restore;
my $remove_user_before_restore = 0;
my @file_list_to_send_by_ftp;
my $results;
my @net_methods = ("ftp", "rsync", "ssh", "webdav");
my @media_types = (translate(N_("hd")), "cd", translate(N_("tape")));
my %cd_devices;
my $std_device;
my @tape_devices;
my $in;

# config. FILES -> Default PATH  & Global variables.
my @user_list;
my $cfg_dir = "/etc/drakxtools/drakbackup/";
my $cfg_file = $cfg_dir . "drakbackup.conf";
my $log_file = "/var/log/drakbackup";
my $log_buff;
my $manual_user = 0;
my $backup_daemon = 0;
my $daemon = 0;
my $use_hd = 1;
my $custom_cron = 0;
my $session_offset = '';
my $scp_port = 22;
my $user_home = $ENV{HOME};
my $nonroot_user = 0;
my $media_problem = 0;
my $vol_name = 'Drakbackup';
my $good_restore_path = 1;
my @no_devices = translate(N_("No device found"));
my %help;
my %conf;
my $time_string = "* * * * *";
my $exec_string = "export USER=$ENV{USER}; /usr/sbin/drakbackup --daemon > /dev/null 2>&1";
my $ignore_files_list;
my @list_of_rpm_to_install;
my @other_files;
my @sys_files = "/etc";
my @files_for_direct_tape;
my $host_passwd;
my $untar_prefix = "tar -C $restore_path -x";

# allow not-root user with own config
if ($ENV{USER} ne 'root' && $ENV{HOME} ne '/root') {
	standalone::explanations("Running as $ENV{USER}...");
	#- doesn't get defined when run from cron
	$user_home = "/home/$ENV{USER}" if $user_home eq '';
	$cfg_dir = "$user_home/.drakbackup/";
	$conf{PATH_TO_SAVE} = $cfg_dir . "backups";
	$log_file = $cfg_dir . "drakbackup.log";
	$nonroot_user = 1;
	$conf{NO_SYS_FILES} = 1;
	@user_list = $ENV{USER};
} else {
	$user_home = "/root";
	$conf{PATH_TO_SAVE} = "/var/lib/drakbackup";
}
$cfg_file = $cfg_dir . "drakbackup.conf";
my $backup_key = $user_home . "/.ssh/identity-drakbackup";

foreach (@ARGV) {
    /--default/ and backend_mode();
    /--daemon/ and daemon_mode();
    /--show-conf/ and show_conf();
	/--cd-info/ and get_cd_info(), exit(0);
    /--debug/ and $DEBUG = 1, next;
}

sub setup_tooltips() {
	%help = (
		'use_expect' => N("Expect is an extension to the TCL scripting language that allows interactive sessions without user intervention."),
		'remember_pass' => N("Store the password for this system in drakbackup configuration."),
		'erase_cdrw' => N("For a multisession CD, only the first session will erase the cdrw. Otherwise the cdrw is erased before each backup."),	
		'use_incr_decr' => N("This option will save files that have changed.  Exact behavior depends on whether incremental or differential mode is used."), 
		'use_incremental' => N("Incremental backups only save files that have changed or are new since the last backup."),
		'use_differential' => N("Differential backups only save files that have changed or are new since the original 'base' backup."),
		'send_mail_to' => N("This should be a local user or email address that you want the backup results sent to. You will need to define a functioning mail server."),
		'backupignore' => N("Files or wildcards listed in a .backupignore file at the top of a directory tree will not be backed up."),
		'delete_files' => N("For backups to other media, files are still created on the hard drive, then moved to the other media.  Enabling this option will remove the hard drive tar files after the backup."),
		'dir_or_module' => N("Some protocols, like rsync, may be configured at the server end.  Rather than using a directory path, you would use the 'module' name for the service path."),
		'when_space' => N("Custom allows you to specify your own day and time.  The other options use run-parts in /etc/crontab."),
	);
}

sub show_conf() {
    print "DrakBackup configuration:\n\n";
    read_conf_file();
    system_state();
    print "$system_state\n";
    exit(0);
}

sub backend_mode() {
    build_backup_files();
    exit(0);
}

sub daemon_mode() {
    $daemon = 1;
    build_backup_files();
    exit(0);
}

if (check_for_xserver()) {
	eval { require ugtk2 };
	die "Can't load ugtk2...\n" if $@;
	ugtk2->import(qw(:create :dialogs :helpers :wrappers));
	interactive_mode();
} else {
	die "Can't run in console mode...";
}

sub set_help_tip {
     my ($entry, $key) = @_;
     gtkset_tip(Gtk2::Tooltips->new, $entry, formatAlaTeX($help{$key}));
}

sub all_user_list() {
	if ($nonroot_user) {
		@user_list_all = $ENV{USER};
		return;
	}
    my $user;
    my $uid;
    @user_list_all = ();

	my @passwd = cat_("/etc/passwd");
	foreach (@passwd) {
		($user, $uid) = (split(/:/, $_))[0, 2];
		if ($uid >= 500 && $uid < 65000 || $uid == 0) {
	    	push @user_list_all, $user;
		}
    }
}

sub the_time() {
    my ($sec, $min, $hour, $day, $month, $year) = localtime(time());
    sprintf("_%d%02d%02d_%02d%02d%02d", $year + 1900, $month + 1, $day, $hour, $min, $sec);
}

sub get_tape_info() {
	my @line_data;
	my $info = "$ENV{HOME}/tmp/dmesg";
	@tape_devices = ();
	system("dmesg -s 100000 | grep 'st[0-9] at' > $info");

	my @info = cat_($info);
	foreach (@info) {
		@line_data = split(/[ \t,]+/, $_);
		push @tape_devices, "/dev/" . $line_data[3]; 
	}
	unlink($info);
}

sub get_free_space {
	my ($dir) = @_;
	my $free = `df -P $dir | tail -1`;
	my @line_data = split(/[ \t,]+/, $free); 
	my $free_space = int($line_data[3] / 1024);
	return $free_space;	
}

sub check_storage_quota {
	my ($dir) = @_;
	my $used = `du -b $dir`;	
	my $used_space = $used / 1024 / 1024;
	if ($used_space > $conf{MAX_SPACE}) {
		return $used_space;
	} else {
		return 0;
	}
}

sub get_cd_info() {
	my @line_data;
	my @drive_names;
	my $i;
	require_rpm("cdrecord") if $nonroot_user;
    # just trying load ide-cd, since it doesn't seem to be loaded by default
	$nonroot_user ? `cdrecord -scanbus -dev=ATA > /dev/null 2>&1` : `modprobe ide-cd` unless -f "/proc/sys/dev/cdrom";
	my @cd_info = cat_("/proc/sys/dev/cdrom/info");
	my %data = (
                  "drive speed" => 'speed',
                  "Can change speed" => 'chg_speed',
                  "Can read multisession" => 'multisession',
                  "Can write CD-R" => 'cdr',
                  "Can write CD-RW" => 'cdrw',
                  "Can write DVD-R" => 'dvdr',
                  "Can write DVD-RAM" => 'dvdram'
                  );

	my $cd_drives;
	foreach (@cd_info) {
	@line_data = split(/[:\t]+/, $_);
	if ($line_data[0] =~ /drive name/) {
		$cd_drives = @line_data-1;
		chop($line_data[$cd_drives]);
		@drive_names = @line_data;
		print "drives: $cd_drives\n" unless $interactive;
	}
	chop($line_data[$cd_drives]) if $cd_drives;
 		foreach my $key (keys %data) {
			if ($line_data[0] eq $key) {
				for ($i = 1; $i <= $cd_drives; $i++) {
					$cd_devices{$drive_names[$i]}{$data{$key}} = $line_data[$i];
				}
			}
		}
	}
	
	#- now just report the data if we called --cd-info from the command line
	foreach my $key (keys %cd_devices) {
		my $rec_dev = $key;
		my $prefix;
		$rec_dev =~ s/sr/sg/;
		$prefix = "ATAPI:" if $rec_dev =~ /hd/;
		my $can_record = $cd_devices{$key}{cdr} || $cd_devices{$key}{cdrw} || $cd_devices{$key}{dvdr};
		$cd_devices{$key}{rec_dev} = $prefix . "/dev/" . $rec_dev if $can_record;
		if (!$interactive) {
			print "\n{$key}->{rec_dev} = $cd_devices{$key}{rec_dev}\n"; 
			print "{$key}->{speed} = $cd_devices{$key}{speed}\n";
			print "{$key}->{chg_speed} = $cd_devices{$key}{chg_speed}\n";
			print "{$key}->{multisession} = $cd_devices{$key}{multisession}\n";
			print "{$key}->{cdr} = $cd_devices{$key}{cdr}\n";
			print "{$key}->{cdrw} = $cd_devices{$key}{cdrw}\n";
			print "{$key}->{dvdr} = $cd_devices{$key}{dvdr}\n";
			print "{$key}->{dvdram} = $cd_devices{$key}{dvdram}\n"; 
		} else {
			delete $cd_devices{$key} if $cd_devices{$key}{rec_dev} eq ''
   		}
	}
}


sub save_conf_file() {
    write_sitecopyrc() if $conf{NET_PROTO} eq 'webdav';
    write_password_file() if $conf{NET_PROTO} eq 'rsync' && $conf{PASSWD};
	return 1 if $conf{SEND_MAIL} && verify_mail_setup();
	#- don't save this, but retain it for this session
	if ($conf{REMEMBER_PASS} != 1) {
		$host_passwd = $conf{PASSWD};
		$conf{PASSWD} = undef;
	}
	if ($backup_daemon && $conf{DAEMON_MEDIA} eq '') {
		show_warning("f", N("No media selected for cron operation."));
		return 1;
	}
	if ($backup_daemon && $conf{DAEMON_TIME_SPACE} eq '') {
		show_warning("f", N("No interval selected for cron operation."));
		return 1;
	}
	if (!$backup_daemon) {
		$conf{DAEMON_TIME_SPACE} = "";
		$conf{DAEMON_MEDIA} = "";
	}
	$conf{NO_USER_FILES} = '' if @user_list == ();
	$conf{OTHER_FILES} = list_to_conf(@other_files);
	$conf{HOME_FILES} = list_to_conf(@user_list);
	$conf{SYS_FILES} = list_to_conf(@sys_files);
	mkdir_p($cfg_dir) if !-d $cfg_dir;
	setVarsInSh($cfg_file, \%conf);
	$conf{PASSWD} = $host_passwd if $conf{REMEMBER_PASS} != 1;
    chmod(0600, $cfg_file);
    save_cron_files();
    0;
}

sub read_cron_files() {
    my $daemon_found = 0;
    foreach (qw(hourly daily weekly monthly)) {
		if (-f "/etc/cron.$_/drakbackup" && !$nonroot_user) {
	    	$conf{DAEMON_TIME_SPACE} = $_;	    
	    	$daemon_found = 1;
	    	last;
		}
    }
	if ($conf{DAEMON_TIME_SPACE} ne "custom") {
    	!$daemon_found and $backup_daemon = 0;
	} else {
		$custom_cron = 1;
		my $tmpcron = "$ENV{HOME}/tmp/crontab.tmp";
		$tmpcron = `crontab -l | tail +4`;
		my @cronline = grep { /drakbackup/ } $tmpcron;
		if (@cronline) {
			@cronline = split(" ", $cronline[0]);
			my @crondetail = splice(@cronline, 0, 5);			
			$time_string = join(" ", @crondetail);
		}
	} 
}

sub save_cron_files() {
	my $tmpcron = "$ENV{HOME}/tmp/crontab.tmp";

	if ($nonroot_user && $conf{DAEMON_TIME_SPACE} ne "custom" && $conf{DAEMON_TIME_SPACE} ne '' && $backup_daemon)  {
		show_warning("w", N("Interval cron not available as non-root"));
		$conf{DAEMON_TIME_SPACE} = 'custom';
		return 1;
	} else {
		foreach (qw(hourly daily weekly monthly)) {
	    	-f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup") if !$nonroot_user;
		}
	}
    my @cron_file = ("#!/bin/sh\n", "export USER=root\n", "/usr/sbin/drakbackup --daemon > /dev/null 2>&1\n");

	if ($conf{DAEMON_TIME_SPACE} ne "custom" && $conf{DAEMON_TIME_SPACE} ne '' && $backup_daemon) {
		output_p("/etc/cron.$conf{DAEMON_TIME_SPACE}/drakbackup",  @cron_file);
		system("chmod +x /etc/cron.$conf{DAEMON_TIME_SPACE}/drakbackup");
	}
	if ($conf{DAEMON_TIME_SPACE} eq "custom" || !$backup_daemon) {
		my $newdetail = join(" ", $time_string, $exec_string, "\n") if $backup_daemon;
		system("crontab -l | tail +4 > $tmpcron");
		my @cronlines = cat_($tmpcron);
		my $index = 0;
		foreach (@cronlines) {
			if (/$exec_string/) {
				splice(@cronlines, $index, 1);
			}
			$index++
		}
		push(@cronlines, $newdetail) if $backup_daemon;
		output($tmpcron, @cronlines);
		system("crontab $tmpcron");
		unlink($tmpcron);
	}
}

sub upgrade_conf_file() {
	my @new_conf;
	$DEBUG and print "Old syntax...upgrading...\n";
	my @conf_data = cat_($cfg_file);
	chop @conf_data;
	foreach (@conf_data) {
		push @new_conf, $_ . "=1\n" if !/=/;
		if (/^OTHER_FILES/) {
			my (@new_data) = split /=/;
			my @new_args = split(" ", $new_data[1]);
			push @new_conf, $new_data[0] . "=" . join(",", @new_args) . "\n";
		} elsif (/=/ && !/TAR.GZ/) {
			my $has_arg = split /=/;
			push @new_conf, "$_\n" if $has_arg > 1;
		} elsif (/=/ && /TAR.GZ/) {
			push @new_conf, "OPTION_COMP=tar.gz";
		}
	}
	output_p($cfg_file, @new_conf);
}

sub read_conf_file() {
    if (-e $cfg_file) {
		my $conf_version = `grep USE_HD $cfg_file`;
		upgrade_conf_file() if $conf_version !~ /^USE_HD=1/;
		%conf = getVarsFromSh($cfg_file);
		@other_files = conf_to_list($conf{OTHER_FILES});
		@user_list = conf_to_list($conf{HOME_FILES});
		@sys_files = conf_to_list($conf{SYS_FILES}) if exists($conf{SYS_FILES});
		$backup_daemon = 1 if exists($conf{DAEMON_TIME_SPACE});
		$conf{PASSWD} = $host_passwd if $conf{REMEMBER_PASS} != 1;
		read_cron_files();
		$cfg_file_exist = 1;
    } else { 
    	$cfg_file_exist = 0;
		#- these were 1 by default, but that made it so the user could never save the 
		#- inverse behavior. this allows incremental as the default if not configured
		$conf{SYS_INCREMENTAL_BACKUPS} = 1;
		$conf{USER_INCREMENTAL_BACKUPS} = 1;
    }
	# some basic defaults
	$conf{SMTP_SERVER} = "localhost" if !exists($conf{SMTP_SERVER});
	$conf{MAX_SPACE} = 1000.0 if !exists($conf{MAX_SPACE});
	$conf{USE_HD} = 1 if !exists($conf{USE_HD});
	$conf{OPTION_COMP} = "tar.gz" if !exists($conf{OPTION_COMP});
	# deal with users that may have been deleted from the system
	check_valid_users() if $cfg_file_exist;
	$use_hd = !($conf{USE_CD} || $conf{USE_TAPE} || $conf{USE_NET});
}

sub verify_mail_setup() {
	all_user_list() if @user_list_all == ();
	if ($conf{USER_MAIL} ne "root" && $conf{USER_MAIL} !~ /[\w.-]*\@[\w.-]/ && !member($conf{USER_MAIL}, @user_list_all)) {
		show_warning("f", N("\"%s\" neither is a valid email nor is an existing local user!", $conf{USER_MAIL}));
		return 1;
	}
	if (member($conf{USER_MAIL}, @user_list_all) && $conf{SMTP_SERVER} ne "localhost") {
		show_warning("f", N("\"%s\" is a local user, but you did not select a local smtp, so you must use a complete email address!", $conf{USER_MAIL}));
		return 1;
	}
}

sub check_valid_users() {
	all_user_list();
	my @new_user_list = intersection(\@user_list, \@user_list_all);
	if (@user_list != @new_user_list) {
		log::l(N("Valid user list changed, rewriting config file."));
		if ($DEBUG) {
			print N("Old user list:\n");
			print "@user_list\n";
			print N("New user list:\n");
			print "@new_user_list\n";	
		}
		@user_list = @new_user_list;
		save_conf_file();
	}
}

sub write_sitecopyrc() {
	#- FIXME - how to deal with existing sitecopyrc
    my @cfg_list = ("site drakbackup\n",
		     "\tserver $conf{HOST_NAME}\n",
		     "\tremote /$conf{HOST_PATH}\n",
		     "\tlocal $conf{PATH_TO_SAVE}\n",
		     "\tusername $conf{LOGIN}\n",
		     "\tpassword $conf{PASSWD}\n",
		     "\tprotocol webdav\n"
			);
    output_p("$user_home/.sitecopyrc", @cfg_list);
    chmod(0600, "$user_home/.sitecopyrc");
    -d "$user_home/.sitecopy" or mkdir_p("$user_home/.sitecopy");
    chmod(0700, "$user_home/.sitecopy");
}

sub write_password_file() {
	output_p("$cfg_dir/rsync.user", "$conf{PASSWD}\n");
	chmod(0600, "$cfg_dir/rsync.user");
}

sub show_warning {
	my ($mode, $warning) = @_;
	$mode = N("Warning") if $mode eq "w";
	$mode = N("Error") if $mode eq "f";
	$mode = N("Information") if $mode eq "i";
	if ($interactive) {
		$in->ask_warn($mode, translate($warning));
	} else {
		warn "$mode: $warning\n";
	}
	$log_buff .= "\n$mode: $warning\n";
}
	
sub complete_results() {
    system_state();
    $results .=  "***********************************************************************\n\n";
    $daemon or $results .=  N("\n                      DrakBackup Report \n");
    $daemon and $results .= N("\n                      DrakBackup Daemon Report\n");
	my $datem = `date`;
	$results .=               "                      $datem\n\n";	
    $results .=  "***********************************************************************\n\n";
    $results .= $system_state;
    $results .=  "\n\n***********************************************************************\n\n";
    $results .=             N("\n                    DrakBackup Report Details\n\n\n");
    $results .=  "***********************************************************************\n\n";
}

sub ftp_client() {
    use Net::FTP; 
    my $ftp;
	
	foreach (1..5) {
		$ftp = Net::FTP->new($conf{HOST_NAME}, Debug => 0) or return 1;
		$ftp && $ftp->login($conf{LOGIN}, $conf{PASSWD}) and last;
		log::l("ftp login failed, sleeping before trying again");
		sleep 5 * $_;
		$ftp = 0;
	}
	return 1 if !$ftp;
	$ftp->binary;
	$ftp->cwd($conf{HOST_PATH}); 
    foreach (@file_list_to_send_by_ftp) {
		$interactive and $pbar->set_fraction(0);
		$interactive and progress($pbar, $plabel, 0.5, $_);
		$interactive and $pbar->set_text($_);
		$ftp->put($_, undef, undef);
		$interactive and progress($pbar, $plabel, 0.5, $_);
		$interactive and $pbar->set_text($_);
		$interactive and progress($pbar3, $plabel3, 1/@file_list_to_send_by_ftp, N("Total progress"));
    }
    $ftp->quit; 
    return 0;
}

sub do_expect {

	#- Sort of a general purpose expect routine, we use it to backup files to
	#- a remote server, as well as transfer a key and restore.
	#- Using the key after it is setup is preferred.
	
	my ($mode) = @_;
		
	eval { require Expect };
	
	if ($@) {
		#- should have already been installed during configuration
		$log_buff .= "perl-Expect not installed!" if check_pkg_needs(); 
		return 1;
	}
	
	#- for debugging set to 1
	$Expect::Exp_Internal = 0;
	#- for debugging set to 1
	$Expect::Debug = 0;
	$Expect::Log_Stdout = 0; 

	my $spawn_ok;
	my $no_perm;
	my $bad_passwd;
	my $bad_dir;
	my $had_err;
	my $timeout  = 20;
	
	my $exp_command;
	my @send_files = "$backup_key.pub";
	
	#- just bypass progress for sendkey for now
	my $no_prog = 1;
	$no_prog = 0 if $mode eq "sendkey";
	
	@send_files = @file_list_to_send_by_ftp if $mode eq "backup";
	
	$interactive && $no_prog and $pbar->set_fraction(0);
	$interactive && $no_prog and $pbar3->set_fraction(0);
	$interactive && $no_prog and progress($pbar, $plabel, 0.5, "File Transfer...");

	foreach (@send_files) {
		$exp_command = "scp -P $scp_port $_ $conf{LOGIN}\@$conf{HOST_NAME}:$conf{HOST_PATH}" if $mode eq "backup";
		$exp_command = "ssh-copy-id -i $_ $conf{LOGIN}\@$conf{HOST_NAME}" if $mode eq "sendkey";
	
		if (-e $backup_key && $mode eq "sendkey") {
			if ($in->ask_yesorno(N("Warning"), N("%s exists, delete?\n\nIf you've already done this process you'll probably\n need to purge the entry from authorized_keys on the server.", $backup_key))) {
				unlink($backup_key);
				unlink($backup_key . '.pub');
			} else {
				return 0;
			}
		}
	
		if (!(-e $backup_key) && $mode eq "sendkey") {	
			$in->ask_warn(N("Information"), N("This may take a moment to generate the keys."));
			gtkset_mousecursor_wait();
			#- not using a passphrase for the moment
			system("ssh-keygen", "-P", "", "-t", "dsa", "-f", $backup_key);
			gtkset_mousecursor_normal();
		}
		
		my $exp = Expect->spawn($exp_command) or $in->ask_warn(N("Error"), N("Cannot spawn %s.", $exp_command));

		$interactive && $no_prog and progress($pbar3, $plabel3, 1/@send_files, N("Total progress"));
		$interactive && $no_prog and $stext->set_text($_);
	
		#- run scp, look for some common errors and try to track successful progress for GUI
		$exp->expect($timeout,
			[ qr 'password: $', sub { 
				$spawn_ok = 1;
				my $fh = shift;
				$fh->send("$conf{PASSWD}\n");
				Expect::exp_continue() } ],
			[ '-re', 'please try again', sub { $bad_passwd = 1; Expect::exp_continue() } ],
			[ '-re', 'Permission denied', sub { $no_perm = 1; Expect::exp_continue() } ],
			[ '-re', 'No such file or directory', sub { $bad_dir = 1; Expect::exp_continue() } ],
#			[ '-re', '%', sub { update_scp_progress(); Expect::exp_continue(); } ],
			[ eof => sub {
					if (!$spawn_ok) { show_warning("f", N("No password prompt on %s at port %s", $conf{HOST_NAME}, $scp_port)) }					
					if ($bad_passwd) { show_warning("f", N("Bad password on %s", $conf{HOST_NAME})) }
					if ($no_perm) { show_warning("f", N("Permission denied transferring %s to %s", $_, $conf{HOST_NAME})) }
					if ($bad_dir) { show_warning("f", N("Can't find %s on %s", $conf{HOST_PATH}, $conf{HOST_NAME})) }
					$had_err = !$spawn_ok || $bad_passwd || $no_perm || $bad_dir;
				} 
			],
			[ timeout => sub { show_warning("f", N("%s not responding", $conf{HOST_NAME})) } ],
		); 

		my $exit_stat = $exp->exitstatus;
		$in->ask_warn(N("Information"), N("Transfer successful\nYou may want to verify you can login to the server with:\n\nssh -i %s %s\@%s\n\nwithout being prompted for a password.", $backup_key, $conf{LOGIN}, $conf{HOST_NAME})) if $exit_stat == 0 && !$had_err && $mode eq "sendkey";
		$log_buff .= "$_\n" if $exit_stat == 0 && $mode eq "backup";
		$exp->hard_close;
	}
	$interactive && $no_prog and progress($pbar, $plabel, 0.5, "Done...");
}

sub ssh_client() {
    $DEBUG and print "file list to send: $_\n "  foreach @file_list_to_send_by_ftp;
	my $command;
	my $value;
	
    foreach (@file_list_to_send_by_ftp) {
		if ($conf{USER_KEYS}) {
			$command = "scp -P $scp_port $_ $conf{LOGIN}\@$conf{HOST_NAME}:$conf{HOST_PATH}";
		} else {
			$command = "scp -P $scp_port -i $backup_key $_ $conf{LOGIN}\@$conf{HOST_NAME}:$conf{HOST_PATH}";
		}
		$interactive and $pbar->set_fraction(0);
		$interactive and progress($pbar, $plabel, 0.5, "File Transfer...");
		$interactive and $stext->set_text($_);
		$log_buff .= $command . "\n\n";
		my $TMP;
		open $TMP, "$command 2>&1 |";
		while ($value = <$TMP>) {
			$log_buff .= $value;
		}
		close $TMP;
		$log_buff .= "\n";
		$interactive and progress($pbar, $plabel, 0.5, "Done...");
		$interactive and progress($pbar3, $plabel3, 1/@file_list_to_send_by_ftp, N("Total progress"));
    }
    return 0;
}

sub webdav_client() {
    $DEBUG and print "file list to send: $_\n "  foreach @file_list_to_send_by_ftp;
	if (!(-e "$user_home/.sitecopy/drakbackup")) {
		my $command = "sitecopy -f $conf{HOST_PATH}";
		spawn_progress($command, "Initializing sitecopy");
	}
	my $command = "sitecopy -u drakbackup";
	spawn_progress($command, "Running sitecopy...");
		if ($log_buff =~ /Nothing to do - no changes found/) {
		show_warning("w", N("WebDAV remote site already in sync!"));
		return 1;
	}
	if ($log_buff !~ /Update completed successfully/) {
		show_warning("f", N("WebDAV transfer failed!"));
		return 1;
	}
	return 0;
}

sub rsync_client() {
    $DEBUG and print "file list to send: $_\n "  foreach @file_list_to_send_by_ftp;
	my $rsync_cmd = "rsync -tv $conf{PATH_TO_SAVE}/* ";
	$rsync_cmd = $rsync_cmd . "--password-file=$cfg_dir/rsync.user " if $conf{PASSWD};
	$rsync_cmd = $rsync_cmd . "$conf{LOGIN}\@" if $conf{LOGIN};
	$rsync_cmd = $rsync_cmd . $conf{HOST_NAME} . "::" . $conf{HOST_PATH};
	spawn_progress($rsync_cmd, "Running rsync");
	return 0;
}

sub check_for_cd() {	
	#- check for a cd
	my $command = "cdrecord dev=$conf{CD_DEVICE} -atip";
	spawn_progress($command, "Check for media in drive");
	if ($log_buff =~ /No disk/) {
		show_warning("f", N("No CD-R/DVD-R in drive!"));
		return 1;
	}
	if ($log_buff !~ /ATIP info from disk|ATIP start of lead in|Found DVD media/) {
		show_warning("f", N("Does not appear to be recordable media!"));
		return 1;
	}
	#- non-fatal, just disable erase
	if (($log_buff =~ /Is not erasable/ || $log_buff =~ /Found DVD media/) && $conf{MEDIA_ERASE}) {
		show_warning("w", N("Not erasable media!"));
		$conf{MEDIA_ERASE} = 0;
		save_conf_file();
	}
	 
	if ($conf{MULTI_SESSION}) {
		$command = "cdrecord -s dev=$conf{CD_DEVICE} -msinfo";
		spawn_progress($command, "Check for previous session status");
		#- if we don't find a previous session, start fresh
		if ($log_buff =~ /Cannot read session offset/) {
			$conf{MEDIA_ERASE} = 1;
			return 0;
		} else {
			#- extract the session info from $log_buff
			my $code_loc = rindex($log_buff, "msinfo") + 8;
			if ($code_loc != -1) { 
				my $bufflen = length($log_buff);
				$session_offset = substr($log_buff, $code_loc, $bufflen-$code_loc-1);
				return 0;
			}
			return 1;
		}
	}
}
	
sub write_on_cd() {	
	my $command = "cdrecord -v dev=$conf{CD_DEVICE} -data ";
	# DVD+RW use -sao
	$command .= "-sao " if $conf{DVDRW};
	#- only blank if it's the first session
	$command .= "blank=fast " if $conf{MEDIA_ERASE} && $session_offset eq '';
	#- multi-session mode
	$command .= "-multi -pad " if $conf{MULTI_SESSION};
	$command .= "$conf{PATH_TO_SAVE}/drakbackup.iso"; 
	
	spawn_progress($command, "Running cdrecord");
	unlink("$conf{PATH_TO_SAVE}/drakbackup.iso");
}

sub erase_cdrw() {
	#- we can only hit this via interactive
	$interactive = 0;
	$in->ask_warn(N("Information"), N("This may take a moment to erase the media."));
	gtkset_mousecursor_wait();
	my $command = "cdrecord dev=$conf{CD_DEVICE} -blank=fast";
	spawn_progress($command, "Erasing CDRW...");
	gtkset_mousecursor_normal();	
	$interactive = 1;
}

sub spawn_progress {
	my ($command, $descr) = @_;
	my $value;
	my $timer;
	$interactive and progress($pbar3, $plabel3, 0, translate($descr));
	$interactive and $pbar3->set_pulse_step(0.1);
	$interactive and $timer = Glib::Timeout->add(20, sub { $pbar3->pulse });

	$log_buff .= "\n" . $descr . ":\n";
	$log_buff .= $command . "\n\n";
	
	standalone::explanations("Running $command");
	my $TMP;
	open $TMP, "$command 2>&1 |";
	while ($value = <$TMP>) {
		$log_buff .= $value;
		if ($interactive) {
			$stext->set_text($value);
			gtkflush();
		}			
	}
	close $TMP;
	$interactive and Glib::Source->remove($timer);
}

sub get_cd_volname() {
	my $vol_device = $conf{CD_DEVICE};
	$vol_device =~ s/sg/scd/;
	$vol_name = `volname $vol_device` if $conf{CD_DEVICE};
	$vol_name =~ s/[ \t]+\n$//;
	$vol_name; 			
}

sub build_iso() {	
	if ($conf{MULTI_SESSION} && $session_offset) {
		$vol_name = get_cd_volname();
	} else {
		$vol_name = "Drakbackup" . $the_time;
	}
	#this is safe to change the volname on rewrites, as is seems to get ignored anyway
	my $command = "mkisofs -r -J -T -v -V '$vol_name' ";
	$command .= "-C $session_offset -M $conf{CD_DEVICE} " if $conf{MULTI_SESSION} && $session_offset;
	$command .= "-o $conf{PATH_TO_SAVE}/drakbackup.iso @file_list_to_send_by_ftp";
	spawn_progress($command, "Running mkisofs...");
}

sub build_cd() {
	if (!check_for_cd()) {
		build_iso();
		if ($log_buff =~ /Permission denied/) {
			show_warning("f", N("Permission problem accessing CD."));
			$media_problem = 1;
			return 1;
		} else {
			write_on_cd();
		}
	}
}

sub get_tape_label {
	my ($device) = @_;
	gtkset_mousecursor_wait();
	system("mt -f $device rewind");
	system("tar -C $cfg_dir -xf $device");
	my @volname = cat_("$cfg_dir/drakbackup.label");
	unlink("$cfg_dir/drakbackup.label");
	$vol_name = $volname[0];
	gtkset_mousecursor_normal();
	$vol_name;
}

sub build_tape() {
	my $command;
	#- do we have a tape?
	$command = "mt -f $conf{TAPE_DEVICE} status"; 
	spawn_progress($command, "Checking for tape");
	if ($log_buff =~ /DR_OPEN/) {
		show_warning("f", N("No tape in %s!", $conf{TAPE_DEVICE}));
		return 1;
	}	
	
	#- try to roll to the end of the data if we're not erasing
	if (!$conf{MEDIA_ERASE}) {
		$command = "mt -f $conf{TAPE_DEVICE} rewind";
		spawn_progress($command, "Rewind to find tape label");
		$command = "tar -tf $conf{TAPE_DEVICE}";
		spawn_progress($command, "Check for label");
		if ($log_buff =~ /drakbackup.label/) {
			if ($conf{TAPE_NOREWIND}) {
				$command = "mt -f $conf{TAPE_DEVICE} rewind";
				spawn_progress($command, "Rewind to get tape label");
			}
			$command = "tar -C $cfg_dir -xf $conf{TAPE_DEVICE}";
			spawn_progress($command, "Reading tape label");		
			my @volname = cat_("$cfg_dir/drakbackup.label");
			unlink("$cfg_dir/drakbackup.label");
			$vol_name = $volname[0];
		}
		$command = "mt -f $conf{TAPE_DEVICE} eod"; 
		spawn_progress($command, "Running mt to find eod");
	} else {
		$command = "mt -f $conf{TAPE_DEVICE} rewind"; 
		spawn_progress($command, "Running mt to rewind");		
		# make a tape label for the catalog
		# if we're using the rewinding device, change modes briefly
		if (!$conf{TAPE_NOREWIND}) {
			$conf{TAPE_DEVICE} =~ s|/st|/nst|;
		}
		$vol_name = "Drakbackup" . $the_time;
		my $f = "$cfg_dir/drakbackup.label";
		output($f, $vol_name);
		$command = "tar -C $cfg_dir -cf $conf{TAPE_DEVICE} drakbackup.label;";
		spawn_progress($command, "Creating tape label");
		unlink $f;
		if (!$conf{TAPE_NOREWIND}) {
			$conf{TAPE_DEVICE} =~ s|/nst|/st|;
		}
	}
	
	#- do the backup
	$command = "tar -cvf $conf{TAPE_DEVICE} ";
	if ($conf{DIRECT_TAPE}) {
		($command, undef) = handle_ignores($command, undef, @files_for_direct_tape);
		$command .= " @files_for_direct_tape";
	} else {
		$command .= " @file_list_to_send_by_ftp";
	}
	spawn_progress($command, "Running tar to tape");
	
	#- eject the tape?
	if ($conf{MEDIA_EJECT}) {
		$command = "mt -f $conf{TAPE_DEVICE} rewoff";
		spawn_progress($command, "Running mt to eject tape");
	}
}

sub send_mail {
    my ($result) = @_;
    my $datem = `date`;	
    use Mail::Mailer;
    my $mailer = Mail::Mailer->new('smtp', Server => $conf{SMTP_SERVER});
    $mailer->open({ From    => 'drakbackup',
                    To      => $conf{USER_MAIL},
                    Subject => "DrakBackup report on $datem",
                  })
    or return 1;
    print $mailer $result;
    $mailer->close;
	0;
}

sub build_backup_files() {
    my $path_name;
    my $tar_cmd;
    my $more_recent;
    my $tar_cmd_sys;
    my $tar_cmd_user;
    my $tar_cmd_other;
    my @dir_content;
	my $incr;
	my $base;
	my $find_args = "! -type d -print";
		
	local $_;
    $results = "";
	$log_buff = "";
	#- flush these so if the user does 2 runs in a row we don't try to send the same files
	@file_list_to_send_by_ftp = ();
	@files_for_direct_tape = ();
		
	$interactive and gtkset_mousecursor_wait();
    read_conf_file();
    $the_time = the_time();    
    $conf{SEND_MAIL} and complete_results();
    -d  $conf{PATH_TO_SAVE} or mkdir_p($conf{PATH_TO_SAVE});
	
	$tar_cmd = "tar cp";
	$tar_cmd .= "v" if $DEBUG;
	$tar_cmd .= "j" if $conf{OPTION_COMP} eq "tar.bz2";
	$tar_cmd .= "z" if $conf{OPTION_COMP} eq "tar.gz";
	$tar_cmd .= " ";

	my $used_space = check_storage_quota($conf{PATH_TO_SAVE});
	if ($used_space) {
		my $msg = N("Backup quota exceeded!\n%d MB used vs %d MB allocated.", $used_space, $conf{MAX_SPACE});
		show_warning("f", $msg);
		$interactive and gtkset_mousecursor_normal();
		$results .= $msg;
		$interactive and show_status();
		results_to_logfile();
		return 1; 
	}
	$tar_cmd_sys = $tar_cmd;
    $tar_cmd_user = $tar_cmd;
    $tar_cmd_other = $tar_cmd;
    $conf{NO_CRITICAL_SYS} and $tar_cmd_sys .= "--exclude passwd --exclude fstab --exclude group --exclude mtab";
    $conf{NO_BROWSER_CACHE} and $tar_cmd_user .= "--exclude NewCache --exclude Cache --exclude cache";
	$nonroot_user and $tar_cmd_user .= " --exclude .drakbackup";
	$conf{BACKUPIGNORE} && -f "/etc/.backupignore" and $tar_cmd_sys .= " -X /etc/.backupignore";
	
    -d $conf{PATH_TO_SAVE} and @dir_content = all($conf{PATH_TO_SAVE});
 
    if ($conf{USE_HD} && !$daemon || $daemon) {
	  $interactive and progress($pbar, $plabel, 0.5, N("Backup system files..."));
	  unless ($conf{NO_SYS_FILES}) {
	  	my $find_args_sys = $find_args;
		my $first_done;
		$ignore_files_list = '';
	  	$find_args_sys = handle_ignores2("/etc", $find_args_sys) if $conf{BACKUPIGNORE};
	    if ($conf{SYS_INCREMENTAL_BACKUPS}) {
			$base = $incr = "incr_sys";
			($base, $incr) = swap_prefix($base, $incr) if $conf{SYS_DIFFERENTIAL_BACKUPS};
			$base =~ s/incr/base/ if !any { /^list_incr_sys/ } @dir_content;
			if (any { /^list_base_sys/ }  @dir_content) { 
				$more_recent = get_more_recent($base, @dir_content);
				my $list_file = name_list_file($incr);
				do_find($more_recent, $find_args_sys, $list_file, @sys_files);
				if (check_rm_list($list_file)) {
					do_tar($tar_cmd_sys, "backup_$incr", $list_file, undef);
		    	}
				$first_done = 1;
			} else {
				$incr = "base_sys";
			}
	  	} else {
			$incr = "sys";
			clean_dest($incr);
	  	}
		if (!$first_done) {
			my $list_file = name_list_file($incr);
			do_find(undef, $find_args_sys, $list_file, @sys_files);
			do_tar($tar_cmd_sys, "backup_$incr", undef, @sys_files);
		}
		push_list("list_$incr") if $incr =~ /_sys/;
		files_to_results($incr);
	  }
	  $interactive and progress($pbar, $plabel, 0.5, N("Backup system files..."));
	  $interactive and progress($pbar3, $plabel3, 0.3, N("Hard Disk Backup files..."));
	
	  unless ($conf{NO_USER_FILES}) {
	    foreach (@user_list) {
		  my $user = $_;
		  my $tar_cmd_cuser = $tar_cmd_user;
		  $path_name = return_path($user);
		  $conf{BACKUPIGNORE} && -f "$path_name/.backupignore" and $tar_cmd_cuser .= " -X $path_name/.backupignore";
		  my $find_args_user = $find_args;
		  my $first_done;
		  $ignore_files_list = '';
	  	  $find_args_user = handle_ignores2($path_name, $find_args_user) if $conf{BACKUPIGNORE};
		  if ($conf{USER_INCREMENTAL_BACKUPS}) {
			$base = $incr = "incr_user_";
			($base, $incr) = swap_prefix($base, $incr) if $conf{USER_DIFFERENTIAL_BACKUPS};
			$base =~ s/incr/base/ if !any { /^list_incr_user_$user/ } @dir_content;
		    if (any { /^list_base_user_$user/ } @dir_content) { 
				$more_recent = get_more_recent("$base$user", @dir_content);
				my $list_file = name_list_file($incr . $user);
				do_find($more_recent, $find_args_user, $list_file, $path_name);
				if (check_rm_list($list_file)) {
					do_tar($tar_cmd_cuser, "backup_$incr$user", $list_file, undef);
				}
				$first_done = 1;
		    } else {
				$incr = "base_user_";
		    }
		  } else {
			$incr = "user_";
			clean_dest("$incr$user");
		  }
		  if (!$first_done) {
			my $list_file = name_list_file($incr . $user);
			do_find(undef, $find_args_user, $list_file, $path_name);
			do_tar($tar_cmd_cuser, "backup_$incr$user", undef, $path_name);
		  }
		  push_list("list_$incr$user") if $incr =~ /_user/;
		  files_to_results("$incr$user");
	    }
	  }
	  $interactive and progress($pbar2, $plabel1, 1, N("Backup User files..."));
	  $interactive and progress($pbar3, $plabel3, 0.4, N("Hard Disk Backup files..."));

	  if ($conf{OTHER_FILES}) {
		my $find_args_other = $find_args;
		my $first_done;
		$ignore_files_list = '';
		($tar_cmd_other, $find_args_other) = handle_ignores($tar_cmd_other, $find_args_other, @other_files) if $conf{BACKUPIGNORE};
		if ($conf{OTHER_INCREMENTAL_BACKUPS}) {
			$base = $incr = "incr_other";
			($base, $incr) = swap_prefix($base, $incr) if $conf{OTHER_DIFFERENTIAL_BACKUPS};
			$base =~ s/incr/base/ if !any { /^list_incr_other/ } @dir_content;
			if (any { /^list_base_other/ }  @dir_content) { 
				$more_recent = get_more_recent($base, @dir_content);
				my $list_file = name_list_file($incr);
				do_find($more_recent, $find_args_other, $list_file, @other_files);
		    	if (check_rm_list($list_file)) {
					do_tar($tar_cmd_other, "backup_$incr", $list_file, undef);
		    	}
				$first_done = 1;
			} else {
				$incr = "base_other";
			}
	  	} else {
			$incr = "other";
			clean_dest($incr);
	  	}
		if (!$first_done) {
			my $list_file = name_list_file($incr);
			do_find(undef, $find_args_other, $list_file, @other_files);
			do_tar($tar_cmd_other, "backup_$incr", undef, @other_files);
		}
		push_list("list_$incr") if $incr =~ /_other/;
		files_to_results($incr);
	  }
	  $interactive and progress($pbar1, $plabel2, 1, N("Backup Other files..."));
	  $interactive and progress($pbar3, $plabel3, 0.3, N("Hard Disk Backup Progress..."));
	}
	  
	my $filecount = @file_list_to_send_by_ftp;
	if (!$filecount && !$conf{DIRECT_TAPE}) {
		my $msg = N("No changes to backup!");
		show_warning("w", $msg);
		$interactive and gtkset_mousecursor_normal();
		$interactive and interactive_mode_box();
		results_to_logfile();
		return 1;		
	}
		
	#- should hit this block if running daemon mode only
	if ($daemon && $conf{DAEMON_MEDIA}) {
#		ftp_client() if $ftp_daemon;
		rsync_client() if $conf{DAEMON_MEDIA} eq 'rsync';
		ssh_client() if $conf{DAEMON_MEDIA} eq 'ssh' && !$conf{USE_EXPECT};
		do_expect("backup") if $conf{DAEMON_MEDIA} eq 'ssh' && $conf{USE_EXPECT};
		webdav_client() if $conf{DAEMON_MEDIA} eq 'webdav';
		build_cd() if $conf{DAEMON_MEDIA} eq 'cd';
		build_tape() if $conf{DAEMON_MEDIA} eq 'tape';

		$results .= N("\nDrakbackup activities via %s:\n\n", $conf{DAEMON_MEDIA}) if $conf{DAEMON_MEDIA} ne 'hd';
		$results .= $log_buff;
	}
	
	#- leave this one alone for now - works well
	#- integrate with other methods later
    if (($conf{USE_NET} && !$daemon && $conf{NET_PROTO} eq 'ftp') || $daemon && $conf{DAEMON_MEDIA} eq 'ftp') {
		$interactive and build_backup_ftp_status();
		if (ftp_client()) { 
	    	$results .= N("\n FTP connection problem: It was not possible to send your backup files by FTP.\n");
	    	$interactive and $in->ask_warn(N("Error"), N("Error during sending file via FTP. Please correct your FTP configuration."));
		} else {
			$results .= N("file list sent by FTP: %s\n", $_)  foreach @file_list_to_send_by_ftp;
		}
    }
	
	#- consolidate all the other methods under here - interactive and --default should land here
	if (!$daemon) {
	
		if ($conf{USE_NET} && $conf{NET_PROTO} && $conf{NET_PROTO} ne 'ftp') {
			rsync_client() if $conf{NET_PROTO} eq 'rsync';
			ssh_client() if $conf{NET_PROTO} eq 'ssh' && !$conf{USE_EXPECT};
			do_expect("backup") if $conf{NET_PROTO} eq 'ssh' && $conf{USE_EXPECT};
			webdav_client() if $conf{NET_PROTO} eq 'webdav';
			$results .= N("\nDrakbackup activities via %s:\n\n", $conf{NET_PROTO});
		}
		
		if ($conf{USE_CD}) {
			build_cd();
			$results .= N("\nDrakbackup activities via CD:\n\n");
		}
	
		if ($conf{USE_TAPE}) {
			build_tape();
			$results .= N("\nDrakbackup activities via tape:\n\n");
		}
		$results .= $log_buff;
	}
	
	results_to_logfile();
	
    if ($conf{SEND_MAIL}) { 
		if (send_mail($results)) { 
	    	$interactive and $in->ask_warn(N("Error"), N("Error sending mail. Your report mail was not sent."));
	    	$interactive or print N(" Error while sending mail. \n");
		} 
    }
	
	#- write our catalog file
	if (!$media_problem) {
		my $catalog = substr($the_time, 1);
		my $direct_tape = "";
		$direct_tape = "Direct" if $conf{DIRECT_TAPE};
		if (!$conf{USE_NET} && !$conf{USE_TAPE} && !$conf{USE_CD}) { 
			$catalog .= ":HD:localhost:$conf{PATH_TO_SAVE}";
			$conf{NET_PROTO} = '';
		} 
		$catalog .= ":$conf{NET_PROTO}:$conf{LOGIN}\@$conf{HOST_NAME}:$conf{HOST_PATH}" if $conf{NET_PROTO};
		$catalog .= ":CD:$vol_name:$conf{CD_DEVICE}" if $conf{USE_CD};
		$catalog .= ":" . $direct_tape . "Tape:$vol_name:$conf{TAPE_DEVICE}" if $conf{USE_TAPE};
		$catalog .= ":System" unless $conf{NO_SYS_FILES};
		$catalog .= ":I" if $conf{SYS_INCREMENTAL_BACKUPS} && !$conf{NO_SYS_FILES} && !$conf{SYS_DIFFERENTIAL_BACKUPS};
		$catalog .= ":D" if $conf{SYS_INCREMENTAL_BACKUPS} && !$conf{NO_SYS_FILES} && $conf{SYS_DIFFERENTIAL_BACKUPS};
		$catalog .= ":F" if !$conf{SYS_INCREMENTAL_BACKUPS} && !$conf{NO_SYS_FILES};
		$catalog .= ":Users=(@user_list)" unless $conf{NO_USER_FILES};
		$catalog .= ":I" if $conf{USER_INCREMENTAL_BACKUPS} && !$conf{NO_USER_FILES} && !$conf{USER_DIFFERENTIAL_BACKUPS};
		$catalog .= ":D" if $conf{USER_INCREMENTAL_BACKUPS} && !$conf{NO_USER_FILES} && $conf{USER_DIFFERENTIAL_BACKUPS};
		$catalog .= ":F" if !$conf{USER_INCREMENTAL_BACKUPS} && !$conf{NO_USER_FILES};;
		$catalog .= ":Other=(@other_files)" if $conf{OTHER_FILES};
		$catalog .= ":I" if $conf{OTHER_INCREMENTAL_BACKUPS} && $conf{OTHER_FILES} && !$conf{OTHER_DIFFERENTIAL_BACKUPS};
		$catalog .= ":D" if $conf{OTHER_INCREMENTAL_BACKUPS} && $conf{OTHER_FILES} && $conf{OTHER_DIFFERENTIAL_BACKUPS};
		$catalog .= ":F" if !$conf{OTHER_INCREMENTAL_BACKUPS} && $conf{OTHER_FILES};
		$catalog .= "\n";
			
		append_to_file("$cfg_dir/drakbackup_catalog", $catalog) or show_warning("w", N("Can't create catalog!"));
	}
	
	#- clean up HD files if del_hd_files and media isn't hd
	if ($conf{DEL_HD_FILES} && ($conf{USE_CD} || $conf{USE_TAPE} || $conf{USE_NET}) && $conf{DAEMON_MEDIA} ne 'hd')  {
		foreach (@file_list_to_send_by_ftp) {
			unlink($_) if /$conf{OPTION_COMP}$/;
		}
	}
		
	#- if we had a media problem then get rid of the text log of the backed up files too
	if ($media_problem) {
		system("rm $conf{PATH_TO_SAVE}/list*$the_time.txt");
	}
	
	$interactive and gtkset_mousecursor_normal();
	$interactive and show_status();
}

sub swap_prefix {
	my ($base, $incr) = @_;
	$incr =~ s/incr/diff/; 
	$base =~ s/incr/base/;
	return $base, $incr;
}

sub name_list_file {
	my ($suffix) = @_;
	return $conf{PATH_TO_SAVE} . "/list_" . $suffix . $the_time . ".txt";
}

sub check_rm_list {
	my ($list_file) = @_;
	if (!cat_($list_file)) {
		unlink($list_file);
		return 0;
	} else {
		return 1;	
	}
}

sub get_more_recent {
	my ($match, @directory) = @_;
	$match = "list_" . $match;
	my @more_recent = grep { /^$match/ } sort @directory; 
	my $more_recent = pop @more_recent;
	$DEBUG and print "more recent file: $more_recent\n";
	return $more_recent;
}

sub clean_dest {
	my ($wildcard) = @_;
	system("cd $conf{PATH_TO_SAVE} && rm -f backup*$wildcard*");
}

sub do_find {
	my ($newer, $more_args, $into, @where) = @_;
	#- $newer may be undef - if it's defined then "-cnewer $newer"
	$newer = $conf{PATH_TO_SAVE} . "/" . $newer if defined($newer);
	defined($newer) ? system("find @where -cnewer $newer $more_args > $into") : system("find @where $more_args > $into");
}

sub do_tar {
	my ($tar_cmd, $dest_file, $list_file, @files) = @_;
	my $full_dest_file = $conf{PATH_TO_SAVE} . "/" . $dest_file . $the_time . "." . $conf{OPTION_COMP};
	if ($conf{DIRECT_TAPE}) {
		log::explanations("Direct tape backup - tar deferred...");
		defined($list_file) ? push @files_for_direct_tape, $list_file : push @files_for_direct_tape, @files;
	} else {
		#- if $list_file is undefined, then use the @files list
		defined($list_file) ? system("$tar_cmd -f $full_dest_file -T $list_file") : system("$tar_cmd -f $full_dest_file @files");
	}
	push_list($dest_file);
}

sub push_list {
	my ($prefix) =  @_;
	my $filename = $conf{PATH_TO_SAVE} . "/" . $prefix . $the_time . ".";
	$filename .= $conf{OPTION_COMP} if $prefix =~ /^backup/;
	$filename .= "txt" if $prefix =~ /^list/;
	push @file_list_to_send_by_ftp, $filename if -e $filename;
}

sub files_to_results {
	my ($basename) = @_;
	if ($conf{DIRECT_TAPE}) {
		$results .= "\nDirect to tape:\n\n";
	} else {
		$results .= "\nfile: " . $conf{PATH_TO_SAVE} . "/backup_" . $basename . $the_time . "." . $conf{OPTION_COMP} . "\n\n";
		$results .= cat_("$conf{PATH_TO_SAVE}/list_" . $basename . $the_time . ".txt");
	}
	$results .= "\nignored:\n" . $ignore_files_list . "\n" if $ignore_files_list;
}

sub handle_ignores {
	my ($tar_cmd, $find_args, @list) = @_;
	foreach my $dir (@list) {
		if (-d $dir) {
			-f "$dir/.backupignore" and $tar_cmd .= " -X $dir/.backupignore";
			$find_args = handle_ignores2($dir, $find_args);
		}
	}
	return $tar_cmd, $find_args;
}

sub handle_ignores2 {
	my ($dir, $find_args) = @_;
	my @ignore_files = cat_("$dir/.backupignore");
	foreach (@ignore_files) {
		$ignore_files_list .= $_;
	}
	$find_args .= " | grep -v -f $dir/.backupignore" if -f "$dir/.backupignore";
	return $find_args;
}

sub require_rpm {
    my $all_rpms_found = 1;
    my $res;
    foreach my $pkg (@_) {
		$res = system("rpm -q $pkg > /dev/null");
		if ($res == 256) { 
			$all_rpms_found = 0; 
			push @list_of_rpm_to_install, $pkg;
		}
    }
    return $all_rpms_found;
}

sub check_pkg_needs() {
	my @extra_pkg;
	@list_of_rpm_to_install = ();
	if ($conf{USE_NET}) {
		@extra_pkg = "rsync" if $conf{NET_PROTO} eq 'rsync';
		@extra_pkg = ("sitecopy", "wget") if $conf{NET_PROTO} eq 'webdav';
		@extra_pkg = "perl-Expect" if $conf{NET_PROTO} eq 'ssh' && ($conf{USE_EXPECT} || $conf{DRAK_KEYS});
	}
	@extra_pkg = "mt-st" if $conf{USE_TAPE};
	@extra_pkg = ("mkisofs", "cdrecord") if $conf{USE_CD};
	if (@extra_pkg) {
		if (require_rpm(@extra_pkg)) {
			return 0;
		} else {
			return 1;
		}		
	}	
}

sub show_status() {
    my $text = Gtk2::TextView->new;	
	destroy_widget();
	my $scrolled_window = Gtk2::ScrolledWindow->new;
	$scrolled_window->set_border_width(10);
	$scrolled_window->add_with_viewport($text);
	gtktext_insert(gtkset_editable($text, 0), [ [ $results ] ]);

    gtkpack($advanced_box,
		$table = gtkpack_(Gtk2::VBox->new(0,10), 1, $scrolled_window)
	);
    $central_widget = \$table;
    $table->show_all;    
}

sub results_to_logfile() {
	output_p($log_file, $results);
}

sub conf_to_list {
	my ($config) = @_;
	return split(",", $config);
}

sub list_to_conf {
	my (@list) = @_;
	return join(",", @list);
}

sub filedialog_generic {
	#- a more generic file dialog
	#- a title prompt, the widget to get updated
	my ($prompt, $widget) = @_; 
	my $file_dialog;
	
    $file_dialog = gtksignal_connect(Gtk2::FileSelection->new($prompt), destroy => sub { $file_dialog->destroy });
    $file_dialog->ok_button->signal_connect(clicked => sub { 
		if (defined($widget)) {
			$$widget->set_text($file_dialog->get_filename);
		} else {
    		my $file_name = $file_dialog->get_filename;
    		if (!member($file_name, @other_files)) {
				push(@other_files, $file_name);
				$list_model->append_set(0, $file_name);
    		}
		}
		$file_dialog->destroy;
	});
    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
    $file_dialog->show;
}

################################################  ADVANCED  ################################################  

sub check_list {
    foreach (@_) {
		my $ref = $_->[1];
		$_->[2] ? gtkset_active($_->[0], !$$ref) : gtkset_active($_->[0], $$ref); 
		gtksignal_connect($_->[0], toggled => sub { 
			invbool $ref; 
			destroy_widget();
			$current_widget->();
		});
	}
}

sub fonction_env {
    ($central_widget, $current_widget, $previous_widget, $next_widget) = @_;
}

sub advanced_what_sys() {
    my $box_what_sys;
    
    gtkpack($advanced_box,
	    $box_what_sys =  gtkpack_(Gtk2::VBox->new(0, 15),
		     1, N("\nPlease check all options that you need.\n"),
		     1, N("These options can backup and restore all files in your /etc directory.\n"),
		     0, my $check_what_sys = Gtk2::CheckButton->new(N("Backup your System files. (/etc directory)")),
		     0, my $check_what_versions = Gtk2::CheckButton->new(N("Use Incremental/Differential Backups  (do not replace old backups)")),
		     0, gtkpack__(Gtk2::HBox->new(0,0),	
				my @mode_buttons = gtkradio((N("Use Incremental Backups")) x 2, N("Use Differential Backups")),
			 ),
			 0, my $check_what_critical = Gtk2::CheckButton->new(N("Do not include critical files (passwd, group, fstab)")),
		     0, N("With this option you will be able to restore any version\n of your /etc directory."),     
			 1, Gtk2::VBox->new(0, 15),
		),
	);
    check_list([$check_what_sys, \$conf{NO_SYS_FILES}, 1], [$check_what_critical, \$conf{NO_CRITICAL_SYS}]);
	$check_what_versions->set_active($conf{SYS_INCREMENTAL_BACKUPS});
	$check_what_versions->signal_connect('toggled' => sub {
		invbool \$conf{SYS_INCREMENTAL_BACKUPS};
		$mode_buttons[0]->set_sensitive($conf{SYS_INCREMENTAL_BACKUPS});
		$mode_buttons[1]->set_sensitive($conf{SYS_INCREMENTAL_BACKUPS});
			
	});
	$mode_buttons[1]->set_active($conf{SYS_DIFFERENTIAL_BACKUPS});
	$mode_buttons[0]->signal_connect('toggled' => sub { $conf{SYS_DIFFERENTIAL_BACKUPS} = $mode_buttons[1]->get_active });
	$mode_buttons[0]->set_sensitive($conf{SYS_INCREMENTAL_BACKUPS});
	$mode_buttons[1]->set_sensitive($conf{SYS_INCREMENTAL_BACKUPS});
	set_help_tip($check_what_versions, 'use_incr_decr');
	set_help_tip($mode_buttons[0], 'use_incremental');
	set_help_tip($mode_buttons[1], 'use_differential');
    fonction_env(\$box_what_sys, \&advanced_what_sys, \&advanced_what);
    $up_box->show_all;
}

sub advanced_what_user {
    my ($previous_function) = @_;
    my $box_what_user;
    my %check_what_user;
    
    all_user_list();
    gtkpack($advanced_box,
	    $box_what_user = gtkpack_(Gtk2::VBox->new(0, 15),
			0, N("Please check all users that you want to include in your backup."),
			0, Gtk2::HSeparator->new,
			1, create_scrolled_window( 
				gtkpack__(Gtk2::VBox->new(0,0),
					map { my $name = $_;
						my @user_list_tmp;
						my $b = Gtk2::CheckButton->new($name); 
						if (any { /^$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 } (@user_list_all) 
				),
			),
			0, my $check_what_browser = Gtk2::CheckButton->new(N("Do not include the browser cache")),
			0, my $check_what_user_versions = Gtk2::CheckButton->new(N("Use Incremental/Differential Backups  (do not replace old backups)")), 
		    0, gtkpack__(Gtk2::HBox->new(0,0),	
				my @mode_buttons = gtkradio((N("Use Incremental Backups")) x 2, N("Use Differential Backups")),
			),
		),
	);
    check_list([$check_what_browser, \$conf{NO_BROWSER_CACHE}]);
	$check_what_user_versions->set_active($conf{USER_INCREMENTAL_BACKUPS});
	$check_what_user_versions->signal_connect('toggled' => sub {
		invbool \$conf{USER_INCREMENTAL_BACKUPS}; 
		$mode_buttons[0]->set_sensitive($conf{USER_INCREMENTAL_BACKUPS});
		$mode_buttons[1]->set_sensitive($conf{USER_INCREMENTAL_BACKUPS});	
	});
	$mode_buttons[1]->set_active($conf{USER_DIFFERENTIAL_BACKUPS});
	$mode_buttons[0]->signal_connect('toggled' => sub { $conf{USER_DIFFERENTIAL_BACKUPS} = $mode_buttons[1]->get_active });
	$mode_buttons[0]->set_sensitive($conf{USER_INCREMENTAL_BACKUPS});
	$mode_buttons[1]->set_sensitive($conf{USER_INCREMENTAL_BACKUPS});
	set_help_tip($check_what_user_versions, 'use_incr_decr');
	set_help_tip($mode_buttons[0], 'use_incremental');
	set_help_tip($mode_buttons[1], 'use_differential');

    if ($previous_function) { fonction_env(\$box_what_user, \&advanced_what_user, \&$previous_function, \&$previous_function) }
    else { fonction_env(\$box_what_user, \&advanced_what_user, \&advanced_what) }
    $up_box->show_all;
}

sub advanced_what_other() {
    my $box_what_other;
	my $file_iter;
	my $other_file;
			
	$list_model = Gtk2::ListStore->new("Glib::String");
	my $list_others = Gtk2::TreeView->new_with_model($list_model);
	$list_others->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
	$list_others->set_headers_visible(0);	
	
	foreach (@other_files) {
    	$list_model->append_set(0, $_);		
	}
	
	$list_others->get_selection->signal_connect(changed => sub {
    	my ($model, $iter) = $_[0]->get_selected;
    	$model && $iter or return;
    	$other_file = $model->get($iter, 0);
		$file_iter = $iter;
	});
	    
    gtkpack($advanced_box,
	    $box_what_other = gtkpack_(Gtk2::VBox->new(0, 15),
			1, gtkpack_(Gtk2::HBox->new(0,4),
				1, create_scrolled_window($list_others),
			),
			0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'spread'),
				gtksignal_connect(Gtk2::Button->new(N("Add")), clicked => sub { filedialog_generic(N("Select the files or directories and click on 'OK'"), undef) }),
				gtksignal_connect(Gtk2::Button->new(N("Remove Selected")), clicked => sub { 
					$list_model->remove($file_iter) if $file_iter; 
					my $iindex = 0; 
					foreach (@other_files) {
						if ($other_files[$iindex] eq $other_file) {
							splice(@other_files, $iindex, 1); 
							last;
						}
						$iindex++;
					}
				}),
			),
			0, my $check_what_other_versions = Gtk2::CheckButton->new(N("Use Incremental/Differential Backups  (do not replace old backups)")),
			0, gtkpack__(Gtk2::HBox->new(0,0),	
				my @mode_buttons = gtkradio((N("Use Incremental Backups")) x 2, N("Use Differential Backups")),
			),
		),
		
	);
	$check_what_other_versions->set_active($conf{OTHER_INCREMENTAL_BACKUPS});
	$check_what_other_versions->signal_connect('toggled' => sub {
		invbool \$conf{OTHER_INCREMENTAL_BACKUPS}; 
		$mode_buttons[0]->set_sensitive($conf{OTHER_INCREMENTAL_BACKUPS});
		$mode_buttons[1]->set_sensitive($conf{OTHER_INCREMENTAL_BACKUPS});	
	});
	$mode_buttons[1]->set_active($conf{OTHER_DIFFERENTIAL_BACKUPS});
	$mode_buttons[0]->signal_connect('toggled' => sub { $conf{OTHER_DIFFERENTIAL_BACKUPS} = $mode_buttons[1]->get_active });
	$mode_buttons[0]->set_sensitive($conf{OTHER_INCREMENTAL_BACKUPS});
	$mode_buttons[1]->set_sensitive($conf{OTHER_INCREMENTAL_BACKUPS});
	set_help_tip($check_what_other_versions, 'use_incr_decr');
	set_help_tip($mode_buttons[0], 'use_incremental');
	set_help_tip($mode_buttons[1], 'use_differential');

    fonction_env(\$box_what_other, \&advanced_what_other, \&advanced_what);
    $up_box->show_all;			
}

sub advanced_what() {
    my $box_what;    

    gtkpack($advanced_box,
	    $box_what =  gtkpack_(Gtk2::HBox->new(0, 15),
		     1, Gtk2::VBox->new(0, 5),
		     1, gtkpack_(Gtk2::VBox->new(0, 15),	
				1, Gtk2::VBox->new(0, 5),
				1, gtksignal_connect(my $button_what_sys = Gtk2::Button->new, 
					clicked => sub { $box_what->destroy; advanced_what_sys() }),
				1, gtksignal_connect(my $button_what_user = Gtk2::Button->new, 
					clicked => sub { destroy_widget(); advanced_what_user(undef) }),
				1, gtksignal_connect(my $button_what_other = Gtk2::Button->new, 
					clicked => sub { destroy_widget(); advanced_what_other() }),
				1, Gtk2::VBox->new(0, 5),
			),
			1, Gtk2::VBox->new(0, 5),	
		),
	);
    $button_what_sys->add(gtkpack(Gtk2::HBox->new(0,10),
		gtkcreate_img("ic82-system-40"),
		Gtk2::Label->new(N("System")),
		Gtk2::HBox->new(0, 5)
	));
    $button_what_user->add(gtkpack(Gtk2::HBox->new(0,10),
		gtkcreate_img("ic82-users-40"),
		Gtk2::Label->new(N("Users")),
		Gtk2::HBox->new(0, 5)
	));
    $button_what_other->add(gtkpack(Gtk2::HBox->new(0,10),
		gtkcreate_img("ic82-others-40"),
		Gtk2::Label->new(N("Other")),
		Gtk2::HBox->new(0, 5)
	));
    gtkset_sensitive($button_what_sys, !$conf{NO_SYS_FILES});
    fonction_env(\$box_what, \&advanced_what, \&advanced_box);
    $up_box->show_all;
}

sub advanced_where_net_types {
    my ($previous_function) = @_;
    my $box_where_net;
	        
    gtkpack($advanced_box,
	    $box_where_net = gtkpack_(Gtk2::VBox->new(0, 10),
	 		0, gtkpack_(Gtk2::HBox->new(0,10),
	 			0, my $check_where_use_net = Gtk2::CheckButton->new(N("Use network connection to backup")),
				1, Gtk2::HBox->new(0,10),
	 			0, Gtk2::Label->new(N("Net Method:")),
	 			0, gtkset_sensitive(my $entry_net_type = Gtk2::ComboBox->new_text, $conf{USE_NET}),
	 		),	 
	 		0, gtkpack_(Gtk2::HBox->new(0,5),
	   			0, gtkset_sensitive(my $check_use_expect = Gtk2::CheckButton->new(N("Use Expect for SSH")), ($conf{USE_NET} && $conf{NET_PROTO} eq 'ssh')),
	   			0, gtkset_sensitive(my $check_xfer_keys = Gtk2::CheckButton->new(N("Create/Transfer backup keys for SSH")), ($conf{USE_NET} && $conf{NET_PROTO} eq 'ssh')),
				1, Gtk2::HBox->new(0,10),
				0, gtkset_sensitive(my $button_xfer_keys = Gtk2::Button->new(N("Transfer Now")), $conf{DRAK_KEYS}),
			),
			0, gtkset_sensitive(my $check_user_keys = Gtk2::CheckButton->new(N("Other (not drakbackup) keys in place already")), ($conf{USE_NET} && $conf{NET_PROTO} eq 'ssh')),
	 		0, Gtk2::HSeparator->new,
	 		0, gtkpack_(Gtk2::HBox->new(0,10),
		    	0, gtkset_sensitive(Gtk2::Label->new(N("Host name or IP.")), $conf{USE_NET}),
		    	1, Gtk2::HBox->new(0,10),
		    	0, gtkset_sensitive(my $host_name_entry = Gtk2::Entry->new, $conf{USE_NET}),
		    ),
	 		0, gtkpack_(Gtk2::HBox->new(0,10),
	 			0, gtkset_sensitive(Gtk2::Label->new(N("Directory (or module) to put the backup on this host.")), $conf{USE_NET}),
		     	1, Gtk2::HBox->new(0,10),
		     	0, gtkset_sensitive(my $host_path_entry = Gtk2::Entry->new, $conf{USE_NET}), 
		    ),
	 		0, gtkpack_(Gtk2::HBox->new(0,10),
		    	0, gtkset_sensitive(Gtk2::Label->new(N("Login name")), $conf{USE_NET}),
				1, Gtk2::HBox->new(0,10),
				0, gtkset_sensitive(my $login_user_entry = Gtk2::Entry->new, $conf{USE_NET}),
			),
	 		0, gtkpack_(Gtk2::HBox->new(0,10),
				0, gtkset_sensitive(Gtk2::Label->new(N("Password")),  $conf{USE_NET}),
				1, Gtk2::HBox->new(0,10),
				0, gtkset_sensitive(my $check_remember_pass = Gtk2::CheckButton->new(N("Remember this password")), $conf{USE_NET}),
				1, Gtk2::HBox->new(0,10),
				0, gtkset_sensitive(my $passwd_user_entry = Gtk2::Entry->new, $conf{USE_NET}),
			),
	 	),   
	);
	$entry_net_type->set_popdown_strings('', @net_methods);
	$entry_net_type->entry->set_text($conf{NET_PROTO});
	$button_xfer_keys->signal_connect('clicked', sub { 
		if ($conf{PASSWD} && $conf{LOGIN} && $conf{HOST_NAME}) {
			if (check_pkg_needs()) {
				install_rpm(\&advanced_where_net_types, $previous_function);
			} else {
				do_expect("sendkey");
			}
		} else {
			$in->ask_warn(N("Error"), N("Need hostname, username and password!"));
		}
	}); 	
    $passwd_user_entry->set_visibility(0);
    $passwd_user_entry->set_text($conf{PASSWD});
    $passwd_user_entry->signal_connect('changed', sub { $conf{PASSWD} = $passwd_user_entry->get_text });
    $host_path_entry->set_text($conf{HOST_PATH});
    $host_name_entry->set_text($conf{HOST_NAME});
    $login_user_entry->set_text($conf{LOGIN});
    $host_name_entry->signal_connect('changed', sub { $conf{HOST_NAME} = $host_name_entry->get_text });
    $host_path_entry->signal_connect('changed', sub { $conf{HOST_PATH} = $host_path_entry->get_text });
    $login_user_entry->signal_connect('changed', sub { $conf{LOGIN} = $login_user_entry->get_text });
    $entry_net_type->entry->signal_connect('changed', sub { 
		$conf{NET_PROTO} = $entry_net_type->entry->get_text;
		my $sensitive = 0;
		$sensitive = 1 if $conf{NET_PROTO} eq 'ssh';
		$check_use_expect->set_sensitive($sensitive);
		$check_xfer_keys->set_sensitive($sensitive);
		$button_xfer_keys->set_sensitive($sensitive);
		$check_user_keys->set_sensitive($sensitive);
	});
    check_list([$check_remember_pass, \$conf{REMEMBER_PASS}]);
    gtksignal_connect(gtkset_active($check_where_use_net, $conf{USE_NET}), toggled => sub { 
		invbool \$conf{USE_NET};
 		#- assure other methods disabled
		if ($conf{USE_NET} == 1) {
			$conf{USE_CD} = 0;
			$conf{USE_TAPE} = 0;
		}
		$conf{NET_PROTO} = '' if $conf{USE_NET} == 0; 
		destroy_widget();
 		$current_widget->($previous_function);
    });
	gtksignal_connect(gtkset_active($check_use_expect, $conf{USE_EXPECT}), toggled => sub { 
		invbool \$conf{USE_EXPECT};
 		#- assure other methods disabled
		if ($conf{USE_EXPECT} == 1) {
			$conf{DRAK_KEYS} = 0;
			$conf{USER_KEYS} = 0;
		}
		destroy_widget();
 		$current_widget->($previous_function);
    });
	gtksignal_connect(gtkset_active($check_xfer_keys, $conf{DRAK_KEYS}), toggled => sub { 
		invbool \$conf{DRAK_KEYS};
		#- assure other methods disabled
		if ($conf{DRAK_KEYS} == 1) {
			$conf{USE_EXPECT} = 0;
			$conf{USER_KEYS} = 0;
		}
		destroy_widget();
 		$current_widget->($previous_function);
    });
	gtksignal_connect(gtkset_active($check_user_keys, $conf{USER_KEYS}), toggled => sub { 
		invbool \$conf{USER_KEYS};
 		#- assure other methods disabled
		if ($conf{USER_KEYS} == 1) {
			$conf{DRAK_KEYS} = 0;
			$conf{USE_EXPECT} = 0;
		}
		destroy_widget();
 		$current_widget->($previous_function);
    });
	set_help_tip($check_use_expect, 'use_expect');
	set_help_tip($check_remember_pass, 'remember_pass');
	set_help_tip($host_path_entry, 'dir_or_module');
    if ($previous_function) {
		fonction_env(\$box_where_net, \&advanced_where_net_types, \&$previous_function, \&wizard_step3);
		button_box_wizard();
    } else { 
		fonction_env(\$box_where_net, \&advanced_where_net_types, \&advanced_where);
	}
    $up_box->show_all;
}

sub advanced_where_cd {
    my ($previous_function) = @_;
    my $box_where_cd;
	my %dev_codes;

	get_cd_info();

	foreach my $key (keys %cd_devices) {
		$dev_codes{$cd_devices{$key}{rec_dev}} = $key; 
	}
	
    my $combo_where_cd_device = Gtk2::ComboBox->new_with_strings(%cd_devices ? [ sort keys %dev_codes ] : \@no_devices);