aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
Diffstat (limited to 'perl')
-rw-r--r--perl/Curl_easy/Changes92
-rw-r--r--perl/Curl_easy/MANIFEST16
-rw-r--r--perl/Curl_easy/Makefile.PL87
-rw-r--r--perl/Curl_easy/Makefile.am3
-rw-r--r--perl/Curl_easy/README40
-rw-r--r--perl/Curl_easy/curlopt-constants.c125
-rw-r--r--perl/Curl_easy/easy.pm288
-rw-r--r--perl/Curl_easy/easy.xs672
8 files changed, 0 insertions, 1323 deletions
diff --git a/perl/Curl_easy/Changes b/perl/Curl_easy/Changes
deleted file mode 100644
index af3d9cb40..000000000
--- a/perl/Curl_easy/Changes
+++ /dev/null
@@ -1,92 +0,0 @@
-Revision history for Perl extension Curl::easy.
-Check out the file README for more info.
-
-1.1.8 Thu Sep 20 2001: - Cris Bailiff <c.bailiff@devsecure.com>
- - Re-generate CURLOPT_ constants from curl.h and enhance makefile
- to allow this to be repeated in future or for older versions of
- libcurl. Constants up-to-date for libcurl-7.9(pre)
- - Split tests into t/*.t to simplify each case
- - Add test cases for new SSL switches. This needs ca-bundle.crt
- (from mod_ssl) for verifying test cases.
-
-1.1.7 Thu Sep 13 2001: - Cris Bailiff <c.bailiff@devsecure.com>
- - Documentation Update only - Explicitly state that Curl_easy
- is released under the MIT-X/MPL dual licence. No code changes.
-
-1.1.6 Mon Sep 10 2001: - Cris Bailiff <c.bailiff@devsecure.com>
- - Fix segfault due to changes in header callback behaviour
- since curl-7.8.1-pre3
-
-1.1.5 Fri Apr 20 2001: - Cris Bailiff <c.bailiff@devsecure.com>
- - Add latest CURLOPT_ and CURLINFO_ constants to the constants list
-
-1.1.4 Fri Apr 20 2001: - Cris Bailiff <c.bailiff@devsecure.com>
- - Fix case where curl_slists such as 'HTTPHEADERS' need to
- be re-set over persistant requests
-
-1.1.3 Wed Apr 18 2001: - Cris Bailiff <c.bailiff@devsecure.com>
- - Change/shorten module function names: Curl::easy::curl_easy_setopt
- becomes Curl::easy::setopt etc. This requires minor changes to existing
- scripts....
- - Added callback function support to pass arbitrary SV * (including
- FILE globs) from perl through libcurl to the perl callback.
- - Make callbacks still work with existing scripts which use STDIO
- - Initial support for libcurl 7.7.2 HEADERFUNCTION callback feature
- - Minor API cleanups/changes in the callback function signatures
- - Added Curl::easy::version function to return curl version string
- - Callback documentation added in easy.pm
- - More tests in test.pl
-
-1.1.2 Mon Apr 16 2001: - Georg Horn <horn@koblenz-net.de>
- - Added support for callback functions. This is for the curl_easy_setopt()
- options WRITEFUNCTION, READFUNCTION, PROGRESSFUNCTION and PASSWDFUNCTION.
- Still missing, but not really neccessary: Passing a FILE * pointer,
- that is passed in from libcurl, on to the perl callback function.
- - Various cleanups, fixes and enhancements to easy.xs and test.pl.
-
-1.1.1 Thu Apr 12 2001:
- - Made more options of curl_easy_setopt() work: Options that require
- a list of curl_slist structs to be passed in, like CURLOPT_HTTPHEADER,
- are now working by passing a perl array containing the list elements.
- As always, look at the test script test.pl for an example.
-
-1.1.0 Wed Apr 11 2001:
- - tested against libcurl 7.7
- - Added new function Curl::easy::internal_setopt(). By calling
- Curl::easy::internal_setopt(Curl::easy::USE_INTERNAL_VARS, 1);
- the headers and content of the fetched page are no longer stored
- into files (or written to stdout) but are stored into internal
- Variables $Curl::easy::headers and $Curl::easy::content.
-
-1.0.2 Tue Oct 10 2000:
- - runs with libcurl 7.4
- - modified curl_easy_getinfo(). It now calls curl_getinfo() that has
- been added to libcurl in version 7.4.
-
-1.0.1 Tue Oct 10 2000:
- - Added some missing features of curl_easy_setopt():
- - CURLOPT_ERRORBUFFER now works by passing the name of a perl
- variable that shall be crated and the errormessage (if any)
- be stored to.
- - Passing filehandles (Options FILE, INFILE and WRITEHEADER) now works.
- Have a look at test.pl to see how it works...
-
- - Added a new function, curl_easy_getinfo(), that for now always
- returns the number of bytes that where written to disk during the last
- download. If the curl_easy_getinfo() function is included in libcurl,
- (as promised by Daniel ;-)) i will turn this into just a call to this
- function.
-
-1.0 Thu Oct 5 2000:
- - first released version
- - runs with libcurl 7.3
- - some features of curl_easy_setopt() are still missing:
- - passing function pointers doesn't work (options WRITEFUNCTION,
- READFUNCTION and PROGRESSFUNCTION).
- - passing FILE * pointers doesn't work (options FILE, INFILE and
- WRITEHEADER).
- - passing linked lists doesn't work (options HTTPHEADER and
- HTTPPOST).
- - setting the buffer where to store error messages in doesn't work
- (option ERRORBUFFER).
-
diff --git a/perl/Curl_easy/MANIFEST b/perl/Curl_easy/MANIFEST
deleted file mode 100644
index 82f8c20ce..000000000
--- a/perl/Curl_easy/MANIFEST
+++ /dev/null
@@ -1,16 +0,0 @@
-Changes
-MANIFEST
-Makefile.PL
-README
-easy.pm
-easy.xs
-curlopt-constants.c
-t/00constants.t
-t/01basic.t
-t/02header-callback.t
-t/03body-callback.t
-t/04abort-test.t
-t/05progress.t
-t/06http-post.t
-t/07ftp-upload.t
-t/08ssl.t
diff --git a/perl/Curl_easy/Makefile.PL b/perl/Curl_easy/Makefile.PL
deleted file mode 100644
index 551808fa9..000000000
--- a/perl/Curl_easy/Makefile.PL
+++ /dev/null
@@ -1,87 +0,0 @@
-# Makefile.PL for Perl extension Curl::easy.
-# Check out the file README for more info.
-
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- 'NAME' => 'Curl::easy',
- 'VERSION_FROM' => 'easy.pm', # finds $VERSION
- 'LIBS' => ['-lcurl '], # e.g., '-lm'
- 'DEFINE' => '', # e.g., '-DHAVE_SOMETHING'
- 'INC' => '', # e.g., '-I/usr/include/other'
- 'clean' => {FILES => "head.out body.out"}
-);
-
-#
-# This utility helper generates the constants function from curl.h
-#
-# It is normally only used by the maintainer, but if you're curl is older
-# or missing some constants, you can delete curlopt-constants.c and re-run 'perl Makefile.PL'
-#
-
-if (!open(CONSTANTS,"<curlopt-constants.c")) {
- print "Rebuilding curlopt-constants.c for your libcurl version\n";
- close(CONSTANTS);
-
-#
-# You may need to specify where to find curl.h on your platform
-# These are guesses only
-#
-my $curl_h;
-HEADER: foreach my $try (qw(
-
- curl.h
- ../../include/curl.h
- /usr/include/curl/curl.h
- /usr/local/include/curl/curl.h
- C:\\INCLUDE\\CURL\\CURL.H
-
- ))
-{
- if (-e $try) {
- $curl_h=$try;
- last HEADER;
- }
-}
-
-if (!defined($curl_h)) {
- die "Could not rebuild curlopt-constants.c - can't find curl.h\n";
-}
-
-print "Found curl.h in $curl_h\n";
-open (CURL_H,"<".$curl_h) or die "Can't open curl.h\n";
-my %types;
-my %codes;
-while(<CURL_H>) {
- if ($_ =~ m/CINIT\(/ and $_ !~ m/#/) {
- my ($option,$type,$code)=m/.*CINIT\((\w*)\s*,\s*(\w+)\s*,\s*(\d+).*/;
- $types{$option}=$type;
- $codes{$option}=$code;
- }
-}
-close(CURL_H);
-
-# some things are ifdefed out...
-foreach my $ifdef0 (qw(FLAGS PROGRESSMODE))
-{
- delete $types{$ifdef0}; delete $codes{$ifdef0};
-}
-
-open(CURL_XS,">curlopt-constants.c") or die "Can't write curlopt-constants.c\n";
-foreach my $next_initial ('A'..'Z') {
- print CURL_XS " case '$next_initial':\n";
- my $count=0;
- foreach my $option (sort keys %types) {
- my $initial=substr($option,0,1);
- if ($next_initial eq $initial) {
- print CURL_XS " if (strEQ(name, \"$option\")) return CURLOPT_$option;\n";
- $count++;
- }
- }
- if ($count) {
- print CURL_XS " break;\n";
- }
-}
-close(CURL_XS);
-}
diff --git a/perl/Curl_easy/Makefile.am b/perl/Curl_easy/Makefile.am
deleted file mode 100644
index 219bfa5e3..000000000
--- a/perl/Curl_easy/Makefile.am
+++ /dev/null
@@ -1,3 +0,0 @@
-SUBDIRS = t
-
-EXTRA_DIST = Changes easy.pm easy.xs curlopt-constants.c Makefile.PL MANIFEST README
diff --git a/perl/Curl_easy/README b/perl/Curl_easy/README
deleted file mode 100644
index 88a741923..000000000
--- a/perl/Curl_easy/README
+++ /dev/null
@@ -1,40 +0,0 @@
-README for Perl extension Curl::easy.
-
-The perl module Curl::easy provides an interface to the cURL library "libcurl".
-See http://curl.haxx.se/ for more information on cURL and libcurl.
-
-This module requires libcurl and the corresponding headerfiles to be
-installed. You then may install this module via the usual way:
-
- perl Makefile.PL
- make
- make test
- make install
-
-If you have an older version of libcurl, you can remove 'curlopt-constants.c'
-and have it rebuilt by 'perl Makefile.PL'.
-
-You can also do this for a later version of libcurl, except currently
-you will have to update the module EXPORTS list manually.
-
-The module provides the same functionality as libcurl provides to C programs,
-please refer to the documentation of libcurl. Some examples may be found in
-t/*.t.
-
-This software is distributed AS IS, WITHOUT WARRANTY OF ANY KIND, either
-express or implied. Send praise, patches, money, beer and pizza to the author.
-Send complaints to /dev/null. ;-)
-
-The original author of this software is Georg Horn <horn@koblenz-net.de>
-Parts of the callback support, tests and documentation have been added by
-Cris Bailiff <c.bailiff@devsecure.com> and Forrest Cahoon <forrest.cahoon@merrillcorp.com>
-
-The current maintainer is Cris Bailiff <c.bailiff@devsecure.com>
-
-The latest version can be downloaded from http://curl.haxx.se/libcurl/perl/
-
-Copyright (C) 2000, Daniel Stenberg, , et al.
-You may opt to use, copy, modify, merge, publish, distribute and/or sell
-copies of the Software, and permit persons to whom the Software is
-furnished to do so, under the terms of the MPL or the MIT/X-derivate
-licenses. You may pick one of these licenses.
diff --git a/perl/Curl_easy/curlopt-constants.c b/perl/Curl_easy/curlopt-constants.c
deleted file mode 100644
index 4a317deab..000000000
--- a/perl/Curl_easy/curlopt-constants.c
+++ /dev/null
@@ -1,125 +0,0 @@
- case 'A':
- if (strEQ(name, "AUTOREFERER")) return CURLOPT_AUTOREFERER;
- break;
- case 'B':
- case 'C':
- if (strEQ(name, "CAINFO")) return CURLOPT_CAINFO;
- if (strEQ(name, "CLOSEFUNCTION")) return CURLOPT_CLOSEFUNCTION;
- if (strEQ(name, "CLOSEPOLICY")) return CURLOPT_CLOSEPOLICY;
- if (strEQ(name, "CONNECTTIMEOUT")) return CURLOPT_CONNECTTIMEOUT;
- if (strEQ(name, "COOKIE")) return CURLOPT_COOKIE;
- if (strEQ(name, "COOKIEFILE")) return CURLOPT_COOKIEFILE;
- if (strEQ(name, "COOKIEJAR")) return CURLOPT_COOKIEJAR;
- if (strEQ(name, "CRLF")) return CURLOPT_CRLF;
- if (strEQ(name, "CUSTOMREQUEST")) return CURLOPT_CUSTOMREQUEST;
- break;
- case 'D':
- case 'E':
- if (strEQ(name, "EGDSOCKET")) return CURLOPT_EGDSOCKET;
- if (strEQ(name, "ERRORBUFFER")) return CURLOPT_ERRORBUFFER;
- break;
- case 'F':
- if (strEQ(name, "FAILONERROR")) return CURLOPT_FAILONERROR;
- if (strEQ(name, "FILE")) return CURLOPT_FILE;
- if (strEQ(name, "FILETIME")) return CURLOPT_FILETIME;
- if (strEQ(name, "FOLLOWLOCATION")) return CURLOPT_FOLLOWLOCATION;
- if (strEQ(name, "FORBID_REUSE")) return CURLOPT_FORBID_REUSE;
- if (strEQ(name, "FRESH_CONNECT")) return CURLOPT_FRESH_CONNECT;
- if (strEQ(name, "FTPAPPEND")) return CURLOPT_FTPAPPEND;
- if (strEQ(name, "FTPASCII")) return CURLOPT_FTPASCII;
- if (strEQ(name, "FTPLISTONLY")) return CURLOPT_FTPLISTONLY;
- if (strEQ(name, "FTPPORT")) return CURLOPT_FTPPORT;
- break;
- case 'G':
- case 'H':
- if (strEQ(name, "HEADER")) return CURLOPT_HEADER;
- if (strEQ(name, "HEADERFUNCTION")) return CURLOPT_HEADERFUNCTION;
- if (strEQ(name, "HTTPGET")) return CURLOPT_HTTPGET;
- if (strEQ(name, "HTTPHEADER")) return CURLOPT_HTTPHEADER;
- if (strEQ(name, "HTTPPOST")) return CURLOPT_HTTPPOST;
- if (strEQ(name, "HTTPPROXYTUNNEL")) return CURLOPT_HTTPPROXYTUNNEL;
- if (strEQ(name, "HTTPREQUEST")) return CURLOPT_HTTPREQUEST;
- break;
- case 'I':
- if (strEQ(name, "INFILE")) return CURLOPT_INFILE;
- if (strEQ(name, "INFILESIZE")) return CURLOPT_INFILESIZE;
- if (strEQ(name, "INTERFACE")) return CURLOPT_INTERFACE;
- break;
- case 'J':
- case 'K':
- if (strEQ(name, "KRB4LEVEL")) return CURLOPT_KRB4LEVEL;
- break;
- case 'L':
- if (strEQ(name, "LOW_SPEED_LIMIT")) return CURLOPT_LOW_SPEED_LIMIT;
- if (strEQ(name, "LOW_SPEED_TIME")) return CURLOPT_LOW_SPEED_TIME;
- break;
- case 'M':
- if (strEQ(name, "MAXCONNECTS")) return CURLOPT_MAXCONNECTS;
- if (strEQ(name, "MAXREDIRS")) return CURLOPT_MAXREDIRS;
- if (strEQ(name, "MUTE")) return CURLOPT_MUTE;
- break;
- case 'N':
- if (strEQ(name, "NETRC")) return CURLOPT_NETRC;
- if (strEQ(name, "NOBODY")) return CURLOPT_NOBODY;
- if (strEQ(name, "NOPROGRESS")) return CURLOPT_NOPROGRESS;
- if (strEQ(name, "NOTHING")) return CURLOPT_NOTHING;
- break;
- case 'O':
- case 'P':
- if (strEQ(name, "PASSWDDATA")) return CURLOPT_PASSWDDATA;
- if (strEQ(name, "PASSWDFUNCTION")) return CURLOPT_PASSWDFUNCTION;
- if (strEQ(name, "PORT")) return CURLOPT_PORT;
- if (strEQ(name, "POST")) return CURLOPT_POST;
- if (strEQ(name, "POSTFIELDS")) return CURLOPT_POSTFIELDS;
- if (strEQ(name, "POSTFIELDSIZE")) return CURLOPT_POSTFIELDSIZE;
- if (strEQ(name, "POSTQUOTE")) return CURLOPT_POSTQUOTE;
- if (strEQ(name, "PROGRESSDATA")) return CURLOPT_PROGRESSDATA;
- if (strEQ(name, "PROGRESSFUNCTION")) return CURLOPT_PROGRESSFUNCTION;
- if (strEQ(name, "PROXY")) return CURLOPT_PROXY;
- if (strEQ(name, "PROXYPORT")) return CURLOPT_PROXYPORT;
- if (strEQ(name, "PROXYUSERPWD")) return CURLOPT_PROXYUSERPWD;
- if (strEQ(name, "PUT")) return CURLOPT_PUT;
- break;
- case 'Q':
- if (strEQ(name, "QUOTE")) return CURLOPT_QUOTE;
- break;
- case 'R':
- if (strEQ(name, "RANDOM_FILE")) return CURLOPT_RANDOM_FILE;
- if (strEQ(name, "RANGE")) return CURLOPT_RANGE;
- if (strEQ(name, "READFUNCTION")) return CURLOPT_READFUNCTION;
- if (strEQ(name, "REFERER")) return CURLOPT_REFERER;
- if (strEQ(name, "RESUME_FROM")) return CURLOPT_RESUME_FROM;
- break;
- case 'S':
- if (strEQ(name, "SSLCERT")) return CURLOPT_SSLCERT;
- if (strEQ(name, "SSLCERTPASSWD")) return CURLOPT_SSLCERTPASSWD;
- if (strEQ(name, "SSLVERSION")) return CURLOPT_SSLVERSION;
- if (strEQ(name, "SSL_CIPHER_LIST")) return CURLOPT_SSL_CIPHER_LIST;
- if (strEQ(name, "SSL_VERIFYHOST")) return CURLOPT_SSL_VERIFYHOST;
- if (strEQ(name, "SSL_VERIFYPEER")) return CURLOPT_SSL_VERIFYPEER;
- if (strEQ(name, "STDERR")) return CURLOPT_STDERR;
- break;
- case 'T':
- if (strEQ(name, "TELNETOPTIONS")) return CURLOPT_TELNETOPTIONS;
- if (strEQ(name, "TIMECONDITION")) return CURLOPT_TIMECONDITION;
- if (strEQ(name, "TIMEOUT")) return CURLOPT_TIMEOUT;
- if (strEQ(name, "TIMEVALUE")) return CURLOPT_TIMEVALUE;
- if (strEQ(name, "TRANSFERTEXT")) return CURLOPT_TRANSFERTEXT;
- break;
- case 'U':
- if (strEQ(name, "UPLOAD")) return CURLOPT_UPLOAD;
- if (strEQ(name, "URL")) return CURLOPT_URL;
- if (strEQ(name, "USERAGENT")) return CURLOPT_USERAGENT;
- if (strEQ(name, "USERPWD")) return CURLOPT_USERPWD;
- break;
- case 'V':
- if (strEQ(name, "VERBOSE")) return CURLOPT_VERBOSE;
- break;
- case 'W':
- if (strEQ(name, "WRITEFUNCTION")) return CURLOPT_WRITEFUNCTION;
- if (strEQ(name, "WRITEHEADER")) return CURLOPT_WRITEHEADER;
- if (strEQ(name, "WRITEINFO")) return CURLOPT_WRITEINFO;
- break;
- case 'X':
- case 'Y':
- case 'Z':
diff --git a/perl/Curl_easy/easy.pm b/perl/Curl_easy/easy.pm
deleted file mode 100644
index 2324ace1f..000000000
--- a/perl/Curl_easy/easy.pm
+++ /dev/null
@@ -1,288 +0,0 @@
-# Perl interface for libcurl. Check out the file README for more info.
-
-package Curl::easy;
-
-use strict;
-use Carp;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-
-require Exporter;
-require DynaLoader;
-require AutoLoader;
-
-@ISA = qw(Exporter DynaLoader);
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
-@EXPORT = qw(
-CURLOPT_AUTOREFERER
-CURLOPT_CAINFO
-CURLOPT_CLOSEFUNCTION
-CURLOPT_CLOSEPOLICY
-CURLOPT_CONNECTTIMEOUT
-CURLOPT_COOKIE
-CURLOPT_COOKIEFILE
-CURLOPT_COOKIEJAR
-CURLOPT_CRLF
-CURLOPT_CUSTOMREQUEST
-CURLOPT_EGDSOCKET
-CURLOPT_ERRORBUFFER
-CURLOPT_FAILONERROR
-CURLOPT_FILE
-CURLOPT_FILETIME
-CURLOPT_FOLLOWLOCATION
-CURLOPT_FORBID_REUSE
-CURLOPT_FRESH_CONNECT
-CURLOPT_FTPAPPEND
-CURLOPT_FTPASCII
-CURLOPT_FTPLISTONLY
-CURLOPT_FTPPORT
-CURLOPT_HEADER
-CURLOPT_HEADERFUNCTION
-CURLOPT_HTTPGET
-CURLOPT_HTTPHEADER
-CURLOPT_HTTPPOST
-CURLOPT_HTTPPROXYTUNNEL
-CURLOPT_HTTPREQUEST
-CURLOPT_INFILE
-CURLOPT_INFILESIZE
-CURLOPT_INTERFACE
-CURLOPT_KRB4LEVEL
-CURLOPT_LOW_SPEED_LIMIT
-CURLOPT_LOW_SPEED_TIME
-CURLOPT_MAXCONNECTS
-CURLOPT_MAXREDIRS
-CURLOPT_MUTE
-CURLOPT_NETRC
-CURLOPT_NOBODY
-CURLOPT_NOPROGRESS
-CURLOPT_NOTHING
-CURLOPT_PASSWDDATA
-CURLOPT_PASSWDFUNCTION
-CURLOPT_PORT
-CURLOPT_POST
-CURLOPT_POSTFIELDS
-CURLOPT_POSTFIELDSIZE
-CURLOPT_POSTQUOTE
-CURLOPT_PROGRESSDATA
-CURLOPT_PROGRESSFUNCTION
-CURLOPT_PROXY
-CURLOPT_PROXYPORT
-CURLOPT_PROXYUSERPWD
-CURLOPT_PUT
-CURLOPT_QUOTE
-CURLOPT_RANDOM_FILE
-CURLOPT_RANGE
-CURLOPT_READFUNCTION
-CURLOPT_REFERER
-CURLOPT_RESUME_FROM
-CURLOPT_SSLCERT
-CURLOPT_SSLCERTPASSWD
-CURLOPT_SSLVERSION
-CURLOPT_SSL_CIPHER_LIST
-CURLOPT_SSL_VERIFYHOST
-CURLOPT_SSL_VERIFYPEER
-CURLOPT_STDERR
-CURLOPT_TELNETOPTIONS
-CURLOPT_TIMECONDITION
-CURLOPT_TIMEOUT
-CURLOPT_TIMEVALUE
-CURLOPT_TRANSFERTEXT
-CURLOPT_UPLOAD
-CURLOPT_URL
-CURLOPT_USERAGENT
-CURLOPT_USERPWD
-CURLOPT_VERBOSE
-CURLOPT_WRITEFUNCTION
-CURLOPT_WRITEHEADER
-CURLOPT_WRITEINFO
-
-CURLINFO_EFFECTIVE_URL
-CURLINFO_HTTP_CODE
-CURLINFO_TOTAL_TIME
-CURLINFO_NAMELOOKUP_TIME
-CURLINFO_CONNECT_TIME
-CURLINFO_PRETRANSFER_TIME
-CURLINFO_SIZE_UPLOAD
-CURLINFO_SIZE_DOWNLOAD
-CURLINFO_SPEED_DOWNLOAD
-CURLINFO_SPEED_UPLOAD
-CURLINFO_HEADER_SIZE
-CURLINFO_REQUEST_SIZE
-CURLINFO_SSL_VERIFYRESULT
-CURLINFO_FILETIME
-CURLINFO_CONTENT_LENGTH_DOWNLOAD
-CURLINFO_CONTENT_LENGTH_UPLOAD
-
-USE_INTERNAL_VARS
-);
-
-$VERSION = '1.1.8';
-
-$Curl::easy::headers = "";
-$Curl::easy::content = "";
-
-sub AUTOLOAD {
- # This AUTOLOAD is used to 'autoload' constants from the constant()
- # XS function.
-
- (my $constname = $AUTOLOAD) =~ s/.*:://;
- return constant($constname, 0);
-}
-
-bootstrap Curl::easy $VERSION;
-
-# Preloaded methods go here.
-
-# Autoload methods go after =cut, and are processed by the autosplit program.
-
-1;
-__END__
-# Below is the stub of documentation for your module. You better edit it!
-
-=pod
-
-=head1 NAME
-
-Curl::easy - Perl extension for libcurl
-
-=head1 SYNOPSIS
-
- use Curl::easy;
-
- $curl = Curl::easy::init();
- $CURLcode = Curl::easy::setopt($curl, CURLoption, Value);
- $CURLcode = Curl::easy::perform($curl);
- Curl::easy::cleanup($curl);
-
- Read curl_easy_setopt for details of most CURLoption values
-
-=head1 DESCRIPTION
-
-
-
-B<Curl::easy> provides an interface to the libcurl C library. See
-http://curl.haxx.se/ for more information on cURL and libcurl.
-
-=head2 FILES and CALLBACKS
-
-Curl::easy supports the various options of curl_easy_setopt which require either a FILE * or
-a callback function.
-
-The perl callback functions are handled through a C wrapper which takes care of converting
-from C to perl variables and back again. This wrapper simplifies some C arguments to make
-them behave in a more 'perl' like manner. In particular, the read and write callbacks do not
-look just like the 'fread' and 'fwrite' C functions - perl variables do not need separate length
-parameters, and perl functions can return a list of variables, instead of needing a pointer
-to modify. The details are described below.
-
-=head2 FILE handles (GLOBS)
-
-Curl options which take a FILE, such as CURLOPT_FILE, CURLOPT_WRITEHEADER, CURLOPT_INFILE
-can be passed a perl file handle:
-
- open BODY,">body.out";
- $CURLcode = Curl::easy::setopt($curl, CURLOPT_FILE, BODY);
-
-=head2 WRITE callback
-
-The CUROPT_WRITEFUNCTION option may be set which will cause libcurl to callback to
-the given subroutine:
-
- sub chunk { my ($data,$pointer)=@_; ...; return length($data) }
- $CURLcode = Curl::easy::setopt($curl, CURLOPT_WRITEFUNCTION, \&chunk );
- $CURLcode = Curl::easy::setopt($curl, CURLOPT_FILE, );
-
-In this case, the subroutine will be passed whatever is defined by CURLOPT_FILE. This can be
-a ref to a scalar, or a GLOB or anything else you like.
-
-The callback function must return the number of bytes 'handled' ( length($data) ) or the transfer
-will abort. A transfer can be aborted by returning a 'length' of '-1'.
-
-The option CURLOPT_WRITEHEADER can be set to pass a different '$pointer' into the CURLOPT_WRITEFUNCTION
-for header values. This lets you collect the headers and body separately:
-
- my $headers="";
- my $body="";
- sub chunk { my ($data,$pointer)=@_; ${$pointer}.=$data; return length($data) }
-
- $CURLcode = Curl::easy::setopt($curl, CURLOPT_WRITEFUNCTION, \&chunk );
- $CURLcode = Curl::easy::setopt($curl, CURLOPT_WRITEHEADER, \$header );
- $CURLcode = Curl::easy::setopt($curl, CURLOPT_FILE, \$body );
-
-If you have libcurl > 7.7.1, then you could instead set CURLOPT_HEADERFUNCTION to a different callback,
-and have the header collected that way.
-
-=head2 READ callback
-
-Curl::easy supports CURLOPT_READFUNCTION. This function should look something like this:
-
- sub read_callback {
- my ($maxlength,$pointer)=@_;
-
- ....
-
- return $data;
- }
-
-The subroutine must return an empty string "" at the end of the data. Note that this function
-isn't told how much data to provide - $maxlength is just the maximum size of the buffer
-provided by libcurl. If you are doing an HTTP POST or PUT for example, it is important that this
-function only returns as much data as the 'Content-Length' header specifies, followed by a
-an empty (0 length) buffer.
-
-=head2 PROGRESS callback
-
-Curl::easy supports CURLOPT_PROGRESSFUNCTION. This function should look something like this:
-
- sub prog_callb
- {
- my ($clientp,$dltotal,$dlnow,$ultotal,$ulnow)=@_;
- ....
- return 0;
- }
-
-The function should return 0 normally, or -1 which will abort/cancel the transfer. $clientp is whatever
-value/scalar is set using the CURLOPT_PROGRESSDATA option.
-
-=head2 PASSWD callback
-
-Curl::easy supports CURLOPT_PASSWDFUNCTION. This function should look something like this:
-
- sub passwd_callb
- {
- my ($clientp,$prompt,$buflen)=@_;
- ...
- return (0,$data);
- }
-
-$clientp is whatever scalar is set using the CURLOPT_PASSWDDATA option.
-$prompt is a text string which can be used to prompt for a password.
-$buflen is the maximum accepted password reply.
-
-The function must return 0 (for 'OK') and the password data as a list. Return (-1,"") to
-indicate an error.
-
-=head1 AUTHOR
-
-Georg Horn <horn@koblenz-net.de>
-
-Additional callback, pod and test work by Cris Bailiff <c.bailiff@devsecure.com>
-and Forrest Cahoon <forrest.cahoon@merrillcorp.com>
-
-Currently maintained by Cris Bailiff <c.bailiff@devsecure.com>
-
-=head1 Copyright
-
-Copyright (C) 2000, Daniel Stenberg, , et al.
-
-You may opt to use, copy, modify, merge, publish, distribute and/or sell
-copies of the Software, and permit persons to whom the Software is furnished
-to do so, under the terms of the MPL or the MIT/X-derivate licenses. You may
-pick one of these licenses.
-
-=head1 SEE ALSO
-
-http://curl.haxx.se/
-
-=cut
diff --git a/perl/Curl_easy/easy.xs b/perl/Curl_easy/easy.xs
deleted file mode 100644
index f43d482cd..000000000
--- a/perl/Curl_easy/easy.xs
+++ /dev/null
@@ -1,672 +0,0 @@
-/* Perl interface for libcurl. Check out the file README for more info. */
-/*
-
-Copyright (C) 2000, Daniel Stenberg, , et al.
-You may opt to use, copy, modify, merge, publish, distribute and/or
-sell copies of the Software, and permit persons to whom the
-Software is furnished to do so, under the terms of the MPL or
-the MIT/X-derivate licenses. You may pick one of these licenses.
-*/
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-#include <curl/curl.h>
-#include <curl/easy.h>
-
-#if (LIBCURL_VERSION_NUM<0x070702)
-#define CURLOPT_HEADERFUNCTION 20079
-#define header_callback_func write_callback_func
-#else
-#define header_callback_func writeheader_callback_func
-#endif
-
-/* Lists that can be set via curl_easy_setopt() */
-
-static struct curl_slist *httpheader = NULL, *quote = NULL, *postquote = NULL;
-
-
-/* Buffer and varname for option CURLOPT_ERRORBUFFER */
-
-static char errbuf[CURL_ERROR_SIZE];
-static char *errbufvarname = NULL;
-
-
-/* Callback functions */
-
-static SV *read_callback = NULL, *write_callback = NULL,
- *progress_callback = NULL, *passwd_callback = NULL,
- *header_callback = NULL;
- /* *closepolicy_callback = NULL; */
-
-
-/* For storing the content */
-
-static char *contbuf = NULL, *bufptr = NULL;
-static int bufsize = 32768, contlen = 0;
-
-
-/* Internal options for this perl module */
-
-#define USE_INTERNAL_VARS 0x01
-
-static int internal_options = 0;
-
-
-/* Setup these global vars */
-
-static void init_globals(void)
-{
- if (httpheader) curl_slist_free_all(httpheader);
- if (quote) curl_slist_free_all(quote);
- if (postquote) curl_slist_free_all(postquote);
- httpheader = quote = postquote = NULL;
- if (errbufvarname) free(errbufvarname);
- errbufvarname = NULL;
- if (contbuf == NULL) {
- contbuf = malloc(bufsize + 1);
- }
- bufptr = contbuf;
- *bufptr = '\0';
- contlen = 0;
- internal_options = 0;
-}
-
-
-/* Register a callback function */
-
-static void register_callback(SV **callback, SV *function)
-{
- if (*callback == NULL) {
- /* First time, create new SV */
- *callback = newSVsv(function);
- } else {
- /* Been there, done that. Just overwrite the SV */
- SvSetSV(*callback, function);
- }
-}
-
-/* generic fwrite callback, which decides which callback to call */
-static size_t
-fwrite_wrapper (const void *ptr,
- size_t size,
- size_t nmemb,
- void *stream,
- void *call_function)
-{
- dSP;
- int count, status;
- SV *sv;
-
- if (call_function) {
- /* then we are doing a callback to perl */
-
- ENTER;
- SAVETMPS;
-
- PUSHMARK(SP);
-
- if (stream == stdout) {
- sv = newSViv(0); /* FIXME: should cast stdout to GLOB somehow? */
- } else if (stream == NULL) {
- sv = &PL_sv_undef;
- } else { /* its already an SV */
- sv = stream;
- }
-
- if (ptr != NULL) {
- XPUSHs(sv_2mortal(newSVpvn((char *)ptr, (STRLEN)(size * nmemb))));
- } else {
- XPUSHs(sv_2mortal(newSVpv("", 0)));
- }
- XPUSHs(sv_2mortal(newSVsv(sv))); /* CURLOPT_FILE SV* */
- PUTBACK;
-
- count = perl_call_sv((SV *) call_function, G_SCALAR);
-
- SPAGAIN;
- if (count != 1)
- croak("Big trouble, perl_call_sv(write_callback) didn't return status\n");
-
- status = POPi;
-
- PUTBACK;
-
- FREETMPS;
- LEAVE;
- return status;
-
- } else {
- /* default to a normal 'fwrite' */
- /* stream could be a FILE * or an SV * */
- /* or NULL since libcurl-7.8.1pre3 */
- FILE *f;
-
- if (stream == stdout ||
- stream == NULL) { /* the only possible FILE ? Think so */
- f = stream;
- } else { /* its a GLOB */
- f = IoIFP(sv_2io(stream)); /* may barf if not a GLOB */
- }
-
- if (f)
- return fwrite(ptr, size, nmemb, f);
- else
- return (size_t) size*nmemb;
- }
-}
-
-/* Write callback for calling a perl callback */
-size_t
-write_callback_func( const void *ptr, size_t size,
- size_t nmemb, void *stream)
-{
- return fwrite_wrapper(ptr,size,nmemb,stream,
- write_callback);
-}
-
-/* header callback for calling a perl callback */
-size_t
-writeheader_callback_func( const void *ptr, size_t size,
- size_t nmemb, void *stream)
-{
- return fwrite_wrapper(ptr,size,nmemb,stream,
- header_callback);
-}
-
-size_t
-read_callback_func( void *ptr, size_t size,
- size_t nmemb, void *stream)
-{
- dSP ;
-
- int count;
- SV *sv;
- STRLEN len;
- size_t maxlen,mylen;
- char *p;
-
- maxlen = size*nmemb;
-
- if (read_callback) {
- /* we are doing a callback to perl */
-
- ENTER ;
- SAVETMPS ;
-
- PUSHMARK(SP) ;
-
- if (stream == stdin) {
- sv = newSViv(0); /* should cast stdin to GLOB somehow? */
- } else { /* its an SV */
- sv = stream;
- }
-
- XPUSHs(sv_2mortal(newSViv(maxlen))); /* send how many bytes please */
- XPUSHs(sv_2mortal(newSVsv(sv))); /* CURLOPT_INFILE SV* */
- PUTBACK ;
-
- count = perl_call_sv(read_callback, G_SCALAR);
-
- SPAGAIN;
- if (count != 1)
- croak("Big trouble, perl_call_sv(read_callback) didn't return data\n");
-
- sv = POPs;
- p = SvPV(sv,len);
-
- /* only allowed to return the number of bytes asked for */
- mylen = len<maxlen ? len : maxlen;
- memcpy(ptr,p,(size_t)mylen);
- PUTBACK ;
-
- FREETMPS ;
- LEAVE ;
- return (size_t) (mylen/size);
- } else {
- /* default to a normal 'fread' */
- /* stream could be a FILE * or an SV * */
- FILE *f;
-
- if (stream == stdin) { /* the only possible FILE ? Think so*/
- f = stream;
- } else { /* its a GLOB */
- f = IoIFP(sv_2io(stream)); /* may barf if not a GLOB */
- }
-
- return fread(ptr,size,nmemb,f);
- }
-}
-
-/* Porgress callback for calling a perl callback */
-
-static int progress_callback_func(void *clientp, size_t dltotal, size_t dlnow,
- size_t ultotal, size_t ulnow)
-{
- dSP;
- int count;
-
- ENTER;
- SAVETMPS;
- PUSHMARK(sp);
- if (clientp != NULL) {
- XPUSHs(sv_2mortal(newSVpv(clientp, 0)));
- } else {
- XPUSHs(sv_2mortal(newSVpv("", 0)));
- }
- XPUSHs(sv_2mortal(newSViv(dltotal)));
- XPUSHs(sv_2mortal(newSViv(dlnow)));
- XPUSHs(sv_2mortal(newSViv(ultotal)));
- XPUSHs(sv_2mortal(newSViv(ulnow)));
- PUTBACK;
- count = perl_call_sv(progress_callback, G_SCALAR);
- SPAGAIN;
- if (count != 1)
- croak("Big trouble, perl_call_sv(progress_callback) didn't return 1\n");
- count = POPi;
- PUTBACK;
- FREETMPS;
- LEAVE;
- return count;
-}
-
-
-/* Password callback for calling a perl callback */
-
-static int passwd_callback_func(void *clientp, char *prompt, char *buffer,
- int buflen)
-{
- dSP;
- int count;
- SV *sv;
- STRLEN len;
- size_t mylen;
- char *p;
-
- ENTER;
- SAVETMPS;
- PUSHMARK(sp);
- if (clientp != NULL) {
- XPUSHs(sv_2mortal(newSVsv(clientp)));
- } else {
- XPUSHs(sv_2mortal(newSVpv("", 0)));
- }
- XPUSHs(sv_2mortal(newSVpv(prompt, 0)));
- XPUSHs(sv_2mortal(newSViv(buflen)));
- PUTBACK;
- count = perl_call_sv(passwd_callback, G_ARRAY);
- SPAGAIN;
- if (count != 2)
- croak("Big trouble, perl_call_sv(passwd_callback) didn't return status + data\n");
-
- sv = POPs;
- count = POPi;
-
- p = SvPV(sv,len);
-
- /* only allowed to return the number of bytes asked for */
- mylen = len<(buflen-1) ? len : (buflen-1);
- memcpy(buffer,p,mylen);
- buffer[buflen]=0; /* ensure C string terminates */
-
- PUTBACK;
- FREETMPS;
- LEAVE;
- return count;
-}
-
-
-#if 0
-/* awaiting closepolicy prototype */
-int
-closepolicy_callback_func(void *clientp)
-{
- dSP;
- int argc, status;
- SV *pl_status;
-
- ENTER;
- SAVETMPS;
-
- PUSHMARK(SP);
- PUTBACK;
-
- argc = perl_call_sv(closepolicy_callback, G_SCALAR);
- SPAGAIN;
-
- if (argc != 1) {
- croak("Unexpected number of arguments returned from closefunction callback\n");
- }
- pl_status = POPs;
- status = SvTRUE(pl_status) ? 0 : 1;
-
- PUTBACK;
- FREETMPS;
- LEAVE;
-
- return status;
-}
-#endif
-
-
-
-/* Internal write callback. Only used if USE_INTERNAL_VARS was specified */
-
-static size_t internal_write_callback(char *data, size_t size, size_t num,
- FILE *fp)
-{
- int i;
-
- size *= num;
- if ((contlen + size) >= bufsize) {
- bufsize *= 2;
- contbuf = realloc(contbuf, bufsize + 1);
- bufptr = contbuf + contlen;
- }
- contlen += size;
- for (i = 0; i < size; i++) {
- *bufptr++ = *data++;
- }
- *bufptr = '\0';
- return size;
-}
-
-
-static int
-constant(char *name, int arg)
-{
- errno = 0;
- if (strncmp(name, "CURLINFO_", 9) == 0) {
- name += 9;
- switch (*name) {
- case 'A':
- case 'B':
- case 'C':
- if (strEQ(name, "CONNECT_TIME")) return CURLINFO_CONNECT_TIME;
- if (strEQ(name, "CONTENT_LENGTH_DOWNLOAD")) return CURLINFO_CONTENT_LENGTH_DOWNLOAD;
- if (strEQ(name, "CONTENT_LENGTH_UPLOAD")) return CURLINFO_CONTENT_LENGTH_UPLOAD;
- break;
- case 'D':
- case 'E':
- if (strEQ(name, "EFFECTIVE_URL")) return CURLINFO_EFFECTIVE_URL;
- break;
- case 'F':
- if (strEQ(name, "FILETIME")) return CURLINFO_FILETIME;
- break;
- case 'G':
- case 'H':
- if (strEQ(name, "HEADER_SIZE")) return CURLINFO_HEADER_SIZE;
- if (strEQ(name, "HTTP_CODE")) return CURLINFO_HTTP_CODE;
- break;
- case 'I':
- case 'J':
- case 'K':
- case 'L':
- case 'M':
- case 'N':
- if (strEQ(name, "NAMELOOKUP_TIME")) return CURLINFO_NAMELOOKUP_TIME;
- break;
- case 'O':
- case 'P':
- if (strEQ(name, "PRETRANSFER_TIME")) return CURLINFO_PRETRANSFER_TIME;
- break;
- case 'Q':
- case 'R':
- if (strEQ(name, "REQUEST_SIZE")) return CURLINFO_REQUEST_SIZE;
- break;
- case 'S':
- if (strEQ(name, "SSL_VERIFYRESULT")) return CURLINFO_SSL_VERIFYRESULT;
- break;
- case 'T':
- if (strEQ(name, "SIZE_DOWNLOAD")) return CURLINFO_SIZE_DOWNLOAD;
- if (strEQ(name, "SIZE_UPLOAD")) return CURLINFO_SIZE_UPLOAD;
- if (strEQ(name, "SPEED_DOWNLOAD")) return CURLINFO_SPEED_DOWNLOAD;
- if (strEQ(name, "SPEED_UPLOAD")) return CURLINFO_SPEED_UPLOAD;
- if (strEQ(name, "TOTAL_TIME")) return CURLINFO_TOTAL_TIME;
- break;
- case 'U':
- case 'V':
- case 'W':
- case 'X':
- case 'Y':
- case 'Z':
- break;
- }
- }
- if (strncmp(name, "CURLOPT_", 8) == 0) {
- name += 8;
- switch (*name) {
-#include "curlopt-constants.c"
- }
- }
- if (strEQ(name, "USE_INTERNAL_VARS")) return USE_INTERNAL_VARS;
- errno = EINVAL;
- return 0;
-}
-
-
-MODULE = Curl::easy PACKAGE = Curl::easy PREFIX = curl_easy_
-
-int
-constant(name,arg)
- char * name
- int arg
-
-
-void *
-curl_easy_init()
-CODE:
- init_globals();
- RETVAL = curl_easy_init();
- curl_easy_setopt(RETVAL, CURLOPT_HEADERFUNCTION, header_callback_func);
- curl_easy_setopt(RETVAL, CURLOPT_WRITEFUNCTION, write_callback_func);
-OUTPUT:
- RETVAL
-
-char *
-curl_easy_version()
-CODE:
- RETVAL=curl_version();
-OUTPUT:
- RETVAL
-
-int
-curl_easy_setopt(curl, option, value)
-void * curl
-int option
-SV * value
-CODE:
- if (option < CURLOPTTYPE_OBJECTPOINT) {
- /* This is an option specifying an integer value: */
- RETVAL = curl_easy_setopt(curl, option, (long)SvIV(value));
- } else if (option == CURLOPT_FILE || option == CURLOPT_INFILE ||
- option == CURLOPT_WRITEHEADER || option == CURLOPT_PROGRESSDATA ||
- option == CURLOPT_PASSWDDATA) {
- /* This is an option specifying an SV * value: */
- RETVAL = curl_easy_setopt(curl, option, newSVsv(ST(2)));
- } else if (option == CURLOPT_ERRORBUFFER) {
- /* Pass in variable name for storing error messages... */
- RETVAL = curl_easy_setopt(curl, option, errbuf);
- if (errbufvarname) free(errbufvarname);
- errbufvarname = strdup((char *)SvPV(value, PL_na));
- } else if (option == CURLOPT_WRITEFUNCTION || option ==
- CURLOPT_READFUNCTION || option == CURLOPT_PROGRESSFUNCTION ||
- option == CURLOPT_PASSWDFUNCTION || option == CURLOPT_HEADERFUNCTION) {
- /* This is an option specifying a callback function */
- switch (option) {
- case CURLOPT_WRITEFUNCTION:
- register_callback(&write_callback, value);
- curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, write_callback_func);
- break;
- case CURLOPT_READFUNCTION:
- register_callback(&read_callback, value);
- curl_easy_setopt(curl, CURLOPT_READFUNCTION, read_callback_func);
- break;
- case CURLOPT_HEADERFUNCTION:
- register_callback(&header_callback, value);
- curl_easy_setopt(curl, CURLOPT_HEADERFUNCTION, header_callback_func);
- case CURLOPT_PROGRESSFUNCTION:
- register_callback(&progress_callback, value);
- curl_easy_setopt(curl, CURLOPT_PROGRESSFUNCTION, progress_callback_func);
- break;
- case CURLOPT_PASSWDFUNCTION:
- register_callback(&passwd_callback, value);
- curl_easy_setopt(curl, CURLOPT_PASSWDFUNCTION, passwd_callback_func);
- break;
- /* awaiting a prototype for the closepolicy function callback
- case CURLOPT_CLOSEFUNCTION:
- register_callback(&closepolicy_callback, value);
- curl_easy_setopt(curl, CURLOPT_CLOSEFUNCTION, closepolicy_callback_func);
- break;
- */
- }
- RETVAL = -1;
- } else if (option == CURLOPT_HTTPHEADER || option == CURLOPT_QUOTE ||
- option == CURLOPT_POSTQUOTE) {
- /* This is an option specifying a list of curl_slist structs: */
- AV *array = (AV *)SvRV(value);
- struct curl_slist **slist = NULL;
- /* We have to find out which list to use... */
- switch (option) {
- case CURLOPT_HTTPHEADER:
- slist = &httpheader; break;
- case CURLOPT_QUOTE:
- slist = &quote; break;
- case CURLOPT_POSTQUOTE:
- slist = &postquote; break;
- }
- /* free any previous list */
- if (*slist) {
- curl_slist_free_all(*slist);
- *slist=NULL;
- }
- /* ...store the values into it... */
- for (;;) {
- SV *sv = av_shift(array);
- int len = 0;
- char *str = SvPV(sv, len);
- if (len == 0) break;
- *slist = curl_slist_append(*slist, str);
- }
- /* ...and pass the list into curl_easy_setopt() */
- RETVAL = curl_easy_setopt(curl, option, *slist);
- } else {
- /* This is an option specifying a char * value: */
- RETVAL = curl_easy_setopt(curl, option, SvPV(value, PL_na));
- }
-OUTPUT:
- RETVAL
-
-
-int
-internal_setopt(option, value)
-int option
-int value
-CODE:
- if (value == 1) {
- internal_options |= option;
- } else {
- internal_options &= !option;
- }
- RETVAL = 0;
-OUTPUT:
- RETVAL
-
-
-int
-curl_easy_perform(curl)
-void * curl
-CODE:
- if (internal_options & USE_INTERNAL_VARS) {
- /* Use internal callback which just stores the content into a buffer. */
- curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, internal_write_callback);
- curl_easy_setopt(curl, CURLOPT_HEADER, 1);
- }
- RETVAL = curl_easy_perform(curl);
- if (RETVAL && errbufvarname) {
- /* If an error occurred and a varname for error messages has been
- specified, store the error message. */
- SV *sv = perl_get_sv(errbufvarname, TRUE | GV_ADDMULTI);
- sv_setpv(sv, errbuf);
- }
- if (!RETVAL && (internal_options & USE_INTERNAL_VARS)) {
- /* No error and internal variable for the content are to be used:
- Split the data into headers and content and store them into
- perl variables. */
- SV *head_sv = perl_get_sv("Curl::easy::headers", TRUE | GV_ADDMULTI);
- SV *cont_sv = perl_get_sv("Curl::easy::content", TRUE | GV_ADDMULTI);
- char *p = contbuf;
- int nl = 0, found = 0;
- while (p < bufptr) {
- if (nl && (*p == '\n' || *p == '\r')) {
- /* found empty line, end of headers */
- *p++ = '\0';
- sv_setpv(head_sv, contbuf);
- while (*p == '\n' || *p == '\r') {
- p++;
- }
- sv_setpv(cont_sv, p);
- found = 1;
- break;
- }
- nl = (*p == '\n');
- p++;
- }
- if (!found) {
- sv_setpv(head_sv, "");
- sv_setpv(cont_sv, contbuf);
- }
- }
-OUTPUT:
- RETVAL
-
-
-int
-curl_easy_getinfo(curl, option, value)
-void * curl
-int option
-double value
-CODE:
-#ifdef __GNUC__
- /* a(void) warnig about unnused variable */
- (void) value;
-#endif
- switch (option & CURLINFO_TYPEMASK) {
- case CURLINFO_STRING: {
- char * value = (char *)SvPV(ST(2), PL_na);
- RETVAL = curl_easy_getinfo(curl, option, &value);
- sv_setpv(ST(2), value);
- break;
- }
- case CURLINFO_LONG: {
- long value = (long)SvIV(ST(2));
- RETVAL = curl_easy_getinfo(curl, option, &value);
- sv_setiv(ST(2), value);
- break;
- }
- case CURLINFO_DOUBLE: {
- double value = (double)SvNV(ST(2));
- RETVAL = curl_easy_getinfo(curl, option, &value);
- sv_setnv(ST(2), value);
- break;
- }
- default: {
- RETVAL = CURLE_BAD_FUNCTION_ARGUMENT;
- break;
- }
- }
-OUTPUT:
- RETVAL
-
-
-int
-curl_easy_cleanup(curl)
-void * curl
-CODE:
- curl_easy_cleanup(curl);
- init_globals();
- RETVAL = 0;
-OUTPUT:
- RETVAL
-