drakx - Mageia Installer and base platform for many utilities

diff options

author	Thierry Vignaud <tvignaud@mandriva.org>	2005-01-03 14:18:00 +0000
committer	Thierry Vignaud <tvignaud@mandriva.org>	2005-01-03 14:18:00 +0000
commit	9abe992851c315c0d98cceba797d0c9998e4300d (patch)
tree	27d0c0a92db2fe669ec034d9a739febb7e825fee /perl-install
parent	18a2fbda564ed7fd184d648a68250e6050995b3f (diff)
download	drakx-9abe992851c315c0d98cceba797d0c9998e4300d.tar drakx-9abe992851c315c0d98cceba797d0c9998e4300d.tar.gz drakx-9abe992851c315c0d98cceba797d0c9998e4300d.tar.bz2 drakx-9abe992851c315c0d98cceba797d0c9998e4300d.tar.xz drakx-9abe992851c315c0d98cceba797d0c9998e4300d.zip

add another sparc sound driver

Diffstat (limited to 'perl-install')

-rw-r--r--

perl-install/harddrake/sound.pm

1 files changed, 1 insertions, 0 deletions

package diskdrake::interactive; # $Id$ use diagnostics; use strict; use common; use partition_table qw(:types); use partition_table_raw; use detect_devices; use run_program; use loopback; use devices; use fsedit; use raid; use any; use log; use fs; =begin struct part { int active # one of { 0 | 0x80 } x86 only, primary only int start # in sectors int size # in sectors int type # 0x82, 0x83, 0x6 ... string device # 'hda5', 'sdc1' ... string rootDevice # 'sda', 'hdc' ... string real_mntpoint # directly on real /, '/tmp/hdimage' ... string mntpoint # '/', '/usr' ... string options # 'defaults', 'noauto' string device_windobe # 'C', 'D' ... string encrypt_key # [0-9A-Za-z./]{20,} bool isMounted bool isFormatted bool notFormatted # isFormatted means the device is formatted # !isFormatted && notFormatted means the device is not formatted # !isFormatted && !notFormatted means we don't know which state we're in int raid # for partitions of type isRawRAID and which isPartOfRAID, the raid device number string lvm # partition used as a PV for the VG with {lvm} as LVMname loopback loopback[] # loopback living on this partition # internal string real_device # '/dev/loop0', '/dev/loop1' ... # internal CHS (Cylinder/Head/Sector) int start_cyl, start_head, start_sec, end_cyl, end_head, end_sec, } struct part_allocate inherits part { int maxsize # in sectors (alike "size") int ratio # string hd # 'hda', 'hdc' string parts # for creating raid partitions. eg: 'foo bar' where 'foo' and 'bar' are mntpoint } struct part_raid inherits part { string chunk-size # usually '64k' string level # one of { 0, 1, 4, 5, 'linear' } part disks[] # invalid: active, start, rootDevice, device_windobe?, CHS } struct part_loopback inherits part { string loopback_file # absolute file name which is relative to the partition part loopback_device # where the loopback file live # device is special here: it is the absolute filename of the loopback file. # invalid: active, start, rootDevice, device_windobe, CHS } struct part_lvm inherits part { # invalid: active, start, device_windobe, CHS } struct partition_table_elem { part normal[] # part extended # the main/next extended part raw[4] # primary partitions } struct geom { int heads int sectors int cylinders int totalcylinders # for SUN, forget it int start # always 0, forget it } struct hd { int totalsectors # size in sectors string device # 'hda', 'sdc' ... string device_alias # 'cdrom', 'floppy' ... string media_type # one of { 'hd', 'cdrom', 'fd', 'tape' } string capacity # contain of the strings of { 'burner', 'DVD' } string info # name of the hd, eg: 'QUANTUM ATLAS IV 9 WLS' bool isDirty # does it need to be written to the disk bool needKernelReread # must we tell the kernel to reread the partition table bool hasBeenDirty # for undo bool rebootNeeded # happens when a kernel reread failed bool partitionsRenumbered # happens when you # - remove an extended partition which is not the last one # - add an extended partition which is the first extended partition int bus, id partition_table_elem primary partition_table_elem extended[] geom geom # internal string prefix # for some RAID arrays device=>c0d0 and prefix=>c0d0p string file # '/dev/hda' ... } struct hd_lvm inherits hd { int PE_size # block size (granularity, similar to cylinder size on x86) string LVMname # VG name part_lvm disks[] # invalid: bus, id, extended, geom } struct raw_hd inherits hd { string type # 0x82, 0x83, 'nfs', ... string mntpoint # '/', '/usr' ... string options # 'defaults', 'noauto' # invalid: isDirty, needKernelReread, hasBeenDirty, rebootNeeded, primary, extended } struct all_hds { hd hds[] hd_lvm lvms[] part_raid raids[] # indexed by number: raids[$n]{device} is "md$n" part_loopback loopbacks[] raw_hd raw_hds[] raw_hd nfss[] raw_hd smbs[] raw_hd special[] # internal: if fstab_to_string($all_hds) eq current_fstab then no need to save string current_fstab } =cut sub main { my ($in, $all_hds) = @_; if ($in->isa('interactive_gtk')) { require diskdrake::hd_gtk; goto &diskdrake::hd_gtk::main; } my ($current_part, $current_hd); while (1) { my $choose_txt = $current_part ? __("Choose another partition") : __("Choose a partition"); my $parts_and_holes = [ fsedit::get_all_fstab_and_holes($all_hds) ]; my $choose_part = sub { $current_part = $in->ask_from_listf('diskdrake', translate($choose_txt), sub { format_part_info_short(fsedit::part2hd($_[0], $all_hds), $_[0]) }, $parts_and_holes, $current_part) || return; $current_hd = fsedit::part2hd($current_part, $all_hds); }; $choose_part->() if !$current_part; return if !$current_part; my %actions = my @actions = ( if_($current_part, (map { my $s = $_; $_ => sub { $diskdrake::interactive::{$s}($in, $current_hd, $current_part, $all_hds) } } part_possible_actions($in, $current_hd, $current_part, $all_hds)), '____________________________' => sub {}, ), if_(@$parts_and_holes > 1, $choose_txt => $choose_part), if_($current_hd, (map { my $s = $_; $_ => sub { $diskdrake::interactive::{$s}($in, $current_hd, $all_hds) } } hd_possible_actions_interactive($in, $current_hd, $all_hds)), ), (map { my $s = $_; $_ => sub { $diskdrake::interactive::{$s}($in, $all_hds) } } general_possible_actions($in, $all_hds)), ); my ($actions) = list2kv(@actions); my $a; if ($current_part) { $in->ask_from_({ cancel => _("Exit"), title => 'diskdrake', messages => format_part_info($current_hd, $current_part), }, [ { val => \$a, list => $actions, type => 'list', sort => 0, gtk => { use_boxradio => 0 } } ]) or last; $actions{$a}(); $current_hd = $current_part = '' if !is_part_existing($current_part, $all_hds); } else { $choose_part->(); } partition_table::assign_device_numbers($_) foreach fsedit::all_hds($all_hds); } Done($in, $all_hds) or goto &main; } ################################################################################ # general actions ################################################################################ sub general_possible_actions { __("Undo"), ($::expert ? __("Toggle to normal mode") : __("Toggle to expert mode")); } sub Undo { my ($in, $all_hds) = @_; fsedit::undo($all_hds); } sub Wizard { $::o->{wizard} = 1; goto &Done; } sub Done { my ($in, $all_hds) = @_; eval { raid::verify($all_hds->{raids}) }; if (my $err = $@) { $::expert or die; $in->ask_okcancel('', [ formatError($err), _("Continue anyway?")]) or return; } foreach (@{$all_hds->{hds}}) { if (!write_partitions($in, $_)) { return if !$::isStandalone; $in->ask_yesorno(_("Quit without saving"), _("Quit without writing the partition table?"), 1) or return; } } if (!$::isInstall) { my $new = fs::fstab_to_string($all_hds); if ($new ne $all_hds->{current_fstab} && $in->ask_yesorno('', _("Do you want to save /etc/fstab modifications"), 1)) { $all_hds->{current_fstab} = $new; fs::write_fstab($all_hds); } } 1; } ################################################################################ # per-hd actions ################################################################################ sub hd_possible_actions { __("Clear all"), if_($::isInstall, __("Auto allocate")), __("More"); } sub hd_possible_actions_interactive { hd_possible_actions(), __("Hard drive information"); } sub Clear_all { my ($in, $hd, $all_hds) = @_; isPartOfLVM($_) and RemoveFromLVM($in, $hd, $_, $all_hds) foreach partition_table::get_normal_parts($hd); partition_table_raw::zero_MBR_and_dirty($hd); } sub Auto_allocate { my ($in, $hd, $all_hds) = @_; my $suggestions = partitions_suggestions($in) or return; my %all_hds_ = %$all_hds; $all_hds_{hds} = [ sort { $a == $hd ? -1 : 1 } @{$all_hds->{hds}} ]; eval { fsedit::auto_allocate(\%all_hds_, $suggestions) }; if ($@) { $@ =~ /partition table already full/ or die; $in->ask_warn("", [ _("All primary partitions are used"), _("I can't add any more partition"), _("To have more partitions, please delete one to be able to create an extended partition"), ]); } } sub More { my ($in, $hd) = @_; $in->ask_from('', '', [ { val => _("Save partition table"), clicked_may_quit => sub { SaveInFile($in, $hd); 1 } }, { val => _("Restore partition table"), clicked_may_quit => sub { ReadFromFile($in, $hd); 1 } }, { val => _("Rescue partition table"), clicked_may_quit => sub { Rescuept($in, $hd); 1 } }, if_($::isInstall, { val => _("Reload partition table"), clicked => sub { $::o->{all_hds} = fsedit::empty_all_hds(); die "setstep doPartitionDisks\n" if $::setstep; } }), if_($::isInstall, { text => _("Removable media automounting"), val => \$::o->{useSupermount}, type => 'bool' }, ), ], ); } sub ReadFromFile { my ($in, $hd) = @_; my $file = $::isStandalone ? $in->ask_file(_("Select file")) : devices::make("fd0") or return; eval { catch_cdie { partition_table::load($hd, $file) } sub { $@ =~ /bad totalsectors/ or return; $in->ask_yesorno('', _("The backup partition table has not the same size Still continue?"), 0); }; }; if (my $err = $@) { $in->ask_warn(_("Error"), formatError($err)); } } sub SaveInFile { my ($in, $hd) = @_; my $file = $::isStandalone ? $in->ask_file(_("Select file")) : $in->ask_okcancel(_("Warning"), _("Insert a floppy in drive All data on this floppy will be lost"), 1) && devices::make(detect_devices::floppy()) or return; eval { partition_table::save($hd, $file) }; if (my $err = $@) { $in->ask_warn(_("Error"), formatError($err)); } } sub Rescuept { my ($in, $hd) = @_; my $w = $in->wait_message('', _("Trying to rescue partition table")); fsedit::rescuept($hd); } sub Hd_info { my ($in, $hd) = @_; $in->ask_warn('', [ _("Detailed information"), format_hd_info($hd) ]); } ################################################################################ # per-part actions ################################################################################ sub part_possible_actions { my ($in, $hd, $part, $all_hds) = @_; $part or return; my %actions = my @l = ( __("Mount point") => '($part->{real_mntpoint} && common::usingRamdisk()) || (!isBusy && !isSwap && !isNonMountable)', __("Type") => '!isBusy && $::expert', __("Options") => '$::expert', __("Resize") => '!isBusy && !isSpecial || isLVM($hd) && isMounted && isThisFs("xfs", $part)', __("Move") => '!isBusy && !isSpecial && $::expert && 0', # disable for the moment __("Format") => '!isBusy && ($::expert || $::isStandalone)', __("Mount") => '!isBusy && (hasMntpoint || isSwap) && maybeFormatted && ($::expert || $::isStandalone)', __("Add to RAID") => '!isBusy && isRawRAID && !isSpecial', __("Add to LVM") => '!isBusy && isRawLVM', __("Unmount") => '!$part->{real_mntpoint} && isMounted', __("Delete") => '!isBusy', __("Remove from RAID") => 'isPartOfRAID', __("Remove from LVM") => 'isPartOfLVM', __("Modify RAID") => 'isPartOfRAID && !isMounted($all_hds->{raids}[$part->{raid}])', __("Use for loopback") => '!$part->{real_mntpoint} && isMountableRW && !isSpecial && hasMntpoint && $::expert', ); my ($actions_names) = list2kv(@l); my %macros = ( hasMntpoint => '$part->{mntpoint}', isPrimary => 'isPrimary($part, $hd)', ); if ($part->{type} == 0) { __("Create"); } else { grep { my $cond = $actions{$_}; while (my ($k, $v) = each %macros) { $cond =~ s/$k/qq(($v))/e; } $cond =~ s/(^|[^:\$]) \b ([a-z]\w{3,}) \b ($|[\s&\)])/$1 . $2 . '($part)' . $3/exg; eval $cond; } @$actions_names; } } sub Create { my ($in, $hd, $part, $all_hds) = @_; my ($def_start, $def_size, $max) = ($part->{start}, $part->{size}, $part->{start} + $part->{size}); $part->{maxsize} = $part->{size}; $part->{size} = 0; if (!fsedit::suggest_part($part, $all_hds)) { $part->{size} = $part->{maxsize}; $part->{type} ||= 0x483; } #- update adjustment for start and size, take into account the minimum partition size #- including one less sector for start due to a capacity to increase the adjustement by #- one. my ($primaryOrExtended, $migrate_files); my $type = type2name($part->{type}); my $mb_size = $part->{size} >> 11; my $has_startsector = ($::expert || arch() !~ /i.86/) && !isLVM($hd); my $w = $in->ask_from(_("Create a new partition"), '', [ if_($has_startsector, { label => _("Start sector: "), val => \$part->{start}, min => $def_start, max => ($max - min_partition_size($hd)), type => 'range' }, ), { label => _("Size in MB: "), val => \$mb_size, min => min_partition_size($hd) >> 11, max => $def_size >> 11, type => 'range' }, { label => _("Filesystem type: "), val => \$type, list => [ partition_table::important_types() ], sort => 0 }, { label => _("Mount point: "), val => \$part->{mntpoint}, list => [ fsedit::suggestions_mntpoint($all_hds), '' ], disabled => sub { my $p = { type => name2type($type) }; isSwap($p) || isNonMountable($p) }, type => 'combo', not_edit => 0, }, if_($::expert && $hd->hasExtended, { label => _("Preference: "), val => \$primaryOrExtended, list => [ '', "Extended", "Primary", if_($::expert, "Extended_0x85") ] }, ), ], changed => sub { if ($part->{start} + ($mb_size << 11) > $max) { if ($_[0] == 0) { # Start sector changed => restricting Size $mb_size = ($max - $part->{start}) >> 11; } else { # Size changed => restricting Start sector $part->{start} = $max - ($mb_size << 11); } } }, complete => sub { $part->{size} = from_Mb($mb_size, min_partition_size($hd), $max - $part->{start}); #- need this to be able to get back the approximation of using MB $part->{type} = name2type($type); $part->{mntpoint} = '' if isNonMountable($part); $part->{mntpoint} = 'swap' if isSwap($part); fs::set_default_options($part); check($in, $hd, $part, $all_hds) or return 1; $migrate_files = need_migration($in, $part->{mntpoint}) or return 1; fsedit::add($hd, $part, $all_hds, { force => 1, primaryOrExtended => $primaryOrExtended }); 0; }, ) or return; warn_if_renumbered($in, $hd); if ($migrate_files eq 'migrate') { format_($in, $hd, $part, $all_hds) or return; migrate_files($in, $hd, $part); fs::mount_part($part); } } sub Delete { my ($in, $hd, $part, $all_hds) = @_; if (isRAID($part)) { raid::delete($all_hds->{raids}, $part); } elsif (isLVM($hd)) { lvm::lv_delete($hd, $part); } elsif (isLoopback($part)) { my $f = "$part->{loopback_device}{mntpoint}$part->{loopback_file}"; if (-e $f && $in->ask_yesorno('', _("Remove the loopback file?"))) { unlink $f; } my $l = $part->{loopback_device}{loopback}; @$l = grep { $_ != $part } @$l; delete $part->{loopback_device}{loopback} if @$l == 0; fsedit::recompute_loopbacks($all_hds); } else { if (arch() =~ /ppc/) { undef $partition_table_mac::bootstrap_part if (isAppleBootstrap($part) && ($part->{device} = $partition_table_mac::bootstrap_part)); } partition_table::remove($hd, $part); warn_if_renumbered($in, $hd); } } sub Type { my ($in, $hd, $part) = @_; my $warn = sub { ask_alldatawillbelost($in, $part, __("After changing type of partition %s, all data on this partition will be lost")) }; #- for ext2, warn after choosing as ext2->ext3 can be achieved without loosing any data :) isExt2($part) or $warn->() or return; my $type = type2name($part->{type}); $in->ask_from(_("Change partition type"), _("Which filesystem do you want?"), [ { label => _("Type"), val => \$type, list => [ partition_table::important_types() ], sort => 0, not_edit => !$::expert } ]) or return; if (isExt2($part) && isThisFs('ext3', { type => name2type($type) })) { my $w = $in->wait_message('', _("Switching from ext2 to ext3")); if (run_program::run("tune2fs", "-j", devices::make($part->{device}))) { $part->{type} = name2type($type); $part->{isFormatted} = 1; #- assume that if tune2fs works, partition is formatted #- disable the fsck (don't do it together with -j in case -j fails?) fs::disable_forced_fsck($part->{device}); return; } } #- either we switch to non-ext3 or switching losslessly to ext3 failed !isExt2($part) or $warn->() or return; if (defined $type) { my $i_type = name2type($type); fsedit::change_type(name2type($type), $hd, $part); } } sub Mount_point { my ($in, $hd, $part, $all_hds) = @_; my $mntpoint = $part->{mntpoint} || do { my $part_ = { %$part }; if (fsedit::suggest_part($part_, $all_hds)) { fsedit::has_mntpoint('/', $all_hds) || $part_->{mntpoint} eq '/boot' ? $part_->{mntpoint} : '/'; } else { '' } }; $in->ask_from( '', isLoopback($part) ? _("Where do you want to mount loopback file %s?", $part->{loopback_file}) : _("Where do you want to mount device %s?", $part->{device}), [ { label => _("Mount point"), val => \$mntpoint, list => [ if_($mntpoint, $mntpoint), fsedit::suggestions_mntpoint($all_hds), '' ], not_edit => !$::expert } ], complete => sub { !isPartOfLoopback($part) || $mntpoint or $in->ask_warn('', _("Can't unset mount point as this partition is used for loop back. Remove the loopback first")), return 1; $part->{mntpoint} eq $mntpoint || check_mntpoint($in, $mntpoint, $hd, $part, $all_hds) or return 1; 0; } ) or return; $part->{mntpoint} = $mntpoint; } sub Mount_point_raw_hd { my ($in, $part, $all_hds, $propositions) = @_; my $mntpoint = $part->{mntpoint}; $in->ask_from( '', _("Where do you want to mount device %s?", $part->{device}), [ { label => _("Mount point"), val => \$mntpoint, list => [ if_($mntpoint, $mntpoint), '', @$propositions ], not_edit => 0 } ], complete => sub { $part->{mntpoint} eq $mntpoint || check_mntpoint($in, $mntpoint, {}, $part, $all_hds) or return 1; 0; } ) or return; $part->{mntpoint} = $mntpoint; } sub Resize { my ($in, $hd, $part) = @_; my (%nice_resize, $block_count, $free_block, $block_size); my ($min, $max) = (min_partition_size($hd), partition_table::next_start($hd, $part) - $part->{start}); if (maybeFormatted($part)) { # here we may have a non-formatted or a formatted partition # -> doing as if it was formatted if (isFat($part)) { write_partitions($in, $hd) or return; #- try to resize without losing data my $w = $in->wait_message(_("Resizing"), _("Computing FAT filesystem bounds")); $nice_resize{fat} = resize_fat::main->new($part->{device}, devices::make($part->{device})); $min = max($min, $nice_resize{fat}->min_size); $max = min($max, $nice_resize{fat}->max_size); } elsif (isExt2($part)) { write_partitions($in, $hd) or return; $nice_resize{ext2} = devices::make($part->{device}); my $r = `dumpe2fs $nice_resize{ext2} 2>/dev/null`; $r =~ /Block count:\s*(\d+)/ and $block_count = $1; $r =~ /Free blocks:\s*(\d+)/ and $free_block = $1; $r =~ /Block size:\s*(\d+)/ and $block_size = $1; log::l("dumpe2fs $nice_resize{ext2} gives: Block_count=$block_count, Free_blocks=$free_block, Block_size=$block_size"); if ($block_count && $free_block && $block_size) { $min = max($min, ($block_count - $free_block) * $block_size / 512); $max = min($max, $block_count * $block_size / 512); } else { delete $nice_resize{ext2}; } } elsif (isThisFs("reiserfs", $part)) { write_partitions($in, $hd) or return; if (defined (my $free = fs::df($part))) { $nice_resize{reiserfs} = 1; $min = max($min, $free); } } elsif (isThisFs('xfs', $part) && isLVM($hd) && $::isStandalone && isMounted($part)) { $min = $part->{size}; #- ensure the user can only increase $nice_resize{xfs} = 1; } #- make sure that even after normalizing the size to cylinder boundaries, the minimun will be saved, #- this save at least a cylinder (less than 8Mb). $min += partition_table_raw::cylinder_size($hd); $min >= $max and return $in->ask_warn('', _("This partition is not resizeable")); #- for these, we have tools to resize partition table #- without losing data (or at least we hope so :-) if (%nice_resize) { ask_alldatamaybelost($in, $part, __("All data on this partition should be backed-up")) or return; } else { ask_alldatawillbelost($in, $part, __("After resizing partition %s, all data on this partition will be lost")) or return; } } my $mb_size = $part->{size} >> 11; $in->ask_from(_("Resize"), _("Choose the new size"), [ { label => _("New size in MB: "), val => \$mb_size, min => $min >> 11, max => $max >> 11, type => 'range' }, ]) or return; my $size = from_Mb($mb_size, $min, $max); $part->{size} == $size and return; my $oldsize = $part->{size}; $hd->{isDirty} = $hd->{needKernelReread} = 1; $part->{size} = $size; $hd->adjustEnd($part); undef $@; my $b = before_leaving { $@ and $part->{size} = $oldsize }; my $w = $in->wait_message(_("Resizing"), ''); if (isLVM($hd)) { lvm::lv_resize($part, $oldsize) if $size > $oldsize; } if ($nice_resize{fat}) { local *log::l = sub { $w->set(join(' ', @_)) }; $nice_resize{fat}->resize($part->{size}); } elsif ($nice_resize{ext2}) { my $s = int(($part->{size} << 9) / $block_size); log::l("resize2fs $nice_resize{ext2} to size $s in block of $block_size bytes"); system "resize2fs", "-pf", $nice_resize{ext2}, $s; } elsif ($nice_resize{reiserfs}) { log::l("reiser resize to $part->{size} sectors"); install_any::check_prog ("resize_reiserfs") if $::isInstall; system "resize_reiserfs", "-f", "-q", "-s" . $part->{size}/2 . "K", devices::make($part->{device}); } elsif ($nice_resize{xfs}) { system "xfs_growfs", $part->{mntpoint}; } if (%nice_resize) { $part->{isFormatted} = 1; } else { $part->{notFormatted} = 1; $part->{isFormatted} = 0; partition_table::verifyParts($hd); } if (isLVM($hd)) { lvm::lv_resize($part, $oldsize) if $size < $oldsize; } else { partition_table::adjust_local_extended($hd, $part); partition_table::adjust_main_extended($hd); } } sub Move { my ($in, $hd, $part, $all_hds) = @_; my $hd2 = $in->ask_from_listf(_("Move"), _("Which disk do you want to move it to?"), \&partition_table::description, @{$all_hds->{hds}}) or return; my $start2 = $in->ask_from_entry(_("Sector"), _("Which sector do you want to move it to?")); defined $start2 or return; my $w = $in->wait_message(_("Moving"), _("Moving partition...")); fsedit::move($hd, $part, $hd2, $start2); } sub Format { my ($in, $hd, $part, $all_hds) = @_; format_($in, $hd, $part, $all_hds); } sub Mount { my ($in, $hd, $part) = @_; write_partitions($in, $hd) or return; fs::mount_part($part); } sub Add2RAID { my ($in, $hd, $part, $all_hds) = @_; my $raids = $all_hds->{raids}; local $_ = @$raids == () ? "new" : $in->ask_from_list_('', _("Choose an existing RAID to add to"), [ (grep {$_} map_index { $_ && "md$::i" } @$raids), __("new") ]) or return; if (/new/) { my $nb1 = raid::new($raids, $part); defined modifyRAID($in, $raids, $nb1) or return raid::delete($raids, $nb1); } else { raid::add($raids, $part, $_); } raid::update(@$raids); raid::stopAll(); } sub Add2LVM { my ($in, $hd, $part, $all_hds) = @_; my $lvms = $all_hds->{lvms}; write_partitions($in, $_) or return foreach isRAID($part) ? @{$all_hds->{hds}} : $hd; my $lvm = $in->ask_from_listf_('', _("Choose an existing LVM to add to"), sub { ref $_[0] ? $_[0]{LVMname} : $_[0] }, [ @$lvms, __("new") ]) or return; if (!ref $lvm) { # create new lvm my $name = $in->ask_from_entry('', _("LVM name?")) or return; $name =~ s/\W/_/g; $name = substr($name, 0, 63); # max length must be < NAME_LEN / 2 where NAME_LEN is 128 $lvm = bless { disks => [], LVMname => $name }, 'lvm'; push @$lvms, $lvm; } $part->{lvm} = $lvm->{LVMname}; push @{$lvm->{disks}}, $part; delete $part->{mntpoint}; require lvm; lvm::check($in) if $::isStandalone; lvm::vg_add($part); lvm::update_size($lvm); } sub Unmount { my ($in, $hd, $part) = @_; fs::umount_part($part); } sub RemoveFromRAID { my ($in, $hd, $part, $all_hds) = @_; raid::removeDisk($all_hds->{raids}, $part); } sub RemoveFromLVM { my ($in, $hd, $part, $all_hds) = @_; my $lvms = $all_hds->{lvms}; isPartOfLVM($part) or die; my ($lvm) = grep { $_->{LVMname} eq $part->{lvm} } @$lvms; lvm::vg_destroy($lvm); @$lvms = grep { $_ != $lvm } @$lvms; } sub ModifyRAID { my ($in, $hd, $part, $all_hds) = @_; modifyRAID($in, $all_hds->{raids}, $part->{raid}); } sub Loopback { my ($in, $hd, $real_part, $all_hds) = @_; write_partitions($in, $hd) or return; my $handle = any::inspect($real_part) or $in->ask_warn('', _("This partition can't be used for loopback")), return; my ($min, $max) = (1, loopback::getFree($handle->{dir}, $real_part)); my $part = { maxsize => $max, size => 0, loopback_device => $real_part, notFormatted => 1 }; if (!fsedit::suggest_part($part, $all_hds)) { $part->{size} = $part->{maxsize}; $part->{type} ||= 0x483; } delete $part->{mntpoint}; # we don't want the suggested mntpoint my $type = type2name($part->{type}); my $mb_size = $part->{size} >> 11; $in->ask_from(_("Loopback"), '', [ { label => _("Loopback file name: "), val => \$part->{loopback_file} }, { label => _("Size in MB: "), val => \$mb_size, min => $min >> 11, max => $max >> 11, type => 'range' }, { label => _("Filesystem type: "), val => \$type, list => [ partition_table::important_types() ], not_edit => !$::expert, sort => 0 }, ], complete => sub { $part->{loopback_file} or $in->ask_warn('', _("Give a file name")), return 1, 0; $part->{loopback_file} =~ s|^([^/])|/$1|; if (my $size = loopback::verifFile($handle->{dir}, $part->{loopback_file}, $real_part)) { $size == -1 and $in->ask_warn('', _("File already used by another loopback, choose another one")), return 1, 0; $in->ask_yesorno('', _("File already exists. Use it?")) or return 1, 0; delete $part->{notFormatted}; $part->{size} = divide($size, 512); } else { $part->{size} = from_Mb($mb_size, $min, $max); } 0; }) or return; $part->{type} = name2type($type); push @{$real_part->{loopback}}, $part; fsedit::recompute_loopbacks($all_hds); } sub Options { my ($in, $hd, $part, $all_hds) = @_; my @simple_options = qw(user noauto supermount); my (undef, $user_implies) = fs::mount_options(); my ($options, $unknown) = fs::mount_options_unpack($part); my %help = fs::mount_options_help(keys %$options); my $prev_user = $options->{user}; $in->ask_from(_("Mount options"), '', [ (map {; { label => $_, text => scalar warp_text(formatAlaTeX($help{$_})), val => \$options->{$_}, advanced => !$part->{rootDevice} && !member($_, @simple_options), if_(!/=$/, type => 'bool'), } } keys %$options), { label => _("Various"), val => \$unknown, advanced => 1 }, ], changed => sub { if ($prev_user != $options->{user}) { $prev_user = $options->{user}; $options->{$_} = $options->{user} foreach @$user_implies; } if ($options->{encrypted}) { # modify $part->{options} for the check local $part->{options}; fs::mount_options_pack($part, $options, $unknown); if (!check($in, $hd, $part, $all_hds)) { $options->{encrypted} = 0; } elsif (!$part->{encrypt_key} && !isSwap($part)) { if (my $encrypt_key = choose_encrypt_key($in)) { $options->{'encryption='} = 'AES128'; $part->{encrypt_key} = $encrypt_key; } else { $options->{encrypted} = 0; } } } else { delete $options->{'encryption='}; } }, ) or return; fs::mount_options_pack($part, $options, $unknown); } { no strict; *{"Toggle to normal mode"} = sub { $::expert = 0 }; *{"Toggle to expert mode"} = sub { $::expert = 1 }; *{"Clear all"} = *Clear_all; *{"Auto allocate"} = *Auto_allocate; *{"Mount point"} = *Mount_point; *{"Modify RAID"} = *ModifyRAID; *{"Add to RAID"} = *Add2RAID; *{"Remove from RAID"} = *RemoveFromRAID; *{"Add to LVM"} = *Add2LVM; *{"Remove from LVM"} = *RemoveFromLVM; *{"Use for loopback"} = *Loopback; *{"Hard drive information"} = *Hd_info; }


context:
space:
mode: