author | osayama <osamu.sayama@oracle.com> |
Fri, 16 Sep 2016 08:38:07 +0900 | |
changeset 6914 | 0c9c2d460328 |
parent 6501 | 0b2e4d3429a9 |
permissions | -rw-r--r-- |
6501
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
1 |
========================== Create file /var/tmp/a.pl =========================== |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
2 |
use strict; |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
3 |
use warnings; |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
4 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
5 |
use CGI; |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
6 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
7 |
my $q = CGI->new; |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
8 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
9 |
# Process an HTTP request |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
10 |
my @values = $q->multi_param('form_field'); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
11 |
my $value = $q->param('param_name'); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
12 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
13 |
my $fh = $q->upload('file_field'); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
14 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
15 |
my $riddle = $q->cookie('riddle_name'); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
16 |
my %answers = $q->cookie('answers'); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
17 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
18 |
# Prepare various HTTP responses |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
19 |
print $q->header(); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
20 |
print $q->header('application/json'); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
21 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
22 |
my $cookie1 = $q->cookie( |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
23 |
-name => 'riddle_name', |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
24 |
-value => "The Sphynx's Question" |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
25 |
); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
26 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
27 |
my $cookie2 = $q->cookie( |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
28 |
-name => 'answers', |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
29 |
-value => \%answers |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
30 |
); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
31 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
32 |
print $q->header( |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
33 |
-type => 'image/gif', |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
34 |
-expires => '+3d', |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
35 |
-cookie => [ $cookie1,$cookie2 ] |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
36 |
); |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
37 |
================================================================================ |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
38 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
39 |
$ perl /var/tmp/a.pl |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
40 |
Content-Type: text/html; charset=ISO-8859-1 |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
41 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
42 |
Content-Type: application/json; charset=ISO-8859-1 |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
43 |
|
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
44 |
Set-Cookie: riddle_name=The%20Sphynx%27s%20Question; path=/ |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
45 |
Set-Cookie: answers=; path=/ |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
46 |
Expires: Sat, 25 Jun 2016 10:55:24 GMT |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
47 |
Date: Wed, 22 Jun 2016 10:55:24 GMT |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
48 |
Content-Type: image/gif; charset=ISO-8859-1 |
0b2e4d3429a9
PSARC/2016/388 CGI perl module integration to Solaris
Vladimir Marek <Vladimir.Marek@oracle.com>
parents:
diff
changeset
|
49 |