in reply to LWP Credentials Login Problem to Download Zip Files

I don't know how to use $ua->credentials, but I've used the following method in the past:

use LWP::UserAgent;
use HTTP::Request::Common;
my $url = "http://www.domain.com/$filename";
my $ua = LWP::UserAgent->new(keep_alive=>1);
my $headers = HTTP::Headers->new()
$headers->authorization_basic('user', 'pass');
my $request = HTTP::Request(GET => $url, $headers);
my $response = $ua->request($request);
print "response:" . $response->code . "\n";

[download]

I think using $ua->credentials ends up sending two requests to the server (the first being answered with a 401), whereas the methods I presented gets it right the first time.

PS: Please put code in <code>..</code> tags in the future.

Replies are listed 'Best First'.
Re^2: LWP Credentials Login Problem to Download Zip Files
by noniekimp (Sexton) on Sep 01, 2004 at 18:11 UTC
    thanks for your help. sorry about all the repeating code. not intentional!
[reply]
Re^2: LWP Credentials Login Problem to Download Zip Files
by noniekimp (Sexton) on Aug 26, 2004 at 16:30 UTC
    It worked. I've gained access, but now I'm running into problems returning the file itself. I get the response of 200, which is great, but I would like it to prompt me to save the file. What am I doing wrong? 
    use LWP::UserAgent; 
use HTTP::Request::Common;

my $filename = 'file.zip'; # example
my $url = "http://www.domain.com/$filename";

my $ua = LWP::UserAgent->new(keep_alive=>1);
my $headers = HTTP::Headers->new();
$headers->authorization_basic('user', 'pass');
my $request = new HTTP::Request(GET => $url, $headers);
my $response = $ua->request($request);
print "response:" . $response->code . "<br>";

open(ZIP, ">$filename");
binmode ZIP;
print ZIP $response->content;
close(ZIP);

    [download]
[reply]
[d/l]

      I don't quite understand the question. That code works for me (although you might want to check if open() returns an error).

      Are you asking how to ask the user for a file name? You could use Perl/Tk for a dialog-based approach, or here's a unrefined console-based approach:

      print("Enter local filename, or just Enter to abort: ");
my $local_filename = <STDIN>;
chomp($local_filename);
if ($local_filename ne '')
{
   open
   ...
}

      [download]
[reply]
[d/l]
Re^2: LWP Credentials Login Problem to Download Zip Files
by OfficeLinebacker (Chaplain) on Oct 30, 2013 at 00:27 UTC
    Just wanted to say Super Search brought be here (and three other places) based on a very similar problem I was having and THIS did the trick for me! Thanks.
[reply]
Re^2: LWP Credentials Login Problem to Download Zip Files
by noniekimp (Sexton) on Aug 26, 2004 at 16:40 UTC
    This is what I added: 
    open(ZIP, ">$filename");
binmode ZIP;
print ZIP $response->content;
close(ZIP);

print "Content-Disposition: attachment; filename=$filename\n";
print "Content-type: application/zip\n\n";

    [download]
    But for some reason the filename is just "download". Hmm! Close but no cigar. Need help!
[reply]
[d/l]
      Oh! this is being executed in a CGI script? I don't know the answer. Try doing a search of this site, or start a new thread about this new problem so people who might know the answer notice it.
[reply]
      I was running into problems trying to get the zip file to download. I was getting the prompt to download, but the file was coming up empty. The problem I was running into was that the connection to the browser is a stateless connection, and lost the credentials that was being used in getting the file in the first step. Had to save the file locally to a temp directory and create a direct link, (files are deleted after 24 hours) allowing people to download the file directly. This is what I ended up doing: 
      $filename = 'test.zip';

# get file from external ftp
use LWP::UserAgent; 
use HTTP::Request::Common;
my $url = "http://www.domain.com/$filename"; 
my $ua = LWP::UserAgent->new(keep_alive=>1); 
my $headers = HTTP::Headers->new(); 
$headers->authorization_basic('user', 'pass'); 
my $request = new HTTP::Request(GET => $url, $headers); 
my $response = $ua->request($request);
print "response:" . $response->code . "<br>";

# save file locally
$filepath = "e:/myfolder/Data/$filename";
open(ZIP, ">$filepath");
binmode ZIP;
print ZIP $response->content;
close(ZIP);

# provide link to download file
print "Download file <a href="http://www.localftp.com/Data/$filename">
+here</a>";

      [download]
      Don't think there was a solution to downloading the file via the a prompt.
[reply]
[d/l]

In Section Seekers of Perl Wisdom