Added unlisted videos limitations

Author: wdestin

apps/cf/lib/videos/videos.ex

@@ -80,7 +80,10 @@ defmodule CF.Videos do
   Can also throw if bad permissions.
   """
   def create!(user, video_url, params \\ []) do
-    UserPermissions.check!(user, :add, :video)
+    case Keyword.get(params, :unlisted, false) do
+      false -> UserPermissions.check!(user, :add, :video)
+      true -> UserPermissions.check!(user, :add, :unlisted_video)
+    end
 
     with metadata_fetcher when not is_nil(metadata_fetcher) <- get_metadata_fetcher(video_url),
          {:ok, metadata} <- metadata_fetcher.(video_url) do

apps/cf/priv/limitations.yaml

@@ -7,6 +7,7 @@ create:
   statement:            [  0 ,  3 ,  6 , 12 , 15 ,  25 ,  30 ,  30 ,  30 ]
   speaker:              [  0 ,  0 ,  0 ,  3 ,  6 ,  15 ,  30 ,  40 ,  50 ]
 add:
+  unlisted_video:       [  0 ,  0 ,  1 ,  1 ,  1 ,   2 ,  3  ,  5  ,  10 ]
   video:                [  0 ,  0 ,  0 ,  0 ,  1 ,   2 ,  3  ,  5  ,  10 ]
   speaker:              [  0 ,  0 ,  0 ,  3 ,  6 ,  15 , 30  , 40  ,  50 ]
 update:

apps/db/lib/db_type/entity.ex

@@ -8,5 +8,6 @@ defenum(
   comment: 4,
   fact: 5,
   user_action: 6,
-  user: 7
+  user: 7,
+  unlisted_video: 8
 )