Add p5-CGI-Simple 0.075, a simple totally OO CGI interface that is

CGI.pm compliant.

9 files changed, 1384 insertions, 0 deletions

diff --git a/www/p5-CGI-Simple/Makefile b/www/p5-CGI-Simple/Makefile
new file mode 100644
index 000000000000..e43c5f730b4d
--- /dev/null
+++ b/www/p5-CGI-Simple/Makefile
@@ -0,0 +1,29 @@
+# New ports collection makefile for:	p5-CGI-Simple
+# Date created:		16 November 2004
+# Whom:			Lars Thegler <lth@FreeBSD.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	CGI-Simple
+PORTVERSION=	0.075
+CATEGORIES=	www perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	../by-authors/id/J/JF/JFREEMAN
+PKGNAMEPREFIX=	p5-
+DISTNAME=	${PORTNAME:C/CGI/Cgi/}-${PORTVERSION}
+
+MAINTAINER=	lth@FreeBSD.org
+COMMENT=	A simple totally OO CGI interface that is CGI.pm compliant
+
+PERL_CONFIGURE=	yes
+
+MAN3=		CGI::Simple.3 \
+		CGI::Simple::Cookie.3 \
+		CGI::Simple::Standard.3 \
+		CGI::Simple::Util.3
+
+pre-configure:
+	@${FIND} ${WRKSRC} -name '*.orig' -delete
+
+.include <bsd.port.mk>
diff --git a/www/p5-CGI-Simple/distinfo b/www/p5-CGI-Simple/distinfo
new file mode 100644
index 000000000000..fc6027d4f404
--- /dev/null
+++ b/www/p5-CGI-Simple/distinfo
@@ -0,0 +1,2 @@
+MD5 (Cgi-Simple-0.075.tar.gz) = 510e06be6530cb8721e15042cb5160ff
+SIZE (Cgi-Simple-0.075.tar.gz) = 148965
diff --git a/www/p5-CGI-Simple/files/patch-Makefile.PL b/www/p5-CGI-Simple/files/patch-Makefile.PL
new file mode 100644
index 000000000000..1c6df2bed659
--- /dev/null
+++ b/www/p5-CGI-Simple/files/patch-Makefile.PL
@@ -0,0 +1,13 @@
+--- Makefile.PL.orig	Wed Nov 10 22:33:32 2004
++++ Makefile.PL	Wed Nov 10 22:33:38 2004
+@@ -5,4 +5,10 @@
+     'NAME'            => 'CGI::Simple',
+     'VERSION_FROM'    => 'Simple.pm', # finds $VERSION
+     'PREREQ_PM'       => {}, # e.g., Module::Name => 1.1
++    'MAN3PODS'        => {
++        'Simple.pm'           => '$(INST_MAN3DIR)/CGI::Simple.$(MAN3EXT)',
++        'Simple/Cookie.pm'    => '$(INST_MAN3DIR)/CGI::Simple::Cookie.$(MAN3EXT)',
++        'Simple/Standard.pm'  => '$(INST_MAN3DIR)/CGI::Simple::Standard.$(MAN3EXT)',
++        'Simple/Util.pm'      => '$(INST_MAN3DIR)/CGI::Simple::Util.$(MAN3EXT)',
++    },
+ );
diff --git a/www/p5-CGI-Simple/files/patch-Simple.pm b/www/p5-CGI-Simple/files/patch-Simple.pm
new file mode 100644
index 000000000000..baa95fb78aa9
--- /dev/null
+++ b/www/p5-CGI-Simple/files/patch-Simple.pm
@@ -0,0 +1,1085 @@
+--- Simple.pm.orig	Wed Nov 10 21:54:26 2004
++++ Simple.pm	Wed Nov 10 21:55:06 2004
+@@ -1061,11 +1061,11 @@
+ 
+ 1;
+ 
+-=head2 NAME
++=head1 NAME
+ 
+ CGI::Simple - A Simple totally OO CGI interface that is CGI.pm compliant
+ 
+-=head2 SYNOPSIS
++=head1 SYNOPSIS
+ 
+     use CGI::Simple;
+     $CGI::Simple::POST_MAX = 1024;       # max upload via post default 100kB
+@@ -1153,7 +1153,7 @@
+ 
+     dienice( $q->cgi_error ) if $q->cgi_error;
+ 
+-=head2 DESCRIPTION
++=head1 DESCRIPTION
+ 
+ CGI::Simple provides a relatively lightweight drop in replacement for CGI.pm.
+ It shares an identical OO interface to CGI.pm for parameter parsing, file
+@@ -1169,12 +1169,12 @@
+ In practical testing this module loads and runs about twice as fast as CGI.pm
+ depending on the precise task.
+ 
+-=head2 CALLING CGI::Simple ROUTINES USING THE OBJECT INTERFACE
++=head1 CALLING CGI::Simple ROUTINES USING THE OBJECT INTERFACE
+ 
+ Here is a very brief rundown on how you use the interface. Full details
+ follow.
+ 
+-=head3 First you need to initialize an object
++=head2 First you need to initialize an object
+ 
+ Before you can call a CGI::Simple method you must create a CGI::Simple object.
+ You do that by using the module and then calling the new() constructor:
+@@ -1184,7 +1184,7 @@
+ 
+ It is traditional to call your object $q for query or perhaps $cgi.
+ 
+-=head3 Next you call methods on that object
++=head2 Next you call methods on that object
+ 
+ Once you have your object you can call methods on it using the -> arrow
+ syntax For example to get the names of all the parameters passed to your
+@@ -1236,7 +1236,7 @@
+    $q->param(-name=>'veggie',-value=>'tomato');
+    $q->param(-name=>'veggie',-value=>['tomato','tomahto','potato','potahto']);
+ 
+-=head2 CALLING CGI::Simple ROUTINES USING THE FUNCTION INTERFACE
++=head1 CALLING CGI::Simple ROUTINES USING THE FUNCTION INTERFACE
+ 
+ For convenience a functional interface is provided by the
+ CGI::Simple::Standard module. This hides the OO details from you and allows
+@@ -1258,7 +1258,7 @@
+ When (if) you read the following docs and are using the functional interface
+ just pretend the $q-> is not there.
+ 
+-=head3 Selecting which methods to load
++=head2 Selecting which methods to load
+ 
+ When you use the functional interface Perl needs to be able to find the
+ functions you call. The simplest way of doing this is to use autoloading as
+@@ -1277,7 +1277,7 @@
+ notation. This will import the ':func_set' function set and the specific
+ function 'some_func'.
+ 
+-=head3 To Autoload or not to Autoload, that is the question.
++=head2 To Autoload or not to Autoload, that is the question.
+ 
+ If you do not have a AUTOLOAD sub in you script it is generally best to use
+ the '-autoload' option. Under autoload you can use any method you want but
+@@ -1295,7 +1295,7 @@
+ 
+     use CGI::Simple::Standard qw(param header);
+ 
+-=head3 Setting globals using the functional interface
++=head2 Setting globals using the functional interface
+ 
+ Where you see global variables being set using the syntax:
+ 
+@@ -1307,9 +1307,9 @@
+ 
+ ################ The Core Methods ################
+ 
+-=head2 THE CORE METHODS
++=head1 THE CORE METHODS
+ 
+-=head3 new() Creating a new query object
++=head2 new() Creating a new query object
+ 
+ The first step in using CGI::Simple is to create a new query object using
+ the B<new()> constructor:
+@@ -1370,14 +1370,14 @@
+ 
+     $empty_query = new CGI::Simple({});
+ 
+-=head3 keywords() Fetching a list of keywords from a query
++=head2 keywords() Fetching a list of keywords from a query
+ 
+     @keywords = $q->keywords;
+ 
+ If the script was invoked as the result of an <ISINDEX> search, the
+ parsed keywords can be obtained as an array using the B<keywords()> method.
+ 
+-=head3 param() Fetching the names of all parameters passed to your script
++=head2 param() Fetching the names of all parameters passed to your script
+ 
+     @names = $q->param;
+ 
+@@ -1394,7 +1394,7 @@
+ parameters are defined in the form (however, this isn't part
+ of the spec, and so isn't guaranteed).
+ 
+-=head3 param() Fetching the value or values of a simple named parameter
++=head2 param() Fetching the value or values of a simple named parameter
+ 
+     @values = $q->param('foo');
+ 
+@@ -1417,7 +1417,7 @@
+ query object. If you try to access them via param you will get an undef
+ return value.
+ 
+-=head3 param() Setting the values of a named parameter
++=head2 param() Setting the values of a named parameter
+ 
+     $q->param('foo','an','array','of','values');
+ 
+@@ -1433,7 +1433,7 @@
+ 
+     $q->param(-name=>'foo',-value=>'the value');
+ 
+-=head3 add_param() Setting the values of a named parameter
++=head2 add_param() Setting the values of a named parameter
+ 
+ You nay also use the new method B<add_param> to add parameters. This is an
+ alias to the _add_param() internal method that actually does all the work.
+@@ -1448,7 +1448,7 @@
+ argument is absent of false the values will be appended. If true the values
+ will overwrite any existing ones
+ 
+-=head3 append() Appending values to a named parameter
++=head2 append() Appending values to a named parameter
+ 
+    $q->append(-name=>'foo',-values=>['yet','more','values']);
+ 
+@@ -1457,12 +1457,12 @@
+ Otherwise the parameter is created.  Note that this method only
+ recognizes the named argument calling syntax.
+ 
+-=head3 import_names() Importing all parameters into a namespace.
++=head2 import_names() Importing all parameters into a namespace.
+ 
+ This method was silly, non OO and has been deleted. You can get all the params
+ as a hash using B<Vars> or via all the other accessors.
+ 
+-=head3 delete() Deleting a parameter completely
++=head2 delete() Deleting a parameter completely
+ 
+     $q->delete('foo');
+ 
+@@ -1473,7 +1473,7 @@
+ If you are using the function call interface, use B<Delete()> instead to
+ avoid conflicts with Perl's built-in delete operator.
+ 
+-=head3 delete_all() Deleting all parameters
++=head2 delete_all() Deleting all parameters
+ 
+     $q->delete_all();
+ 
+@@ -1485,12 +1485,12 @@
+ B<delete_all> however there is no reason to use this, even in the
+ function call interface.
+ 
+-=head3 param_fetch() Direct access to the parameter list
++=head2 param_fetch() Direct access to the parameter list
+ 
+ This method is provided for CGI.pm compatibility only. It returns an
+ array ref to the values associated with a named param. It is deprecated.
+ 
+-=head3 Vars() Fetching the entire parameter list as a hash
++=head2 Vars() Fetching the entire parameter list as a hash
+ 
+     $params = $q->Vars;  # as a tied hash ref
+     print $params->{'address'};
+@@ -1525,7 +1525,7 @@
+ You can change the character used to do the multiple value packing by passing
+ it to B<Vars()> as an argument as shown.
+ 
+-=head3 url_param() Access the QUERY_STRING regardless of 'GET' or 'POST'
++=head2 url_param() Access the QUERY_STRING regardless of 'GET' or 'POST'
+ 
+ The B<url_param()> method makes the QUERY_STRING data available regardless
+ of whether the REQUEST_METHOD was 'GET' or 'POST'. You can do anything
+@@ -1536,7 +1536,7 @@
+ is parsed into a new CGI::Simple object which is stored within the current
+ object. B<url_param> then just calls B<param()> on this new object.
+ 
+-=head3 parse_query_string() Add QUERY_STRING data to 'POST' requests
++=head2 parse_query_string() Add QUERY_STRING data to 'POST' requests
+ 
+ When the REQUEST_METHOD is 'POST' the default behavior is to ignore
+ name/value pairs or keywords in the $ENV{'QUERY_STRING'}. You can override
+@@ -1551,7 +1551,7 @@
+ 
+ This is a new method in CGI::Simple that is not available in CGI.pm
+ 
+-=head3 save() Saving the state of an object to file
++=head2 save() Saving the state of an object to file
+ 
+     $q->save(\*FILEHANDLE)
+ 
+@@ -1588,7 +1588,7 @@
+ 
+ ################ Uploading Files ###################
+ 
+-=head2 FILE UPLOADS
++=head1 FILE UPLOADS
+ 
+ File uploads are easy with CGI::Simple. You use the B<upload()> method.
+ Assuming you have the following in your HTML:
+@@ -1609,7 +1609,7 @@
+ and saved in temporary files. These files will be deleted when your script.cgi
+ exits so if you want to keep them you will need to proceed as follows.
+ 
+-=head3 upload() The key file upload method
++=head2 upload() The key file upload method
+ 
+ The B<upload()> method is quite versatile. If you call B<upload()> without
+ any arguments it will return a list of uploaded files in list context and
+@@ -1663,7 +1663,7 @@
+ 'upload_field_name' then you will only get the last uploaded file from
+ these fields.
+ 
+-=head3 upload_info() Get the details about uploaded files
++=head2 upload_info() Get the details about uploaded files
+ 
+ The B<upload_info()> method is a new method. Called without arguments it
+ returns the number of uploaded files in scalar context and the names of
+@@ -1685,7 +1685,7 @@
+ 
+ Note: The old CGI.pm B<uploadInfo()> method has been deleted.
+ 
+-=head3 $POST_MAX and $DISABLE_UPLOADS
++=head2 $POST_MAX and $DISABLE_UPLOADS
+ 
+ CGI.pm has a default setting that allows infinite size file uploads by
+ default. In contrast file uploads are disabled by default in CGI::Simple
+@@ -1731,7 +1731,7 @@
+ 
+     use CGI::Simple qw( -default ..... );
+ 
+-=head3 binmode() and Win32
++=head2 binmode() and Win32
+ 
+ If you are using CGI::Simple be sure to call B<binmode()> on any handle that
+ you create to write the uploaded file to disk. Calling B<binmode()> will do
+@@ -1742,9 +1742,9 @@
+ 
+ ################ Miscellaneous Methods ################
+ 
+-=head2 MISCELANEOUS METHODS
++=head1 MISCELANEOUS METHODS
+ 
+-=head3 escapeHTML() Escaping HTML special characters
++=head2 escapeHTML() Escaping HTML special characters
+ 
+ In HTML the < > " and & chars have special meaning and need to be
+ escaped to &lt; &gt; &quot; and &amp; respectively.
+@@ -1755,36 +1755,36 @@
+ 
+ If the optional second argument is supplied then newlines will be escaped to.
+ 
+-=head3 unescapeHTML() Unescape HTML special characters
++=head2 unescapeHTML() Unescape HTML special characters
+ 
+ This performs the reverse of B<escapeHTML()>.
+ 
+     $unescaped = $q->unescapeHTML( $HTML_escaped_string );
+ 
+-=head3 url_decode() Decode a URL encoded string
++=head2 url_decode() Decode a URL encoded string
+ 
+ This method will correctly decode a url encoded string.
+ 
+     $decoded = $q->url_decode( $encoded );
+ 
+-=head3 url_encode() URL encode a string
++=head2 url_encode() URL encode a string
+ 
+ This method will correctly URL encode a string.
+ 
+     $encoded = $q->url_encode( $string );
+ 
+-=head3 parse_keywordlist() Parse a supplied keyword list
++=head2 parse_keywordlist() Parse a supplied keyword list
+ 
+     @keywords = $q->parse_keywordlist( $keyword_list );
+ 
+ This method returns a list of keywords, correctly URL escaped and split out
+ of the supplied string
+ 
+-=head3 put() Send output to browser
++=head2 put() Send output to browser
+ 
+ CGI.pm alias for print. $q->put('Hello World!') will print the usual
+ 
+-=head3 print() Send output to browser
++=head2 print() Send output to browser
+ 
+ CGI.pm alias for print. $q->print('Hello World!') will print the usual
+ 
+@@ -1792,7 +1792,7 @@
+ 
+ ################# Cookie Methods ################
+ 
+-=head2 HTTP COOKIES
++=head1 HTTP COOKIES
+ 
+ Netscape browsers versions 1.1 and higher, and all versions of
+ Internet Explorer, support a so-called "cookie" designed to help
+@@ -1848,7 +1848,7 @@
+ 
+ =back
+ 
+-=head3 cookie() A simple access method to cookies
++=head2 cookie() A simple access method to cookies
+ 
+ The interface to HTTP cookies is the B<cookie()> method:
+ 
+@@ -1942,7 +1942,7 @@
+     # vice-versa
+     $q->param( -name=>'answers', -value=>[$q->cookie('answers')] );
+ 
+-=head3 raw_cookie()
++=head2 raw_cookie()
+ 
+ Returns the HTTP_COOKIE variable, an HTTP extension implemented by
+ Netscape browsers version 1.1 and higher, and all versions of Internet
+@@ -1961,7 +1961,7 @@
+ 
+ ################# Header Methods ################
+ 
+-=head2 CREATING HTTP HEADERS
++=head1 CREATING HTTP HEADERS
+ 
+ Normally the first thing you will do in any CGI script is print out an
+ HTTP header.  This tells the browser what type of document to expect,
+@@ -1970,7 +1970,7 @@
+ manipulated for special purposes, such as server push and pay per view
+ pages.
+ 
+-=head3 header() Create simple or complex HTTP headers
++=head2 header() Create simple or complex HTTP headers
+ 
+     print $q->header;
+ 
+@@ -2094,7 +2094,7 @@
+ suggested name for the saved file.  In order for this to work, you may
+ have to set the B<-type> to 'application/octet-stream'.
+ 
+-=head3 no_cache() Preventing browser caching of scripts
++=head2 no_cache() Preventing browser caching of scripts
+ 
+ Most browsers will not cache the output from CGI scripts. Every time
+ the browser reloads the page, the script is invoked anew. However some
+@@ -2119,14 +2119,14 @@
+ Both the Pragma: no-cache header field and an Expires header that corresponds
+ to the current time (ie now) will be sent.
+ 
+-=head3 cache() Preventing browser caching of scripts
++=head2 cache() Preventing browser caching of scripts
+ 
+ The somewhat ill named B<cache()> method is a legacy from CGI.pm. It operates
+ the same as the new B<no_cache()> method. The difference is/was that when set
+ it results only in the Pragma: no-cache line being printed.
+ Expires time data is not sent.
+ 
+-=head3 redirect() Generating a redirection header
++=head2 redirect() Generating a redirection header
+ 
+     print $q->redirect('http://somewhere.else/in/movie/land');
+ 
+@@ -2157,7 +2157,7 @@
+ 
+ =cut
+ 
+-=head2 PRAGMAS
++=head1 PRAGMAS
+ 
+ There are a number of pragmas that you can specify in your use CGI::Simple
+ statement. Pragmas, which are always preceded by a hyphen, change the way
+@@ -2262,7 +2262,7 @@
+ 
+ ############### NPH Scripts ################
+ 
+-=head2 USING NPH SCRIPTS
++=head1 USING NPH SCRIPTS
+ 
+ NPH, or "no-parsed-header", scripts bypass the server completely by
+ sending the complete HTTP header directly to the browser.  This has
+@@ -2319,7 +2319,7 @@
+ 
+ ################# Server Push Methods #################
+ 
+-=head2 SERVER PUSH
++=head1 SERVER PUSH
+ 
+ CGI.pm provides four simple functions for producing multipart
+ documents of the type needed to implement server push.  These
+@@ -2358,7 +2358,7 @@
+ multipart section with B<multipart_final()> rather than with
+ B<multipart_end()>.
+ 
+-=head3 multipart_init() Initialize the multipart system
++=head2 multipart_init() Initialize the multipart system
+ 
+     multipart_init(-boundary=>$boundary);
+ 
+@@ -2366,14 +2366,14 @@
+ what MIME boundary string to use to separate parts of the document.
+ If not provided, CGI.pm chooses a reasonable boundary for you.
+ 
+-=head3 multipart_start() Start a new part of the multipart document
++=head2 multipart_start() Start a new part of the multipart document
+ 
+     multipart_start(-type=>$type)
+ 
+ Start a new part of the multipart document using the specified MIME
+ type.  If not specified, text/html is assumed.
+ 
+-=head3 multipart_end() End a multipart part
++=head2 multipart_end() End a multipart part
+ 
+     multipart_end()
+ 
+@@ -2382,14 +2382,14 @@
+ document when B<multipart_final()> should be called instead of
+ B<multipart_end()>.
+ 
+-=head3 multipart_final()
++=head2 multipart_final()
+ 
+     multipart_final()
+ 
+ End all parts.  You should call B<multipart_final()> rather than
+ B<multipart_end()> at the end of the last part of the multipart document.
+ 
+-=head3 CGI::Push
++=head2 CGI::Push
+ 
+ Users interested in server push applications should also have a look
+ at the B<CGI::Push> module.
+@@ -2398,7 +2398,7 @@
+ 
+ ################# Debugging Methods ################
+ 
+-=head2 DEBUGGING
++=head1 DEBUGGING
+ 
+ If you are running the script from the command line or in the perl
+ debugger, you can pass the script a list of keywords or
+@@ -2448,7 +2448,7 @@
+ 
+     your_script.pl "name1='I am a long value'" "name2=two\ words"
+ 
+-=head3 Dump() Dumping the current object details
++=head2 Dump() Dumping the current object details
+ 
+ The B<Dump()> method produces a string consisting of all the
+ query's object attributes formatted nicely as a nested list.  This dump
+@@ -2501,7 +2501,7 @@
+ 
+     print $q->Dump(\%ENV);
+ 
+-=head3 PrintEnv() Dumping the environment
++=head2 PrintEnv() Dumping the environment
+ 
+ You can get a similar browser friendly dump of the current %ENV hash using:
+ 
+@@ -2544,7 +2544,7 @@
+         };
+ 
+ 
+-=head3 cgi_error() Retrieving CGI::Simple error messages
++=head2 cgi_error() Retrieving CGI::Simple error messages
+ 
+ Errors can occur while processing user input, particularly when
+ processing uploaded files.  When these errors occur, CGI::Simple will stop
+@@ -2565,28 +2565,28 @@
+ 
+ ############### Accessor Methods ################
+ 
+-=head2 ACCESSOR METHODS
++=head1 ACCESSOR METHODS
+ 
+-=head3 version() Get the CGI::Simple version info
++=head2 version() Get the CGI::Simple version info
+ 
+     $version = $q->version();
+ 
+ The B<version()> method returns the value of $VERSION
+ 
+-=head3 nph() Enable/disable NPH (Non Parsed Header) mode
++=head2 nph() Enable/disable NPH (Non Parsed Header) mode
+ 
+     $q->nph(1);  # enable NPH mode
+     $q->nph(0);  # disable NPH mode
+ 
+ The B<nph()> method enables and disables NPH headers. See the NPH section.
+ 
+-=head3 all_parameters() Get the names/values of all parameters
++=head2 all_parameters() Get the names/values of all parameters
+ 
+     @all_parameters = $q->all_parameters();
+ 
+ The B<all_parameters()> method is an alias for B<param()>
+ 
+-=head3 charset() Get/set the current character set.
++=head2 charset() Get/set the current character set.
+ 
+     $charset = $q->charset(); # get current charset
+     $q->charset('utf-42');    # set the charset
+@@ -2594,13 +2594,13 @@
+ The B<charset()> method gets the current charset value if no argument is
+ supplied or sets it if an argument is supplied.
+ 
+-=head3 crlf() Get the system specific line ending sequence
++=head2 crlf() Get the system specific line ending sequence
+ 
+     $crlf = $q->crlf();
+ 
+ The B<crlf()> method returns the system specific line ending sequence.
+ 
+-=head3 globals() Get/set the value of the remaining global variables
++=head2 globals() Get/set the value of the remaining global variables
+ 
+     $globals = $q->globals('FATAL');     # get the current value of $FATAL
+     $globals = $q->globals('FATAL', 1 ); # set croak mode on cgi_error()
+@@ -2610,20 +2610,20 @@
+ makes no difference as they must be set prior to calling the new constructor
+ but there might be reason the change the value of others.
+ 
+-=head3 auth_type() Get the current authorization/verification method
++=head2 auth_type() Get the current authorization/verification method
+ 
+     $auth_type = $q->auth_type();
+ 
+ The B<auth_type()> method returns the value of $ENV{'AUTH_TYPE'} which should
+ contain the authorization/verification method in use for this script, if any.
+ 
+-=head3 content_length() Get the content length submitted in a POST
++=head2 content_length() Get the content length submitted in a POST
+ 
+     $content_length = $q->content_length();
+ 
+ The B<content_length()> method returns the value of $ENV{'AUTH_TYPE'}
+ 
+-=head3 content_type() Get the content_type of data submitted in a POST
++=head2 content_type() Get the content_type of data submitted in a POST
+ 
+     $content_type = $q->content_type();
+ 
+@@ -2631,26 +2631,26 @@
+ a POST, generally 'multipart/form-data' or
+ 'application/x-www-form-urlencoded' as supplied in $ENV{'CONTENT_TYPE'}
+ 
+-=head3 document_root() Get the document root
++=head2 document_root() Get the document root
+ 
+     $document_root = $q->document_root();
+ 
+ The B<document_root()> method returns the value of $ENV{'DOCUMENT_ROOT'}
+ 
+-=head3 gateway_interface() Get the gateway interface
++=head2 gateway_interface() Get the gateway interface
+ 
+     $gateway_interface = $q->gateway_interface();
+ 
+ The B<gateway_interface()> method returns the value of
+ $ENV{'GATEWAY_INTERFACE'}
+ 
+-=head3 path_translated() Get the value of path translated
++=head2 path_translated() Get the value of path translated
+ 
+     $path_translated = $q->path_translated();
+ 
+ The B<path_translated()> method returns the value of $ENV{'PATH_TRANSLATED'}
+ 
+-=head3 referer() Spy on your users
++=head2 referer() Spy on your users
+ 
+     $referer = $q->referer();
+ 
+@@ -2658,14 +2658,14 @@
+ the URL of the page the browser was viewing prior to fetching your script.
+ Not available for all browsers.
+ 
+-=head3 remote_addr() Get the remote address
++=head2 remote_addr() Get the remote address
+ 
+     $remote_addr = $q->remote_addr();
+ 
+ The B<remote_addr()> method returns the value of $ENV{'REMOTE_ADDR'} or
+ 127.0.0.1 (localhost) if this is not defined.
+ 
+-=head3 remote_host() Get a value for remote host
++=head2 remote_host() Get a value for remote host
+ 
+     $remote_host = $q->remote_host();
+ 
+@@ -2673,13 +2673,13 @@
+ defined. If this is not defined it returns $ENV{'REMOTE_ADDR'} If this is not
+ defined it returns 'localhost'
+ 
+-=head3 remote_ident() Get the remote identity
++=head2 remote_ident() Get the remote identity
+ 
+     $remote_ident = $q->remote_ident();
+ 
+ The B<remote_ident()> method returns the value of $ENV{'REMOTE_IDENT'}
+ 
+-=head3 remote_user() Get the remote user
++=head2 remote_user() Get the remote user
+ 
+     $remote_user = $q->remote_user();
+ 
+@@ -2687,7 +2687,7 @@
+ for user verification, if this script is protected. The value comes from
+ $ENV{'REMOTE_USER'}
+ 
+-=head3 request_method() Get the request method
++=head2 request_method() Get the request method
+ 
+     $request_method = $q->request_method();
+ 
+@@ -2695,7 +2695,7 @@
+ script, usually one of 'POST', 'GET' or 'HEAD' as supplied by
+ $ENV{'REQUEST_METHOD'}
+ 
+-=head3 script_name() Get the script name
++=head2 script_name() Get the script name
+ 
+     $script_name = $q->script_name();
+ 
+@@ -2703,28 +2703,28 @@
+ defined. Otherwise it returns Perl's script name from $0. Failing this it
+ returns a null string ''
+ 
+-=head3 server_name() Get the server name
++=head2 server_name() Get the server name
+ 
+     $server_name = $q->server_name();
+ 
+ The B<server_name()> method returns the value of $ENV{'SERVER_NAME'} if defined
+ or 'localhost' otherwise
+ 
+-=head3 server_port() Get the port the server is listening on
++=head2 server_port() Get the port the server is listening on
+ 
+     $server_port = $q->server_port();
+ 
+ The B<server_port()> method returns the value $ENV{'SERVER_PORT'} if defined or
+ 80 if not.
+ 
+-=head3 server_protocol() Get the current server protocol
++=head2 server_protocol() Get the current server protocol
+ 
+     $server_protocol = $q->server_protocol();
+ 
+ The B<server_protocol()> method returns the value of $ENV{'SERVER_PROTOCOL'} if
+ defined or 'HTTP/1.0' otherwise
+ 
+-=head3 server_software() Get the server software
++=head2 server_software() Get the server software
+ 
+     $server_software = $q->server_software();
+ 
+@@ -2733,7 +2733,7 @@
+ Linux, FTPs to www.apache.org, installs Apache, and then restores your system
+ from tape. Well maybe not, but it's a nice thought.
+ 
+-=head3 user_name() Get a value for the user name.
++=head2 user_name() Get a value for the user name.
+ 
+     $user_name = $q->user_name();
+ 
+@@ -2744,7 +2744,7 @@
+ Technically the B<user_name()> method returns the value of $ENV{'HTTP_FROM'}
+ or failing that $ENV{'REMOTE_IDENT'} or as a last choice $ENV{'REMOTE_USER'}
+ 
+-=head3 user_agent() Get the users browser type
++=head2 user_agent() Get the users browser type
+ 
+     $ua = $q->user_agent();          # return the user agent
+     $ok = $q->user_agent('mozilla'); # return true if user agent 'mozilla'
+@@ -2753,14 +2753,14 @@
+ called without an argument or true or false if the $ENV{'HTTP_USER_AGENT'}
+ matches the passed argument. The matching is case insensitive and partial.
+ 
+-=head3 virtual_host() Get the virtual host
++=head2 virtual_host() Get the virtual host
+ 
+     $virtual_host = $q->virtual_host();
+ 
+ The B<virtual_host()> method returns the value of  $ENV{'HTTP_HOST'} if defined
+ or $ENV{'SERVER_NAME'} as a default. Port numbers are removed.
+ 
+-=head3 path_info() Get any extra path info set to the script
++=head2 path_info() Get any extra path info set to the script
+ 
+     $path_info = $q->path_info();
+ 
+@@ -2777,7 +2777,7 @@
+ but incorrect.  The best thing to do is to avoid using additional
+ path information in CGI scripts destined for use with IIS.
+ 
+-=head3 Accept() Get the browser MIME types
++=head2 Accept() Get the browser MIME types
+ 
+     $Accept = $q->Accept();
+ 
+@@ -2788,13 +2788,13 @@
+ (don't want) to 1.0.  Glob types (e.g. text/*) in the browser's accept
+ list are handled correctly.
+ 
+-=head3 accept() Alias for Accept()
++=head2 accept() Alias for Accept()
+ 
+     $accept = $q->accept();
+ 
+ The B<accept()> Method is an alias for Accept()
+ 
+-=head3 http() Get a range of HTTP related information
++=head2 http() Get a range of HTTP related information
+ 
+     $http = $q->http();
+ 
+@@ -2811,7 +2811,7 @@
+    $requested_language = $q->http('Accept_language');
+    $requested_language = $q->http('HTTP_ACCEPT_LANGUAGE');
+ 
+-=head3 https() Get a range of HTTPS related information
++=head2 https() Get a range of HTTPS related information
+ 
+     $https = $q->https();
+ 
+@@ -2819,14 +2819,14 @@
+ without an argument it returns the value of $ENV{'HTTPS'} which will be
+ true if a HTTPS connection is in use and false otherwise.
+ 
+-=head3 protocol() Get the current protocol
++=head2 protocol() Get the current protocol
+ 
+     $protocol = $q->protocol();
+ 
+ The B<protocol()> method returns 'https' if a HTTPS connection is in use or the
+ B<server_protocol()> minus version numbers ('http') otherwise.
+ 
+-=head3 url() Return the script's URL in several formats
++=head2 url() Return the script's URL in several formats
+ 
+     $full_url      = $q->url();
+     $full_url      = $q->url(-full=>1);
+@@ -2882,7 +2882,7 @@
+ 
+ =back
+ 
+-=head3 self_url() Get the scripts complete URL
++=head2 self_url() Get the scripts complete URL
+ 
+     $self_url = $q->self_url();
+ 
+@@ -2890,7 +2890,7 @@
+ 
+    $self->url( '-path_info'=>1, '-query'=>1, '-full'=>1 );
+ 
+-=head3 state() Alias for self_url()
++=head2 state() Alias for self_url()
+ 
+     $state = $q->state();
+ 
+@@ -2900,7 +2900,7 @@
+ 
+ ################# cgi-lib.pl Compatibility Methods #################
+ 
+-=head2 COMPATIBILITY WITH cgi-lib.pl 2.18
++=head1 COMPATIBILITY WITH cgi-lib.pl 2.18
+ 
+ To make it easier to port existing programs that use cgi-lib.pl all
+ the subs within cgi-lib.pl are available in CGI::Simple.  Using the
+@@ -2965,7 +2965,7 @@
+ 
+ ############### Compatibility with mod_perl ################
+ 
+-=head2 COMPATIBILITY WITH mod_perl
++=head1 COMPATIBILITY WITH mod_perl
+ 
+ This module uses Selfloader and the __DATA__ token to ensure that only code
+ that is used gets complied. This optimises performance but means that it
+@@ -2986,7 +2986,7 @@
+ 
+ ############### Compatibility with CGI.pm ################
+ 
+-=head2 COMPATIBILITY WITH CGI.pm
++=head1 COMPATIBILITY WITH CGI.pm
+ 
+ I has long been suggested that the CGI and HTML parts of CGI.pm should be
+ split into separate modules (even the author suggests this!), CGI::Simple
+@@ -3020,7 +3020,7 @@
+     3165: Problem:'fillBuffer' $self->fillBuffer($FILLUNIT);
+     ....
+ 
+-=head2 DIFFERENCES FROM CGI.pm
++=head1 DIFFERENCES FROM CGI.pm
+ 
+ CGI::Simple is strict and warnings compliant. SelfLoader is used to load only
+ the required code. You can easily optimize code loading simply by moving the
+@@ -3053,7 +3053,7 @@
+ some minor changes and tweaks have been made. They will likely be
+ insignificant to most users but here are the gory details.
+ 
+-=head3 Globals Variables
++=head2 Globals Variables
+ 
+ The list of global variables has been pruned by 75%. Here is the complete
+ list of the global variables used:
+@@ -3169,7 +3169,7 @@
+ tempfile requirements. The rest of the globals are HTML related, export
+ related, hand rolled autoload related or serve obscure purposes in CGI.pm
+ 
+-=head3 Changes to pragmas
++=head2 Changes to pragmas
+ 
+ There are some new pragmas available. See the pragmas section for details.
+ The following CGI.pm pragmas are not available:
+@@ -3188,13 +3188,13 @@
+ and remove the __DATA__ token. Tempfiles are now private by default and the
+ other pragmas are HTML related.
+ 
+-=head3 Filehandles
++=head2 Filehandles
+ 
+ Unlike CGI.pm which tries to accept all filehandle like objects only \*FH
+ and $fh are accepted by CGI::Simple as file accessors for B<new()> and B<save()>.
+ IO::File objects work fine.
+ 
+-=head3 Hash interface
++=head2 Hash interface
+ 
+     %hash = $q->Vars();     # pack values with "\0";
+     %hash = $q->Vars(",");  # comma separate values
+@@ -3204,17 +3204,17 @@
+ supplied the default "\0" (null byte) will be used. Null bytes are dangerous
+ things for C based code (ie Perl).
+ 
+-=head3 cgi-lib.pl
++=head2 cgi-lib.pl
+ 
+ All the cgi-lib.pl 2.18 routines are supported. Unlike CGI.pm all the
+ subroutines from cgi-lib.pl are included. They have been GOLFED down to
+ 25 lines but they all work pretty much the same as the originals.
+ 
+-=head2 CGI::Simple COMPLETE METHOD LIST
++=head1 CGI::Simple COMPLETE METHOD LIST
+ 
+ Here is a complete list of all the CGI::Simple methods.
+ 
+-=head3 Guts (hands off, except of course for new)
++=head2 Guts (hands off, except of course for new)
+ 
+     _initialize_globals
+     _use_cgi_pm_global_settings
+@@ -3232,7 +3232,7 @@
+     _save_tmpfile
+     _read_data
+ 
+-=head3 Core Methods
++=head2 Core Methods
+ 
+     param
+     add_param
+@@ -3251,13 +3251,13 @@
+     parse_query_string
+     parse_keywordlist
+ 
+-=head3 Save and Restore from File Methods
++=head2 Save and Restore from File Methods
+ 
+     _init_from_file
+     save
+     save_parameters
+ 
+-=head3 Miscellaneous Methods
++=head2 Miscellaneous Methods
+ 
+     url_decode
+     url_encode
+@@ -3266,33 +3266,33 @@
+     put
+     print
+ 
+-=head3 Cookie Methods
++=head2 Cookie Methods
+ 
+     cookie
+     raw_cookie
+ 
+-=head3 Header Methods
++=head2 Header Methods
+ 
+     header
+     cache
+     no_cache
+     redirect
+ 
+-=head3 Server Push Methods
++=head2 Server Push Methods
+ 
+     multipart_init
+     multipart_start
+     multipart_end
+     multipart_final
+ 
+-=head3 Debugging Methods
++=head2 Debugging Methods
+ 
+     read_from_cmdline
+     Dump
+     as_string
+     cgi_error
+ 
+-=head3 cgi-lib.pl Compatibility Routines - all 2.18 functions available
++=head2 cgi-lib.pl Compatibility Routines - all 2.18 functions available
+ 
+     _shift_if_ref
+     ReadParse
+@@ -3310,7 +3310,7 @@
+     CgiDie
+     CgiError
+ 
+-=head3 Accessor Methods
++=head2 Accessor Methods
+ 
+     version
+     nph
+@@ -3348,7 +3348,7 @@
+     self_url
+     state
+ 
+-=head2 NEW METHODS IN CGI::Simple
++=head1 NEW METHODS IN CGI::Simple
+ 
+ There are a few new methods in CGI::Simple as listed below. The highlights are
+ the B<parse_query_string()> method to add the QUERY_STRING data to your object if
+@@ -3360,7 +3360,7 @@
+ argument as shown in the synopsis. If this is supplied the uploaded file will
+ be written to there automagically.
+ 
+-=head3 Internal Routines
++=head2 Internal Routines
+ 
+     _initialize_globals()
+     _use_cgi_pm_global_settings()
+@@ -3375,7 +3375,7 @@
+     _save_tmpfile()
+     _read_data()
+ 
+-=head3 New Public Methods
++=head2 New Public Methods
+ 
+     add_param()             # adds a param/value(s) pair +/- overwrite
+     upload_info()           # uploaded files MIME type and size
+@@ -3385,7 +3385,7 @@
+     no_cache()              # add both the Pragma: no-cache
+                             # and Expires/Date => 'now' to header
+ 
+-=head3  cgi-lib.pl methods added for completeness
++=head2  cgi-lib.pl methods added for completeness
+ 
+     _shift_if_ref()         # internal hack reminiscent of self_or_default :-)
+     MyBaseUrl()
+@@ -3396,7 +3396,7 @@
+     CgiDie()
+     CgiError()
+ 
+-=head3 New Accessors
++=head2 New Accessors
+ 
+     crlf()                  # returns CRLF sequence
+     globals()               # global vars now stored in $q object - get/set
+@@ -3404,13 +3404,13 @@
+     document_root()         # returns $ENV{'DOCUMENT_ROOT'}
+     gateway_interface()     # returns $ENV{'GATEWAY_INTERFACE'}
+ 
+-=head2 METHODS IN CGI.pm NOT IN CGI::Simple
++=head1 METHODS IN CGI.pm NOT IN CGI::Simple
+ 
+ Here is a complete list of what is not included in CGI::Simple. Basically all
+ the HTML related stuff plus large redundant chunks of the guts. The check.pl
+ script in the /misc dir will check to see if a script is using any of these.
+ 
+-=head3 Guts - rearranged, recoded, renamed and hacked out of existence
++=head2 Guts - rearranged, recoded, renamed and hacked out of existence
+ 
+     initialize_globals()
+     compile()
+@@ -3431,7 +3431,7 @@
+     read_from_client()
+     import_names()     # I dislike this and left it out, so shoot me.
+ 
+-=head3 HTML Related
++=head2 HTML Related
+ 
+     autoEscape()
+     URL_ENCODED()
+@@ -3469,7 +3469,7 @@
+     nosticky()
+     default_dtd()
+ 
+-=head3 Upload Related
++=head2 Upload Related
+ 
+ CGI::Simple uses anonymous tempfiles supplied by IO::File to spool uploaded
+ files to.
+@@ -3479,7 +3479,7 @@
+     uploadInfo()        # relied on FH access, replaced with upload_info()
+ 
+ 
+-=head3 Really Private Subs (marked as so)
++=head2 Really Private Subs (marked as so)
+ 
+     previous_or_default()
+     register_parameter()
+@@ -3489,7 +3489,7 @@
+     asString()
+     compare()
+ 
+-=head3 Internal Multipart Parsing Routines
++=head2 Internal Multipart Parsing Routines
+ 
+     read_multipart()
+     readHeader()
+@@ -3498,16 +3498,16 @@
+     fillBuffer()
+     eof()
+ 
+-=head2 EXPORT
++=head1 EXPORT
+ 
+ Nothing.
+ 
+-=head2 BUGS
++=head1 BUGS
+ 
+ As this is 0.01 there are almost bound to be some. Not recommended for
+ production use.
+ 
+-=head2 AUTHOR INFORMATION
++=head1 AUTHOR INFORMATION
+ 
+ Copyright 2001 Dr James Freeman E<lt>jfreeman@tassie.net.auE<gt>
+ 
+@@ -3522,7 +3522,7 @@
+ remotely browser dependent, please provide information about the
+ affected browsers as well.
+ 
+-=head2 CREDITS
++=head1 CREDITS
+ 
+ Lincoln D. Stein (lstein@cshl.org) and everyone else who worked on the
+ original CGI.pm upon which this module is heavily based
+@@ -3533,7 +3533,7 @@
+ failures as well as Perlmonks:
+ tommyw, grinder, Jaap, vek, erasei, jlongino and strider_corinth
+ 
+-=head2 SEE ALSO
++=head1 SEE ALSO
+ 
+ B<CGI>, L<CGI::Simple::Standard>, L<CGI::Simple::Cookie>,
+ L<CGI::Simple::Util>
diff --git a/www/p5-CGI-Simple/files/patch-Simple::Cookie.pm b/www/p5-CGI-Simple/files/patch-Simple::Cookie.pm
new file mode 100644
index 000000000000..0c23285a322c
--- /dev/null
+++ b/www/p5-CGI-Simple/files/patch-Simple::Cookie.pm
@@ -0,0 +1,93 @@
+--- Simple/Cookie.pm.orig	Wed Nov 10 21:56:28 2004
++++ Simple/Cookie.pm	Wed Nov 10 21:57:07 2004
+@@ -142,11 +142,11 @@
+ 
+ __END__
+ 
+-=head2 NAME
++=head1 NAME
+ 
+ CGI::Cookie - Interface to Netscape Cookies
+ 
+-=head2 SYNOPSIS
++=head1 SYNOPSIS
+ 
+     use CGI::Simple::Standard qw(header);
+     use CGI::Simple::Cookie;
+@@ -166,7 +166,7 @@
+     # create cookies returned from an external source
+     %cookies = parse CGI::Simple::Cookie($ENV{COOKIE});
+ 
+-=head2 DESCRIPTION
++=head1 DESCRIPTION
+ 
+ CGI::Simple::Cookie is an interface to Netscape (HTTP/1.1) cookies, an
+ innovation that allows Web servers to store persistent information on
+@@ -178,7 +178,7 @@
+ 
+     http://www.ics.uci.edu/pub/ietf/http/rfc2109.txt
+ 
+-=head2 USING CGI::Simple::Cookie
++=head1 USING CGI::Simple::Cookie
+ 
+ CGI::Simple::Cookie is object oriented.  Each cookie object has a name
+ and a value.  The name is any scalar value.  The value is any scalar or
+@@ -228,7 +228,7 @@
+ 
+ =back
+ 
+-=head3 Creating New Cookies
++=head2 Creating New Cookies
+ 
+     $c = new CGI::Simple::Cookie( -name    =>  'foo',
+                                   -value   =>  'bar',
+@@ -260,7 +260,7 @@
+ B<-secure> if set to a true value instructs the browser to return the
+ cookie only when a cryptographic protocol is in use.
+ 
+-=head3 Sending the Cookie to the Browser
++=head2 Sending the Cookie to the Browser
+ 
+ Within a CGI script you can send a cookie to the browser by creating
+ one or more Set-Cookie: fields in the HTTP header.  Here is a typical
+@@ -295,7 +295,7 @@
+ 
+     print "Set-Cookie: ",$c->as_string,"\n";
+ 
+-=head3 Recovering Previous Cookies
++=head2 Recovering Previous Cookies
+ 
+     %cookies = fetch CGI::Simple::Cookie;
+ 
+@@ -322,7 +322,7 @@
+        $COOKIES = `cat /usr/tmp/Cookie_stash`;
+        %cookies = parse CGI::Simple::Cookie($COOKIES);
+ 
+-=head3 Manipulating Cookies
++=head2 Manipulating Cookies
+ 
+ Cookie objects have a series of accessor methods to get and set cookie
+ attributes.  Each accessor has a similar syntax.  Called without
+@@ -365,7 +365,7 @@
+ =back
+ 
+ 
+-=head2 AUTHOR INFORMATION
++=head1 AUTHOR INFORMATION
+ 
+ Original version copyright 1997-1998, Lincoln D. Stein.  All rights reserved.
+ 
+@@ -376,11 +376,11 @@
+ 
+ Address bug reports and comments to: jfreeman@tassie.net.au
+ 
+-=head2 BUGS
++=head1 BUGS
+ 
+ This section intentionally left blank :-)
+ 
+-=head2 SEE ALSO
++=head1 SEE ALSO
+ 
+ L<CGI::Carp>, L<CGI::Simple>
+ 
diff --git a/www/p5-CGI-Simple/files/patch-Simple::Standard.pm b/www/p5-CGI-Simple/files/patch-Simple::Standard.pm
new file mode 100644
index 000000000000..47c8e1dbfed1
--- /dev/null
+++ b/www/p5-CGI-Simple/files/patch-Simple::Standard.pm
@@ -0,0 +1,104 @@
+--- Simple/Standard.pm.orig	Wed Nov 10 21:58:55 2004
++++ Simple/Standard.pm	Wed Nov 10 21:59:28 2004
+@@ -126,12 +126,12 @@
+ 
+ 1;
+ 
+-=head2 NAME
++=head1 NAME
+ 
+ CGI::Simple::Standard - a wrapper module for CGI::Simple that provides a
+ function style interface
+ 
+-=head2 SYNOPSIS
++=head1 SYNOPSIS
+ 
+     use CGI::Simple::Standard qw( -autoload );
+     use CGI::Simple::Standard qw( :core :cookie :header :misc );
+@@ -210,13 +210,13 @@
+ 
+     dienice( cgi_error() ) if cgi_error();
+ 
+-=head2 DESCRIPTION
++=head1 DESCRIPTION
+ 
+ This module is a wrapper for the completely object oriented CGI::Simple
+ module and provides a simple functional style interface. It provides two
+ different methods to import function names into your namespace.
+ 
+-=head3 Autoloading
++=head2 Autoloading
+ 
+ If you specify the '-autoload' pragma like this:
+ 
+@@ -234,7 +234,7 @@
+ (if it exists) to it. A fatal exception will be thrown if you try to use an
+ undefined method (function).
+ 
+-=head3 Specified Export
++=head2 Specified Export
+ 
+ Alternatively you can specify the functions you wish to import. You can do
+ this on a per function basis like this:
+@@ -284,12 +284,12 @@
+ 
+ Note that the function groups all start with a : char.
+ 
+-=head3 Mix and Match
++=head2 Mix and Match
+ 
+ You can use the '-autoload' pragma, specifically named function imports and
+ tag group imports together if you desire.
+ 
+-=head2 $POST_MAX and $DISABLE_UPLOADS
++=head1 $POST_MAX and $DISABLE_UPLOADS
+ 
+ If you wish to set $POST_MAX or $DISABLE_UPLOADS you must do this *after* the
+ use statement and *before* the first function call as shown in the synopsis.
+@@ -307,7 +307,7 @@
+ 
+     use CGI::Simple::Standard qw( -default ..... );
+ 
+-=head2 EXPORT
++=head1 EXPORT
+ 
+ Nothing by default.
+ 
+@@ -321,7 +321,7 @@
+ stub functions will be replaced with the real functions only if you actually
+ call them saving wasted compilation effort.
+ 
+-=head2 FUNCTION DETAILS
++=head1 FUNCTION DETAILS
+ 
+ This is a wrapper module for CGI::Simple. Virtually all the methods available
+ in the OO interface are available via the functional interface. Several
+@@ -349,11 +349,11 @@
+ For full details of the available functions see the CGI::Simple docs. Just
+ remove the $q-> part and use the method name directly.
+ 
+-=head2 BUGS
++=head1 BUGS
+ 
+ As this is 0.01 there are almost bound to be some.
+ 
+-=head2 AUTHOR
++=head1 AUTHOR
+ 
+ Dr James Freeman E<lt>jfreeman@tassie.net.auE<gt>
+ 
+@@ -361,12 +361,12 @@
+ implied warranty. It may be used, redistributed and/or modified under the terms
+ of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)
+ 
+-=head2 CREDITS
++=head1 CREDITS
+ 
+ The interface and key sections of the CGI::Simple code come from
+ CGI.pm by Lincoln Stein.
+ 
+-=head2 SEE ALSO
++=head1 SEE ALSO
+ 
+ L<CGI::Simple which is the back end for this module>,
+ B<CGI.pm by Lincoln Stein>
diff --git a/www/p5-CGI-Simple/files/patch-Simple::Util.pm b/www/p5-CGI-Simple/files/patch-Simple::Util.pm
new file mode 100644
index 000000000000..d89a51dc5c8c
--- /dev/null
+++ b/www/p5-CGI-Simple/files/patch-Simple::Util.pm
@@ -0,0 +1,42 @@
+--- Simple/Util.pm.orig	Wed Nov 10 21:57:52 2004
++++ Simple/Util.pm	Wed Nov 10 21:58:15 2004
+@@ -338,18 +338,18 @@
+ 
+ __END__
+ 
+-=head2 NAME
++=head1 NAME
+ 
+ CGI::Util - Internal utilities used by CGI::Simple module
+ 
+-=head2 SYNOPSIS
++=head1 SYNOPSIS
+ 
+     $escaped     = escapeHTML('In HTML you need to escape < > " and & chars');
+     $unescaped   = unescapeHTML('&lt;&gt;&quot;&amp;');
+     $url_encoded = escape($string);
+     $decoded     = unescape($url_encoded);
+ 
+-=head2 DESCRIPTION
++=head1 DESCRIPTION
+ 
+ CGI::Simple::Util contains essentially non public subroutines used by
+ CGI::Simple. There are HTML and URL escape and unescape routines that may
+@@ -358,7 +358,7 @@
+ An internal object is used to store a number of system specific details to
+ enable the escape routines to be accurate.
+ 
+-=head2 AUTHOR INFORMATION
++=head1 AUTHOR INFORMATION
+ 
+ Original version copyright 1995-1998, Lincoln D. Stein.  All rights reserved.
+ 
+@@ -369,7 +369,7 @@
+ 
+ Address bug reports and comments to: jfreeman@tassie.net.au
+ 
+-=head2 SEE ALSO
++=head1 SEE ALSO
+ 
+ L<CGI::Simple>
+ 
diff --git a/www/p5-CGI-Simple/pkg-descr b/www/p5-CGI-Simple/pkg-descr
new file mode 100644
index 000000000000..f4d43aa3951e
--- /dev/null
+++ b/www/p5-CGI-Simple/pkg-descr
@@ -0,0 +1,7 @@
+CGI::Simple provides a relatively lightweight drop in replacement
+for CGI.pm. It shares an identical OO interface to CGI.pm for
+parameter parsing, file upload, cookie handling and header generation.
+This module is entirely object oriented, however a complete functional
+interface is available by using the CGI::Simple::Standard module.
+
+WWW: http://search.cpan.org/dist/Cgi-Simple
diff --git a/www/p5-CGI-Simple/pkg-plist b/www/p5-CGI-Simple/pkg-plist
new file mode 100644
index 000000000000..dc27301343e1
--- /dev/null
+++ b/www/p5-CGI-Simple/pkg-plist
@@ -0,0 +1,9 @@
+%%SITE_PERL%%/CGI/Simple.pm
+%%SITE_PERL%%/CGI/Simple/Cookie.pm
+%%SITE_PERL%%/CGI/Simple/Standard.pm
+%%SITE_PERL%%/CGI/Simple/Util.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/CGI/Simple/.packlist
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/CGI/Simple
+@unexec rmdir %D/%%SITE_PERL%%/auto/CGI 2>/dev/null || true
+@dirrm %%SITE_PERL%%/CGI/Simple
+@unexec rmdir %D/%%SITE_PERL%%/CGI 2>/dev/null || true