new grant cleanup sproc

src/Sql/Sql.sqlproj

@@ -228,5 +228,6 @@
     <Build Include="dbo\Stored Procedures\CollectionCipher_UpdateCollectionsForCiphers.sql" />
     <Build Include="dbo\Stored Procedures\User_ReadByPremiumRenewal.sql" />
     <Build Include="dbo\Stored Procedures\User_UpdateRenewalReminderDate.sql" />
+    <Build Include="dbo\Stored Procedures\Grant_DeleteExpired.sql" />
   </ItemGroup>
 </Project>

src/Sql/dbo/Stored Procedures/Grant_DeleteExpired.sql

@@ -0,0 +1,19 @@
+CREATE PROCEDURE [dbo].[Grant_DeleteExpired]
+AS
+BEGIN
+    SET NOCOUNT ON
+
+    DECLARE @BatchSize INT = 100
+    DECLARE @Now DATETIME2(7) = GETUTCDATE()
+
+    WHILE @BatchSize > 0
+    BEGIN
+        DELETE TOP(@BatchSize)
+        FROM
+            [dbo].[Grant]
+        WHERE
+            [ExpirationDate] < @Now
+
+        SET @BatchSize = @@ROWCOUNT
+    END
+END

src/Sql/dbo/Tables/Grant.sql

@@ -14,3 +14,7 @@ GO
 CREATE NONCLUSTERED INDEX [IX_Grant_SubjectId_ClientId_Type]
     ON [dbo].[Grant]([SubjectId] ASC, [ClientId] ASC, [Type] ASC);
 
+GO
+CREATE NONCLUSTERED INDEX [IX_Grant_ExpirationDate]
+    ON [dbo].[Grant]([ExpirationDate] ASC);
+

util/Setup/DbScripts/2018-06-11_00_WebVaultUpdates.sql

@@ -17,6 +17,16 @@ BEGIN
 END
 GO
 
+IF NOT EXISTS (
+    SELECT * FROM sys.indexes  WHERE [Name]='IX_Grant_ExpirationDate'
+    AND object_id = OBJECT_ID('[dbo].[Grant]')
+)
+BEGIN
+    CREATE NONCLUSTERED INDEX [IX_Grant_ExpirationDate]
+        ON [dbo].[Grant]([ExpirationDate] ASC)
+END
+GO
+
 IF EXISTS(SELECT * FROM sys.views WHERE [Name] = 'UserView')
 BEGIN
     DROP VIEW [dbo].[UserView]
@@ -31,6 +41,33 @@ FROM
     [dbo].[User]
 GO
 
+IF OBJECT_ID('[dbo].[Grant_DeleteExpired]') IS NOT NULL
+BEGIN
+    DROP PROCEDURE [dbo].[Grant_DeleteExpired]
+END
+GO
+
+CREATE PROCEDURE [dbo].[Grant_DeleteExpired]
+AS
+BEGIN
+    SET NOCOUNT ON
+
+    DECLARE @BatchSize INT = 100
+    DECLARE @Now DATETIME2(7) = GETUTCDATE()
+
+    WHILE @BatchSize > 0
+    BEGIN
+        DELETE TOP(@BatchSize)
+        FROM
+            [dbo].[Grant]
+        WHERE
+            [ExpirationDate] < @Now
+
+        SET @BatchSize = @@ROWCOUNT
+    END
+END
+GO
+
 IF OBJECT_ID('[dbo].[User_Create]') IS NOT NULL
 BEGIN
     DROP PROCEDURE [dbo].[User_Create]