Moving files to server

mkdir "$basepath/$id",0755 or die "can't mkdir $basepath/$id $!";

Use Net::FTP

I'll try and send more detailed info in a second...

Something like this should work. I assume the server is a Unix box? Or a system which supports FTP?

 Hope this helps
   Tobias


use Net::FTP;

# adjust the following variables:

# where are the local *.jpg/*.gif files?
$local_directory="c:\\";
# what is the hostname of the server?
$server="someserver.somecompany.com";
# what is the username of the user who puts the files up there?
$server_user="username";
# what is this users password?
$server_password="password";
# what is the basepath?
$server_basepath="/some/path";
# what is this "special" id?
$server_id="someid";

# open ftp connection to server
$ftp = Net::FTP->new($server) || die "Can't connect to $server -$!";
# login to server
$ftp->login($server_user,$server_password);
# make the basedir/id directory
$ftp->mkdir("$server_basepath/$server_id",1);
# make the new directory the current directory
$ftp->cwd("$server_basepath/$server_id");
# transfer files in binary mode
$ftp->binary();
# read *.gif/*.jpg filenames
opendir(DIR,$local_directory) || die "can't read dir $local_directory $!";
@files=grep { /\.(gif|jpg)$/i && -f "$local_directory/$_" } readdir(DIR);
closedir(DIR);
# put files on server
foreach (@files) {
  $ftp->put("$local_directory/$_",$_);
}
# close ftp connection
$ftp->close();

thoellri

Thanks, I'll check whether it works. If it is, you'll get your points.

thoellri

Actually I need a script which runs on a server. That means that I call its URL (from Java) with params: my local file and destination directory on a server and it moves it.

Thanks, it worked.