------------------------------------------------------------------------------
-- Ada Web Server --
-- --
-- Copyright (C) 2000-2014, AdaCore --
-- --
-- This library is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
-- Free Software Foundation; either version 3, 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. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are --
-- granted additional permissions described in the GCC Runtime Library --
-- Exception, version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
--
Page '" -- Replace HTML control characters to the HTML inactive symbols -- to avoid correct HTML pages initiated from the client side. -- See http://www.securityfocus.com/bid/7596 & Fixed.Translate (URI, Maps.To_Mapping ("<>&", "{}@")) & "' Not found."); end if; end if; end Callback; ------------------------ -- Directory_Browsing -- ------------------------ procedure Directory_Browsing (Activated : Boolean) is begin Browse_Directory := Activated; end Directory_Browsing; ----------------------- -- Set_Cache_Control -- ----------------------- procedure Set_Cache_Control (Data : Messages.Cache_Data) is begin Cache_Option := To_Unbounded_String (String (Messages.To_Cache_Option (Data))); end Set_Cache_Control; end AWS.Services.Page_Server;