Tecman.Tfs.Tools

1.1.11.0

Deltas/Create-DeltaBetweenVersions.ps1

function Create-DeltaBetweenVersions
{
    Param(
        [Parameter(Mandatory=$true)]
        [string]$BranchPath,
        [Parameter(Mandatory=$true)]
        [int]$OldVersion,
        [Parameter(Mandatory=$true)]
        [int]$NewVersion,
        [Parameter(Mandatory=$true)]
        [ValidateSet('Replace','Compare')][string]$BespokeObjects = 'Replace',
        [Parameter(Mandatory=$false)]
        [string]$DeltaPath,
        [Parameter(Mandatory=$false)]
        [switch]$NoContent,
        [Parameter(Mandatory=$false)]
        [switch]$Reverse
    )  

    #download the list of items at both versions
    $url = '_apis/tfvc/items?scopePath={0}&recursionLevel=OneLevel&versionType=Changeset&version={1}' -f $BranchPath, $OldVersion

    $OldItems = Invoke-TFSAPI -Url $url

    $url = '_apis/tfvc/items?scopePath={0}&recursionLevel=OneLevel&versionType=Changeset&version={1}' -f $BranchPath, $NewVersion

    $NewItems = Invoke-TFSAPI -Url $url

    if ($DeltaPath -eq '')
    {
        $DeltaPath = Join-Path ([Environment]::GetFolderPath('Desktop')) ('{0} - {1}' -f $OldVersion, $NewVersion)
    }

    $OldItemsFolder = Join-Path $DeltaPath $OldVersion
    $NewItemsFolder = Join-Path $DeltaPath $NewVersion    
    $DeltasFolder = Join-Path $DeltaPath 'Deltas'
    $ReplacementFolder = Join-Path $DeltaPath 'Replacement Objects'
    $DeletedItemsFolder = Join-Path $DeltaPath 'Deleted Items'

    $ResultObject = New-Object System.Object
    $ResultObject | Add-Member -Type NoteProperty -Name 'DeltasPath' -Value $DeltasFolder 
    $ResultObject | Add-Member -Type NoteProperty -Name 'ReplacementsPath' -Value $ReplacementFolder
    $ResultObject | Add-Member -Type NoteProperty -Name 'DeletedItemsPath' -Value $DeletedItemsFolder

    Create-EmptyDirectory $OldItemsFolder
    Create-EmptyDirectory $NewItemsFolder
    Create-EmptyDirectory $DeltasFolder

    $progressName = "Comparing changesets {0} and {1}" -f $OldVersion, $NewVersion

    Write-Progress $progressName

    [int]$itemCounter = 0

    $DeletedItems = Compare-Object -ReferenceObject $olditems.value -DifferenceObject $newitems.value -Property path | Where-Object -property SideIndicator -EQ "<="
    $OldItems = $OldItems.Value | Sort-Object -Property Version -Descending    
    $NewItems = $NewItems.Value | Where-Object -Property Version -gt $OldItems[0].Version    

    $itemCounter = 0

    foreach ($NewItem in $NewItems)
    {
        $itemCounter += 1
        if ($NewItems.Count)
        {
            Write-Progress $progressName -PercentComplete (($itemCounter / $NewItems.Count) * 100)
        }

        if (!$NewItem.isFolder)
        {
            if ($NoContent)
            {
                if (![IO.Directory]::Exists($ReplacementFolder))
                {
                    [IO.Directory]::CreateDirectory($ReplacementFolder)
                }

                New-Item -ItemType File -Path (Join-Path -Path $ReplacementFolder -ChildPath (Split-Path -Leaf $NewItem.Path)) | Out-Null
            }
            else
            {
                Add-Content -Path (Join-Path -Path $NewItemsFolder -ChildPath (Split-Path -Leaf $NewItem.Path)) -Value (Invoke-TFSAPI -Url $NewItem.url)
            
                if ((IsStandardObject -ObjectName (Split-Path -Leaf $NewItem.Path)) -or ($BespokeObjects -eq 'Compare'))
                {
                    $OldItem = $OldItems | Where-Object -Property Path -EQ -Value $NewItem.Path

                    if ($OldItem.Path -ne $null)
                    {
                        Add-Content -Path (Join-Path -Path $OldItemsFolder -ChildPath (Split-Path -Leaf $OldItem.Path)) -Value (Invoke-TFSAPI -Url $OldItem.url)
                    }
                }
                else
                {
                    if (![IO.Directory]::Exists($ReplacementFolder))
                    {
                        [IO.Directory]::CreateDirectory($ReplacementFolder)
                    }

                    [IO.File]::Move((Join-Path -Path $NewItemsFolder -ChildPath (Split-Path -Leaf $NewItem.Path)),(Join-Path -Path $ReplacementFolder (Split-Path -Leaf $NewItem.Path)))
                }
            }
        }
    }   

     
    foreach ($DeletedItem in $DeletedItems)
    {    
        if (!$NoContent)
        {  
            if (![IO.Directory]::Exists($DeletedItemsFolder))
            {
                [IO.Directory]::CreateDirectory($DeletedItemsFolder)
            }   
                   
            $OldItem = $OldItems | Where-Object -Property Path -EQ -Value $DeletedItem.Path
           
            if ($OldItem.Path -ne $null)
            {
                Add-Content -Path (Join-Path -Path $DeletedItemsFolder -ChildPath (Split-Path -Leaf $OldItem.Path)) -Value (Invoke-TFSAPI -Url $OldItem.url)
            }
      
        }
    }


    if ($Reverse)
    {
        Compare-NAVApplicationObject -OriginalPath $NewItemsFolder -ModifiedPath $OldItemsFolder -DeltaPath $DeltasFolder -Force
    }
    else
    {
        Compare-NAVApplicationObject -OriginalPath $OldItemsFolder -ModifiedPath $NewItemsFolder -DeltaPath $DeltasFolder -Force
    }

    if ([IO.Directory]::Exists($ReplacementFolder))
    {
        Join-NAVApplicationObjectFile -Source $ReplacementFolder -Destination (Join-Path $ReplacementFolder -ChildPath '_Replacement Objects.TXT')        
    }    

    $ResultObject
}

function IsStandardObject
(    
    [Parameter(Mandatory=$true)]
    [string]$ObjectName    
)
{
    [bool]$Result = $false

    #read the numerical part of the file name
    [int]$ObjectNumber = [int32]::Parse($ObjectName.Substring(3,$ObjectName.Length - 7))

    if (($ObjectNumber -lt 50000) -or ($ObjectNumber -gt 90000000))
    {
        $Result = $true
    }

    #special rules for menusuites
    if ($ObjectName.Substring(0,3) -eq "MEN")
    {
        if ($ObjectNumber -le 1050)
        {
            $Result = $true
        }
        else
        {
            $Result = $false
        }
    }

    $Result
}

Export-ModuleMember -Function Create-DeltaBetweenVersions