view release on metacpan or search on metacpan
xgboost/dmlc-core/src/io/s3_filesys.cc view on Meta::CPAN
CHECK(curl_easy_setopt(ecurl_, CURLOPT_HTTPHEADER, slist) == CURLE_OK);
CHECK(curl_easy_setopt(ecurl_, CURLOPT_URL, surl.str().c_str()) == CURLE_OK);
CHECK(curl_easy_setopt(ecurl_, CURLOPT_HEADER, 0L) == CURLE_OK);
CHECK(curl_easy_setopt(ecurl_, CURLOPT_WRITEFUNCTION, WriteSStreamCallback) == CURLE_OK);
CHECK(curl_easy_setopt(ecurl_, CURLOPT_WRITEDATA, &rdata) == CURLE_OK);
CHECK(curl_easy_setopt(ecurl_, CURLOPT_WRITEHEADER, WriteSStreamCallback) == CURLE_OK);
CHECK(curl_easy_setopt(ecurl_, CURLOPT_HEADERDATA, &rheader) == CURLE_OK);
CHECK(curl_easy_setopt(ecurl_, CURLOPT_NOSIGNAL, 1) == CURLE_OK);
if (method == "POST") {
CHECK(curl_easy_setopt(ecurl_, CURLOPT_POST, 0L) == CURLE_OK);
CHECK(curl_easy_setopt(ecurl_, CURLOPT_POSTFIELDSIZE, data.length()) == CURLE_OK);
view release on metacpan or search on metacpan
lib/AnyEvent/Curl/Multi.pm view on Meta::CPAN
# Initialize easy curl handle
my $id = refaddr $easy_h;
my ($response, $header);
$easy_h->setopt(CURLOPT_WRITEDATA, \$response);
$easy_h->setopt(CURLOPT_WRITEHEADER, \$header);
$easy_h->setopt(CURLOPT_PRIVATE, $id);
my $obj = {
easy_h => $easy_h,
req => $req,
view release on metacpan or search on metacpan
lib/AnyEvent/Net/Curl/Queued/Easy.pm view on Meta::CPAN
my $url = $self->initial_url->clone;
$url->fragment(undef);
$self->setopt(
Net::Curl::Easy::CURLOPT_URL, $url->as_string,
Net::Curl::Easy::CURLOPT_WRITEDATA, \$data,
Net::Curl::Easy::CURLOPT_WRITEHEADER, \$header,
);
# common parameters
if (defined($self->queue)) {
$self->setopt(
view release on metacpan or search on metacpan
constants.inc view on Meta::CPAN
hv_stores(the_hv, "CURLOPT_WRITEDATA", newSViv(CURLOPT_WRITEDATA));
#endif
#if LIBCURL_HAS(CURLOPT_WRITEFUNCTION)
hv_stores(the_hv, "CURLOPT_WRITEFUNCTION", newSViv(CURLOPT_WRITEFUNCTION));
#endif
#if LIBCURL_HAS(CURLOPT_WRITEHEADER)
hv_stores(the_hv, "CURLOPT_WRITEHEADER", newSViv(CURLOPT_WRITEHEADER));
#endif
#if LIBCURL_HAS(CURLOPT_WRITEINFO)
hv_stores(the_hv, "CURLOPT_WRITEINFO", newSViv(CURLOPT_WRITEINFO));
#endif
#if LIBCURL_HAS(CURLOPT_WS_OPTIONS)
view release on metacpan or search on metacpan
lib/App/Foca/Client.pm view on Meta::CPAN
my $curl = new WWW::Curl::Easy;
$curl->setopt(CURLOPT_VERBOSE, $self->{'debug'});
$curl->setopt(CURLOPT_HEADER, 0);
$curl->setopt(CURLOPT_URL, $url);
$curl->setopt(CURLOPT_WRITEDATA, $response_body_fh);
$curl->setopt(CURLOPT_WRITEHEADER, $response_headers_fh);
$curl->setopt(CURLOPT_TIMEOUT, $self->{'timeout'});
$curl->setopt(CURLOPT_CONNECTTIMEOUT, $self->{'connect_timeout'});
$curl->setopt(CURLOPT_HTTPHEADER, \@headers);
log_debug("$host - Requesting $url");
view release on metacpan or search on metacpan
lib/Authen/NZRealMe/ServiceProvider.pm view on Meta::CPAN
CURLOPT_POSTFIELDS
CURLOPT_SSLCERT
CURLOPT_SSLKEY
CURLOPT_SSL_VERIFYPEER
CURLOPT_WRITEDATA
CURLOPT_WRITEHEADER
CURLOPT_CAPATH
);
use constant DATETIME_BEFORE => -1;
use constant DATETIME_EQUAL => 0;
lib/Authen/NZRealMe/ServiceProvider.pm view on Meta::CPAN
my($resp_body, $resp_head);
open (my $body_fh, ">", \$resp_body);
$curl->setopt(CURLOPT_WRITEDATA, $body_fh);
open (my $head_fh, ">", \$resp_head);
$curl->setopt(CURLOPT_WRITEHEADER, $head_fh);
my $resp;
my $retcode = $curl->perform;
if($retcode == 0) {
$resp_head =~ s/\A(?:HTTP\/1\.1\s+200\s+Connection\s+established).*?\r?\n\r?\n//is; # Remove any '200' response from a proxy
view release on metacpan or search on metacpan
lib/Bio/Das/Lite.pm view on Meta::CPAN
my ($body_ref, $head_ref);
open my $fileb, q[>], \$body_ref or croak 'Error opening data handle'; ## no critic (RequireBriefOpen)
$curl->setopt( CURLOPT_WRITEDATA, $fileb );
open my $fileh, q[>], \$head_ref or croak 'Error opening header handle'; ## no critic (RequireBriefOpen)
$curl->setopt( CURLOPT_WRITEHEADER, $fileh );
# we set this so we have the ref later on
$curl->setopt( CURLOPT_PRIVATE, $i );
$curl->setopt( CURLOPT_TIMEOUT, $self->timeout || $TIMEOUT );
#$curl->setopt( CURLOPT_CONNECTTIMEOUT, $self->connection_timeout || 2 );
view release on metacpan or search on metacpan
HTTP/Any/Curl.pm view on Meta::CPAN
}
my $on_header = $$opt{on_header};
my $on_body = $$opt{on_body};
$easy->setopt(CURLOPT_WRITEHEADER, \ my $_headers);
my $body = "";
$easy->setopt(CURLOPT_FILE, \$body) unless $on_body;
$easy->setopt(CURLOPT_USERAGENT, $$opt{agent}) if $$opt{agent};
view release on metacpan or search on metacpan
HTTP/Curl.pm view on Meta::CPAN
}
my $on_header = $$opt{on_header};
my $on_body = $$opt{on_body};
$easy->setopt(CURLOPT_WRITEHEADER, \ my $_headers);
my $body = "";
$easy->setopt(CURLOPT_FILE, \$body) unless $on_body;
$easy->setopt(CURLOPT_USERAGENT, $$opt{agent}) if $$opt{agent};
view release on metacpan or search on metacpan
t/07-min-libcurl.t view on Meta::CPAN
CURLOPT_USE_SSL 7.17.0
CURLOPT_VERBOSE 7.1
CURLOPT_WILDCARDMATCH 7.21.0
CURLOPT_WRITEDATA 7.9.7
CURLOPT_WRITEFUNCTION 7.1
CURLOPT_WRITEHEADER 7.1
CURLOPT_WRITEINFO 7.1
CURLOPT_XFERINFODATA 7.32.0
CURLOPT_XFERINFOFUNCTION 7.32.0
CURLOPT_XOAUTH2_BEARER 7.33.0
CURLPAUSE_ALL 7.18.0
view release on metacpan or search on metacpan
lib/Net/Curl/Parallel.pm view on Meta::CPAN
# Configure headers
$curl->setopt(CURLOPT_HTTPHEADER, $headers)
if @$headers;
$curl->setopt(CURLOPT_WRITEDATA, $curl->{private}{response}->fh_body);
$curl->setopt(CURLOPT_WRITEHEADER, $curl->{private}{response}->fh_head);
# Configure redirect behavior
$curl->setopt(CURLOPT_FOLLOWLOCATION, $self->max_redirects > 0);
$curl->setopt(CURLOPT_MAXREDIRS, $self->max_redirects);
$curl->setopt(CURLOPT_AUTOREFERER, 1);
view release on metacpan or search on metacpan
examples/02-multi-simple.pl view on Meta::CPAN
require Net::Curl::Easy;
my $easy = Net::Curl::Easy->new( { uri => $uri, body => '' } );
$easy->setopt( Net::Curl::Easy::CURLOPT_VERBOSE(), 1 );
$easy->setopt( Net::Curl::Easy::CURLOPT_URL(), $uri );
$easy->setopt( Net::Curl::Easy::CURLOPT_WRITEHEADER(),
\$easy->{headers} );
$easy->setopt( Net::Curl::Easy::CURLOPT_FILE(),
\$easy->{body} );
$easy->setopt( Net::Curl::Easy::CURLOPT_SHARE(), $share );
view release on metacpan or search on metacpan
lib/Net/UpYun.pm view on Meta::CPAN
# write buffer
my ($res_body, $res_head) = ('','');
open (my $fh_body, ">", \$res_body);
$curl->setopt(CURLOPT_WRITEDATA,$fh_body);
open (my $fh_head, ">", \$res_head);
$curl->setopt(CURLOPT_WRITEHEADER,$fh_head);
my $retcode = $curl->perform();
if ($retcode == 0) {
# say $res_head ."\n".$res_body;
my $res = HTTP::Response->parse($res_head . "\r" . $res_body);
$res->content($res_body);
view release on metacpan or search on metacpan
lib/POE/Component/Curl/Multi.pm view on Meta::CPAN
$easy->setopt(CURLOPT_MAXREDIRS, $self->{followredirects} );
}
my $id = refaddr $easy;
my ($response, $header);
$easy->setopt(CURLOPT_WRITEDATA, \$response);
$easy->setopt(CURLOPT_WRITEHEADER, \$header);
#$easy->setopt(CURLOPT_PRIVATE, $id);
$args->{id} = $id;
$args->{easy} = $easy;
$args->{body} = \$response;
$args->{header} = \$header;
view release on metacpan or search on metacpan
redland/raptor/src/raptor_www_curl.c view on Meta::CPAN
/* send all headers to this function */
curl_easy_setopt(www->curl_handle, CURLOPT_HEADERFUNCTION,
raptor_www_curl_header_callback);
/* ... using this data pointer */
curl_easy_setopt(www->curl_handle, CURLOPT_WRITEHEADER, www);
/* Make it follow Location: headers */
curl_easy_setopt(www->curl_handle, CURLOPT_FOLLOWLOCATION, 1);
#if RAPTOR_DEBUG > 2
view release on metacpan or search on metacpan
lib/Syntax/Highlight/Engine/Kate/PHP_PHP.pm view on Meta::CPAN
'CURLOPT_USERPWD',
'CURLOPT_VERBOSE',
'CURLOPT_VERBOSE',
'CURLOPT_WRITEFUNCTION',
'CURLOPT_WRITEFUNCTION',
'CURLOPT_WRITEHEADER',
'CURLOPT_WRITEHEADER',
'CURLPROXY_HTTP',
'CURLPROXY_HTTP',
'CURLPROXY_SOCKS5',
'CURLPROXY_SOCKS5',
'CURLVERSION_NOW',
view release on metacpan or search on metacpan
lib/Syntax/Highlight/Universal/hrc/inet/php-gen.hrc view on Meta::CPAN
<word name="CURLOPT_URL"/>
<word name="CURLOPT_USERAGENT"/>
<word name="CURLOPT_USERPWD"/>
<word name="CURLOPT_VERBOSE"/>
<word name="CURLOPT_WRITEFUNCTION"/>
<word name="CURLOPT_WRITEHEADER"/>
</keywords>
<keywords region="dKeyWord2" ignorecase="yes" worddiv="[^\w_]">
<word name="curl_close"/>
<word name="curl_errno"/>
view release on metacpan or search on metacpan
lib/Syntax/Kamelon/XML/php.xml view on Meta::CPAN
<item>CURLOPT_URL</item>
<item>CURLOPT_USERAGENT</item>
<item>CURLOPT_USERPWD</item>
<item>CURLOPT_VERBOSE</item>
<item>CURLOPT_WRITEFUNCTION</item>
<item>CURLOPT_WRITEHEADER</item>
<item>CURLPROXY_HTTP</item>
<item>CURLPROXY_SOCKS5</item>
<item>CURLVERSION_NOW</item>
<item>CURL_HTTP_VERSION_1_0</item>
<item>CURL_HTTP_VERSION_1_1</item>
view release on metacpan or search on metacpan
lib/WWW/Curl/Simple/Request.pm view on Meta::CPAN
open (my $fileb, ">", \$body_ref);
$curl->setopt(CURLOPT_WRITEDATA,$fileb);
my $h = $self->head;
open (my $fileh, ">", \$head_ref);
$curl->setopt(CURLOPT_WRITEHEADER,$fileh);
my $max_redirects = $self->simple_ua->max_redirects;
# follow redirects for up to 5 hops
if ($WWW::Curl::Easy::CURLPROTO_HTTP) {
lib/WWW/Curl/Simple/Request.pm view on Meta::CPAN
}
sub response {
my ($self) = @_;
# If we handled redirects, we'll have multiple headers from CURLOPT_WRITEHEADER,
# so we strip off all but the last one before parsing it
${ $self->head } =~ s!^HTTP.*\r?\n\r?\nHTTP!HTTP!s;
my $res = HTTP::Response->parse(${$self->head} . "\r" . ${$self->body});
$res->request($self->request);
$res->content(${$self->body});
view release on metacpan or search on metacpan
lib/WWW/Curl/UserAgent/Request.pm view on Meta::CPAN
$easy->setopt( CURLOPT_CONNECTTIMEOUT_MS, $self->connect_timeout );
$easy->setopt( CURLOPT_HEADER, 0 );
$easy->setopt( CURLOPT_NOPROGRESS, 1 );
$easy->setopt( CURLOPT_TIMEOUT_MS, $self->timeout );
$easy->setopt( CURLOPT_URL, $request->uri );
$easy->setopt( CURLOPT_WRITEHEADER, $self->header_ref );
$easy->setopt( CURLOPT_WRITEDATA, $self->content_ref );
$easy->setopt( CURLOPT_FORBID_REUSE, !$self->keep_alive );
$easy->setopt( CURLOPT_FOLLOWLOCATION, $self->followlocation );
$easy->setopt( CURLOPT_MAXREDIRS, $self->max_redirects );
view release on metacpan or search on metacpan
case CURLOPT_INFILE:
return CALLBACK_READ;
break;
case CURLOPT_HEADERFUNCTION:
case CURLOPT_WRITEHEADER:
return CALLBACK_HEADER;
break;
case CURLOPT_PROGRESSFUNCTION:
case CURLOPT_PROGRESSDATA:
/* configure curl to always callback to the XS interface layer */
curl_easy_setopt(clone->curl, CURLOPT_WRITEFUNCTION, write_callback_func);
curl_easy_setopt(clone->curl, CURLOPT_READFUNCTION, read_callback_func);
if (self->callback[callback_index(CURLOPT_HEADERFUNCTION)] || self->callback_ctx[callback_index(CURLOPT_WRITEHEADER)]) {
curl_easy_setopt(clone->curl, CURLOPT_HEADERFUNCTION, header_callback_func);
curl_easy_setopt(clone->curl, CURLOPT_WRITEHEADER, clone);
}
if (self->callback[callback_index(CURLOPT_PROGRESSFUNCTION)] || self->callback_ctx[callback_index(CURLOPT_PROGRESSDATA)]) {
curl_easy_setopt(clone->curl, CURLOPT_PROGRESSFUNCTION, progress_callback_func);
curl_easy_setopt(clone->curl, CURLOPT_PROGRESSDATA, clone);
case CURLOPT_FILE:
case CURLOPT_INFILE:
perl_curl_easy_register_callback(self,
&(self->callback_ctx[callback_index(option)]), value);
break;
case CURLOPT_WRITEHEADER:
curl_easy_setopt(self->curl, CURLOPT_HEADERFUNCTION, SvOK(value) ? header_callback_func : NULL);
curl_easy_setopt(self->curl, option, SvOK(value) ? self : NULL);
perl_curl_easy_register_callback(self,&(self->callback_ctx[callback_index(option)]),value);
break;
case CURLOPT_PROGRESSDATA:
case CURLOPT_READFUNCTION:
perl_curl_easy_register_callback(self,&(self->callback[callback_index(option)]), value);
break;
case CURLOPT_HEADERFUNCTION:
curl_easy_setopt(self->curl, option, SvOK(value) ? header_callback_func : NULL);
curl_easy_setopt(self->curl, CURLOPT_WRITEHEADER, SvOK(value) ? self : NULL);
perl_curl_easy_register_callback(self,&(self->callback[callback_index(option)]), value);
break;
case CURLOPT_PROGRESSFUNCTION:
curl_easy_setopt(self->curl, option, SvOK(value) ? progress_callback_func : NULL);
curl_easy_setopt(self->curl, CURLOPT_PROGRESSDATA, SvOK(value) ? self : NULL);
view release on metacpan or search on metacpan
lib/XML/RSS/Tools.pm view on Meta::CPAN
"$user_agent WWW::Curl::Easy/$WWW::Curl::Easy::VERSION ($^O)" );
$curl->setopt( WWW::Curl::Easy->CURLOPT_HEADER, 0 );
$curl->setopt( WWW::Curl::Easy->CURLOPT_NOPROGRESS, 1 );
$curl->setopt( WWW::Curl::Easy->CURLOPT_URL, $uri );
$curl->setopt( WWW::Curl::Easy->CURLOPT_WRITEDATA, $file_b );
$curl->setopt( WWW::Curl::Easy->CURLOPT_WRITEHEADER, $file_h );
$response = $curl->perform;
close $file_b;
close $file_h;
view release on metacpan or search on metacpan
my $easy = Net::Curl::Easy->new();
$easy->setopt(CURLOPT_URL, $url);
$easy->setopt(CURLOPT_FOLLOWLOCATION, 1);
$easy->setopt(CURLOPT_WRITEHEADER, \ my $headers);
$easy->setopt(CURLOPT_FILE, \ my $body);
my $finish = sub {
my ($easy, $result) = @_;