summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup85
1 files 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) {
-
-# }
-# }