From d5ce60563369360ab06d28aa495216f3caabf642 Mon Sep 17 00:00:00 2001 From: Sebastien Dupont Date: Fri, 7 Dec 2001 10:24:36 +0000 Subject: fix ftp client hostname pb. gi rebuild --- perl-install/standalone/drakbackup | 85 +++++++++++++++++++------------------- 1 file changed, 42 insertions(+), 43 deletions(-) diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index a88e95399..8f7a4a1b3 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -44,6 +44,9 @@ # /scsi/host0/bus0/target4/lun0 # # tar --use-compress-prog=bzip2 xf foo.tar.bz2 +# todo today; new gi +# ftp + use Gtk; @@ -324,20 +327,14 @@ sub return_path { } sub ftp_client { - use Net::FTP; -my $ftp = Net::FTP->new("some.host.name"); +my $ftp = Net::FTP->new("$host_name"); $ftp->login("anonymous","mon\@adresse.mail"); $ftp->cwd("/pub"); $ftp->get("/ce/repertoire/ce.fichier"); $ftp->quit; - - } - - - sub build_backup_files { -d $save_path or mkdir_p($save_path); @@ -1506,6 +1503,44 @@ Drakbacup allow to restore the system (etc, var files) +# _____________________________________________________________ OLD CODE + + + +# sub build_backup_files { +# -d $save_path or mkdir_p($save_path); +# my $path_name; +# my @list_other_; +# if ($where_hd) { +# print "backup_sys @sys_files\n"; +# $backup_sys and system("tar cvfz $save_path/backup_sys.tar.gz @sys_files"); +# print "backup_other @list_other\n"; +# if (@list_other) { +# system("tar cvfz $save_path/backup_other.tar.gz @list_other"); +# foreach (@list_other) { +# push @list_other_, $_ . "\n"; +# } +# output_p( $save_path . '/list_other', @list_other_); +# } +# if ($backup_user) { +# foreach (@user_list) { +# $path_name = return_path($_); +# print "path of user: $path_name\n"; +# $what_no_browser or system("tar cvfz $save_path/backup_user_$_.tar.gz $path_name"); +# $what_no_browser and system("tar cvz --exclude NewCache --exclude Cache --exclude cache -f $save_path/backup_user_$_.tar.gz $path_name | grep cahe"); +# } +# } +# } +# if ($where_net) { + +# } +# if ($where_cd) { + +# } +# } + + + # _____________________________________________________________ DOCS @@ -1547,39 +1582,3 @@ Drakbacup allow to restore the system (etc, var files) # my @lines = $t->cmd("/ma/commande/a/executer"); # print join(' ',@lines); - -# _____________________________________________________________ OLD CODE - - - -# sub build_backup_files { -# -d $save_path or mkdir_p($save_path); -# my $path_name; -# my @list_other_; -# if ($where_hd) { -# print "backup_sys @sys_files\n"; -# $backup_sys and system("tar cvfz $save_path/backup_sys.tar.gz @sys_files"); -# print "backup_other @list_other\n"; -# if (@list_other) { -# system("tar cvfz $save_path/backup_other.tar.gz @list_other"); -# foreach (@list_other) { -# push @list_other_, $_ . "\n"; -# } -# output_p( $save_path . '/list_other', @list_other_); -# } -# if ($backup_user) { -# foreach (@user_list) { -# $path_name = return_path($_); -# print "path of user: $path_name\n"; -# $what_no_browser or system("tar cvfz $save_path/backup_user_$_.tar.gz $path_name"); -# $what_no_browser and system("tar cvz --exclude NewCache --exclude Cache --exclude cache -f $save_path/backup_user_$_.tar.gz $path_name | grep cahe"); -# } -# } -# } -# if ($where_net) { - -# } -# if ($where_cd) { - -# } -# } -- cgit v1.2.1