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