1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
|
CGI/Simple
==========
NAME
CGI::Simple - A Simple totally OO CGI interface that is CGI.pm compliant
IMPORTANT NOTE
This is a beta. It has a extensive test suite that proves its
compatibility with CGI.pm. It has had reasonably widespread use but as always
all care but no responsibility. YMMV. Please see the pod or the html version
of this in the /html directory for full details. This file gets looked at rarely
see the POD and CHANGES for more details.
TESTING NOTE
One of the test scripts in the /t dir is called concur.test It performs 158
(at last count) concurrency tests between your currently installed CGI.pm
and CGI::Simple.pm. This script is not automatically run during (n)make test
as some test failures are generally expected and no one reads the README :-)
I got sick of repeating there is a README did you READIT via email when quized
about test failures.
The typical test structure in concur.test is:
$q = new CGI;
$s = new CGI::Simple;
$cgi = $q->method(); # scalar context
$simp = $s->method();
@cgi = $q->method(); # array context
@simp = $s->method();
ok ( $simp, $cgi );
ok ( (join'',@simp), (join'',@cgi) );
If you are using CGI.pm version 2.78 you should get no failures. If you are
using earlier versions you can expect up to 13 failures (v2.43) due to various
default changes, bug fixes and other changes in CGI.pm. You get to see the
difference in output between the two modules. Generally it is very minor stuff.
You run the concurrency tests like this:
perl concur.test | more
INSTALLATION
To install this module type the following:
perl Makefile.PL
make
make test
make install
If you insist on doing a cut an paste install you will need
to install the following files in the locations shown:
usr/lib/perl5/site_perl/5.6.0/Cgi/Simple.pm
usr/lib/perl5/site_perl/5.6.0/Cgi/Simple/Cookie.pm
usr/lib/perl5/site_perl/5.6.0/Cgi/Simple/Standard.pm
usr/lib/perl5/site_perl/5.6.0/Cgi/Simple/Util.pm
On Win32 you will probably need to substitute something like
C:\Perl\site\lib\ for usr/lib/perl5/site_perl/5.6.0/
Before installing any perl module on Win32 I recommend deactivating Norton
Antivirus which conflicts with a lot of stuff, not just Perl and MakeMaker.
If your system hangs when you try to install modules this is a probable cause.
Then just:
perl Makefile.PL
nmake
nmake test
nmake install
You can get a copy of nmake.exe from Microsoft at
<http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe>
DEPENDENCIES
Nothing outside standard distribution. Specifically:
SelfLoader to minimise code compiled
IO::File for file uploads (provides temp file name/filehandle)
Data::Dumper for CGI::Simple object cloning, Dump(), PrintVariables(), and PrintEnv()
SYNOPSIS
use CGI::Simple;
$CGI::Simple::POST_MAX = 1024; # max upload via post default 100kB
$CGI::Simple::DISABLE_UPLOADS = 0; # enable uploads
$q = new CGI::Simple;
$q = new CGI::Simple( { 'foo'=>'1', 'bar'=>[2,3,4] } );
$q = new CGI::Simple( 'foo=1&bar=2&bar=3&bar=4' );
$q = new CGI::Simple( \*FILEHANDLE );
$q->save( \*FILEHANDLE ); # save current object to a file as used by new
@params = $q->param; # return all param names as a list
$value = $q->param('foo'); # return the first value supplied for 'foo'
@values = $q->param('foo'); # return all values supplied for foo
%fields = $q->Vars; # returns untied key value pair hash
$hash_ref = $q->Vars; # or as a hash ref
%fields = $q->Vars("|"); # packs multiple values with "|" rather than "\0";
@keywords = $q->keywords; # return all keywords as a list
$q->param( 'foo', 'some', 'new', 'values' ); # set new 'foo' values
$q->param( -name=>'foo', -value=>'bar' );
$q->param( -name=>'foo', -value=>['bar','baz'] );
$q->param( 'foo', 'some', 'new', 'values' ); # append values to 'foo'
$q->append( -name=>'foo', -value=>'bar' );
$q->append( -name=>'foo', -value=>['some', 'new', 'values'] );
$q->delete('foo'); # delete param 'foo' and all its values
$q->delete_all; # delete everything
<INPUT TYPE="file" NAME="upload_file" SIZE="42">
$files = $q->upload() # number of files uploaded
@files = $q->upload(); # names of all uploaded files
$filename = $q->param('upload_file') # filename of uploaded file
$size = $q->upload_info($filename); # size of uploaded file
my $fh = $q->upload($filename); # get filehandle to read from
while ( read( $fh, $buffer, 1024 ) ) { ... }
# short and sweet upload
$ok = $q->upload( $q->param('upload_file'), '/path/to/write/file.name' );
print "Uploaded ".$q->param('upload_file')." and wrote it OK!" if $ok;
$decoded = $q->url_decode($encoded);
$encoded = $q->url_encode($unencoded);
$escaped = $q->escapeHTML('<>"&');
$unescaped = $q->unescapeHTML('<>"&');
$qs = $q->query_string; # get all data in $q as a query string OK for GET
$q->no_cache(1); # set Pragma: no-cache + expires
print $q->header(); # print a simple header
# get a complex header
$header = $q->header( -type => 'image/gif'
-nph => 1,
-status => '402 Payment required',
-expires =>'+24h',
-cookie => $cookie,
-charset => 'utf-7',
-attachment => 'foo.gif',
-Cost => '$2.00'
);
@cookies = $q->cookie(); # get names of all available cookies
$value = $q->cookie('foo') # get first value of cookie 'foo'
@value = $q->cookie('foo') # get all values of cookie 'foo'
# get a cookie formatted for header() method
$cookie = $q->cookie( -name => 'Password',
-values => ['superuser','god','my dog woofie'],
-expires => '+3d',
-domain => '.nowhere.com',
-path => '/cgi-bin/database',
-secure => 1
);
print $q->header( -cookie=>$cookie ); # set cookie
print $q->redirect('http://go.away.now'); # print a redirect header
dienice( $q->cgi_error ) if $q->cgi_error;
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
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.
Essentially everything in CGI.pm that relates to the CGI (not HTML) side of
things is available. There are even a few new methods and additions to old
ones! See the extensive pod for details. If you are interested in what has
gone on under the hood see the Compatibility with CGI.pm section in the pod.
EXPORT
Nothing for object oriented interface. AUTOLOAD for method interface under
-autoload pragma or requested methods.
BUGS
As this is 0.03 there are almost bound to be some. There is an extensive test
suite and this module passes all the original CGI.pm tests which are also
included in the /t dir.
AUTHOR
Dr James Freeman <jfreeman@tassie.net.au>
CREDITS
The entire interface and key sections of code come from CGI.pm by Lincoln Stein.
SEE ALSO
CGI.pm by Lincoln Stein
COPYRIGHT AND LICENCE
This package is free software and is provided "as is" without express or
implied warranty. It may be used, redistributed and/or modified under the
same terms as Perl itself.
Copyright (C) 2001 Dr James Freeman
|
