moved to separate module

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
-