lib/TMD.FileSystem.ps1


## Write Data to files
Function Write-DataToJSON {
    param(
        [Parameter(Mandatory = $true)][PSObject]$Data,
        [Parameter(Mandatory = $true)][String]$BaseFileName,
        [Parameter(Mandatory = $false)][Switch]$Open
    )

    $DataJson = $Data | ConvertTo-Json -Depth 100

    if ($null -ne $Data) {
        ## Add a Folder for the Server, if this is an actionRequest Task
        if ($actionRequest) {
            $ServerPath = $actionRequest.options.callback.siteUrl `
                -replace 'http[s]*://', '' `
                -replace '/tdstm', ''
        } else {
            $ServerPath = ''
        }

        ## Add a Folder for the Project, if this is an actionRequest Task
        if ($actionRequest) {
            $ProjectPath = $actionRequest.task.project.name
        } else {
            $ProjectPath = ''
        }

        ## Create a Filename based on the BaseFileName
        $FileName = $BaseFileName + '_' + (Get-Date -Format FileDateTime ) + '.json'
        $FileDirectory = Join-Path $userPaths.output $ServerPath $ProjectPath
        $FilePath = Join-Path $FileDirectory $FileName

        ## Ensure the Folder Exists
        Test-FolderPath -FolderPath $FileDirectory

        ## Write the Content to the File
        Set-Content -Value $DataJson -Path $FilePath -Force
    }

    Write-Host 'File saved to:' $FilePath
    if ($Open) { Invoke-Item $FilePath }
}


## File/Path Detail Revealing Functions
Function Get-FileTypeFromPath([String]$filePath) {
    if (Test-Path $filePath -PathType Leaf) {

        $filePathArray = $filePath.Split('.')
        $filePathArray[$filePathArray.Length - 1]
    } else {
        'Error: File does not exist.'
    }
}

Function Get-FileNameFromPath([String]$filePath) {

    if ($filePath.length -gt 0) {
        if (Test-Path $filePath -PathType Leaf) {
            $filePathArray = $filePath.Split('\')
            $filePathArray[$filePathArray.Length - 1]
        } else {
            'Error: File does not exist.'
        }
    } else {
        'FILENAME NOT AVAILABLE'
    }
}

Function Get-FolderFromPath([String]$Path) {

    if ($Path.length -gt 0) {
        if (Test-Path $Path -PathType Leaf) {
            (Get-Item -Path $Path).Directory
        } else {
            'Error: File does not exist.'
        }
    } else {
        'FILENAME NOT AVAILABLE'
    }
}

Function Test-FolderPath {
    Param(
        [Alias('FolderPath')]
        [Parameter(Mandatory = $true)][string]$Path
    )

    if (!(Test-Path $Path)) {
        [void](New-Item -ItemType Directory -Force -Path $Path)
    }
}
Function Get-InputFile {
    param(
        [Parameter(Mandatory = $false)][String]$Filter
    )

    $options = @{
        Path = $appConfig.Files.Input;
    }
    if ($null -ne $Filter ) { $options.Add('Filter', $Filter) }

    $inputFiles = Get-ChildItem @options
    switch ($inputFiles.Count) {
        0 {
            $userProvidedPath = Read-Host 'Drag and drop your source file here'
            $userProvidedPath
            break
        }
        1 { $inputFiles.FullName }
        Default {
            $choice = Get-FileChoice($inputFiles)
            $inputFiles[$choice].FullName
        }
    }
}

<# .SYNOPSIS Gets file encoding.
.DESCRIPTION The Get-FileEncoding function determines encoding by looking at Byte Order Mark (BOM). Based on port of C# code from http://www.west-wind.com/Weblog/posts/197245.aspx

.EXAMPLE
 Get-ChildItem c:\ws\git_repos\COMPONENT_TEMPLATE -recurse -File |
    select FullName, @{n='Encoding';e={Get-FileEncoding $_.FullName}}

$erroractionpreference = 'stop'
  Get-ChildItem c:\ws\git_repos\COMPONENT_TEMPLATE -recurse -File |
    foreach {
        Write-Output $_.FullName
        Get-FileEncoding $_.FullName
    }

     This command gets ps1 files in current directory where encoding is not ASCII

 .EXAMPLE Get-ChildItem *.ps1 |
     select FullName, @{n='Encoding';e={Get-FileEncoding $_.FullName}} |
         where {$_.Encoding -ne 'ASCII'} foreach {(get-content $_.FullName) | set-content $_.FullName -Encoding ASCII}

         Same as previous example but fixes encoding using set-content #>

# Modified by F.RICHARD August 2010
# add comment + more BOM
# http://unicode.org/faq/utf_bom.html
# http://en.wikipedia.org/wiki/Byte_order_mark
#
# Do this next line before or add function in Profile.ps1
# Import-Module .\Get-FileEncoding.ps1
#>
function Get-FileEncoding {
    [CmdletBinding()]
    Param (
        [Parameter(Mandatory = $True, ValueFromPipelineByPropertyName = $True)]
        [string]$Path
    )
    $legacyEncoding = $false
    try {
        try {
            [byte[]]$byte = Get-Content -AsByteStream -ReadCount 4 -TotalCount 4 -LiteralPath $Path

        } catch {
            [byte[]]$byte = Get-Content -Encoding Byte -ReadCount 4 -TotalCount 4 -LiteralPath $Path
            $legacyEncoding = $true
        }

        if (-not $byte) {
            if ($legacyEncoding) { 'unknown' } else { [System.Text.Encoding]::Default }
        }
    } catch {
        throw
    }

    #Write-Host Bytes: $byte[0] $byte[1] $byte[2] $byte[3]

    # EF BB BF (UTF8)
    if ( $byte[0] -eq 0xef -and $byte[1] -eq 0xbb -and $byte[2] -eq 0xbf )
 { if ($legacyEncoding) { 'UTF8' } else { [System.Text.Encoding]::UTF8 } }

    # FE FF (UTF-16 Big-Endian)
    elseif ($byte[0] -eq 0xfe -and $byte[1] -eq 0xff)
 { if ($legacyEncoding) { 'bigendianunicode' } else { [System.Text.Encoding]::BigEndianUnicode } }

    # FF FE (UTF-16 Little-Endian)
    elseif ($byte[0] -eq 0xff -and $byte[1] -eq 0xfe)
 { if ($legacyEncoding) { 'unicode' } else { [System.Text.Encoding]::Unicode } }

    # 00 00 FE FF (UTF32 Big-Endian)
    elseif ($byte[0] -eq 0 -and $byte[1] -eq 0 -and $byte[2] -eq 0xfe -and $byte[3] -eq 0xff)
 { if ($legacyEncoding) { 'utf32' } else { [System.Text.Encoding]::UTF32 } }

    # FE FF 00 00 (UTF32 Little-Endian)
    elseif ($byte[0] -eq 0xfe -and $byte[1] -eq 0xff -and $byte[2] -eq 0 -and $byte[3] -eq 0)
 { if ($legacyEncoding) { 'utf32' } else { [System.Text.Encoding]::UTF32 } }

    # 2B 2F 76 (38 | 38 | 2B | 2F)
    elseif ($byte[0] -eq 0x2b -and $byte[1] -eq 0x2f -and $byte[2] -eq 0x76 -and ($byte[3] -eq 0x38 -or $byte[3] -eq 0x39 -or $byte[3] -eq 0x2b -or $byte[3] -eq 0x2f) )
 { if ($legacyEncoding) { 'utf7' } else { [System.Text.Encoding]::UTF7 } }

    # F7 64 4C (UTF-1)
    elseif ( $byte[0] -eq 0xf7 -and $byte[1] -eq 0x64 -and $byte[2] -eq 0x4c )
 { throw 'UTF-1 not a supported encoding' }

    # DD 73 66 73 (UTF-EBCDIC)
    elseif ($byte[0] -eq 0xdd -and $byte[1] -eq 0x73 -and $byte[2] -eq 0x66 -and $byte[3] -eq 0x73)
 { throw 'UTF-EBCDIC not a supported encoding' }

    # 0E FE FF (SCSU)
    elseif ( $byte[0] -eq 0x0e -and $byte[1] -eq 0xfe -and $byte[2] -eq 0xff )
 { throw 'SCSU not a supported encoding' }

    # FB EE 28 (BOCU-1)
    elseif ( $byte[0] -eq 0xfb -and $byte[1] -eq 0xee -and $byte[2] -eq 0x28 )
 { throw 'BOCU-1 not a supported encoding' }

    # 84 31 95 33 (GB-18030)
    elseif ($byte[0] -eq 0x84 -and $byte[1] -eq 0x31 -and $byte[2] -eq 0x95 -and $byte[3] -eq 0x33)
 { throw 'GB-18030 not a supported encoding' }

    else
 { if ($legacyEncoding) { 'ascii' } else { [System.Text.Encoding]::ASCII } }
}

## Test for if file is currently locked by another process
function Test-FileIsAccessible( [String] $FilePath ) {
    [Boolean] $IsAccessible = $false

    try {
        Rename-Item $FullFileName $FullFileName -ErrorVariable LockError -ErrorAction Stop
        $IsAccessible = $true
    } catch {
        $IsAccessible = $false
    }
    return $IsAccessible
}

function Get-FilenameSafeString {
    param (
        [Parameter(ValueFromPipeline = $True)]$String
    )
    $UnsafeCharacters = @(
        '>',     '<'
        '\(',    '\)'
        '\{',    '\}'
        '\[',    '\]'
        '\\',     '/'
        ':',     ';'
        '`',     '~'
        '"',    "'"
        '!'        ## Shift 1
        '@'        ## Shift 2
        '#'        ## Shift 3
        '\$'        ## Shift 4
        '%'        ## Shift 5
        '\^'        ## Shift 6
        '&'        ## Shift 7
        '\*'        ## Shift 8
        '\?'
        '\.'

    )
    $UnsafeCharacters | ForEach-Object {
        $String = $String -replace $_, '-'
    }

    return $String -replace '--', '-' -replace '--', '-' -replace '--', '-' -replace '--', '-' -replace '--', '-' -replace '--', '-'
}