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
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
|
------------------------------------------------------------------------------
-- Ada Web Server --
-- --
-- Copyright (C) 2000-2001 --
-- ACT-Europe --
-- --
-- This library is free software; you can redistribute it and/or modify --
-- it under the terms of the GNU General Public License as published by --
-- the Free Software Foundation; either version 2 of the License, or (at --
-- your option) any later version. --
-- --
-- This library is distributed in the hope that it will be useful, but --
-- WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
-- General Public License for more details. --
-- --
-- You should have received a copy of the GNU General Public License --
-- along with this library; if not, write to the Free Software Foundation, --
-- Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. --
-- --
------------------------------------------------------------------------------
with AWS.Messages;
with AWS.Session;
with AWS.Parameters;
package body Runme_CB is
use AWS;
function Get (Request : in Status.Data) return Response.Data;
-- Handle the Get requests.
function Get_No_Session
(Request : in Status.Data) return Response.Data;
-- Handle the Get requests with no session.
function Put (Request : in Status.Data) return Response.Data;
-- Handle the Put requests.
---------
-- Get --
---------
function Get (Request : in Status.Data) return Response.Data is
URI : constant String := Status.URI (Request);
P_List : constant Parameters.List := Status.Parameters (Request);
Session_Id : constant Session.Id := Status.Session (Request);
C : Natural := 0;
begin
-- let's play with the Session now.
if Session.Exist (Session_Id, "counter") then
C := Session.Get (Session_Id, "counter");
end if;
C := C + 1;
Session.Set (Session_Id, "counter", C);
if C > 5 then
Session.Set (Session_Id, "another", "string value");
end if;
if URI = "/first_img" then
return Response.File (Content_Type => "image/png",
Filename => "adains.png");
elsif URI = "/last" then
return Response.Build
(Content_Type => "text/html",
Message_Body =>
"<p>Ok, that's the end of it for now!"
& "<p>filename = "
& Parameters.Get (P_List, "filename")
& "<p>filename_opt = "
& Parameters.Get (P_List, "filename_opt")
& "<p>color = "
& Parameters.Get (P_List, "color")
& "<p>size = "
& Parameters.Get (P_List, "size")
& "<p>go = "
& Parameters.Get (P_List, "go")
& "<p>length = "
& Positive'Image (Status.Content_Length (Request)));
elsif URI = "/upload" then
return Response.Build
(Content_Type => "text/html",
Message_Body =>
"<p>Let's look at the form data:"
& "<p>Your name is " & Parameters.Get (P_List, "name")
& "<p>parameter name (1) = "
& Parameters.Get_Name (P_List, 1)
& "<p>parameter value (1) = "
& Parameters.Get_Value (P_List, 1)
& "<p>parameter name (2) = "
& Parameters.Get_Name (P_List, 2)
& "<p>parameter value (2) = "
& Parameters.Get_Value (P_List, 2)
& "<p>There was " & Natural'Image (C)
& " requests to the server."
& "<form enctype=""multipart/form-data"" action=/last"
& " method=post>"
& "<input type=text name=color value=Color> <br>"
& "<input type=text name=size value=10> <br>"
& "<br>File to process: <input name=filename type=file>"
& "<br><input type=submit name=go value=""Send File"">"
& "<br>File to process: <input name=filename_opt type=file>"
& "</form>");
elsif URI = "/get-form" then
return Response.Build
(Content_Type => "text/html",
Message_Body => "<p>Hello again "
& Parameters.Get (P_List, "name") & " !"
& "<p>You have selected "
& Natural'Image (Parameters.Count (P_List, "OS"))
& " OS."
& "<p>Your first two OS are "
& Parameters.Get (P_List, "OS")
& ", " & Parameters.Get (P_List, "OS", 2)
& "<p>I'll now check for the POST form, counter="
& Natural'Image (C)
& "<p>Enter your name <form method=post action=/upload>"
& "<input type=text name=name value=""[default]"" size=15>"
& "<input type=submit name=go value=""This is a POST Form"">"
& "</form>");
else
return Response.Build
(Content_Type => "text/html",
Message_Body => "<p>Hello " & Status.Peername (Request)
& ", I'm glad you ask for " & URI & '.'
& "<p>I'm the runme demo. Note that this"
& " message could have been"
& " fetched on my file system..."
& "See <a href=""http://www.obry.net/archive/"
& "templates_parser.html"">Templates_Parser</a> :)"
& "<p>counter = " & Natural'Image (C)
& "<p><img src=""/first_img"">"
& "<p>Enter your name <form method=get action=/get-form>"
& "<input type=text name=name value=""<default>"" size=15>"
& "<br>"
& "<select name=OS multiple size=5>"
& "<option value=BeOS>BeOS"
& "<option value=Linux>Linux"
& "<option value=MacOS10>MacOS 10"
& "<option value=Solaris>Solaris"
& "<option value=Windows>Windows"
& "</select>"
& "<input type=submit name=go value=""This is a GET Form"">"
& "</form>");
end if;
end Get;
--------------------
-- Get_No_Session --
--------------------
function Get_No_Session
(Request : in Status.Data) return Response.Data
is
URI : constant String := Status.URI (Request);
P_List : constant Parameters.List := Status.Parameters (Request);
begin
if URI = "/first_img" then
return Response.File (Content_Type => "image/png",
Filename => "adains.png");
elsif URI = "/last" then
return Response.Build
(Content_Type => "text/html",
Message_Body =>
"<p>Ok, that's the end of it for now!"
& "<p>Your name is " & Parameters.Get (P_List, "name")
& "<p>parameter name (1) = "
& Parameters.Get_Name (P_List, 1)
& "<p>parameter name (2) = "
& Parameters.Get_Name (P_List, 2));
elsif URI = "/get-form" then
return Response.Build
(Content_Type => "text/html",
Message_Body => "<p>Hello again "
& Parameters.Get (P_List, "name") & " !"
& "<p>I'll now check for the POST form"
& "<p>Enter your name <form method=post action=/last>"
& "<input type=text name=name value=""<default>"" size=15>"
& "<input type=submit name=go value=""This is a POST Form"">"
& "</form>");
else
return Response.Build
(Content_Type => "text/html",
Message_Body => "<p>Hello, I'm glad you ask for " & URI & '.'
& "<p>I'm the runme demo. Note that this"
& " message could have been"
& " fetched on my file system..."
& "<p>This is a secure connection as shown by your browser's"
& " icon"
& "<p><img src=""/first_img"">"
& "<p>Enter your name <form method=get action=/get-form>"
& "<input type=text name=name value=""<default>"" size=15>"
& "<input type=submit name=go value=""This is a GET Form"">"
& "</form>");
end if;
end Get_No_Session;
---------
-- Put --
---------
function Put (Request : in Status.Data) return Response.Data is
pragma Unreferenced (Request);
begin
return Response.Acknowledge (Status_Code => Messages.S200);
end Put;
-------------
-- Service --
-------------
function Service (Request : in Status.Data)
return Response.Data is
use type Status.Request_Method;
begin
if Status.Method (Request) = Status.GET
or else Status.Method (Request) = Status.POST
then
return Get (Request);
elsif Status.Method (Request) = Status.PUT then
return Put (Request);
else
return Response.Build
(Content_Type => "text/html",
Message_Body => "<p>Unknown Request method");
end if;
end Service;
-----------------
-- Service_Sec --
-----------------
function Service_Sec (Request : in Status.Data)
return Response.Data is
use type Status.Request_Method;
begin
if Status.Method (Request) = Status.GET
or else Status.Method (Request) = Status.POST
then
return Get_No_Session (Request);
elsif Status.Method (Request) = Status.PUT then
return Put (Request);
else
return Response.Build
(Content_Type => "text/html",
Message_Body => "<p>Unknown Request method");
end if;
end Service_Sec;
end Runme_CB;
|
