mod_filestore: add simple test function to test the filestore connect…

…ion.
zotonic · Dec 24, 2021 · 58a2296 · 58a2296
1 parent 90db6f2
commit 58a2296
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/modules/mod_filestore/support/filestore_admin.erl b/modules/mod_filestore/support/filestore_admin.erl
@@ -21,7 +21,9 @@
 -export([
     event/2,
     task_file_to_local/1,
-    task_file_to_remote/1
+    task_file_to_remote/1,
+
+    testcred/1
     ]).
 
 -include_lib("zotonic.hrl").
@@ -74,6 +76,12 @@ event(#submit{message=admin_filestore_queue}, Context) ->
 
 -define(DATA, <<"Geen wolkje aan de lucht.">>).
 
+testcred(Context) ->
+    S3Url = m_config:get_value(mod_filestore, s3url, Context),
+    S3Key = m_config:get_value(mod_filestore, s3key, Context),
+    S3Secret = m_config:get_value(mod_filestore, s3secret, Context),
+    testcred(S3Url, S3Key, S3Secret, false).
+
 % Try a put, get, and delete sequence - optionally create private bucket
 testcred(S3Url, S3Key, S3Secret, IsCreateBucket)
     when is_binary(S3Url), is_binary(S3Key), is_binary(S3Secret) ->