drakx - Mageia Installer and base platform for many utilities

diff options

author	Damien Chaumette <dchaumette@mandriva.com>	2003-01-24 19:46:29 +0000
committer	Damien Chaumette <dchaumette@mandriva.com>	2003-01-24 19:46:29 +0000
commit	11ca0d14597e8399c4219c94607275983ea10a46 (patch)
tree	ae14737b2b5cec0e0851b7b115173786636502bf /perl-install/drakxtools.spec
parent	7a0c1e3f8c734a916b2ac8db5c32791e8fe02d33 (diff)
download	drakx-11ca0d14597e8399c4219c94607275983ea10a46.tar drakx-11ca0d14597e8399c4219c94607275983ea10a46.tar.gz drakx-11ca0d14597e8399c4219c94607275983ea10a46.tar.bz2 drakx-11ca0d14597e8399c4219c94607275983ea10a46.tar.xz drakx-11ca0d14597e8399c4219c94607275983ea10a46.zip

new version

Diffstat (limited to 'perl-install/drakxtools.spec')

-rw-r--r--

perl-install/drakxtools.spec

1 files changed, 5 insertions, 1 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,} string comment # comment to have in fstab 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, format => \&translate, 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) = @_; my @parts = partition_table::get_normal_parts($hd); foreach (@parts) { RemoveFromLVM($in, $hd, $_, $all_hds) if isPartOfLVM($_); RemoveFromRAID($in, $hd, $_, $all_hds) if isPartOfRAID($_); } if (isLVM($hd)) { lvm::lv_delete($hd, $_) foreach @parts } else { 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_name = type2name($part->{type}); $in->ask_from(_("Change partition type"), _("Which filesystem do you want?"), [ { label => _("Type"), val => \$type_name, list => [ partition_table::important_types() ], sort => 0, not_edit => !$::expert } ]) or return; my $type = $type_name && name2type($type_name); if (isExt2($part) && isThisFs('ext3', { type => $type })) { my $w = $in->wait_message('', _("Switching from ext2 to ext3")); if (run_program::run("tune2fs", "-j", devices::make($part->{device}))) { $part->{type} = $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) { check_type($in, $type, $hd, $part) and fsedit::change_type($type, $hd, $part); } } sub Mount_point { my ($in, $hd, $part, $all_hds) = @_; my $migrate_files; 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; $migrate_files = need_migration($in, $mntpoint) or return 1; 0; } ) or return; $part->{mntpoint} = $mntpoint; if ($migrate_files eq 'migrate') { format_($in, $hd, $part, $all_hds) or return; migrate_files($in, $hd, $part); fs::mount_part($part); } } 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) || isThisFs('ext3', $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;


context:
space:
mode: