romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed updater

Browse Source
This commit is contained in:
Doug Hennig
2023-09-23 08:10:11 -05:00
parent 26c76494be
commit 0369545ad2
3 changed files with 60 additions and 669 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
ThorUpdater/CreateThorUpdate.ps1
View File

@@ -1,4 +1,4 @@
# Get the project settings from Project.txt
# Get the project settings from Project.txt
$appInfo = Get-Content Project.txt
$appName = $appInfo[0].Substring($appInfo[0].IndexOf('=') + 1).Trim()
$appID = $appInfo[1].Substring($appInfo[1].IndexOf('=') + 1).Trim()
@@ -29,19 +29,45 @@ try
# and add them to a zip file.
# See https://stackoverflow.com/questions/15294836/how-can-i-exclude-multiple-folders-using-get-childitem-exclude
# for how to exclude folders when -Recurse is used
Get-ChildItem . -Recurse -File -Exclude $excludeFiles | %{
$allowed = $true
foreach ($exclude in $excludeFolders) {
if ((Split-Path $_.FullName -Parent) -ilike $exclude) {
$allowed = $false
break
$files = @(Get-ChildItem . -recurse -file -exclude $excludeFiles |
%{
$allowed = $true
foreach ($exclude in $excludeFolders)
{
if ((Split-Path $_.FullName -Parent) -ilike $exclude)
{
$allowed = $false
break
}
}
if ($allowed)
{
$_
}
}
if ($allowed) {
$_
}
} | Compress-Archive -CompressionLevel "Fastest" -DestinationPath $zipFileName
);
# See https://stackoverflow.com/questions/51392050/compress-archive-and-preserve-relative-paths to compress
# exclude directory entries and generate fullpath list
$filesFullPath = $files | Where-Object -Property Attributes -CContains Archive | ForEach-Object -Process {Write-Output -InputObject $_.FullName}
#create zip file
Add-Type -AssemblyName System.IO.Compression, System.IO.Compression.FileSystem
$zip = [System.IO.Compression.ZipFile]::Open((Join-Path -Path $(Resolve-Path -Path ".") -ChildPath $zipFileName), [System.IO.Compression.ZipArchiveMode]::Create)
#write entries with relative paths as names
foreach ($fname in $filesFullPath)
{
$rname = $(Resolve-Path -Path $fname -Relative) -replace '\.\\',''
$zentry = $zip.CreateEntry($rname)
$zentryWriter = New-Object -TypeName System.IO.BinaryWriter $zentry.Open()
$zentryWriter.Write([System.IO.File]::ReadAllBytes($fname))
$zentryWriter.Flush()
$zentryWriter.Close()
}
# clean up
Get-Variable -exclude Runspace | Where-Object {$_.Value -is [System.IDisposable]} | Foreach-Object {$_.Value.Dispose(); Remove-Variable $_.Name};
# If the zip file was created, read in the Version source file, replace
# placeholders, and write out the project version file.
@@ -50,24 +76,24 @@ try
# Read in the update file
$date = Get-Date
$file = $appID + 'Version.txt'
(Get-Content ThorUpdater\Version.txt)
.Replace('date()', 'date(' + $date.Year + ',' + $date.Month + ',' + $date.Day + ')')
.Replace('APPNAME', $appName)
.Replace('MAJORVERSION', $majorVersion) |
(Get-Content ThorUpdater\Version.txt).
Replace('date()', 'date(' + $date.Year + ',' + $date.Month + ',' + $date.Day + ')').
Replace('APPNAME', $appName).
Replace('MAJORVERSION', $majorVersion) |
Set-Content ThorUpdater\$file
Write-Host "Update creation successful"
}
else
{
Write-Host "Zip creation failed"
pause
pause
}
}
catch
{
Write-Host "Error occurred at $(Get-Date): $($Error[0].Exception.Message)"
pause
pause
}
finally