mirror of
https://github.com/screentinker/screentinker.git
synced 2026-08-13 22:03:13 -06:00
f86195df53
Four loose files that must all land intact, in the right place, is a poor way to
hand someone a player. autorun.zip is one file: drop it on the root of a
player's storage, power-cycle, and autozip.brs unpacks it in place and reboots
into the player. A half-copied set of loose files boots into something broken; a
half-copied zip simply fails to extract and leaves the player as it was.
Two rules the format imposes, both of which fail SILENTLY when broken, so the
build script asserts them instead of trusting them:
- the archive must expand to files at its root, with no wrapper directory. A
player extracts to the storage root, so a nested folder puts autorun.brs
somewhere the player never looks and the card appears to do nothing.
- autorun.brs must not sit next to autorun.zip on the storage root; its
presence stops the zip being processed at all.
autozip.brs renames the archive to autorun.zip.done after a successful extract,
which is what makes it idempotent — without that the player extracts, reboots,
extracts, reboots, a loop indistinguishable from a hardware fault. A FAILED
extract deliberately does not rename, so a truncated copy gets retried once
someone replaces it rather than being skipped forever.
It is volume-aware for the same reason autorun.brs is: a player may be booting
from internal flash because its card interface is dead, and extracting to "SD:/"
on such a unit writes to a volume that does not exist.
--server rewrites screentinker.json in the staging copy so a batch can be imaged
for a specific instance without hand-editing anything.
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Uaeo9MvzKoyXuN6ZsbhtkL
84 lines
3 KiB
Plaintext
84 lines
3 KiB
Plaintext
' ScreenTinker — autorun.zip unpacker.
|
|
'
|
|
' Ships INSIDE autorun.zip, at its root. The card (or internal flash) carries a single file —
|
|
' autorun.zip — and this script unpacks it in place, marks it done so it never re-extracts, and
|
|
' reboots into the real host.
|
|
'
|
|
' That is the whole point of the zip: one file to hand someone, or to drop on a hundred cards,
|
|
' instead of four files that must all arrive intact and in the right place. A partially-copied
|
|
' set of loose files boots into something broken; a partially-copied zip simply fails to extract
|
|
' and leaves the player where it was.
|
|
'
|
|
' ⚠️ autorun.brs must NOT sit next to autorun.zip on the storage root — its presence stops the zip
|
|
' being processed at all. autorun.brs belongs INSIDE the zip, which is where the build script puts
|
|
' it (scripts/build-autorun-zip.sh).
|
|
'
|
|
' Requires BrightSignOS 7.0.60+ (roUnzip).
|
|
|
|
Function StorageRoot() As String
|
|
' Same reasoning as autorun.brs: a player may be booting from internal flash rather than a
|
|
' card — the only path on a unit whose card interface has failed. Extracting to "SD:/" on such
|
|
' a player writes to a volume that does not exist.
|
|
if DoesFileExist("FLASH:/autorun.zip") then return "FLASH:"
|
|
return "SD:"
|
|
End Function
|
|
|
|
Sub Main()
|
|
root$ = StorageRoot()
|
|
zipPath$ = root$ + "/autorun.zip"
|
|
extractPath$ = root$ + "/"
|
|
donePath$ = root$ + "/autorun.zip.done"
|
|
|
|
print "[st-autozip] volume "; root$
|
|
|
|
if not DoesFileExist(zipPath$) then
|
|
print "[st-autozip] no autorun.zip at "; zipPath$; " — nothing to do"
|
|
return
|
|
end if
|
|
|
|
' Idempotence. Without this the player extracts, reboots, extracts again, reboots again —
|
|
' a boot loop that looks like a hardware fault.
|
|
if DoesFileExist(donePath$) then
|
|
print "[st-autozip] already unpacked (autorun.zip.done present) — leaving it alone"
|
|
return
|
|
end if
|
|
|
|
print "[st-autozip] unpacking "; zipPath$
|
|
|
|
unzip = CreateObject("roUnzip", zipPath$)
|
|
if unzip = invalid then
|
|
print "[st-autozip] ERROR: could not open the archive"
|
|
return
|
|
end if
|
|
|
|
result = unzip.DecompressAllFiles(extractPath$)
|
|
if result <> 0 then
|
|
print "[st-autozip] ERROR: extract failed, code "; result
|
|
' Deliberately NOT marking it done: a corrupt or truncated copy should be retried after
|
|
' someone replaces the file, not silently skipped forever.
|
|
return
|
|
end if
|
|
|
|
print "[st-autozip] extracted"
|
|
|
|
fs = CreateObject("roFileSystem")
|
|
if fs = invalid then
|
|
print "[st-autozip] ERROR: no roFileSystem — cannot mark the archive done"
|
|
return
|
|
end if
|
|
|
|
if not fs.Rename(zipPath$, donePath$) then
|
|
print "[st-autozip] ERROR: could not rename the archive; refusing to reboot into a loop"
|
|
return
|
|
end if
|
|
|
|
print "[st-autozip] rebooting into the unpacked player"
|
|
sleep(2000)
|
|
RebootSystem()
|
|
End Sub
|
|
|
|
Function DoesFileExist(filePath$ As String) As Boolean
|
|
files = MatchFiles(filePath$, filePath$)
|
|
return files.Count() > 0
|
|
End Function
|