From 07176b363fe8b3cb3c885f378c93748ef749dcfb Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Thu, 10 Mar 2005 17:59:25 +0000 Subject: Diskdrake mods for XBox (thks Pixel) --- perl-install/diskdrake/interactive.pm | 5 ++++- perl-install/fs/type.pm | 1 + perl-install/partition_table/raw.pm | 5 +++++ 3 files changed, 10 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index ef78889a1..bead96915 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -316,7 +316,7 @@ sub hd_possible_actions_interactive { sub Clear_all { my ($in, $hd, $all_hds) = @_; - + return if is_xbox(); #- do not let them wipe the OS my @parts = partition_table::get_normal_parts($hd); foreach (@parts) { RemoveFromLVM($in, $hd, $_, $all_hds) if isPartOfLVM($_); @@ -457,6 +457,9 @@ sub part_possible_actions { ); if (isEmpty($part)) { if_(!$hd->{readonly}, N_("Create")); + } elsif ($part->{pt_type} == 0xbf) { + #- XBox OS partitions, do not allow anything + return; } else { grep { my $cond = $actions{$_}; diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index caada6dfb..841d6e12b 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -138,6 +138,7 @@ if_(arch() !~ /ppc/, 0xb8 => '', 'BSDI swap', 0xbb => '', 'Boot Wizard hidden', 0xbe => '', 'Solaris boot', + 0xbf => '', 'Microsoft XBox OS Partitions', 0xc1 => '', 'DRDOS/sec (FAT-12)', 0xc4 => '', 'DRDOS/sec (FAT-16 < 32M)', 0xc6 => '', 'DRDOS/sec (FAT-16)', diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm index 28f0fc797..db1d40584 100644 --- a/perl-install/partition_table/raw.pm +++ b/perl-install/partition_table/raw.pm @@ -201,6 +201,11 @@ sub zero_MBR { bless $hd, "partition_table::$type"; $hd->{primary} = $hd->clear_raw; delete $hd->{extended}; + if (is_xbox()) { + my $part = { start => 1, size => 15632048, pt_type => 0x0bf, isFormatted => 1 }; + partition_table::dos::compute_CHS($hd, $part); + $hd->{primary}{raw}[0] = $part; + } } sub zero_MBR_and_dirty { -- cgit v1.2.1