view release on metacpan or search on metacpan
lib/Crypt/OpenPGP/KeyServer.pm view on Meta::CPAN
my($address) = @_;
my $ua = LWP::UserAgent->new;
$ua->agent('Crypt::OpenPGP/' . Crypt::OpenPGP->VERSION);
my $url = $server->{keyserver} . '?op=index&search=' .
uri_escape($address);
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
return $server->error("HTTP error: " . $res->status_line)
unless $res->is_success;
my $page = $res->content;
my @kb;
lib/Crypt/OpenPGP/KeyServer.pm view on Meta::CPAN
$key_id = unpack 'H*', $key_id;
my $ua = LWP::UserAgent->new;
$ua->agent('Crypt::OpenPGP/' . Crypt::OpenPGP->VERSION);
$key_id = substr($key_id, -8, 8);
my $url = $server->{keyserver} . '?op=get&search=0x' . $key_id;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
return $server->error("HTTP error: " . $res->status_line)
unless $res->is_success;
my $page = $res->content;
my($key) = $page =~ /(-----BEGIN PGP PUBLIC KEY BLOCK-----.*?-----END PGP PUBLIC KEY BLOCK-----)/s;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
eval {
eval "require LWP::UserAgent"; die $@ if $@;
my $ua = LWP::UserAgent->new;
$ua->agent("crypt-pbc-fetcher/1.0");
my $req = HTTP::Request->new(GET => "http://voltar.org/pbcfiles/pbc-$ver.tar.gz");
my $res = $ua->request($req, "pbc-$ver.tar.gz");
$worked = 1 if $res->is_success;
};
warn "LWP fetch problem: $@\n" if $@;
view release on metacpan or search on metacpan
eg/lwp-ssl-test view on Meta::CPAN
$opt_cadir && ( $ENV{HTTPS_CA_DIR} = $opt_cadir );
my $url = shift || 'https://www.nodeworks.com';
my $ua = new LWP::UserAgent;
$ua->timeout(15);
my $req = new HTTP::Request('HEAD', $url);
my $res = $ua->request($req);
print Dumper($res);
view release on metacpan or search on metacpan
lib/Crypto/NanoRPC.pm view on Meta::CPAN
package Crypto::NanoRPC;
use 5.018001;
use strict;
use warnings;
use HTTP::Request;
use LWP::UserAgent;
use JSON;
require Exporter;
our @ISA = qw(Exporter);
lib/Crypto/NanoRPC.pm view on Meta::CPAN
my $class = shift;
my $self = {
url => shift,
};
$self->{url} = 'http://[::1]:7076' unless defined $self->{url};
$self->{request} = HTTP::Request->new( 'POST', $self->{url} );
$self->{request}->content_type('application/json');
$self->{ua} = LWP::UserAgent->new;
bless $self, $class;
return $self;
}
lib/Crypto/NanoRPC.pm view on Meta::CPAN
These modules are required:
=over 1
=item HTTP::Request
=item LWP::UserAgent
=item JSON
view release on metacpan or search on metacpan
lib/DAPNET/API.pm view on Meta::CPAN
my($type) = shift;
my($username) = $self->{DAPNET_USERNAME};
my($pw) = $self->{DAPNET_PW};
my($uri) = 'http://www.hampager.de:8080/'.$type;
print("Building HTTP request\n") if($self->{DEBUG});
my($req) = HTTP::Request->new(
POST => $uri
);
$req->header( 'Content-Type' => 'application/json',
'Authorization'=>'Basic ' . encode_base64($username.':'.$pw)
);
view release on metacpan or search on metacpan
lib/DB/CouchDB.pm view on Meta::CPAN
my $self = shift;
my $method = shift;
my $uri = shift;
my $content = shift;
my $req = HTTP::Request->new($method, $uri);
$req->content(Encode::encode('utf8', $content));
my $ua = LWP::UserAgent->new();
my $return = $ua->request($req);
my $response = $return->decoded_content({
view release on metacpan or search on metacpan
my $remote_source = shift;
undef $@;
eval{ require 'LWP/UserAgent.pm'; };
die "LWP module not found! $@" if $@;
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request GET => $remote_source;
my $res = $ua->request($req);
die "[$remote_source] : " . $res->message if !$res->is_success;
my $data = $res->content;
return $data;
}
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
HTTP::Daemon 6.01
HTTP::Daemon::ClientConn 6.01
requirements:
ExtUtils::MakeMaker 0
HTTP::Date 6
HTTP::Request 6
HTTP::Response 6
HTTP::Status 6
IO::Socket 0
LWP::MediaTypes 6
Sys::Hostname 0
cpanfile.snapshot view on Meta::CPAN
HTTP::Headers 6.11
HTTP::Headers::Auth 6.11
HTTP::Headers::ETag 6.11
HTTP::Headers::Util 6.11
HTTP::Message 6.11
HTTP::Request 6.11
HTTP::Request::Common 6.11
HTTP::Response 6.11
HTTP::Status 6.11
requirements:
Compress::Raw::Zlib 0
Encode 2.21
cpanfile.snapshot view on Meta::CPAN
Devel::GlobalDestruction 0
Encode 0
ExtUtils::MakeMaker 0
File::Temp 0
HTTP::Headers 0
HTTP::Request 0
HTTP::Tiny 0.043
Hijk 0.20
IO::Select 0
IO::Socket 0
IO::Uncompress::Inflate 0
cpanfile.snapshot view on Meta::CPAN
HTML::HeadParser 0
HTTP::Cookies 6
HTTP::Daemon 6
HTTP::Date 6
HTTP::Negotiate 6
HTTP::Request 6
HTTP::Request::Common 6
HTTP::Response 6
HTTP::Status 6
IO::Select 0
IO::Socket 0
LWP::MediaTypes 6
view release on metacpan or search on metacpan
Catalyst::Plugin::FormValidator::Simple: 0
Catalyst::Test: 0
DBD::SQLite: 0
DBIx::Class: 0
DBIx::Class::Schema: 0
HTTP::Request::Common: 0
Test::More: 0
distribution_type: module
generated_by: Module::Install version 0.64
license: perl
name: DBIx-Class-FromValidators
view release on metacpan or search on metacpan
lib/DBIx/Class/Sims/REST.pm view on Meta::CPAN
},
],
};
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => 'http://<URL>:<PORT>/sims');
$req->content(encode_json($data));
my $res = $ua->request($req);
return decode_json($res->content);
view release on metacpan or search on metacpan
lib/DBIx/FullTextSearch/URL.pm view on Meta::CPAN
my ($self, $uri, $extra_data) = @_;
my $ua = ( defined $self->{'user_agent'}
? $self->{'user_agent'}
: $self->{'user_agent'} = new LWP::UserAgent );
my $request = new HTTP::Request('GET', $uri);
my $response = $ua->simple_request($request);
if ($response->is_success) {
my $data = $response->content;
$data .= " $extra_data" if $extra_data;
return $self->SUPER::index_document($uri, $data);
view release on metacpan or search on metacpan
lib/DBIx/TextSearch.pm view on Meta::CPAN
# get unique name for local file
my $local_file = _get_unique_filename();
# fetch the file
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new('GET', $url);
my $response = $ua->request($request);
if ($response->is_success) {
# sucessful fetch
# write to disk
view release on metacpan or search on metacpan
DataLoader.pm view on Meta::CPAN
if(!$xml){warn "we had no xml sent in";return;}
if($xml =~ /^http:/){
my $ua = new LWP::UserAgent;
$ua->agent("DBIx_XML_DataLoader/1.0b " . $ua->agent);
my $req = new HTTP::Request(GET=>$xml);
my $res = $ua->request($req);
if ($res->is_success){
$xml=$res->content;
}
}
view release on metacpan or search on metacpan
}
sub _get_data
{
my $uri = shift;
my $req = HTTP::Request->new(GET => $uri);
my $ua = LWP::UserAgent->new;
$ua->agent("DISCO.pm/$VERSION " . $ua->agent);
my $res = $ua->request($req);
view release on metacpan or search on metacpan
lib/DMTF/WSMan.pm view on Meta::CPAN
sub _request
{
my $self=shift;
my $postdata=shift;
my $req = HTTP::Request->new(POST => $self->{Context}{protocol}."://$self->{Context}{host}:$self->{Context}{port}/wsman");
$req->header('Content-Type', 'application/soap+xml;charset=UTF-8');
$req->header('Content-Length', length $postdata); # Not really needed
$req->content($postdata);
return $self->_authenticated_request($req);
}
view release on metacpan or search on metacpan
lib/DNS/EasyDNS.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
use LWP::UserAgent;
use CGI::Util qw(escape);
use HTTP::Request::Common qw(GET);
use base qw(LWP::UserAgent);
use constant URL => 'members.easydns.com/dyn/dyndns.php';
view release on metacpan or search on metacpan
lib/DNS/NIOS.pm view on Meta::CPAN
}
$query_params .= $u->query;
}
my $request =
HTTP::Request->new( $op, $self->{base_url} . $path . $query_params );
if ( $op eq 'PUT' or $op eq 'POST' ) {
$request->content( to_json($payload) );
}
view release on metacpan or search on metacpan
lib/DNS/PunyDNS.pm view on Meta::CPAN
my $url = $self->_build_request( $endpoint, $args );
delete $self->{'error'};
my $ua = new LWP::UserAgent();
my $req = new HTTP::Request( 'GET', $url );
my $response = $ua->request($req);
if ( $response->is_success ) {
my $content = $response->content;
my $decoded_content = XMLin( \$content, KeyAttr => 'domain' );
view release on metacpan or search on metacpan
lib/DNS/WorldWideDns.pm view on Meta::CPAN
description => 'Something bad happened during the request.',
fields => [qw(url response code)],
},
);
use HTTP::Request;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
readonly username => my %username;
readonly password => my %password;
lib/DNS/WorldWideDns.pm view on Meta::CPAN
The URL to request.
=head3 request
Normally an HTTP::Request object is created for you on the fly. But if you want to make your own and pass it in you are welcome to do so.
=cut
sub makeRequest {
my ($self, $url, $request) = @_;
lib/DNS/WorldWideDns.pm view on Meta::CPAN
MissingParam->throw(error=>'Need a url.');
}
unless ($url =~ m{^https://www.worldwidedns.net/.*$}xms) {
InvalidParam->throw(error=>'URL is improperly formatted.', got=>$url);
}
$request ||= HTTP::Request->new(GET => $url);
my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);
# request is good
if ($response->is_success) {
view release on metacpan or search on metacpan
1.1 2010/12/06 1.1 Fix failing CPAN test
1.0 2010/11/29 1.0 Release, module now has confirmed users
Restructure to allow for better testing
Remove unnecessary references to HTTP::Request module
0.04 2010/10/29 Allow the user to specify a "tld". (RT #62472)
0.03 2010/04/22 More License corrections...
view release on metacpan or search on metacpan
CAB/Client/HTTP.pm view on Meta::CPAN
use DTA::CAB::Utils ':all';
use DTA::CAB::Client;
#use DTA::CAB::Client::XmlRpc;
use LWP::UserAgent;
use HTTP::Status;
use HTTP::Request::Common;
use URI::Escape qw(uri_escape_utf8);
#use Encode qw(encode decode encode_utf8 decode_utf8);
use Carp qw(confess);
use strict;
CAB/Client/HTTP.pm view on Meta::CPAN
if ($qmode eq 'get') {
$form{$qname} = $$dataref;
$rsp = $cli->uget_form($cli->lwpUrl, \%form, @$headers);
}
else {
##-- encode (for HTTP::Request v5.810 e.g. on services)
foreach (values %form) {
utf8::encode($_) if (utf8::is_utf8($_));
}
##-- encode dataref
CAB/Client/HTTP.pm view on Meta::CPAN
=item urequest
$response = $cli->urequest($httpRequest);
Gets response for $httpRequest (a HTTP::Request object) using $cli-E<gt>ua-E<gt>request().
Also traces request to $cli-E<gt>{tracefh} if defined.
=utem urequest_unix
$response = $cli->urequest_unix($httpRequest);
view release on metacpan or search on metacpan
t/01_basic.t view on Meta::CPAN
Test::TCP::test_tcp(
client => sub {
my $port = shift;
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new(GET => "http://127.0.0.1:$port/");
my $res = $ua->request($request);
ok($res->is_success, "server responded");
like($res->content, qr/this is a warning/, "log message send");
},
server => sub {
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"Dancer::Test" : "0",
"File::Spec" : "0",
"HTTP::Request::Common" : "0",
"IO::Handle" : "0",
"IPC::Open3" : "0",
"Test::MockObject::Extends" : "0",
"Test::More" : "0.88",
"lib" : "0"
view release on metacpan or search on metacpan
t/dancer2/02-check-method-and_path.t view on Meta::CPAN
use strict;
use warnings;
use lib "t/dancer2/lib";
use HTTP::Request::Common;
use Plack::Test;
use TestApp;
use Test::More;
my $app = Plack::Test->create( TestApp->to_app );