New authentication method for services using an "Access Key" to overcome limitations in new DNN 7.2 services framework

Author: donker

App_LocalResources/LocalizationEditor.ascx.resx

@@ -217,4 +217,13 @@
   <data name="SendToService.Text" xml:space="preserve">
     <value>Send to Update Service</value>
   </data>
+  <data name="AccessKeys.Text" xml:space="preserve">
+    <value>Access Keys</value>
+  </data>
+  <data name="ServiceUrl.Text" xml:space="preserve">
+    <value>Service Url</value>
+  </data>
+  <data name="TranslatorAccess.Text" xml:space="preserve">
+    <value>Translator Access</value>
+  </data>
 </root>

Components/Data/DataProvider.vb

@@ -41,6 +41,7 @@ Namespace Data
 #Region " Permission Methods "
   Public MustOverride Function GetPermission(ByVal UserId As Integer, ByVal Locale As String, ByVal ModuleId As Integer) As IDataReader
   Public MustOverride Function GetPermissions(ByVal ModuleId As Integer) As IDataReader
+  Public MustOverride Function GetPermissionById(permissionId As Integer) As IDataReader
 #End Region
 
 #Region " Statistic Methods "

Components/Data/DataProvider_CRUD.vb

@@ -70,6 +70,10 @@ Namespace Data
    Return CType(SqlHelper.ExecuteReader(ConnectionString, DatabaseOwner & ObjectQualifier & ModuleQualifier & "GetPermissions", ModuleId), IDataReader)
   End Function
 
+  Public Overrides Function GetPermissionById(permissionId As Integer) As IDataReader
+   Return CType(SqlHelper.ExecuteReader(ConnectionString, DatabaseOwner & ObjectQualifier & ModuleQualifier & "GetPermissionById", permissionId), IDataReader)
+  End Function
+
 #End Region
 
 #Region " Statistics Methods "

Components/Data/SqlDataProvider.vb

@@ -23,12 +23,27 @@ Imports DotNetNuke.Common.Utilities
 Namespace Entities.Permissions
 
  Public Class PermissionsController
+
   Public Shared Function GetPermission(ByVal UserId As Integer, ByVal Locale As String, ByVal ModuleId As Integer) As PermissionInfo
    Return CType(CBO.FillObject(DataProvider.Instance().GetPermission(UserId, Locale, ModuleId), GetType(PermissionInfo)), PermissionInfo)
   End Function
 
-  Public Shared Function GetPermissions(ByVal ModuleId As Integer) As ArrayList
-   Return CBO.FillCollection(DataProvider.Instance().GetPermissions(ModuleId), GetType(PermissionInfo))
+  Public Shared Function GetPermissions(ByVal ModuleId As Integer) As List(Of PermissionInfo)
+   Return GetPermissions(ModuleId, False)
+  End Function
+
+  Public Shared Function GetPermissions(ByVal ModuleId As Integer, refreshCache As Boolean) As List(Of PermissionInfo)
+   Dim cacheKey As String = "LEPermissions" & ModuleId.ToString
+   Dim res As List(Of PermissionInfo) = CType(DotNetNuke.Common.Utilities.DataCache.GetCache(cacheKey), List(Of PermissionInfo))
+   If res Is Nothing Or refreshCache Then
+    res = CBO.FillCollection(Of PermissionInfo)(DataProvider.Instance().GetPermissions(ModuleId))
+    DotNetNuke.Common.Utilities.DataCache.SetCache(cacheKey, res)
+   End If
+   Return res
+  End Function
+
+  Public Shared Function GetPermissionById(permissionId As Integer) As PermissionInfo
+   Return CType(CBO.FillObject(DataProvider.Instance().GetPermissionById(permissionId), GetType(PermissionInfo)), PermissionInfo)
   End Function
 
   Public Shared Function HasAccess(ByVal user As UserInfo, ByVal AdminRole As String, ByVal ModuleId As Integer, ByVal Locale As String) As Boolean

Components/Data/SqlDataProvider_CRUD.vb

@@ -64,4 +64,14 @@ Public Class ModuleBase
  End Sub
 #End Region
 
+#Region " Public Methods "
+ Public Function LocalizeJSString(resourceKey As String) As String
+  Return DotNetNuke.UI.Utilities.ClientAPI.GetSafeJSString(LocalizeString(resourceKey))
+ End Function
+
+ Public Function LocalizeJSString(resourceKey As String, resourceFile As String) As String
+  Return DotNetNuke.UI.Utilities.ClientAPI.GetSafeJSString(DotNetNuke.Services.Localization.Localization.GetString(resourceKey, resourceFile))
+ End Function
+#End Region
+
 End Class