utilada_unit_2.5.0_f65f9ba9/src/sys/http/util-http-parts.adb

 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
-----------------------------------------------------------------------
--  util-http-parts -- HTTP Parts
--  Copyright (C) 2011, 2012 Stephane Carrez
--  Written by Stephane Carrez (Stephane.Carrez@gmail.com)
--
--  Licensed under the Apache License, Version 2.0 (the "License");
--  you may not use this file except in compliance with the License.
--  You may obtain a copy of the License at
--
--      http://www.apache.org/licenses/LICENSE-2.0
--
--  Unless required by applicable law or agreed to in writing, software
--  distributed under the License is distributed on an "AS IS" BASIS,
--  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--  See the License for the specific language governing permissions and
--  limitations under the License.
-----------------------------------------------------------------------
with Ada.Directories;
with Ada.IO_Exceptions;

with Util.Log.Loggers;

package body Util.Http.Parts is

   Log : constant Util.Log.Loggers.Logger := Util.Log.Loggers.Create ("Util.Http.Parts");

   --  ------------------------------
   --  Write the part data item to the file.  This method is not guaranteed to succeed
   --  if called more than once for the same part. This allows a particular implementation
   --  to use, for example, file renaming, where possible, rather than copying all of
   --  the underlying data, thus gaining a significant performance benefit.
   --  ------------------------------
   procedure Save (Data : in Part;
                   Path : in String) is
      Old_Path : constant String := Part'Class (Data).Get_Local_Filename;
   begin
      Log.Info ("Saving uploaded file {0} to {1}", Old_Path, Path);

      Ada.Directories.Rename (Old_Name => Old_Path,
                              New_Name => Path);

   exception
      when Ada.IO_Exceptions.Use_Error =>
         Log.Error ("Cannot save uploaded file");
   end Save;

   --  ------------------------------
   --  Deletes the underlying storage for a file item, including deleting any associated
   --  temporary disk file.
   --  ------------------------------
   procedure Delete (Data : in out Part) is
      Path : constant String := Part'Class (Data).Get_Local_Filename;
   begin
      Ada.Directories.Delete_File (Path);
   end Delete;

end Util.Http.Parts;