summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/drakbackup25
1 files changed, 5 insertions, 20 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 4d1bbb62e..31146bbf0 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -442,11 +442,14 @@ sub return_path {
}
sub ftp_client {
+# liste des fichiers à envoyer
use Net::FTP;
my $ftp = Net::FTP->new("$host_name");
$ftp->login("$login_user","$passwd_user");
$ftp->cwd("$host_path");
# $ftp->get("/ce/repertoire/ce.fichier");
+# put ( LOCAL_FILE [, REMOTE_FILE ] )
+
$ftp->send("$save_path/*");
$ftp->quit;
}
@@ -836,7 +839,7 @@ sub advanced_what{
));
$button_what_all->add(gtkpack(new Gtk::HBox(0,10),
new Gtk::Pixmap($pix_sysp_map, $pix_sysp_mask),
- new Gtk::Label(_(" A Entire System ")),
+ new Gtk::Label(_(" An Entire System ")),
new Gtk::HBox(0, 5)
));
$custom_help = "";
@@ -2871,7 +2874,7 @@ sub interactive_mode {
$window1->signal_connect (delete_event => sub { Gtk->exit(0) });
$window1->set_position(1);
$window1->set_title(_("Drakbackup"));
- my ($pix_u_map, $pix_u_mask) = gtkcreate_png("BDO-drakebackup1");
+ my ($pix_u_map, $pix_u_mask) = gtkcreate_png("drakbackup.540x57");
read_conf_file();
gtkadd($window1,
@@ -3231,24 +3234,7 @@ Drakbacup allow to restore the system (etc, var files)
# _____________________________________________________________ DOCS
-##### tester taille decompressee
-
-
-
-
-
-
-# Comment récupérer la date du jour ?
-
-# Cf perldoc -f localtime
-
-# ($seconde,$minute,$heure,$jour_du_mois,$annee,
-# $jour_de_la_semaine,$jour_de_l _annee,$drapeau_heure_ete) = localtime(time);
-
-# Il faut ajouter 1900 a l'année pour une date correcte ($annee+=1900) et 1 au jour du mois pour obtenir une date correcte ($jour_du_mois++).
-
# [Perl] Comment récupérer des informations sur un fichier ?
-
# Cf perldoc -f stat
# Exemple pour récupérer mtime (date de dernière modification du fichier)
@@ -3261,7 +3247,6 @@ Drakbacup allow to restore the system (etc, var files)
#Telnet : En utilisant le package Net::Telnet
-
# use strict;
# use Net::Telnet;
# use CGI qw/:standard :html3 :netscape escape unescape/;