From e3a2f64df3b7a23e02dab1ab01e4b36cb4103a44 Mon Sep 17 00:00:00 2001
From: Marc Worrell <marc@worrell.nl>
Date: Fri, 21 Mar 2014 18:00:17 +0100
Subject: [PATCH] core: add z_media_archive:archive_delete/2

---
 src/support/z_media_archive.erl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/support/z_media_archive.erl b/src/support/z_media_archive.erl
index d4bba9a46e..f1ac9c0f30 100644
--- a/src/support/z_media_archive.erl
+++ b/src/support/z_media_archive.erl
@@ -32,6 +32,7 @@
     archive_copy/3,
     archive_copy_opt/2,
     archive_copy_opt/3,
+    archive_delete/2,
     archive_filename/2,
     rel_archive/2,
     safe_filename/1
@@ -79,7 +80,8 @@ archive_file(Filename, NewBasename, Context) ->
                 {error, exdev} ->
                     {ok, _BytesCopied} = file:copy(Fileabs, AbsPath),
                     ok = file:delete(Fileabs);
-                ok -> ok
+                ok -> 
+                    ok
             end,
             NewFile
     end.
@@ -115,6 +117,12 @@ archive_copy_opt(Filename, NewBasename, Context) ->
             rel_archive(Fileabs, Context)
     end.
 
+%% @doc Delete a filename in the archive
+archive_delete(Filename, Context) ->
+    AbsPath = abspath(Filename, Context),
+    file:delete(AbsPath). 
+
+
 %% Return an unique filename for archiving the file
 archive_filename(Filename, Context) ->
     Archive = z_path:media_archive(Context),