Imports BVSoftware.BVC.Core Imports System.Web.Services _ Public Class WebSecurityServices Inherits System.Web.Services.WebService #Region " Web Services Designer Generated Code " Public Sub New() MyBase.New() 'This call is required by the Web Services Designer. InitializeComponent() 'Add your own initialization code after the InitializeComponent() call End Sub 'Required by the Web Services Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Web Services Designer 'It can be modified using the Web Services Designer. 'Do not modify it using the code editor. Private Sub InitializeComponent() components = New System.ComponentModel.Container End Sub Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 'CODEGEN: This procedure is required by the Web Services Designer 'Do not modify it using the code editor. If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub #End Region _ Public Function GetAllRoles(ByRef token As Membership.AuthenticationToken) As DataSet If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.GetAllRoles().DataSet Else token.TokenRejected = True Return New DataSet End If End Function _ Public Function RoleExists(ByRef token As Membership.AuthenticationToken, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RoleExists(roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function CreateRole(ByRef token As Membership.AuthenticationToken, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.CreateRole(roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function DeleteRole(ByRef token As Membership.AuthenticationToken, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.DeleteRole(roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function AddUserToRole(ByRef token As Membership.AuthenticationToken, ByVal userName As String, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.AddUserToRole(userName, roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function AddUserToRoles(ByRef token As Membership.AuthenticationToken, ByVal userName As String, ByVal roleNames() As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.AddUserToRoles(userName, roleNames) Else token.TokenRejected = True Return False End If End Function _ Public Function AddUsersToRole(ByRef token As Membership.AuthenticationToken, ByVal userNames() As String, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.AddUsersToRole(userNames, roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function AddUsersToRoles(ByRef token As Membership.AuthenticationToken, ByVal userNames() As String, ByVal roleNames() As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.AddUsersToRoles(userNames, roleNames) Else token.TokenRejected = True Return False End If End Function _ Public Function RemoveUserFromRole(ByRef token As Membership.AuthenticationToken, ByVal userName As String, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RemoveUserFromRole(userName, roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function RemoveUserFromRoles(ByRef token As Membership.AuthenticationToken, ByVal userName As String, ByVal roleNames() As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RemoveUserFromRoles(userName, roleNames) Else token.TokenRejected = True Return False End If End Function _ Public Function RemoveUsersFromRole(ByRef token As Membership.AuthenticationToken, ByVal userNames() As String, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RemoveUsersFromRole(userNames, roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function RemoveUsersFromRoles(ByRef token As Membership.AuthenticationToken, ByVal userNames() As String, ByVal roleNames() As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RemoveUsersFromRoles(userNames, roleNames) Else token.TokenRejected = True Return False End If End Function _ Public Function GetRolesForUser(ByRef token As Membership.AuthenticationToken, ByVal userName As String) As String() If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.GetRolesForUser(userName) Else token.TokenRejected = True Dim s() As String Return s End If End Function _ Public Function GetNonRolesForUser(ByRef token As Membership.AuthenticationToken, ByVal userName As String) As String() If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.GetNonRolesForUser(userName) Else token.TokenRejected = True Dim s() As String Return s End If End Function _ Public Function GetUsersInRole(ByRef token As Membership.AuthenticationToken, ByVal roleName As String) As String() If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.GetUsersInRole(roleName) Else token.TokenRejected = True Dim s() As String Return s End If End Function _ Public Function GetUsersNotInRole(ByRef token As Membership.AuthenticationToken, ByVal roleName As String) As String() If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.GetUsersNotInRole(roleName) Else token.TokenRejected = True Dim s() As String Return s End If End Function _ Public Function GetRolePermissions(ByRef token As Membership.AuthenticationToken, ByVal roleName As String) As Security.RolePermission() If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.GetRolePermissions(roleName) Else token.TokenRejected = True Return Nothing End If End Function _ Public Function AddPermissionToRole(ByRef token As Membership.AuthenticationToken, ByVal permission As Security.RolePermission, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.AddPermissionToRole(permission, roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function AddPermissionsToRole(ByRef token As Membership.AuthenticationToken, ByVal permissions() As Security.RolePermission, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.AddPermissionsToRole(permissions, roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function AddPermissionToRoles(ByRef token As Membership.AuthenticationToken, ByVal permission As Security.RolePermission, ByVal roleNames() As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.AddPermissionToRoles(permission, roleNames) Else token.TokenRejected = True Return False End If End Function _ Public Function AddPermissionsToRoles(ByRef token As Membership.AuthenticationToken, ByVal permissions() As Security.RolePermission, ByVal roleNames() As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.AddPermissionsToRoles(permissions, roleNames) Else token.TokenRejected = True Return False End If End Function _ Public Function RemovePermissionFromRole(ByRef token As Membership.AuthenticationToken, ByVal permission As Security.RolePermission, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RemovePermissionFromRole(permission, roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function RemovePermissionsFromRole(ByRef token As Membership.AuthenticationToken, ByVal permissions() As Security.RolePermission, ByVal roleName As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RemovePermissionsFromRole(permissions, roleName) Else token.TokenRejected = True Return False End If End Function _ Public Function RemovePermissionFromRoles(ByRef token As Membership.AuthenticationToken, ByVal permission As Security.RolePermission, ByVal roleNames() As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RemovePermissionFromRoles(permission, roleNames) Else token.TokenRejected = True Return False End If End Function _ Public Function RemovePermissionsFromRoles(ByRef token As Membership.AuthenticationToken, ByVal permissions() As Security.RolePermission, ByVal roleNames() As String) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RemovePermissionsFromRoles(permissions, roleNames) Else token.TokenRejected = True Return False End If End Function _ Public Function UserHasPermission(ByRef token As Membership.AuthenticationToken, ByVal userName As String, ByVal permission As Security.RolePermission) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.UserHasPermission(userName, permission) Else token.TokenRejected = True Return False End If End Function _ Public Function UserHasPermissions(ByRef token As Membership.AuthenticationToken, ByVal userName As String, ByVal ParamArray permissions() As Security.RolePermission) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.UserHasPermissions(userName, permissions) Else token.TokenRejected = True Return False End If End Function _ Public Function RoleHasPermission(ByRef token As Membership.AuthenticationToken, ByVal roleName As String, ByVal permission As Security.RolePermission) As Boolean If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.RoleHasPermission(roleName, permission) Else token.TokenRejected = True Return False End If End Function _ Public Function GetPermissionsForUser(ByRef token As Membership.AuthenticationToken, ByVal userName As String) As Security.RolePermission() If SecurityServices.WebServiceTokens.IsWebServiceTokenValidForPermission(token.TokenID, Security.RolePermission.AccessPeopleArea) = True Then Return BVSoftware.BVC.Core.SecurityServices.Roles.GetPermissionsForUser(userName) Else token.TokenRejected = True Return Nothing End If End Function End Class