view release on metacpan or search on metacpan
Webalert.pm view on Meta::CPAN
Bot::Webalert - IRC bot watches Web sites and reports changes to IRC channels
=head1 SYNOPSIS
use Bot::Webalert;
use HTTP::Request::Common;
my $bot = Bot::Webalert->new(
server => 'irc.example.com',
channels => ["#friends_of_webalert"],
ua_request => GET("http://somewhere/changes.rss"),
Webalert.pm view on Meta::CPAN
The easiest way to write a web-watching bot is to let Bot::Webalert use
its default response handler, which posts a message whenever the watched
web page changes:
use Bot::Webalert;
use HTTP::Request::Common;
my $bot = Bot::Webalert->new(
server => 'irc.example.com',
channels => ["#friends_of_webalert"],
ua_request => GET("http://somewhere/changes.rss"),
Webalert.pm view on Meta::CPAN
and will be sent to all channels specified in the C<channels> option.
If you'd like to customize the message or have better control over what kind
of changes are reported, write your own response handler:
use Bot::Webalert;
use HTTP::Request::Common;
my $bot = Bot::Webalert->new(
server => 'irc.freenode.net',
channels => ["#friends_of_webalert"],
ua_request => GET("http://somewhere/changes.rss"),
view release on metacpan or search on metacpan
package Bot::WootOff;
###########################################
###########################################
use strict;
use warnings;
use HTTP::Request::Common qw(GET);
use POE qw(Component::Client::HTTP);
use Log::Log4perl qw(:easy);
our $VERSION = "0.09";
view release on metacpan or search on metacpan
bin/bottarga view on Meta::CPAN
if($sborropippo) {
$self->type(channel => $message->{channel}, who => $message->{who}, address => $message->{who}, body => 'le seghe');
} else {
my $ua = LWP::UserAgent->new;
$ua->agent('Bottarga');
my $req = HTTP::Request->new(GET => "https://www.googleapis.com/customsearch/v1?key=$key&cx=$cx&hl=it&num=1&q=$1");
my $res = $ua->request($req);
if ($res->is_success) {
my $json = decode_json($res->content);
if (defined $json->{items}[0]->{link}) {
$self->type(channel => $message->{channel}, who => $message->{who}, address => $message->{who}, body => $json->{items}[0]->{link});
view release on metacpan or search on metacpan
eg/gb_search view on Meta::CPAN
$GOT_TOTAL=0;
my $agent = LWP::UserAgent->new();
while ($GOT_TOTAL < $MAX) {
$GOT = 0;
my $req = HTTP::Request->new('GET' => "$TERM&dispstart=$GOT_TOTAL");
my $response = $agent->request($req,\&process_text);
die "Request failure: ",$response->status_line
unless $response->is_success;
last if $GOT < CHUNKSIZE;
$GOT_TOTAL += $GOT;
view release on metacpan or search on metacpan
lib/Brackup/Target/GoogleAppEngine.pm view on Meta::CPAN
use warnings;
use base 'Brackup::Target';
use Carp qw(croak);
use LWP::ConnCache;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;
# fields in object:
# user_email
# password
# url
lib/Brackup/Target/GoogleAppEngine.pm view on Meta::CPAN
return $url;
}
my $count = $for_backup ? 1 : 10;
my $req = HTTP::Request->new("GET",
"$self->{url}/get_upload_urls?" .
"for_backup=$for_backup&" .
"count=$count&" .
"password=" . _eurl($self->{password}) . "&" .
"user_email=" . $self->{user_email});
lib/Brackup/Target/GoogleAppEngine.pm view on Meta::CPAN
print "Storing chunk: $dig\n";
my $content = do { local $/; <$chunkref> };
my $req = HTTP::Request::Common::POST($upload_url,
Content_Type => 'form-data',
Content => [
"password" => $self->{password},
"user_email" => $self->{user_email},
"algo_digest" => $dig,
lib/Brackup/Target/GoogleAppEngine.pm view on Meta::CPAN
my $upload_url = $self->_get_upload_url(1) # for backup
or die;
my $content = do { local $/; <$fh> };
my $req = HTTP::Request::Common::POST($upload_url,
Content_Type => 'form-data',
Content => [
"password" => $self->{password},
"user_email" => $self->{user_email},
"encrypted" => $meta->{is_encrypted} ? 1 : 0,
view release on metacpan or search on metacpan
lib/BrandMeister/API.pm view on Meta::CPAN
use strict;
package BrandMeister::API;
use LWP::UserAgent;
use HTTP::Request::Common;
use JSON;
use MIME::Base64;
#use LWP::ConsoleLogger::Everywhere ();
#use Data::Dumper;
lib/BrandMeister/API.pm view on Meta::CPAN
my($formdataref) = shift;
my($uri) = $self->{BM_APIBASEURL}.$requrlpart;
print("Building HTTP request\n") if($self->{DEBUG});
my($req);
if ($formdataref) {
$req = HTTP::Request::Common::POST( $uri,$formdataref);
} else {
$req = HTTP::Request::Common::POST( $uri);
};
$req->header( 'Content-Type' => 'application/x-www-form-urlencoded',
'Authorization'=>'Basic ' . $self->{BM_APIKEYBASE64}
);
view release on metacpan or search on metacpan
lib/Bread/Board/Literal.pm view on Meta::CPAN
},
dependencies => wire_names(qw( connect_string )),
);
service service_request => (
class => 'HTTP::Request',
block => sub {
my $s = shift;
HTTP::Request->new(POST => $s->param('service_url'));
},
dependencies => wire_names(qw( service_url ));
};
};
view release on metacpan or search on metacpan
lib/Brocade/BSC.pm view on Meta::CPAN
my %headers = $headerref ? %$headerref : ();
my $url = "http://$$self{ipAddr}:$$self{portNum}$urlpath";
my $ua = LWP::UserAgent->new;
$ua->timeout($self->{timeout});
my $req = HTTP::Request->new($method => $url);
while (my($header, $value) = each %headers) {
$req->header($header => $value);
}
if ($data) {
$req->content($data);
view release on metacpan or search on metacpan
HTML::Parser 3.0 - recommended, used to parse GDP page in Bio::DB::GDP
HTML::TableExtract
HTTP::Request::Common - recommended, used for web access (part of libwww-perl)
IO::String
IO::Scalar
view release on metacpan or search on metacpan
lib/Bundle/CPANPLUS/Test/Reporter.pm view on Meta::CPAN
=head1 CONTENTS
File::Temp
HTTP::Request
Net::DNS
Net::SMTP
view release on metacpan or search on metacpan
Everything.pm view on Meta::CPAN
HTTP::QuickBase
HTTP::Recorder
HTTP::Request
HTTP::Request::AsCGI
HTTP::Request::Common
HTTP::Request::Form
HTTP::Request::FromLog
HTTP::Response
HTTP::Server:::Brick
view release on metacpan or search on metacpan
lib/Bundle/KohaSupport.pm view on Meta::CPAN
Getopt::Long 2.35
Getopt::Std 1.05
HTML::Template::Pro 0.69
HTML::Scrubber 0.08
HTTP::Cookies 1.39
HTTP::Request::Common 1.26
Image::Magick 6.2
LWP::Simple 1.41
LWP::UserAgent 2.033
Lingua::Stem 0.82
List::Util 1.18
view release on metacpan or search on metacpan
OpenInteract.pm view on Meta::CPAN
File::Path
File::Spec
HTML::Entities (1.13)
HTTP::Request
Lingua::Stem
MIME::Lite (2.00)
view release on metacpan or search on metacpan
HTML::Sanitizer
HTML::Template
HTTP::Request
HTTP::Response
HTTP::Status
view release on metacpan or search on metacpan
lib/Bundle/W3C/Validator.pm view on Meta::CPAN
HTML::Tidy - (optional)
HTTP::Headers::Auth
HTTP::Headers::Util
HTTP::Message 1.52
HTTP::Negotiate
HTTP::Request
JSON 2.00
LWP::UserAgent 2.032
Net::IP
Net::hostent
SGML::Parser::OpenSP 0.991
view release on metacpan or search on metacpan
"Finance::Tax::Aruba" : "0.009",
"FindBin" : "0",
"Getopt::Long" : "0",
"HTTP::Cookies" : "0",
"HTTP::Daemon::SSL" : "0",
"HTTP::Request" : "0",
"HTTP::Request::Params" : "0",
"IO::All" : "0",
"IO::Socket::SSL" : "0",
"Image::ExifTool" : "0",
"JSON::XS" : "0",
"LWP::UserAgent" : "0",
view release on metacpan or search on metacpan
lib/Business/BalancedPayments/Base.pm view on Meta::CPAN
with 'WebService::Client';
our $VERSION = '1.0600'; # VERSION
use Carp qw(croak);
use HTTP::Request::Common qw(GET POST);
use JSON qw(encode_json);
has '+base_url' => (is => 'ro', default => 'https://api.balancedpayments.com');
has secret => (is => 'ro', required => 1);
view release on metacpan or search on metacpan
lib/Business/Bitcoin/Request.pm view on Meta::CPAN
package Business::Bitcoin::Request;
use DBI;
use LWP::UserAgent;
use HTTP::Request;
use Math::EllipticCurve::Prime;
use Math::EllipticCurve::Prime::Point;
use Digest::SHA qw(sha256 sha256_hex hmac_sha512_hex);
use Encode::Base58::BigInt;
use Crypt::RIPEMD160;
lib/Business/Bitcoin/Request.pm view on Meta::CPAN
}
sub verify {
my $self = shift;
my $ua = new LWP::UserAgent;
my $req = HTTP::Request->new(GET => 'https://blockchain.info/q/addressbalance/' . $self->address . '?confirmations=' . $self->confirmations);
my $res = $ua->request($req);
my $paid = $res->content;
$self->error($paid), return if $paid =~ /\D/;
$self->error('');
$paid >= $self->amount ? $paid : 0;
view release on metacpan or search on metacpan
lib/Business/Bitpay.pm view on Meta::CPAN
use 5.008_001;
our $VERSION = '0.05';
eval $VERSION;
use HTTP::Request;
use URI;
use JSON qw(encode_json decode_json);
use LWP::UserAgent;
require Carp;
lib/Business/Bitpay.pm view on Meta::CPAN
$method = 'POST';
$data = encode_json $data;
push @fields, 'Content-Type' => 'application/json';
}
my $request = HTTP::Request->new(
$method => $uri, [
'User-Agent' => 'bitpay api',
'X-BitPay-Plugin-Info' => 'perl' . $VERSION,
@fields,
],
view release on metacpan or search on metacpan
lib/Business/CPI/Gateway/MercadoPago.pm view on Meta::CPAN
my $ua = $self->user_agent;
my $url = $self->_build_uri(
'/checkout/preferences?access_token=' . $self->access_token );
my $json = $self->_make_json($info);
my $req = HTTP::Request->new( 'POST', $url );
$req->content_type('application/json');
$req->content($json);
my $res = $ua->request($req);
die $res->status_line unless $res->is_success;
view release on metacpan or search on metacpan
lib/Business/CPI/Gateway/Moip.pm view on Meta::CPAN
moipstatus.php, on their github acc: https://github.com/moiplabs/moip-php/blob/master/lib/MoipStatus.php
use HTTP::Tiny;
use MIME::Base64;
use Data::Printer;
use HTTP::Request::Common qw(POST);
use Mojo::DOM;
my $url_login = "https://www.moip.com.br/j_acegi_security_check";
my $login = 'XXXXXXXXXXX';
my $pass = "XXXXXXX";
my $url_transactions = 'https://www.moip.com.br/rest/reports/last-transactions';
view release on metacpan or search on metacpan
lib/Business/CPI/Role/Exception.pm view on Meta::CPAN
Plain HashRef (i.e., not blessed) containing any extra data regarding the
exception that might be useful. For example:
{
raw_lwp_request => $req, # $res->isa('HTTP::Request')
raw_lwp_response => $res, # $res->isa('HTTP::Response')
http_status_code => 400,
error_code => 'XM-231',
message => 'That currency is currently not supported',
context => 'currency',
view release on metacpan or search on metacpan
lib/Business/CyberSource/Report/PaymentEvents.pm view on Meta::CPAN
use warnings;
use base 'Business::CyberSource::Report';
use Carp;
use HTTP::Request::Common qw();
use LWP::UserAgent qw();
=head1 NAME
lib/Business/CyberSource/Report/PaymentEvents.pm view on Meta::CPAN
my $url = ( $self->use_production_system() ? $PRODUCTION_URL : $TEST_URL )
. '/DownloadReport/' . $date . '/' . $self->get_merchant_id()
. '/PaymentEventsReport.' . $format;
# Send the query.
my $request = HTTP::Request::Common::GET( $url );
$request->authorization_basic(
$self->get_username(),
$self->get_password(),
);
view release on metacpan or search on metacpan
DirectConnect.pm view on Meta::CPAN
$self->{UA} = LWP::UserAgent->new(
exists $self->{timeout}
? (timeout => $self->{timeout})
: ()
);
$self->{REQ} = HTTP::Request->new(POST => $self->{uri}); # Create a request
bless ($self, $class);
}
sub get_data {
my $self = shift;
view release on metacpan or search on metacpan
lib/Business/FedEx/RateRequest.pm view on Meta::CPAN
foreach my $param (@rqd_lst) { unless ( $args{$param} ) { $self->{'err_msg'}="$param required"; return 0; } }
$self->{UA} = LWP::UserAgent->new(agent => 'perlworks');
if ( $args{'timeout'} ) { $self->{UA}->timeout($args{'timeout'}); }
#$self->{REQ} = HTTP::Request->new(POST=>$self->{uri}); # Create a request
bless ($self, $class);
}
# - - - - - - - - - - - - - - -
view release on metacpan or search on metacpan
lib/Business/Fixflo/Client.pm view on Meta::CPAN
}
sub _build_request {
my ( $self,$method,$path ) = @_;
my $req = HTTP::Request->new(
# passing through the absolute URL means we don't build it
$method => $path =~ /^http/
? $path : join( '/',$self->base_url . $self->api_path,$path ),
);
view release on metacpan or search on metacpan
lib/Business/GoCardless/Client.pm view on Meta::CPAN
$credentials =~ s/\s//g;
my $ua = LWP::UserAgent->new;
$ua->agent( $self->user_agent );
my $req = HTTP::Request->new(
POST => join( '/',$self->base_url . $self->api_path,'confirm' )
);
$req->header( 'Authorization' => "Basic $credentials" );
$req->header( 'Accept' => 'application/json' );
lib/Business/GoCardless/Client.pm view on Meta::CPAN
my ( $self,$method,$path,$params ) = @_;
my $ua = LWP::UserAgent->new;
$ua->agent( $self->user_agent );
my $req = HTTP::Request->new(
# passing through the absolute URL means we don't build it
$method => my $uri = $path =~ /^http/
? $path : join( '/',$self->base_url . $self->api_path . $path ),
);
view release on metacpan or search on metacpan
lib/Business/MaxMind/HTTPBase.pm view on Meta::CPAN
);
$query_string .= "&clientAPI=$API_VERSION";
if ( $self->{"timeout"} > 0 ) {
$self->{ua}->timeout( $self->{"timeout"} );
}
my $request = HTTP::Request->new( 'POST', $url );
$request->content_type('application/x-www-form-urlencoded');
$request->content($query_string);
if ( $self->{debug} ) {
print STDERR "sending HTTP::Request: " . $request->as_string;
}
my $response = $self->{ua}->request($request);
if ( $response->is_success ) {
my $content = $response->content;
my @kvpair = split( ';', $content );
view release on metacpan or search on metacpan
lib/Business/MollieAPI/Resource.pm view on Meta::CPAN
package Business::MollieAPI::Resource;
use Moo::Role;
use HTTP::Request;
use HTTP::Request::Common;
use JSON::XS;
has client => (
is => 'ro',
);
view release on metacpan or search on metacpan
sub verify{
my($self)=shift;
my($ua) = new LWP::UserAgent;
my($req) = new HTTP::Request 'POST',$REFERAL_URL;
$req->content_type('application/x-www-form-urlencoded');
$req->content($self->cgi->query_string);
my($res) = $ua->request($req);
if ($res->content eq 'AUTHORISED'){ $self->set_authorised; return 1 }