FTP PUT with proxy?

[dtfcalibrator]

I've been struggling with this forever now. Hopefully someone can help

Lets say you have the following:

proxy server: my.proxy.com
proxy username: proxyuser
proxy password: proxypassword
ftp server: my.ftp.com
ftp username: ftpuser
ftp password: ftppassword
file to PUT: myTextFile.txt


I've been trying to use LWP::UserAgent, HTTP::Headers, and
HTTP::Request without any real success.

Here's where I gave up (I'm not working on proxy auth yet):
use File::stat;
use LWP::UserAgent;

$stats = stat("myTextFile.txt");
$fileSize = $stats->size;
$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'], 'http://my.proxy.com');
$header = HTTP::Headers->new;
$header->authorization_basic("ftpuser", "ftppassword");
open(FH, "myTextFile.txt");
read(FH, $buf, $fileSize);
$req = HTTP::Request->new("PUT", "ftp://my.ftp.com/myTextFile.txt",
$header);
$req->content($buf);
$response = $ua->request($req);

 

[DJ Stunks]

Here's where I gave up

Funny, that's the same place I gave up.

 

[usenet]

I've been struggling with this forever now.

I feel your pain. I've got a proxy server at work that hates me and
conspires to cause problems with LWP (and ncftp and wcftp and lynx) no
matter how many configuration settings I futz around with.

However, cURL (http://curl.haxx.se/) seems to punch through just fine
(I actually use cURL to pull down my CPAN updates using the CPAN.pm
module).

There's a nice CPAN interface module to libcurl:

http://search.cpan.org/~crisb/WWW-Curl-3.02/Easy.pm.in

(but this is a rare instance when I wouldn't object to using a system
command from Perl).

 

[dtfcalibrator]

My solution was to use Net::FTP. No problems with that.