Public/New-P1Tenant.ps1

function New-P1Tenant {
    <#
    .Synopsis
    Install a new PlannerOne tenant (service + web app).
 
    .Description
    Install a new PlannerOne tenant with the given parameters.
    One tenant should be:
    * One Windows service
    * One application pool
    * One web site
    * One web application
    Every name are set by convention from tenant name.
    You can force web application name for backward compatibility.
    Keep convention name if possible for easier maintenance.
 
    .Parameter Tenant
    The tenant name.
 
    .Parameter WebServicePort
    The port to be used by AppServer for REST API.
 
    .Parameter RemotingPort
    The port to be used by AppServer for Remoting API.
 
    .Parameter WebPort
    The customized port to be used by WebServer site.
 
    .Parameter WebAppName
    The customized name to use for web application.
 
    .Parameter ERP
    The ERP to use (NAV, AP, SAGE).
 
    .Example
    # Install a PlannerOne tenant named P1Prod.
    New-P1Tenant -Tenant P1Prod -ERP SAGE
    #>

    [cmdletbinding()]
    param( 
        [Parameter(Mandatory=$true)]
        [string] $Tenant,
        [int] $RemotingPort,
        [int] $WebServicePort,
        [int] $WebPort,
        [string] $WebAppName,
        [Parameter(Mandatory=$true)]
        [string] $ERP
    )
    Process
    {
        if (Test-Tenant $Tenant) {
            Write-Warning "Tenant $Tenant already exist. Creation canceled."
            Write-Warning "Type Get-Help New-P1Tenant for more information."
            return
        }

        if ($ERP -eq "") {
            Write-Warning "ERP is not defined."
            Write-Warning "Please select call New-P1Tenant again with -ERP flag (NAV, AP, SAGE)"
            return
        }

        $packageName = Get-PackageName $P1SrvPackage $ERP
        $package = Get-Package $packageName
        if ($package -eq $null) {    
            Write-Warning "Package $packageName does not exist."
            Write-Warning "Call Install-P1Package with missing packages."
            return
        }

        $packageName = Get-PackageName $P1WebPackage $ERP
        $package = Get-Package $packageName
        if ($package -eq $null) {    
            Write-Warning "Package $packageName does not exist."
            Write-Warning "Call Install-P1Package with missing packages."
            return
        }

        $iisCommand = Get-Command New-WebAppPool
        if ($iisCommand -eq $null) {
            Write-Warning "Command New-WebAppPool does not exist."
            Write-Warning "Please run Test-P1Prerequisites."
            return
        }

        Write-Section "Creating tenant..."
        if ($WebPort -eq 0) {
            $WebPort = $DefaultWebPort
        }
        
        if (!$WebAppName) {
            $WebAppName = Get-WebAppNameFromTenant $Tenant
        }


        # create web app before registering to get the good web port
        $SitePort = New-P1WebApp -Tenant $Tenant -Port $WebPort -WebAppName $WebAppName -ERP $ERP
        Write-OK "Web created on port $SitePort"

        if ($WebServicePort -eq 0) {
            $WebServicePort = $SitePort + 1
        }

        if ($RemotingPort -eq 0) {
            $RemotingPort = $SitePort + 2
        }

        # TODO: test that these 2 last ports are free

        Write-Section "Registrating tenant..."
        Register-Tenant -Tenant $Tenant -RemotingPort $RemotingPort -WebServicePort $WebServicePort -WebAppName $WebAppName -SitePort $SitePort -Adapter $adapter
        Write-OK "Registration done"

        $adapter = $ERPToAdapter.Get_Item($ERP)
        New-P1ServerInstance -Tenant $Tenant -ERP $ERP
        Write-OK "Windows service created"

        Write-Warning "Run 'Set-P1Adapter' to configure Adapter"
        Write-OK "Tenant '$Tenant' created"
    }
}