-#!/usr/bin/perl
-
-# SPDX-License-Identifier: MIT
-
-# Todo:
-# Create an exclude identifier list of all Apple volumes and build a safetey check
-# Detect if the paritions already exist and offer to reinstall system
-# Let the use pick between u-boot and untethered m1n1
-# Check that there is at least 1.5 GB space
-# Make sure that there is only one free region
-
-use strict;
-
-my ($identifier, $size);
-
-sub
-find_identifier_before_free_space
-{
- my $identifier = undef;
- my $size = undef;
-
- for my $line (`diskutil list /dev/disk0`) {
-
- if ($line =~ /^\s+\(free space\)\s+(\d+.\d GB)/) {
- $size = $1;
- $size =~ s/\s+//g;
- last;
- }
-
- if ($line =~ /(disk0s\d)$/) {
- $identifier = $1;
- }
- }
-
- die if not defined $identifier;
- die if not defined $size;
-
- return ($identifier, $size);
-}
-
-die "This script must be run as root\n" if ($< != 0);
-
-($identifier, $size) = find_identifier_before_free_space();
-system("diskutil addPartition $identifier %EFI% LB 512MB");
-
-$identifier = undef;
-
-for my $line (`diskutil list /dev/disk0`) {
- if ($line =~ /EFI.*(disk0s\d)/) {
- $identifier = $1;
- }
-}
-
-die if not defined $identifier;
-
-system("newfs_msdos /dev/$identifier");
-system("mkdir -p /Volumes/efi");
-system("mount -t msdos /dev/$identifier /Volumes/efi");
-chdir('/Volumes/efi');
-system('curl -sL https://tg.st/u/efi.tgz | tar -xz');
-system('curl -sL tg.st/u/fwx.sh | bash');
-system('mkdir -p /Volumes/efi/vendorfw');
-system('cp /tmp/linux-firmware.tar /Volumes/efi/vendorfw/firmware.tar');
-chdir('/var/root');
-system('umount /Volumes/efi');
-
-($identifier, $size) = find_identifier_before_free_space();
-system("diskutil addPartition $identifier %Linux% %noformat% $size");
-
-$identifier = undef;
-
-for my $line (`diskutil list /dev/disk0`) {
- if ($line =~ /Linux Filesystem.*(disk0s\d)/) {
- $identifier = $1;
- }
-}
-
-die if not defined $identifier;
-
-system("curl -L https://tg.st/u/m1.tgz | tar -xOz | dd of=/dev/$identifier bs=8m");