From 4734af65b189af42ba656c8b43acd63f2f25f2e8 Mon Sep 17 00:00:00 2001
From: salad <fmoenne-@student.le-101.fr>
Date: Sat, 8 Aug 2020 18:26:22 +0200
Subject: add ftpsend
---
ftpsend.pl | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
create mode 100644 ftpsend.pl
diff --git a/ftpsend.pl b/ftpsend.pl
new file mode 100644
index 0000000..8154423
--- /dev/null
+++ b/ftpsend.pl
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use Net::FTP;
+
+my ($ftp, $host, $user, $pass);
+
+$host = "saladslab.karabo.ga";
+$user = "";
+$pass = "";
+$ftp = Net::FTP->new("saladslab.karabo.ga", Debug => 0)
+ or die "cant connect";
+$ftp->login($user, $pass)
+ or die "cant login";
+$ftp->cwd("saladslab")
+ or die "cwd failed";
+foreach my $f ($ftp->ls()) { print "$f\n" }
+
+foreach my $file (@ARGV)
+{
+ $ftp->put("$file", "$file")
+ or die "cant put $file\n", $ftp->message;
+}
+$ftp->quit;
--
cgit v1.2.3