Hi,
I am newbie in Perl/CGI and I need your help to develop a little script to help me to download some files located in a FTP server via HTTP to a disk.
I need to authenticate with username/password via a HTTP page and I can choose the files to download from the web page to my disk.
Can someone help me to get this script?
Thanks a lot in advance.
Hi,
THanks for your advise. I tried to develop with Perl this code but I experienced some issues and I cannot retrieve a file from an FTP server (Unix) to a local disk (c:\) in a desktop(Windows).
Here is the code:
#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;
my $backup_dir = "C:/partage";
my $remote_backup_dir = "/home/toto";
my $remote_file = "toto.txt";
my $dir = "/home/toto";
my $ftp = Net::FTP->new("192.168.1.17", Passive => 1, Debug => 1);
$ftp->login('toto','pass10');
$ftp->cwd($dir) || die "Unable to change directories";
$ftp->binary();
$ftp->get($remote_file,"toto.txt");
$ftp->quit;
I get this error when I try to run this code from a website as:
http://192.168.1.17/cgi-bin/papa1.pl
and I get this error message:
Internal Server Error
Thanks in advance.