1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
use strict; use warnings; use LWP::UserAgent; my $pw='abcdefg'; my $us='1234567'; my $url = "https://poms-test.ts.fujitsu.com/CallLog"; my $response; my $ua = LWP::UserAgent->new; $ua->requests_redirectable(undef); # Redirects ausschalten! $ua->credentials("poms-test.ts.fujitsu.com:443", "POMS2", $us, $pw); my $response = $ua->post($url,[0=>0]); print $response->status_line; print $response->decoded_content;
$ua->requests_redirectable(undef); # Redirects ausschalten!
1
2
3
4
$ua->requests_redirectable
$ua->requests_redirectable( \@requests )
This reads or sets the object's list of request names that $ua->redirect_ok(...) will allow redirection for. By default, this is ['GET', 'HEAD'], as per RFC 2616. To change to include 'POST', consider:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use warnings;
use LWP::UserAgent;
my $pw_ticketsystem='abcdefg';
my $us_ticketsystem='1234567';
my $url = "https://url/CallLog";
my $response;
my $ua = LWP::UserAgent->new;
$ua->requests_redirectable(undef); # Redirects ausschalten!
$ua->credentials("url-server:443", "realm", $us_ticketsystem, $pw_ticketsystem);
$ENV{HTTPS_PROXY} = 'proxyserver';
$ENV{HTTPS_PROXY_USERNAME} = 'username';
$ENV{HTTPS_PROXY_PASSWORD} = 'passsword';
my $response = $ua->post($url,[0=>0]);
print $response->status_line;
my $response = $ua->post($url,[0=>0,1=>1,2=>2]);
0=0&1=1&2=2