PageRenderTime 48ms CodeModel.GetById 15ms app.highlight 28ms RepoModel.GetById 1ms app.codeStats 0ms

/src/yolk-configuration.adb

http://github.com/ThomasLocke/yolk
Ada | 253 lines | 167 code | 62 blank | 24 comment | 0 complexity | 21932e75535e4320fb25076610815f6e MD5 | raw file
  1-------------------------------------------------------------------------------
  2--                                                                           --
  3--                   Copyright (C) 2010-, Thomas Løcke                   --
  4--                                                                           --
  5--  This library is free software;  you can redistribute it and/or modify    --
  6--  it under terms of the  GNU General Public License  as published by the   --
  7--  Free Software  Foundation;  either version 3,  or (at your  option) any  --
  8--  later version. This library is distributed in the hope that it will be   --
  9--  useful, but WITHOUT ANY WARRANTY;  without even the implied warranty of  --
 10--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     --
 11--                                                                           --
 12--  As a special exception under Section 7 of GPL version 3, you are         --
 13--  granted additional permissions described in the GCC Runtime Library      --
 14--  Exception, version 3.1, as published by the Free Software Foundation.    --
 15--                                                                           --
 16--  You should have received a copy of the GNU General Public License and    --
 17--  a copy of the GCC Runtime Library Exception along with this program;     --
 18--  see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
 19--  <http://www.gnu.org/licenses/>.                                          --
 20--                                                                           --
 21-------------------------------------------------------------------------------
 22
 23with AWS.Config.Set;
 24
 25package body Yolk.Configuration is
 26
 27   ---------------------------
 28   -- Get_AWS_Configuration --
 29   ---------------------------
 30
 31   function Get_AWS_Configuration return AWS.Config.Object
 32   is
 33      Object : AWS.Config.Object;
 34   begin
 35      AWS.Config.Set.Accept_Queue_Size
 36        (O     => Object,
 37         Value => Config.Get (Accept_Queue_Size));
 38
 39      AWS.Config.Set.Admin_Password
 40        (O     => Object,
 41         Value => Config.Get (Admin_Password));
 42
 43      AWS.Config.Set.Admin_URI
 44        (O     => Object,
 45         Value => Config.Get (Admin_URI));
 46
 47      AWS.Config.Set.Case_Sensitive_Parameters
 48        (O     => Object,
 49         Value => Config.Get (Case_Sensitive_Parameters));
 50
 51      AWS.Config.Set.Certificate
 52        (O        => Object,
 53         Filename => Config.Get (Certificate));
 54
 55      AWS.Config.Set.Certificate_Required
 56        (O     => Object,
 57         Value => Config.Get (Certificate_Required));
 58
 59      AWS.Config.Set.Check_URL_Validity
 60        (O     => Object,
 61         Value => Config.Get (Check_URL_Validity));
 62
 63      AWS.Config.Set.Cleaner_Client_Data_Timeout
 64        (O     => Object,
 65         Value => Config.Get (Cleaner_Client_Data_Timeout));
 66
 67      AWS.Config.Set.Cleaner_Client_Header_Timeout
 68        (O     => Object,
 69         Value => Config.Get (Cleaner_Client_Header_Timeout));
 70
 71      AWS.Config.Set.Cleaner_Server_Response_Timeout
 72        (O     => Object,
 73         Value => Config.Get (Cleaner_Server_Response_Timeout));
 74
 75      AWS.Config.Set.Cleaner_Wait_For_Client_Timeout
 76        (O     => Object,
 77         Value => Config.Get (Cleaner_Wait_For_Client_Timeout));
 78
 79      AWS.Config.Set.Context_Lifetime
 80        (Value => Config.Get (Context_Lifetime));
 81
 82      AWS.Config.Set.CRL_File
 83        (O        => Object,
 84         Filename => Config.Get (CRL_File));
 85
 86      AWS.Config.Set.Directory_Browser_Page
 87        (O     => Object,
 88         Value => Config.Get (System_Templates_Path) & "/aws_directory.tmpl");
 89
 90      AWS.Config.Set.Exchange_Certificate
 91        (O     => Object,
 92         Value => Config.Get (Exchange_Certificate));
 93
 94      AWS.Config.Set.Force_Client_Data_Timeout
 95        (O     => Object,
 96         Value => Config.Get (Force_Client_Data_Timeout));
 97
 98      AWS.Config.Set.Force_Client_Header_Timeout
 99        (O     => Object,
100         Value => Config.Get (Force_Client_Header_Timeout));
101
102      AWS.Config.Set.Force_Server_Response_Timeout
103        (O     => Object,
104         Value => Config.Get (Force_Server_Response_Timeout));
105
106      AWS.Config.Set.Force_Wait_For_Client_Timeout
107        (O     => Object,
108         Value => Config.Get (Force_Wait_For_Client_Timeout));
109
110      AWS.Config.Set.Free_Slots_Keep_Alive_Limit
111        (O     => Object,
112         Value => Config.Get (Free_Slots_Keep_Alive_Limit));
113
114      AWS.Config.Set.Hotplug_Port
115        (O     => Object,
116         Value => Config.Get (Hotplug_Port));
117
118      AWS.Config.Set.Keep_Alive_Force_Limit
119        (O     => Object,
120         Value => Config.Get (Keep_Alive_Force_Limit));
121
122      AWS.Config.Set.Key
123        (O        => Object,
124         Filename => Config.Get (Key));
125
126      AWS.Config.Set.Line_Stack_Size
127        (O     => Object,
128         Value => Config.Get (Line_Stack_Size));
129
130      AWS.Config.Set.Log_Extended_Fields
131        (O     => Object,
132         Value => Config.Get (Log_Extended_Fields));
133
134      AWS.Config.Set.Max_Concurrent_Download
135        (Value => Config.Get (Max_Concurrent_Download));
136
137      AWS.Config.Set.Max_Connection
138        (O     => Object,
139         Value => Config.Get (Max_Connection));
140
141      AWS.Config.Set.Max_POST_Parameters
142        (O     => Object,
143         Value => Config.Get (Max_POST_Parameters));
144
145      AWS.Config.Set.Max_WebSocket_Handler
146        (Value => Config.Get (Max_WebSocket_Handler));
147
148      AWS.Config.Set.MIME_Types
149        (O     => Object,
150         Value => Config.Get (MIME_Types_File));
151
152      AWS.Config.Set.Protocol_Family
153        (O     => Object,
154         Value => Config.Get (Protocol_Family));
155
156      AWS.Config.Set.Receive_Timeout
157        (O     => Object,
158         Value => Config.Get (Receive_Timeout));
159
160      AWS.Config.Set.Reuse_Address
161        (O     => Object,
162         Value => Config.Get (Reuse_Address));
163
164      AWS.Config.Set.Security
165        (O     => Object,
166         Value => Config.Get (Security));
167
168      AWS.Config.Set.Security_Mode
169        (O    => Object,
170         Mode => Config.Get (Security_Mode));
171
172      AWS.Config.Set.Send_Timeout
173        (O     => Object,
174         Value => Config.Get (Send_Timeout));
175
176      AWS.Config.Set.Server_Host
177        (O     => Object,
178         Value => Config.Get (Server_Host));
179
180      AWS.Config.Set.Server_Name
181        (O     => Object,
182         Value => Config.Get (Server_Name));
183
184      AWS.Config.Set.Server_Port
185        (O     => Object,
186         Value => Config.Get (Server_Port));
187
188      AWS.Config.Set.Server_Priority
189        (O     => Object,
190         Value => Config.Get (Server_Priority));
191
192      AWS.Config.Set.Service_Priority
193        (Value => Config.Get (Service_Priority));
194
195      AWS.Config.Set.Session
196        (O     => Object,
197         Value => Config.Get (Session));
198
199      AWS.Config.Set.Session_Cleanup_Interval
200        (Value => Config.Get (Session_Cleanup_Interval));
201
202      AWS.Config.Set.Session_Cleaner_Priority
203        (Value => Config.Get (Session_Cleaner_Priority));
204
205      AWS.Config.Set.Session_Id_Length
206        (Value => Config.Get (Session_Id_Length));
207
208      AWS.Config.Set.Session_Lifetime
209        (Value => Config.Get (Session_Lifetime));
210
211      AWS.Config.Set.Session_Name
212        (O     => Object,
213         Value => Config.Get (Session_Name));
214
215      AWS.Config.Set.Status_Page
216        (O     => Object,
217         Value => Config.Get (Status_Page));
218
219      AWS.Config.Set.Transient_Cleanup_Interval
220        (Value => Config.Get (Transient_Cleanup_Interval));
221
222      AWS.Config.Set.Transient_Lifetime
223        (Value => Config.Get (Transient_Lifetime));
224
225      AWS.Config.Set.Trusted_CA
226        (O        => Object,
227         Filename => Config.Get (Trusted_CA));
228
229      AWS.Config.Set.Upload_Directory
230        (O     => Object,
231         Value => Config.Get (Upload_Directory));
232
233      AWS.Config.Set.Upload_Size_Limit
234        (O     => Object,
235         Value => Config.Get (Upload_Size_Limit));
236
237      AWS.Config.Set.WebSocket_Message_Queue_Size
238        (Value => Config.Get (WebSocket_Message_Queue_Size));
239
240      AWS.Config.Set.WebSocket_Origin
241        (Value => Config.Get (WebSocket_Origin));
242
243      AWS.Config.Set.WebSocket_Priority
244        (Value => Config.Get (WebSocket_Priority));
245
246      AWS.Config.Set.WWW_Root
247        (O     => Object,
248         Value => Config.Get (WWW_Root));
249
250      return Object;
251   end Get_AWS_Configuration;
252
253end Yolk.Configuration;