diff options
author | Sebastien Dupont <sdupont@mandriva.com> | 2001-12-07 01:39:11 +0000 |
---|---|---|
committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-12-07 01:39:11 +0000 |
commit | 810da6bdb1b4a1bfb3e084cc2b064e7f3b1b0ee7 (patch) | |
tree | 5163debb25623d7f1653b56d2fc142df744a9536 | |
parent | d319bd889c928810a692784ce01d7030472644c1 (diff) | |
download | drakx-810da6bdb1b4a1bfb3e084cc2b064e7f3b1b0ee7.tar drakx-810da6bdb1b4a1bfb3e084cc2b064e7f3b1b0ee7.tar.gz drakx-810da6bdb1b4a1bfb3e084cc2b064e7f3b1b0ee7.tar.bz2 drakx-810da6bdb1b4a1bfb3e084cc2b064e7f3b1b0ee7.tar.xz drakx-810da6bdb1b4a1bfb3e084cc2b064e7f3b1b0ee7.zip |
some docs and remove telnet mode.
-rwxr-xr-x | perl-install/standalone/drakbackup | 46 |
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 |