summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/drakbackup46
1 files changed, 31 insertions, 15 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 75175e908..a88e95399 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -332,21 +332,6 @@ $ftp->cwd("/pub");
$ftp->get("/ce/repertoire/ce.fichier");
$ftp->quit;
-#Telnet : En utilisant le package Net::Telnet
-
-# use strict;
-# use Net::Telnet;
-# use CGI qw/:standard :html3 :netscape escape unescape/;
-# use CGI::Carp qw/fatalsToBrowser/;
-# my $username="alian";
-# my $passwd="password";
-# my $HOST="indy.alianet";
-# print header;
-# my $t = new Net::Telnet (Timeout=>undef) or die "Can't connect:$!";
-# $t->open($HOST);
-# $t->login($username, $passwd);
-# my @lines = $t->cmd("/ma/commande/a/executer");
-# print join(' ',@lines);
}
@@ -1522,17 +1507,48 @@ Drakbacup allow to restore the system (etc, var files)
+# _____________________________________________________________ DOCS
+# 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)
+# my(@etat); my($fchier)="/tmp/toto";
+# # Si le fichier existe on récupère des infos dessus
+# if (-e $fchier) {@etat=stat($fchier); }
+# # On convertit avec localtime la valeur de mtime.
+# my($date)= localtime($etat[9]);
+# print $date;
+#Telnet : En utilisant le package Net::Telnet
+
+# use strict;
+# use Net::Telnet;
+# use CGI qw/:standard :html3 :netscape escape unescape/;
+# use CGI::Carp qw/fatalsToBrowser/;
+# my $username="alian";
+# my $passwd="password";
+# my $HOST="indy.alianet";
+# print header;
+# my $t = new Net::Telnet (Timeout=>undef) or die "Can't connect:$!";
+# $t->open($HOST);
+# $t->login($username, $passwd);
+# my @lines = $t->cmd("/ma/commande/a/executer");
+# print join(' ',@lines);
+# _____________________________________________________________ OLD CODE