view release on metacpan or search on metacpan
t/lib/Apache/test.pm view on Meta::CPAN
$request->{headers}{Content_Type} = 'application/x-www-form-urlencoded'
if (!$request->{headers} and $request->{method} eq 'POST'); # Is this necessary?
# Create & send the request
$request->{headers} = new HTTP::Headers(%{$request->{headers}||{}});
my $req = new HTTP::Request(@{$request}{'method','uri','headers','content'});
my $response = $ua->request($req);
return $want_response ? $response : $response->content;
}
t/lib/Apache/test.pm view on Meta::CPAN
my $ua = LWP::UserAgent->new;
my $url = URI::URL->new("http://$net::httpserver");
my($path,$q) = split /\?/, shift;
$url->path($path);
$url->query($q) if $q;
my $request = new HTTP::Request('GET', $url);
my $response = $ua->request($request, undef, undef);
$response->is_success;
}
#even if eval $mod fails, the .pm ends up in %INC
view release on metacpan or search on metacpan
lib/Apache/Scoreboard.pm view on Meta::CPAN
no strict 'vars';
$ua = LWP::UserAgent->new;
$ua->agent(join '/', __PACKAGE__, $VERSION);
}
my $request = HTTP::Request->new('GET', $url);
my $response = $ua->request($request);
die "failed to execute: 'GET $url', response: ",
$response->status_line unless $response->is_success;
# XXX: fixme
view release on metacpan or search on metacpan
lib/Apache/SdnFw/lib/Core.pm view on Meta::CPAN
</error>
END
my $ua = new LWP::UserAgent;
$ua->timeout(5);
my $req = new HTTP::Request('POST' => "http://erp.smalldognet.com/sdnerp/e");
$req->content_type('application/x-www-form-urlencoded');
$req->content($xml);
$ua->request($req);
}
lib/Apache/SdnFw/lib/Core.pm view on Meta::CPAN
sub lwp_xml {
my $s = shift;
my $url = shift;
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request('GET' => $url);
my $resp = $ua->request($req);
if ($resp->is_success) {
my $content = $resp->content;
my $xml = eval { XMLin($content); };
lib/Apache/SdnFw/lib/Core.pm view on Meta::CPAN
my $ua = new LWP::UserAgent;
$ua->timeout(5);
my $dump = new XML::Dumper;
my $xml = $dump->pl2xml($data);
my $req = new HTTP::Request('POST' => "$server$url");
$req->content_type('application/x-www-form-urlencoded');
$req->content('<?xml version="1.0" encoding="UTF-8"?>'.$xml);
my $resp = $ua->request($req);
my $rxml;
if ($resp->is_success) {
lib/Apache/SdnFw/lib/Core.pm view on Meta::CPAN
croak "Unknown sdn_url" unless($server);
my $ua = new LWP::UserAgent;
$ua->timeout(5);
my $req = new HTTP::Request('GET' => "$server$url");
my $resp = $ua->request($req);
my $rxml;
if ($resp->is_success) {
my $dump = new XML::Dumper;
my $rxml = $dump->xml2pl($resp->content);
view release on metacpan or search on metacpan
lib/Apache/Session/Counted.pm view on Meta::CPAN
$surl = sprintf "http://%s/?SESSIONID=%s", $host, $sessionID;
}
# warn "surl[$surl]";
if ($surl) {
require LWP::UserAgent;
require HTTP::Request::Common;
my $ua = LWP::UserAgent->new;
$ua->timeout($session->{args}{Timeout} || 10);
my $req = HTTP::Request::Common::GET $surl;
my $result = $ua->request($req);
if ($result->is_success) {
$content = $result->content;
} else {
$content = Storable::nfreeze {};
view release on metacpan or search on metacpan
lib/Apache/Sling/Request.pm view on Meta::CPAN
use 5.008001;
use strict;
use warnings;
use Carp;
use HTTP::Request::Common qw(DELETE GET POST PUT);
use MIME::Base64;
use Apache::Sling::Print;
require Exporter;
view release on metacpan or search on metacpan
lib/Apache/Solr.pm view on Meta::CPAN
{ my ($self, $url, $result, $body, $body_ct) = @_;
my $req;
if($body)
{ # request with 'form' payload
$req = HTTP::Request->new
( POST => $url
, [ Content_Type => $body_ct
, Content_Disposition => 'form-data; name="content"'
]
, (ref $body eq 'SCALAR' ? $$body : $body)
);
}
else
{ # request without payload
$req = HTTP::Request->new(GET => $url);
}
$result->request($req);
my $resp;
view release on metacpan or search on metacpan
lib/Apache/TestCommonPost.pm view on Meta::CPAN
}
sub lwp_do {
my $length = shift;
my $request = HTTP::Request->new(POST => $Location);
$request->header('Content-length' => $length);
if (LWP->VERSION >= 5.800) {
$request->content_ref(\('a' x $length));
} else {
view release on metacpan or search on metacpan
lib/Apache/TopicMaps.pm view on Meta::CPAN
}
}
elsif( $path =~ /^http/ )
{
my $request = HTTP::Request->new('GET', '$path');
#$request->authorization_basic("user","pass");
my $tm_id = time() .'-'.$$;
my $response = $ua->request($request, '/tmp/topicmap'.$tm_id);
$tm->load_file( '/tmp/topicmap'.$tm_id,$pm,$parse );
# FIXME: check loaded!
lib/Apache/TopicMaps.pm view on Meta::CPAN
}
}
sub getTM
{
my ($tm,$uri) = @_;
my $request = HTTP::Request->new('GET', $uri);
$request->header( 'Accept' => 'application/xtm+xml' );
my $tm_id = $$ .'-'.$tmc ;
$tmc++;
my $response = $ua->request($request, '/tmp/topicmap_' . $tm_id);
view release on metacpan or search on metacpan
lib/Apache/WebDAV.pm view on Meta::CPAN
}
#
# Build up a WebDAV flavored XML document containing a list of files in a
# directory. Most of this was copied from Net::DAV::Server, but I took out
# all the stuff specific to HTTP::Daemon, HTTP::Request and HTTP::Response
# (so it would be compatible with apache/mod_perl).
#
# @arg $r apache object
# @arg $files arrayref of files [{path => $path, stat => $info}, {etc...}]
#
view release on metacpan or search on metacpan
Wyrd/Input/URLInput.pm view on Meta::CPAN
package Apache::Wyrd::Input::URLInput;
use strict;
use base qw(Apache::Wyrd::Input);
use LWP::UserAgent;
use HTTP::Request::Common;
our $VERSION = '0.98';
=pod
=head1 NAME
view release on metacpan or search on metacpan
lib/Apache/XPP.pm view on Meta::CPAN
Apache
Apache::Constants
File::stat
FileHandle
HTTP::Request
LWP::UserAgent
=cut
use Carp;
lib/Apache/XPP.pm view on Meta::CPAN
use Carp;
use File::stat;
use FileHandle;
use HTTP::Request;
use LWP::UserAgent;
=head1 EXPORTS
Nothing
lib/Apache/XPP.pm view on Meta::CPAN
warn "xpp:\tfailed to load file $filename ($!)" . ($debuglines ? '' : "\n");
return undef;
}
} elsif ($filename =~ m{^(?:.+)?://(?:.+)$}) {
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( 'GET', $filename );
my $res = $ua->request( $req );
warn "xpp:\tattempting to load $filename from LWP::UserAgent" . ($debuglines ? '' : "\n") if ($debug);
if ($res->is_success) {
return $res->content;
} else {
lib/Apache/XPP.pm view on Meta::CPAN
warn "xpp:\tcannot stat file ($filename): $!" . ($debuglines ? '' : "\n") if ($debug);
return undef;
}
} elsif ($filename =~ m{^((?:.+)?://(?:.+))$}) {
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( 'GET', $filename );
my $res = $ua->request( $req );
if (my $headers = $res->headers) {
return $headers->last_modified;
} else {
warn "xpp:\tfailed to get mtime for url ($!)" . ($debuglines ? '' : "\n") if ($debug);
view release on metacpan or search on metacpan
lib/Apache/XPointer/RDQL.pm view on Meta::CPAN
</Directory>
#
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new(GET => "http://example.com/foo/bar/baz.rdf");
$req->header("Range" => qq(SELECT ?title, ?link
WHERE
(?item, <rdf:type>, <rss:item>),
(?item, <rss::title>, ?title),
view release on metacpan or search on metacpan
lib/Apache/XPointer.pm view on Meta::CPAN
</Directory>
#
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new(GET => "http://example.com/foo/bar/baz.xml");
$req->header("Range" => qq(xmlns("x=http://example.com#")xpointer(*//x:thingy)));
$req->header("Accept" => qq(application/xml));
my $res = $ua->request($req);
view release on metacpan or search on metacpan
t/lib/Test/Apache2/API.pm view on Meta::CPAN
In the test unit:
use Apache::Test;
use Apache::TestRequest;
use HTTP::Request;
my $hostport = Apache::TestRequest::hostport( $config ) || '';
my( $host, $port ) = split( ':', ( $hostport ) );
my $mp_host = 'www.example.org';
Apache::TestRequest::user_agent(reset => 1, keep_alive => 1 );
t/lib/Test/Apache2/API.pm view on Meta::CPAN
# verify_hostname => 0,
SSL_fingerprint => 'sha1$DEE8650E44870896E821AAE4A5A24382174D100E',
# SSL_version => 'SSLv3',
# SSL_verfifycn_name => 'localhost',
);
my $req = HTTP::Request->new( 'GET' => "${proto}://${hostport}/tests/api/some_method" );
my $resp = $ua->request( $req );
is( $resp->code, Apache2::Const::HTTP_OK, 'some test name' );
=head1 VERSION
view release on metacpan or search on metacpan
lib/Apache2/ASP/Test/UserAgent.pm view on Meta::CPAN
package Apache2::ASP::Test::UserAgent;
use strict;
use warnings 'all';
use HTTP::Request::Common;
use HTTP::Response;
use HTTP::Request::AsCGI;
use HTTP::Body;
use Apache2::ASP::HTTPContext;
use Apache2::ASP::SimpleCGI;
use Apache2::ASP::Mock::RequestRec;
use Carp 'confess';
lib/Apache2/ASP/Test/UserAgent.pm view on Meta::CPAN
if $s->{c};
$req->referer( $s->{referer} || '' );
($s->{referer}) = $req->uri =~ m/.*?(\/[^\?]+)/;
no warnings 'redefine';
*HTTP::Request::AsCGI::stdout = sub { 0 };
$s->{c} = HTTP::Request::AsCGI->new($req)->setup;
$ENV{SERVER_NAME} = $ENV{HTTP_HOST} = 'localhost';
unless( $req->uri =~ m@^/handlers@ )
{
my ($uri_no_args) = split /\?/, $req->uri;
view release on metacpan or search on metacpan
lib/Apache2/AMFLiteDetectionFilter.pm view on Meta::CPAN
$CommonLib->printLog("For access the device to fullbrowser set the link: <url>?$mobilenable=true");
}
sub readMobileParamFromUrl {
$CommonLib->printLog("Read data from ".$urlmobile);
my $req = HTTP::Request->new(HEAD => $urlmobile);
$req->header('Accept' => 'text/html');
my $res = $ua->request($req);
if ($res->is_success) {
lib/Apache2/AMFLiteDetectionFilter.pm view on Meta::CPAN
$MobileArray{$dummy}='mobile';
}
}
sub readTabletParamFromUrl {
$CommonLib->printLog("Read data for tablet detection from ".$urlTablet);
my $req = HTTP::Request->new(HEAD => $urlTablet);
$req->header('Accept' => 'text/html');
my $res = $ua->request($req);
if ($res->is_success) {
lib/Apache2/AMFLiteDetectionFilter.pm view on Meta::CPAN
$MobileTabletArray{$dummy}='mobile';
}
}
sub readTouchParamFromUrl {
$CommonLib->printLog("Read for touch data for touch detection from ".$urlTouch);
my $req = HTTP::Request->new(HEAD => $urlTouch);
$req->header('Accept' => 'text/html');
my $res = $ua->request($req);
if ($res->is_success) {
lib/Apache2/AMFLiteDetectionFilter.pm view on Meta::CPAN
$MobileTouchArray{$dummy}='mobile';
}
}
sub readTVParamFromUrl {
$CommonLib->printLog("Read data for TV detection from ".$urlTv);
my $req = HTTP::Request->new(HEAD => $urlTv);
$req->header('Accept' => 'text/html');
my $res = $ua->request($req);
if ($res->is_success) {
view release on metacpan or search on metacpan
lib/Apache2/AuthCASpbh/UserAgent.pm view on Meta::CPAN
apache_r => $r,
cas_cookie_map => [ { URL_re => '^https://my\.server/cas' },
{ URL_re => '^https://other\.server/ssoapp',
cookie_name => 'CAS_Cookie' } ]);
my $req = HTTP::Request->new('GET', 'https://my.server/');
=head1 DESCRIPTION
AuthCASpbh::UserAgent is a derivative of L<LWP::UserAgent> that adds
transparent support for proxy CAS authentication. All of the documentation for
view release on metacpan or search on metacpan
lib/SOAP/Transport/HTTP2.pm view on Meta::CPAN
Apache->request : Apache2::RequestUtil->request();
}
my $cl = ($self->{'MOD_PERL_VERSION'} == 1) ?
$r->header_in('Content-length') : $r->headers_in->{'Content-length'};
$self->request(HTTP::Request->new(
$r->method() => $r->uri,
HTTP::Headers->new($r->headers_in),
do { my ($c,$buf); while ($r->read($buf,$cl)) { $c.=$buf; } $c; }
));
$self->SUPER::handle;
view release on metacpan or search on metacpan
* perl subroutine hooks between requests in a sequence, with access
to all prior regression data and ability to dynamically change current or
future requests in sequence
* XML configuration files, like Apache's flood project
* more logical object-based configuration; make a single request into an
object; try to replicate LWP: HTTP::Request and HTTP::Response
* time-limit repeat feature: keep sending requests for NNN seconds
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Exporter" : "0",
"Getopt::Std" : "0",
"HTTP::Request::Common" : "0",
"JSON" : "0",
"LWP::UserAgent" : "0",
"MIME::Base64" : "0",
"Scalar::Util" : "0"
}
view release on metacpan or search on metacpan
t/00_autocrud.t view on Meta::CPAN
use strict;
use warnings;
use Plack::Test;
use Test::More;
use HTTP::Request::Common;
use App::AutoCRUD;
use FindBin;
use DBI;
use JSON::MaybeXS;
use Encode;
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
Digest::MD5 0
ExtUtils::MakeMaker 6.78
File::Basename 0
File::Spec 0
Getopt::Long::Descriptive 0.084
HTTP::Request::Common 0
HTTP::Status 0
LWP::Protocol::https 1
LWP::UserAgent 0
Term::ReadKey 0
perl 5.012000
cpanfile.snapshot view on Meta::CPAN
requirements:
Carp 0
ExtUtils::MakeMaker 0
HTTP::Date 6
HTTP::Headers::Util 6
HTTP::Request 0
locale 0
perl 5.008001
strict 0
HTTP-Date-6.06
pathname: O/OA/OALDERS/HTTP-Date-6.06.tar.gz
cpanfile.snapshot view on Meta::CPAN
HTTP::Headers 7.00
HTTP::Headers::Auth 7.00
HTTP::Headers::ETag 7.00
HTTP::Headers::Util 7.00
HTTP::Message 7.00
HTTP::Request 7.00
HTTP::Request::Common 7.00
HTTP::Response 7.00
HTTP::Status 7.00
requirements:
Carp 0
Clone 0.46
cpanfile.snapshot view on Meta::CPAN
HTML::Entities 0
HTML::HeadParser 3.71
HTTP::Cookies 6
HTTP::Date 6
HTTP::Negotiate 6
HTTP::Request 6.18
HTTP::Request::Common 6.18
HTTP::Response 6.18
HTTP::Status 6.18
IO::Select 0
IO::Socket 0
LWP::MediaTypes 6
view release on metacpan or search on metacpan
lib/App/Bernard/Magic/Gnome.pm view on Meta::CPAN
sub fetch {
my ($self, $url, $target) = @_;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
die "HTTP error: " . $res->status_line. "\n"
unless $res->is_success;
view release on metacpan or search on metacpan
use strict;
use warnings;
use Test::More;
use Plack::Test;
use HTTP::Request::Common;
use HTTP::Response;
use File::Basename;
use App::BlurFill::Web;
my $app = App::BlurFill::Web->to_app;
view release on metacpan or search on metacpan
lib/App/CLI/Plugin/Parallel/ForkManager.pm view on Meta::CPAN
package MyApp::Fork;
use strict;
use base qw(App::CLI::Command);
use LWP::UserAgent;
use HTTP::Request;
our %LINKS = (cpan => "http://search.cpan.org", perl => "http://www.perl.org", foo => "http://foo.foo/");
sub options { return ("maxprocs=i" => "maxprocs") };
lib/App/CLI/Plugin/Parallel/ForkManager.pm view on Meta::CPAN
foreach my $key (keys %LINKS) {
my $pid = $self->pm->start($key) and next;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $LINKS{$key});
my $res = $ua->request($req);
if ($res->is_success) {
printf "%s's status code: %d\n", $key, $res->code;
} else {
printf "ERROR: $key %s\n", $res->status_line;
view release on metacpan or search on metacpan
lib/App/CPAN2Pkg/Worker/Mageia.pm view on Meta::CPAN
package App::CPAN2Pkg::Worker::Mageia;
# ABSTRACT: worker dedicated to Mageia distribution
$App::CPAN2Pkg::Worker::Mageia::VERSION = '3.004';
use HTML::TreeBuilder;
use HTTP::Request;
use Moose;
use MooseX::ClassAttribute;
use MooseX::Has::Sugar;
use MooseX::POE;
use POE;
lib/App/CPAN2Pkg/Worker/Mageia.pm view on Meta::CPAN
event _upstream_build_wait_request => sub {
my $self = shift;
my $pkgname = $self->pkgname;
my $url = "http://pkgsubmit.mageia.org/?package=$pkgname&last";
my $request = HTTP::Request->new(HEAD => $url);
$K->post( $self->_ua => request => _upstream_build_wait_answer => $request );
};
event _upstream_build_wait_answer => sub {
my ($self, $requests, $answers) = @_[OBJECT, ARG0, ARG1];
view release on metacpan or search on metacpan
lib/App/CamelPKI/Action/JSON.pm view on Meta::CPAN
=head2 _request_body($c)
Returns the content of the POST request, if any.
Note that there seems to be plans in Catalyst to provide a hand-made
HTTP::Request to controller tests, but as of 5.7006 it is undocumented
and doesn't seem to accept POST requests with a body. Therefore,
_request_body will shamelessy attempt to read global variable
$App::CamelPKI::Action::JSON::request_body_for_tests, and return its value
if defined; L<App::CamelPKI::Test> hooks into this band aid to pass the
JSON request body.
view release on metacpan or search on metacpan
lib/App/Chart/Download.pm view on Meta::CPAN
my $ua = $options{'ua'} || do { require App::Chart::UserAgent;
App::Chart::UserAgent->instance };
$ua->cookie_jar ($options{'cookie_jar'}); # undef for none
### cookie_jar object: ($options{'cookie_jar'} // "").""
require HTTP::Request;
my $method = $options{'method'} || 'GET';
my @headers = (Referer => $options{'referer'});
my $data = $options{'data'};
if (defined $data) {
push @headers, 'Content-Type' => 'application/x-www-form-urlencoded';
}
my $req = HTTP::Request->new ($method, $url, \@headers, $data);
# possible override
if (my $user_agent = $options{'user_agent'}) {
$req->user_agent($user_agent);
}
view release on metacpan or search on metacpan
my $url = 'https://cveawg.mitre.org/api/cve/' . $cve_id;
#print "Fetching: ", $url, "\n";
my $ua = LWP::UserAgent->new;
$ua->agent("CVE-Client fetch <https://hacktivis.me/git/cve-client/>");
my $req = HTTP::Request->new(GET => $url);
#$req->header('Accept' => 'application/json');
my $res = $ua->request($req);
view release on metacpan or search on metacpan
'Date::Calc' => 0,
'File::HomeDir' => 0,
'File::Slurp' => 0,
'File::Temp' => 0,
'HTTP::Cookies' => 0,
'HTTP::Request' => 0,
'Getopt::Long' => 2.32,
'JSON' => 0,
'LWP::UserAgent' => 0,
'Params::Validate' => 1.06,
'Term::ReadKey' => 0,