/src/yolk-configuration.adb
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;