]> cvs.zerfleddert.de Git - m1-debian/blob - m1di.pl
make debian installer more userfriendly
[m1-debian] / m1di.pl
1 #!/usr/bin/perl
2
3 # SPDX-License-Identifier: MIT
4
5 # Todo:
6 # Create an exclude identifier list of all Apple volumes and build a safetey check
7 # Detect if the paritions already exist and offer to reinstall system
8 # Let the use pick between u-boot and untethered m1n1
9 # Check that there is at least 1.5 GB space
10 # Make sure that there is only one free region
11
12 use strict;
13
14 my ($identifier, $size);
15
16 sub
17 find_identifier_before_free_space
18 {
19 my $identifier = undef;
20 my $size = undef;
21
22 for my $line (`diskutil list /dev/disk0`) {
23
24 if ($line =~ /^\s+\(free space\)\s+(\d+.\d GB)/) {
25 $size = $1;
26 $size =~ s/\s+//g;
27 last;
28 }
29
30 if ($line =~ /(disk0s\d)$/) {
31 $identifier = $1;
32 }
33 }
34
35 die if not defined $identifier;
36 die if not defined $size;
37
38 return ($identifier, $size);
39 }
40
41 ($identifier, $size) = find_identifier_before_free_space();
42 system("diskutil addPartition $identifier %EFI% LB 512MB");
43
44 $identifier = undef;
45
46 for my $line (`diskutil list /dev/disk0`) {
47 if ($line =~ /EFI.*(disk0s\d)/) {
48 $identifier = $1;
49 }
50 }
51
52 die if not defined $identifier;
53
54 system("newfs_msdos /dev/$identifier");
55 system("mkdir -p /Volumes/efi");
56 system("mount -t msdos /dev/$identifier /Volumes/efi");
57 chdir('/Volumes/efi');
58 system('mkdir -p /Volumes/efi/efi/boot');
59 system('curl -Lo /Volumes/efi/efi/boot/bootaa64.efi https://tg.st/u/grubaa64.efi');
60 system('curl -sL tg.st/u/fwx.sh | bash');
61 system('cp /tmp/linux-firmware.tar /Volumes/efi/');
62 chdir('/var/root');
63 system('umount /Volumes/efi');
64
65 ($identifier, $size) = find_identifier_before_free_space();
66 system("diskutil addPartition $identifier %Linux% %noformat% $size");
67
68 $identifier = undef;
69
70 for my $line (`diskutil list /dev/disk0`) {
71 if ($line =~ /Linux Filesystem.*(disk0s\d)/) {
72 $identifier = $1;
73 }
74 }
75
76 die if not defined $identifier;
77
78 system("curl -L https://tg.st/u/m1.tgz | tar -xOz | dd of=/dev/$identifier bs=8m");
Impressum, Datenschutz