// =================================================================================
// File:    plugin-soap.js
//
// Author:  Jarle Elshaug
//
// Purpose: SOAP Webservice user-provisioning for endpoint "Forwardinc"
//
// Prereq:  npm install soap
//          Forwardinc webservice is up and running
//          Forwardinc comes with CA IM SDK (SDKWS)
//          For details please see:
//          https://docops.ca.com/ca-identity-manager/12-6-8/EN/programming/connector-programming-reference/sdk-sample-connectors/sdkws-sdk-web-services-connector/sdkws-sample-connector-build-requirements
//
// Supported attributes:
//
// GlobalUser   Template                                Scim                            Endpoint
// -----------------------------------------------------------------------------------------------
// User name    %AC%                                    userName                        userID
// Password     %P%                                     password                        password
// First Name   %UF%                                    name.givenName                  firstName
// Last Name    %UL%                                    name.familyName                 lastName
// Full Name    %UN%                                    name.formatted                  displayName
// Job title    %UT%                                    title                           title
// Email        %UE% (Emails, type=Work)                emails.work                     emailAddress
// Phone        %UP% (Phone Numbers, type=Work)         phoneNumbers.work               phoneNumber
// Company      %UCOMP% (Entitlements, type=Company)    entitlements.company            company
//
// =================================================================================

import soap from 'soap' // prereq: bun install soap
import path from 'node:path'

// start - mandatory plugin initialization
import { ScimGateway } from 'scimgateway'
const scimgateway = new ScimGateway()
const config = scimgateway.getConfig()
scimgateway.authPassThroughAllowed = false
scimgateway.pluginAndOrFilterEnabled = false
// end - mandatory plugin initialization

const wsdlDir = path.join(`${scimgateway.configDir}`, 'wsdls')
const endpointUsername = config.username
let endpointPassword: string | undefined
if (!scimgateway.authPassThroughAllowed) {
  endpointPassword = scimgateway.getSecret('endpoint.password')
}

// =================================================
// getUsers
// =================================================
scimgateway.getUsers = async (baseEntity, getObj, attributes, ctx) => {
  const action = 'getUsers'
  scimgateway.logDebug(baseEntity, `handling ${action} getObj=${getObj ? JSON.stringify(getObj) : ''} attributes=${attributes} passThrough=${ctx ? 'true' : 'false'}`)

  let soapRequest
  let soapAction
  // mandatory if-else logic - start
  if (getObj.operator) {
    if (getObj.operator === 'eq' && ['id', 'userName', 'externalId'].includes(getObj.attribute)) {
      // mandatory - unique filtering - single unique user to be returned - correspond to getUser() in versions < 4.x.x
      soapRequest = { userID: getObj.value }
      soapAction = 'getUser'
    } else if (getObj.operator === 'eq' && getObj.attribute === 'group.value') {
      // optional - only used when groups are member of users, not default behavior - correspond to getGroupUsers() in versions < 4.x.x
      throw new Error(`${action} error: not supporting groups member of user filtering: ${getObj.rawFilter}`)
    } else {
      // optional - simpel filtering
      throw new Error(`${action} error: not supporting simpel filtering: ${getObj.rawFilter}`)
    }
  } else if (getObj.rawFilter) {
    // optional - advanced filtering having and/or/not - use getObj.rawFilter
    throw new Error(`${action} error: not supporting advanced filtering: ${getObj.rawFilter}`)
  } else {
    // mandatory - no filtering (!getObj.operator && !getObj.rawFilter) - all users to be returned - correspond to exploreUsers() in versions < 4.x.x
    soapRequest = { sql: 'SELECT * FROM Users' }
    soapAction = 'exploreUsers'
  }
  if (getObj.and || getObj.or) {
    // plugin have enabled 'scimgateway.pluginAndOrFilterEnabled' and the query includes an additonal and/or getObj that must to be handled and combined with the initial getObj
    // we could have this logic above, if not it must be defined here
    throw new Error(`${action} error: logic for handling and/or filter is not implemented by plugin, not supporting: ${getObj.rawFilter}`)
  }
  // mandatory if-else logic - end

  if (!soapRequest) throw new Error(`${action} error: mandatory if-else logic not fully implemented`)

  try {
    const ret: any = {
      Resources: [],
      totalResults: null, // not used - paging not supported
    }

    const serviceClient = await getServiceClient(baseEntity, soapAction, ctx)

    let result = await serviceClient[config[soapAction].method + 'Async'](soapRequest)
    if (!Array.isArray(result) || result.length < 4) {
      throw new Error(`${config[soapAction].service}-${config[soapAction].method} : Invalid SOAP result: ${JSON.stringify(result)}`)
    }
    scimgateway.logDebug(baseEntity, `${config[soapAction].service}-${config[soapAction].method} endpoint: ${serviceClient.endpoint} rawRequest: ${result[3]} rawResponse: ${result[1].replace(/\n/g, '')}`)
    result = result[0]

    if (!result.return) {
      throw new Error(`${action} ${config[soapAction].method} : Got empty response on soap request: ${JSON.stringify(soapRequest)}`)
    }

    const hdl = result.return.handleId
    if (hdl) {
      if (result.return.size < 1) {
        soapRequest = { handleId: hdl }
        try { serviceClient['releaseHandle' + 'Async'](soapRequest) } catch (err) { void 0 }
        return ret // no users found
      }

      soapRequest = {
        handleId: hdl,
        startIndex: 0,
        endIndex: result.return.size - 1,
      }

      result = await serviceClient['searchPagedUser' + 'Async'](soapRequest)
      if (!Array.isArray(result) || result.length < 4) {
        throw new Error(`${soapAction} searchPagedUser : Invalid SOAP result: ${JSON.stringify(result)}`)
      }
      scimgateway.logDebug(baseEntity, `${config[soapAction].service}-searchPagedUser endpoint: ${serviceClient.endpoint} rawRequest: ${result[3]} rawResponse: ${result[1].replace(/\n/g, '')}`)
      result = result[0]

      if (!result.return) {
        throw new Error(`exploreUsers searchPagedUsers: Got empty response on soap request: ${soapRequest}`)
      }
    }

    if (!Array.isArray(result.return)) result.return = [result.return]

    result.return.forEach((el: Record<string, any>) => {
      const userObj = {
        userName: el.userID,
        id: el.userID,
        externalId: el.userID,
        password: el.password,
        name: {
          givenName: el.firstName,
          familyName: el.lastName,
          formatted: el.displayName,
        },
        title: el.title,
        emails: (el.emailAddress) ? [{ value: el.emailAddress, type: 'work' }] : null,
        phoneNumbers: (el.phoneNumber) ? [{ value: el.phoneNumber, type: 'work' }] : null,
        entitlements: (el.company) ? [{ value: el.company, type: 'company' }] : null,
      }
      ret.Resources.push(userObj)
    })

    if (hdl) {
      soapRequest = { handleId: hdl }
      try { serviceClient['releaseHandle' + 'Async'](soapRequest) } catch (err) { void 0 }
    }

    return ret
  } catch (err: any) {
    throw new Error(`${action} error: ${err.message}`)
  }
}

// =================================================
// createUser
// =================================================
scimgateway.createUser = async (baseEntity, userObj, ctx) => {
  const action = 'createUser'
  scimgateway.logDebug(baseEntity, `handling ${action} userObj=${JSON.stringify(userObj)} passThrough=${ctx ? 'true' : 'false'}`)
  try {
    if (!userObj.name) userObj.name = {}
    if (!userObj.emails) userObj.emails = { work: {} }
    if (!userObj.phoneNumbers) userObj.phoneNumbers = { work: {} }
    if (!userObj.entitlements) userObj.entitlements = { company: {} }

    const soapRequest = {
      user: {
        userID: userObj.userName,
        password: userObj.password || null,
        firstName: userObj.name.givenName || null,
        lastName: userObj.name.familyName || null,
        displayName: userObj.name.formatted || null,
        title: userObj.title || null,
        emailAddress: userObj.emails.work.value || null,
        phoneNumber: userObj.phoneNumbers.work.value || null,
        company: userObj.entitlements.company.value || null,
      },
    }

    const serviceClient = await getServiceClient(baseEntity, action, ctx)

    let result = await serviceClient[config[action].method + 'Async'](soapRequest)
    if (!Array.isArray(result) || result.length < 4) {
      throw new Error(`${config[action].service}-${config[action].method} : Invalid SOAP result: ${JSON.stringify(result)}`)
    }
    scimgateway.logDebug(baseEntity, `${config[action].service}-${config[action].method} endpoint: ${serviceClient.endpoint} rawRequest: ${result[3]} rawResponse: ${result[1].replace(/\n/g, '')}`)
    result = result[0]

    if (!result.return) {
      throw new Error(`${action} ${config[action].method} : Got empty response on soap request: ${soapRequest}`)
    }
    return null
  } catch (err: any) {
    throw new Error(`${action} error: ${err.message}`)
  }
}

// =================================================
// deleteUser
// =================================================
scimgateway.deleteUser = async (baseEntity, id, ctx) => {
  const action = 'deleteUser'
  scimgateway.logDebug(baseEntity, `handling ${action} id=${id} passThrough=${ctx ? 'true' : 'false'}`)
  try {
    const serviceClient = await getServiceClient(baseEntity, action, ctx)

    const soapRequest = { userID: id }

    let result = await serviceClient[config[action].method + 'Async'](soapRequest)
    if (!Array.isArray(result) || result.length < 4) {
      throw new Error(`${config[action].service}-${config[action].method} : Invalid SOAP result: ${JSON.stringify(result)}`)
    }
    scimgateway.logDebug(baseEntity, `${config[action].service}-${config[action].method} endpoint: ${serviceClient.endpoint} rawRequest: ${result[3]} rawResponse: ${result[1].replace(/\n/g, '')}`)
    result = result[0]

    if (!result.return) {
      throw new Error(`${config[action].method} : Got empty response on soap request: ${soapRequest}`)
    }
    return null
  } catch (err: any) {
    throw new Error(`${action} error: ${err.message}`)
  }
}

// =================================================
// modifyUser
// =================================================
scimgateway.modifyUser = async (baseEntity, id, attrObj, ctx) => {
  const action = 'modifyUser'
  scimgateway.logDebug(baseEntity, `handling ${action} id=${id} attrObj=${JSON.stringify(attrObj)} passThrough=${ctx ? 'true' : 'false'}`)
  try {
    // forwardinc modify user will blank all attributes not included in soap request...
    // We therefore need to to retrieve all user attributes from forwardinc and merge with updated attributes.
    // Modify user will then include all user attributes.
    const getObj = {
      attribute: 'id',
      operator: 'eq',
      value: id,
    }

    const res = await scimgateway.getUsers(baseEntity, getObj, [], ctx)

    let userObj
    if (res && Array.isArray(res.Resources) && res.Resources.length === 1) userObj = res.Resources[0]
    if (!userObj) throw new Error(`user ${id} not found`)

    if (!userObj.name) userObj.name = {}
    if (!userObj.emails) userObj.emails = { work: {} }
    else if (Array.isArray(userObj.emails)) userObj.emails = { work: { value: userObj.emails[0].value } }
    if (!userObj.phoneNumbers) userObj.phoneNumbers = { work: {} }
    else if (Array.isArray(userObj.phoneNumbers)) userObj.phoneNumbers = { work: { value: userObj.phoneNumbers[0].value } }
    if (!userObj.entitlements) userObj.entitlements = { company: {} }
    else if (Array.isArray(userObj.entitlements)) userObj.entitlements = { company: { value: userObj.entitlements[0].value } }

    // merge userObj with modified attrObj
    for (const key1 in attrObj) {
      if (typeof attrObj[key1] === 'object') { // name.familyName
        for (const key2 in attrObj[key1]) {
          if (!userObj[key1]) userObj[key1] = {}
          userObj[key1][key2] = attrObj[key1][key2]
        }
      } else userObj[key1] = attrObj[key1] // merge modified attr into userObj
    }

    const serviceClient = await getServiceClient(baseEntity, action, ctx)

    const soapRequest = {
      user: {
        userID: id,
        password: userObj.password,
        firstName: userObj.name.givenName,
        lastName: userObj.name.familyName,
        displayName: userObj.name.formatted,
        emailAddress: userObj.emails.work.value, // note, using default configuration setting  scim.skipTypeConvert = false
        phoneNumber: userObj.phoneNumbers.work.value,
        company: userObj.entitlements.company.value,
        title: userObj.title,
      },
    }

    let result = await serviceClient[config[action].method + 'Async'](soapRequest)
    if (!Array.isArray(result) || result.length < 4) {
      throw new Error(`${config[action].service}-${config[action].method} : Invalid SOAP result: ${JSON.stringify(result)}`)
    }
    scimgateway.logDebug(baseEntity, `${config[action].service}-${config[action].method} endpoint: ${serviceClient.endpoint} rawRequest: ${result[3]} rawResponse: ${result[1].replace(/\n/g, '')}`)
    result = result[0]

    return null
  } catch (err: any) {
    throw new Error(`${action} error: ${err.message}`)
  }
}

// =================================================
// getGroups
// =================================================
scimgateway.getGroups = async (baseEntity, getObj, attributes, ctx) => {
  const action = 'getGroups'
  scimgateway.logDebug(baseEntity, `handling ${action} getObj=${getObj ? JSON.stringify(getObj) : ''} attributes=${attributes} passThrough=${ctx ? 'true' : 'false'}`)

  let soapRequest
  let soapAction
  // mandatory if-else logic - start
  if (getObj.operator) {
    if (getObj.operator === 'eq' && ['id', 'displayName', 'externalId'].includes(getObj.attribute)) {
      // mandatory - unique filtering - single unique user to be returned - correspond to getUser() in versions < 4.x.x
      soapRequest = { groupID: getObj.value }
      soapAction = 'getGroup'
    } else if (getObj.operator === 'eq' && getObj.attribute === 'members.value') {
      // mandatory - return all groups the user 'id' (getObj.value) is member of - correspond to getGroupMembers() in versions < 4.x.x
      // Resources = [{ id: <id-group>> , displayName: <displayName-group>, members [{value: <id-user>}] }]
      soapRequest = { sql: 'SELECT * FROM Groups' }
      soapAction = 'exploreGroups'
    } else {
      // optional - simpel filtering
      throw new Error(`${action} error: not supporting simpel filtering: ${getObj.rawFilter}`)
    }
  } else if (getObj.rawFilter) {
    // optional - advanced filtering having and/or/not - use getObj.rawFilter
    throw new Error(`${action} error: not supporting advanced filtering: ${getObj.rawFilter}`)
  } else {
    // mandatory - no filtering (!getObj.operator && !getObj.rawFilter) - all groups to be returned - correspond to exploreGroups() in versions < 4.x.x
    soapRequest = { sql: 'SELECT * FROM Groups' }
    soapAction = 'exploreGroups'
  }
  if (getObj.and || getObj.or) {
    // plugin have enabled 'scimgateway.pluginAndOrFilterEnabled' and the query includes an additonal and/or getObj that must to be handled and combined with the initial getObj
    // we could have this logic above, if not it must be defined here
    throw new Error(`${action} error: logic for handling and/or filter is not implemented by plugin, not supporting: ${getObj.rawFilter}`)
  }
  // mandatory if-else logic - end

  if (!soapRequest) throw new Error(`${action} error: mandatory if-else logic not fully implemented`)

  const ret: any = { // itemsPerPage will be set by scimgateway
    Resources: [],
    totalResults: null,
  }

  try {
    const serviceClient = await getServiceClient(baseEntity, soapAction, ctx)

    let result = await serviceClient[config[soapAction].method + 'Async'](soapRequest)
    if (!Array.isArray(result) || result.length < 4) {
      throw new Error(`${config[soapAction].service}-${config[soapAction].method} : Invalid SOAP result: ${JSON.stringify(result)}`)
    }
    scimgateway.logDebug(baseEntity, `${config[soapAction].service}-${config[soapAction].method} endpoint: ${serviceClient.endpoint} rawRequest: ${result[3]} rawResponse: ${result[1].replace(/\n/g, '')}`)
    result = result[0]

    if (!result) return ret // no groups
    else if (!result.return) {
      throw new Error(`${config[soapAction].method} : Got empty response on soap request: ${soapRequest}`)
    }

    if (!Array.isArray(result.return)) result.return = [result.return]

    if (getObj.attribute === 'members.value' && getObj.operator === 'eq') {
      result.return.forEach(function (el: Record<string, any>) {
        const scimGroup: any = {
          displayName: el.groupID,
          id: el.groupID,
          externalId: el.groupID,
        }
        scimGroup.members = []
        if (Array.isArray(el.members)) {
          const found = el.members.find(el => el === getObj.value)
          if (found) scimGroup.members.push({ value: getObj.value }) // only include members.value
        }
        if (scimGroup.members.length === 1) ret.Resources.push(scimGroup)
      })
    } else {
      result.return.forEach(function (el: Record<string, any>) {
        const scimGroup: any = {
          displayName: el.groupID,
          id: el.groupID,
          externalId: el.groupID,
        }
        scimGroup.members = []
        if (Array.isArray(el.members)) {
          el.members.forEach(function (userid) {
            scimGroup.members.push({ value: userid })
          })
        }
        ret.Resources.push(scimGroup)
      })
    }
    return ret
  } catch (err: any) {
    throw new Error(`${action} error: ${err.message}`)
  }
}

// =================================================
// createGroup
// =================================================
scimgateway.createGroup = async (baseEntity, groupObj, ctx) => {
  const action = 'createGroup'
  scimgateway.logDebug(baseEntity, `handling ${action} groupObj=${JSON.stringify(groupObj)} passThrough=${ctx ? 'true' : 'false'}`)
  // groupObj.displayName contains the group to be created
  // if supporting create group, we need some endpoint logic here
  throw new Error(`${action} error: ${action} is not supported`)
}

// =================================================
// deleteGroup
// =================================================
scimgateway.deleteGroup = async (baseEntity, id, ctx) => {
  const action = 'deleteGroup'
  scimgateway.logDebug(baseEntity, `handling ${action} id=${id} passThrough=${ctx ? 'true' : 'false'}`)
  // if supporting delete group, we need some endpoint logic here
  throw new Error(`${action} error: ${action} is not supported`)
}

// =================================================
// modifyGroup
// =================================================
scimgateway.modifyGroup = async (baseEntity, id, attrObj, ctx) => {
  const action = 'modifyGroup'
  scimgateway.logDebug(baseEntity, `handling ${action} id=${id} attrObj=${JSON.stringify(attrObj)} passThrough=${ctx ? 'true' : 'false'}`)

  if (!attrObj.members) {
    throw new Error(`${action} error: only supports modification of members`)
  }
  if (!Array.isArray(attrObj.members)) {
    throw new Error(`${action} error: ${JSON.stringify(attrObj)} - correct syntax is { "members": [...] }`)
  }

  try {
    const serviceClient = await getServiceClient(baseEntity, action, ctx)

    for (const el of attrObj.members) {
      if (el.operation && el.operation === 'delete') { // delete member from group
        const soapRequest = {
          groupID: id,
          userID: el.value,
        }
        let result = await serviceClient['removeUserFromGroup' + 'Async'](soapRequest)
        if (!Array.isArray(result) || result.length < 4) {
          throw new Error(`${config[action].service}-removeUserFromGroup : Invalid SOAP result: ${JSON.stringify(result)}`)
        }
        result = result[0]

        if (!result.return) {
          throw new Error(`${config[action].service}-removeUserFromGroup : Got empty response on soap request: ${soapRequest}`)
        }
      } else { // add member to group
        const soapRequest = {
          groupID: id,
          userID: el.value,
        }
        let result = await serviceClient['assignUserToGroup' + 'Async'](soapRequest)
        if (!Array.isArray(result) || result.length < 4) {
          throw new Error(`${config[action].service}-assignUserToGroup : Invalid SOAP result: ${JSON.stringify(result)}`)
        }
        result = result[0]

        if (!result.return) {
          throw new Error(`assignUserToGroup : Got empty response on soap request: ${soapRequest}`)
        }
      }
    }
    return null
  } catch (err: any) {
    throw new Error(`${action} error: ${err.message}`)
  }
}

// =================================================
// helpers
// =================================================

const _serviceClient: any = {}

const getServiceClient = async (baseEntity: string, action: string, ctx: undefined | Record<string, any>) => {
  try {
    const entityService = config[action].service

    if (_serviceClient[baseEntity] && _serviceClient[baseEntity][entityService]) { // serviceClient already exist
      // here we may also check for expired auth and update _serviceClient if needed
      scimgateway.logDebug(baseEntity, `getServiceClient[${baseEntity}][${entityService}]: Using existing client`)
      return _serviceClient[baseEntity][entityService]
    }
    scimgateway.logDebug(baseEntity, `getServiceClient[${baseEntity}][${entityService}]: Client have to be created`)

    let client = null
    if (config.entity && config.entity[baseEntity]) client = config.entity[baseEntity]
    if (!client) {
      const err = new Error(`unsupported baseEntity: ${baseEntity}`)
      throw err
    }

    if (!config[action]) {
      throw new Error(`getServiceClient function called with invalid action definition: ${action}`)
    }
    const urlToWsdl = path.resolve(`${wsdlDir}/${entityService}.wsdl`)// file system wsdl/URL
    // const urlToWsdl = `${config.baseServiceEndpoint}/${entityService}?wsdl` // http URL
    const serviceEndpoint = config.baseServiceEndpoint + '/' + entityService

    const wsdlOptions = {
      handleNilAsNull: false,
    }

    const customHeader = {}
    /*
    const customHeader = {
      AutHeader: {
        Source: 'Example',
        Context: {
          company: baseEntity,
          userid: config.entity[baseEntity].userId,
          credentials: Buffer.from(signedAssertion).toString('base64') // base64 encoded signed assertion
        }
      }
    }
    */

    try {
      const serviceClient = await soap.createClientAsync(urlToWsdl, wsdlOptions)
      if (ctx?.request?.header?.authorization) { // Auth PassThrough
        const [user, secret] = getCtxAuth(ctx)
        serviceClient.setSecurity(new soap.WSSecurity(user || endpointUsername, secret, { passwordType: 'PasswordText', hasTimeStamp: false })) // ForwardInc using WSSecurity
      } else {
        serviceClient.setSecurity(new soap.WSSecurity(endpointUsername, endpointPassword, { passwordType: 'PasswordText', hasTimeStamp: false })) // ForwardInc using WSSecurity
      }
      serviceClient.addSoapHeader(customHeader)
      serviceClient.setEndpoint(serviceEndpoint) // https://FQDN/path/to/service (wsdl name without ?wsdl extension)
      if (!ctx?.request?.header?.authorization) { // not using Auth PassThrough, store serviceClient and will be reused on subsequent requests
        if (!_serviceClient[baseEntity]) _serviceClient[baseEntity] = {}
        _serviceClient[baseEntity][entityService] = serviceClient // serviceClient created
      }
      return serviceClient
    } catch (err: any) {
      if (err.message) throw new Error(`createClient ${urlToWsdl} errorMessage: ${err.message}`)
      else throw new Error(`createClient ${urlToWsdl} errorMessage: invalid service definition - wsdl maybe not found?`)
    }
  } catch (err) {
    const newErr = err
    throw newErr
  }
}

//
// getCtxAuth returns username/secret from ctx header when using Auth PassThrough
//
const getCtxAuth = (ctx: undefined | Record<string, any>) => {
  if (!ctx?.request?.header?.authorization) return []
  const [authType, authToken] = (ctx.request.header.authorization || '').split(' ') // [0] = 'Basic' or 'Bearer'
  let username, password
  if (authType === 'Basic') [username, password] = (Buffer.from(authToken, 'base64').toString() || '').split(':')
  if (username) return [username, password] // basic auth
  else return [undefined, authToken] // bearer auth
}

//
// Cleanup on exit
//
process.on('SIGTERM', () => { // kill
})
process.on('SIGINT', () => { // Ctrl+C
})