summaryrefslogtreecommitdiffstats
path: root/rescue/make_rescue_img
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-06-04 20:36:08 +0000
committerThierry Vignaud <tv@mageia.org>2012-06-04 20:36:08 +0000
commit017ba3703aded6d7366bdfdeffc879596694ae98 (patch)
tree00094aa9a3bc97ae1e8b23ca9867e6f50c233ea6 /rescue/make_rescue_img
parentb6bcdeab43b2efaa398e6a24dd87c279c70e5373 (diff)
downloaddrakx-14.25.tar
drakx-14.25.tar.gz
drakx-14.25.tar.bz2
drakx-14.25.tar.xz
drakx-14.25.zip
14.2514.25
Diffstat (limited to 'rescue/make_rescue_img')
0 files changed, 0 insertions, 0 deletions
generated by cgit v1.2.1 (git 2.21.0) at 2026-05-21 02:57:16 +0000
stall/standalone/drakbackup?h=16.67&id=810da6bdb1b4a1bfb3e084cc2b064e7f3b1b0ee7'>perl-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
generated by cgit v1.2.1 (git 2.21.0) at 2026-05-21 02:57:16 +0000