summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-12-07 01:29:19 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-12-07 01:29:19 +0000
commitd319bd889c928810a692784ce01d7030472644c1 (patch)
tree6e55e4f4b350448e5f21810746e5b1f8d43683ea /perl-install
parent055f126b9b89f608979ddaf49da72763ba4e1271 (diff)
downloaddrakx-d319bd889c928810a692784ce01d7030472644c1.tar
drakx-d319bd889c928810a692784ce01d7030472644c1.tar.gz
drakx-d319bd889c928810a692784ce01d7030472644c1.tar.bz2
drakx-d319bd889c928810a692784ce01d7030472644c1.tar.xz
drakx-d319bd889c928810a692784ce01d7030472644c1.zip
add ftp client for network backup.
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup30
1 files changed, 30 insertions, 0 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index bcd44e421..75175e908 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -323,6 +323,36 @@ sub return_path {
}
}
+sub ftp_client {
+
+use Net::FTP;
+my $ftp = Net::FTP->new("some.host.name");
+$ftp->login("anonymous","mon\@adresse.mail");
+$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);
+
+}
+
+
+
+
sub build_backup_files {
-d $save_path or mkdir_p($save_path);