Ciao!
Ho un file (immagine JPG) che risiede su un sito http://www.miosito1.com/foto/blog_eff.JPG.
Voglio che questo file sia trasferito tramite script CGI via FTP sul sito http://www.miosito2.com/prova e ovviamente con lo stesso nome della foto "blog_eff.JPG".
Ho provato a fare lo script che segue, non da alcun errore, tuttavia non trasferisce nulla!:-s
Come mai?
Qualcuno mi sa aiutare?
Grazieeeeeee!
Ciaoooooooooooo!
#!/usr/bin/perl -w
use CGI qw(:standard);
use Net::FTP;
$from = 'blog_eff.JPG';
#nome dell'immagine sul sito su cui risiede, cioè miosito1 e DA CUI deve essere trasferita
#su miosito2
$to = 'http://www.miosito2.com/prova/blog_eff.JPG';
#dove voglio venga salvata su miosito2 l'immagine e ovviamente il nome della foto
$ftp = Net::FTP->new("ftp.miosito2.com", Debug=>1, Timeout=>240);
# miosito2 è il sito su cui deve essere trasferito il file (.jpg)
$ftp->login("miallogin", "miapassword"); #notare che la login che ho è un email
$ftp->cwd("../foto");
#cartella "foto" nel quale si trova l'immagine da trasferire. Ovviamente lo script essendo
#eseguito nella cartella cgi-bin ha bisogno deve tornare indietro "../" per amdare in "foto"
$ftp->put($from, $to);
$ftp->quit;
print header;
print"trasferito";