TorrentScript.ps1

<#
.SYNOPSIS
    This script performs various tasks related to torrent downloads, 
    including unraring, post-processing for movies and TV shows 
    and any other QBittorrent download, and sending notifications.
.DESCRIPTION
    This script is designed to handle the post-processing of torrent downloads. 
    It supports unraring, renaming, and organizing files based on certain criteria. 
    Additionally, it can communicate with Medusa and Radarr for further post-processing.
.PARAMETER DownloadPath
    Specifies the path of the downloaded torrent. If not provided, the script prompts for input.
.PARAMETER DownloadLabel
    Specifies the label for the downloaded torrent. If not provided, the script prompts for input.
.PARAMETER TorrentHash
    Specifies the torrent hash, required for Radarr.
.PARAMETER NoCleanUp
    Indicates whether to skip the cleanup process in the Temp Process folder.
.EXAMPLE
    TorrentScript.ps1 -DownloadPath "C:\Downloads\MyTorrent" -DownloadLabel "TV" -TorrentHash "1234567890"
    Processes a TV show torrent with the specified path, label, and torrent hash.
.EXAMPLE
    TorrentScript.ps1
    Prompts for user input for download path and label to process a torrent.
#>

[CmdletBinding()]
param(
    [Parameter(Mandatory = $false)]
    [string]$DownloadPath,

    [Parameter(Mandatory = $false)]
    [string]$DownloadLabel,

    [Parameter(Mandatory = $false)]
    [string]$TorrentHash,

    [Parameter(Mandatory = $false)]
    [switch]$NoCleanUp
)

# Get function definition files.
$Functions = @( Get-ChildItem -Path $PSScriptRoot\functions\*.ps1 -ErrorAction SilentlyContinue )
# Dot source the files
ForEach ($import in @($Functions)) {
    Try {
        # dotsourcing a function script
        .$import.FullName
    } Catch {
        Write-Error -Message "Failed to import function $($import.FullName): $_"
    }
}

# User Variables
try {
    $configPath = Join-Path $PSScriptRoot 'config.json'
    $Config = Get-Content $configPath -Raw -ErrorAction Stop | ConvertFrom-Json -ErrorAction Stop
} catch {
    Write-Host 'Exception:' $_.Exception.Message -ForegroundColor Red
    Write-Host 'Invalid config.json file' -ForegroundColor Red
    exit 1
}

# Reading Language Code lookup
try {
    $LanguageCodesPath = Join-Path $PSScriptRoot 'LanguageCodes.json'
    $LanguageCodes = Get-Content $LanguageCodesPath -Raw -ErrorAction Stop | ConvertFrom-Json -ErrorAction Stop
    # Create a hashtable for language code lookup
    $LanguageCodeLookup = @{}
    foreach ($langCodeKey in $LanguageCodes.PSObject.Properties.Name) {
        $langCode = $LanguageCodes.$langCodeKey
        $639_2 = $langCode.'639-2'
        $639_2_B = $langCode.'639-2/B'
        $639_1 = $langCode.'639-1'
    
        if ($639_2) {
            $LanguageCodeLookup[$639_2] = $639_1
        }
    
        if ($639_2_B) {
            $LanguageCodeLookup[$639_2_B] = $639_1
        }
    }
} catch {
    Write-Host 'Exception:' $_.Exception.Message -ForegroundColor Red
    Write-Host 'Invalid LanguageCodes.json' -ForegroundColor Red
    exit 1
}


# Log Date format
$LogFileDateFormat = Get-Date -Format $Config.DateFormat

# Script settings
# Temporary location of the files that are being processed, will be appended by the label and torrent name
$ProcessPath = $Config.ProcessPath

# Archive location of the log files of handled downloads
$LogArchivePath = $Config.LogArchivePath

# Default download root path
$DownloadRootPath = $Config.DownloadRootPath

# Label for TV Shows and Movies
$TVLabel = $Config.Label.TV
$MovieLabel = $Config.Label.Movie

# Additional tools that are needed
$WinRarPath = $Config.Tools.WinRarPath
$MKVMergePath = $Config.Tools.MKVMergePath
$MKVExtractPath = $Config.Tools.MKVExtractPath
$SubtitleEditPath = $Config.Tools.SubtitleEditPath

# Import qBittorrent Settings
$qBittorrentHost = $Config.qBittorrent.Host
$qBittorrentPort = $Config.qBittorrent.Port
$qBittorrentUser = $Config.qBittorrent.User
$qBittorrentPassword = $Config.qBittorrent.Password

# Import Medusa Settings
$MedusaHost = $Config.Medusa.Host
$MedusaPort = $Config.Medusa.Port
$MedusaApiKey = $Config.Medusa.APIKey
$MedusaTimeOutMinutes = $Config.Medusa.TimeOutMinutes
$MedusaRemotePath = $Config.Medusa.RemotePath

# Import Radarr Settings
$RadarrHost = $Config.Radarr.Host
$RadarrPort = $Config.Radarr.Port
$RadarrApiKey = $Config.Radarr.APIKey
$RadarrTimeOutMinutes = $Config.Radarr.TimeOutMinutes
$RadarrRemotePath = $Config.Radarr.RemotePath

# Mail Settings
$MailTo = $Config.Mail.To
$MailFrom = $Config.Mail.From
$MailFromName = $Config.Mail.FromName
$SMTPserver = $Config.Mail.SMTPserver
$SMTPport = $Config.Mail.SMTPport
$SMTPuser = $Config.Mail.SMTPuser
$SMTPpass = $Config.Mail.SMTPpass

# OpenSubtitle User and Pass for OpenSubtitle.com
$OpenSubUser = $Config.OpenSub.User
$OpenSubPass = $Config.OpenSub.Password
$OpenSubAPI = $Config.OpenSub.API
$OpenSubHearing_impaired = $Config.OpenSub.hearing_impaired
$OpenSubForeign_parts_only = $Config.OpenSub.foreign_parts_only
$OpenSubMachine_translated = $Config.OpenSub.machine_translated
$OpenSubAI_translated = $Config.OpenSub.ai_translated

# Language codes of subtitles to keep
$WantedLanguages = $Config.WantedLanguages
$SubtitleNamesToRemove = $Config.SubtitleNamesToRemove

# Test additional programs
$Tools = @($WinRarPath, $MKVMergePath, $MKVExtractPath, $SubtitleEditPath)
foreach ($Tool in $Tools) {
    Test-Variable-Path -Path $Tool
}

Write-Host 'Loading Powershell Modules, this might take a while' -ForegroundColor DarkYellow
# Load required modules
$modules = @("WriteAscii", "Send-MailKitMessage")
foreach ($module in $modules) {
    Install-PSModule -ModuleName $module
}
Write-Host 'All checks done' -ForegroundColor DarkYellow

#* Start of script
Clear-Host
$ScriptTitle = "Torrent Script"

try {
    Write-Ascii $ScriptTitle -ForegroundColor DarkYellow
} catch {
    Write-Host $ScriptTitle -ForegroundColor DarkYellow
}

#* Get input if no parameters defined
# Build the download Location, this is the Download Root Path added with the Download name
if (-not $PSBoundParameters.ContainsKey('DownloadPath')) {
    # Handle no Download Path given as parameter
    $DownloadName = Get-Input -Message 'Download Name' -Required
    $DownloadPath = Join-Path -Path $DownloadRootPath -ChildPath $DownloadName 
}

# Get Download Name from Download Path
$DownloadName = Split-Path -Path $DownloadPath -Leaf

# Download Label
if (-not $PSBoundParameters.ContainsKey('DownloadLabel')) {
    #  Handle no Download Path given as parameter
    $QBcategories = Get-QBittorrentCategories -qBittorrentUrl $qBittorrentHost -qBittorrentPort $qBittorrentPort -username $qBittorrentUser -password $qBittorrentPassword
    if ($QBcategories) {
        $QBcategories += "[Enter your own]"
        $DownloadLabel = Select-MenuOption -MenuOptions $QBcategories -MenuQuestion "Torrent Label"
        if ($DownloadLabel -eq "[Enter your own]") {
            $DownloadLabel = Get-Input -Message 'Download Label'
        }
    } else {
        $DownloadLabel = Get-Input -Message 'Download Label'
    }
}

# Handle Empty Download Label
if ($DownloadLabel -eq '') {
    $DownloadLabel = 'NoLabel'
}

# Torrent Hash (only needed for Radarr)
if ( ($Null -eq $TorrentHash) -or ($TorrentHash -eq '') ) {
    $TorrentHash = Get-Input -Message 'Torrent Hash' 
}

# Uppercase TorrentHash
$TorrentHash = $TorrentHash.ToUpper()

# Handle NoProcess Torrent Label
if ($DownloadLabel -eq 'NoProcess') {
    Write-Host 'Do nothing'
    Exit
}

# Create Log file
# Log file of current processing file (will be used to send out the mail)
$LogFilePath = Join-Path -Path $LogArchivePath -ChildPath "$LogFileDateFormat-$DownloadName.html"

# Log Header
Format-Table -Start
Write-HTMLLog -Column1 '***  Information  ***' -Header
Write-HTMLLog -Column1 'Start:' -Column2 "$(Get-Date -Format 'yyyy-MM-dd') at $(Get-Date -Format 'HH:mm:ss')"
Write-HTMLLog -Column1 'Label:' -Column2 $DownloadLabel
Write-HTMLLog -Column1 'Name:' -Column2 $DownloadName
Write-HTMLLog -Column1 'Hash:' -Column2 $TorrentHash

# Test File Paths
If (!(Test-Path -LiteralPath $ProcessPath)) {
    New-Item -ItemType Directory -Force -Path $ProcessPath | Out-Null
}
If (!(Test-Path -LiteralPath $LogArchivePath)) {
    New-Item -ItemType Directory -Force -Path $LogArchivePath | Out-Null
}

# Start of script
$ScriptMutex = New-Mutex -MutexName 'DownloadScript'

# Start Stopwatch
$ScriptTimer = [system.diagnostics.stopwatch]::startNew()

# Check paths from Parameters
If (!(Test-Path -LiteralPath $DownloadPath)) {
    Write-Host "$DownloadPath - Not valid location"
    Write-HTMLLog -Column1 'Path:' -Column2 "$DownloadPath - Not valid location" -ColorBg 'Error'
    Write-HTMLLog -Column1 'Result:' -Column2 'Failed' -ColorBg 'Error'
    Stop-Script -ExitReason "Path Error: $DownloadLabel - $DownloadName"
}

# Check if Single file or Folder 
$SingleFile = (Get-Item -LiteralPath $DownloadPath) -is [System.IO.FileInfo]
$Folder = (Get-Item -LiteralPath $DownloadPath) -is [System.IO.DirectoryInfo]

# Set Source and Destination paths and get Rar paths
if ($Folder) {
    $ProcessPathFull = Join-Path -Path $ProcessPath -ChildPath $DownloadLabel | Join-Path -ChildPath $DownloadName
    $RarFilePaths = (Get-ChildItem -LiteralPath $DownloadPath -Recurse -Filter '*.rar').FullName
} elseif ($SingleFile) {
    $ProcessPathFull = Join-Path -Path $ProcessPath -ChildPath $DownloadLabel | Join-Path -ChildPath $DownloadName.Substring(0, $DownloadName.LastIndexOf('.'))
    $DownloadRootPath = Split-Path -Path $DownloadPath
    if ([IO.Path]::GetExtension($DownloadPath) -eq '.rar') {
        $RarFilePaths = (Get-Item -LiteralPath $DownloadPath).FullName
    } 
}

# Find rar files
if ($RarFilePaths.Count -gt 0) {
    $RarFile = $true 
} else {
    $RarFile = $false 
}

# Check is destination folder exists otherwise create it
If (!(Test-Path -LiteralPath $ProcessPathFull)) {
    New-Item -ItemType Directory -Force -Path $ProcessPathFull | Out-Null
}

if ($RarFile) {
    Write-HTMLLog -Column1 '***  Unrar Download  ***' -Header
    Write-HTMLLog -Column1 'Starting:' -Column2 'Unpacking files'
    $TotalSize = (Get-ChildItem -LiteralPath $DownloadPath -Recurse | Measure-Object -Property Length -Sum).Sum
    $UnRarStopWatch = [system.diagnostics.stopwatch]::startNew()
    foreach ($Rar in $RarFilePaths) {
        $UnrarParams = @{
            UnRarSourcePath = $Rar
            UnRarTargetPath = $ProcessPathFull
            DownloadLabel   = $DownloadLabel
            DownloadName    = $DownloadName
        }
        Start-UnRar @UnrarParams
    }
    # Stop the Stopwatch
    $UnRarStopWatch.Stop() 
    Write-HTMLLog -Column1 'Size:' -Column2 (Format-Size -SizeInBytes $TotalSize)
    Write-HTMLLog -Column1 'Throughput:' -Column2 "$(Format-Size -SizeInBytes ($TotalSize/$UnRarStopWatch.Elapsed.TotalSeconds))/s"
} elseif (-not $RarFile -and $SingleFile) {
    Write-HTMLLog -Column1 '***  Single File  ***' -Header
    $FileCopyParams = @{
        source        = $DownloadRootPath
        Destination   = $ProcessPathFull
        File          = $DownloadName
        DownloadLabel = $DownloadLabel
        DownloadName  = $DownloadName
    }
    Start-FileCopy @FileCopyParams

} elseif (-not $RarFile -and $Folder) {
    Write-HTMLLog -Column1 '***  Folder  ***' -Header
    $FileCopyParams = @{
        source        = $DownloadPath
        Destination   = $ProcessPathFull
        File          = '*.*'
        DownloadLabel = $DownloadLabel
        DownloadName  = $DownloadName
    }
    Start-FileCopy @FileCopyParams
}


# Starting Post Processing for Movies and TV Shows
if ($DownloadLabel -eq $TVLabel -or $DownloadLabel -eq $MovieLabel) {
    $mp4Files = @(Get-ChildItem -LiteralPath $ProcessPathFull -Recurse -Filter '*.mp4' | Where-Object { $_.DirectoryName -notlike "*\Sample" })
    if ($mp4Files.Count -gt 0) {
        Start-MP4ToMKVRemux -Source $ProcessPathFull -MKVMergePath $MKVMergePath
    } 

    $mkvFiles = @(Get-ChildItem -LiteralPath $ProcessPathFull -Recurse -Filter '*.mkv' | Where-Object { $_.DirectoryName -notlike "*\Sample" })
    if ($mkvFiles.Count -gt 0) {
        $VideoContainer = $true 
    } else {
        $VideoContainer = $false 
    }

    if ($VideoContainer) {
        # Remove unwanted subtitle languages and extract wanted subtitles and rename
        $MKVToolnixImportParams = @{
            Source                = $ProcessPathFull
            MKVMergePath          = $MKVMergePath
            MKVExtractPath        = $MKVExtractPath
            WantedLanguages       = $WantedLanguages
            SubtitleNamesToRemove = $SubtitleNamesToRemove
            LanguageCodeLookup    = $LanguageCodeLookup
        }
        Start-MKVSubtitleStrip @MKVToolnixImportParams
        
        # Download missing subtitles using OpenSubtitles.com API 
        $OpenSubLanguages = @()
        foreach ($language in $WantedLanguages) {
            $OpenSubLanguages += $LanguageCodeLookup[$language]
        }
        $OpenSubParams = @{
            Source                    = $ProcessPathFull
            OpenSubUser               = $OpenSubUser
            OpenSubPass               = $OpenSubPass
            OpenSubAPI                = $OpenSubAPI
            OpenSubHearing_impaired   = $OpenSubHearing_impaired
            OpenSubForeign_parts_only = $OpenSubForeign_parts_only
            OpenSubMachine_translated = $OpenSubMachine_translated
            OpenSubAI_translated      = $OpenSubAI_translated
            WantedLanguages           = $OpenSubLanguages
        }
        if ($DownloadLabel -eq $TVLabel) {
            $OpenSubParams.Add("Type", "episode")
        } elseif ($DownloadLabel -eq $MovieLabel) {
            $OpenSubParams.Add("Type", "movie")
        }
        Start-OpenSubtitlesDownload @OpenSubParams

        # Clean up Subs
        $SubtitleEditParams = @{
            Source           = $ProcessPathFull
            Files            = '*.srt'
            SubtitleEditPath = $SubtitleEditPath
            DownloadLabel    = $DownloadLabel
            DownloadName     = $DownloadName
        }
        Start-SubtitleEdit @SubtitleEditParams
      
        Write-HTMLLog -Column1 '***  MKV Files  ***' -Header
        foreach ($Mkv in $mkvFiles) {
            Write-HTMLLog -Column2 $Mkv.name
        }
        $SrtFiles = Get-ChildItem -LiteralPath $ProcessPathFull -Recurse -Filter '*.srt'
        if ($SrtFiles.Count -gt 0) {
            Write-HTMLLog -Column1 '***  Subtitle Files  ***' -Header
            foreach ($Srt in $SrtFiles) {
                Write-HTMLLog -Column2 $srt.name
            }
        }
    } else {
        Write-HTMLLog -Column1 '***  Files  ***' -Header
        $Files = Get-ChildItem -LiteralPath $ProcessPathFull -Recurse -Filter '*.*'
        foreach ($File in $Files) {
            Write-HTMLLog -Column1 'File:' -Column2 $File.name
        }
    }
    
    # Get the common prefix length between the paths
    $prefixLength = ($ProcessPath.TrimEnd('\') + '\').Length

    if ($DownloadLabel -eq $TVLabel) {
        # Get the correct remote Medusa file path, if script is not running on local machine to Medusa
        # Remove the common prefix and append the MedusaRemotePath
        $MedusaPathFull = Join-Path $MedusaRemotePath ($ProcessPathFull.Substring($prefixLength))
        
        # Call Medusa to Post Process
        $MedusaImportParams = @{
            Source               = $MedusaPathFull
            MedusaApiKey         = $MedusaApiKey
            MedusaHost           = $MedusaHost
            MedusaPort           = $MedusaPort
            MedusaTimeOutMinutes = $MedusaTimeOutMinutes
            DownloadLabel        = $DownloadLabel
            DownloadName         = $DownloadName
        }
        Import-Medusa @MedusaImportParams

    } elseif ($DownloadLabel -eq $MovieLabel) {
        # Get the correct remote Radarr file path, if script is not running on local machine to Radarr
        # Get the common prefix length between the paths
        $prefixLength = ($ProcessPath.TrimEnd('\') + '\').Length
        # Remove the common prefix and append the RadarrRemotePath
        $RadarrPathFull = Join-Path $RadarrRemotePath ($ProcessPathFull.Substring($prefixLength))
    
        # Call Radarr to Post Process
        $RadarrImportParams = @{
            Source               = $RadarrPathFull
            RadarrApiKey         = $RadarrApiKey
            RadarrHost           = $RadarrHost
            RadarrPort           = $RadarrPort
            RadarrTimeOutMinutes = $RadarrTimeOutMinutes
            TorrentHash          = $TorrentHash
            DownloadLabel        = $DownloadLabel
            DownloadName         = $DownloadName
        }
        Import-Radarr @RadarrImportParams
    }
    
    # Cleanup the Process Path folders
    if ($NoCleanUp) {
        Write-HTMLLog -Column1 'Cleanup' -Column2 'NoCleanUp switch was given at command line, leaving files:'
        Write-HTMLLog -Column2 "$ProcessPathFull"
    } else {
        try {
            If (Test-Path -LiteralPath $ProcessPathFull) {
                Remove-Item -Force -Recurse -LiteralPath $ProcessPathFull
            }
        } catch {
            Write-HTMLLog -Column1 'Exception:' -Column2 $_.Exception.Message -ColorBg 'Error'
            Write-HTMLLog -Column1 'Result:' -Column2 'Failed' -ColorBg 'Error'
        }
    } 
    
    # Ending Script for Movie and TV downloads
    Stop-Script -ExitReason "$DownloadLabel - $DownloadName"
}
# Reached the end of script
Write-HTMLLog -Column1 '***  Post Process General Download  ***' -Header
$Files = Get-ChildItem -LiteralPath $ProcessPathFull -Recurse -Filter '*.*'
foreach ($File in $Files) {
    Write-HTMLLog -Column1 'File:' -Column2 $File.name
}
Stop-Script -ExitReason "$DownloadLabel - $DownloadName"