my $ua = LWP::UserAgent->new(); die "$userid: LWP::UserAgent->new() failed\n" if !defined($ua); my $r_reqlist = $ua->requests_redirectable(); push @{$r_reqlist}, 'POST'; my $cookiestr = $self->{cookies}; if (defined($cookiestr)) { my $cookie_jar = $r_user->str2cookie_jar($cookiestr); $ua->cookie_jar($cookie_jar); ### $request->header(Cookie=>$cookiestr); # HACK ??? } my $resp = $ua->request($request); $self->{responseCode} = $resp->code(); $self->{responseMessage} = $resp->message(); $self->{responseAsString} = $resp->as_string();