drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/docs/comparisons

	Commit message (Expand)	Author	Age	Files	Lines
*	add explained changes in hwdata and kudzu from redhat 8.0 to 8.1beta	Pascal Rigaux	2003-01-12	1	-0/+23
*	add changes between anaconda 8.0 and current	Pascal Rigaux	2003-01-12	1	-72/+156
*	* empty log message *	Pascal Rigaux	2002-11-06	1	-0/+1
*	* empty log message *	Pascal Rigaux	2002-08-27	1	-0/+2
*	* empty log message *	Pascal Rigaux	2002-08-19	1	-1/+1
*	comprehensive feature-to-feature comparison with redhat 8.0	Pascal Rigaux	2002-08-11	1	-0/+72
*	* empty log message *	Pascal Rigaux	2002-07-29	1	-0/+15
*	various remarks about mandrake	Pascal Rigaux	2002-07-06	1	-0/+9
*	* empty log message *	Pascal Rigaux	2001-09-14	1	-25/+26
*	* empty log message *	Pascal Rigaux	2001-09-03	1	-2/+28
*	* empty log message *	Pascal Rigaux	2001-08-24	1	-0/+4
*	re-adding with -kb	Pascal Rigaux	2001-07-03	1	-0/+7
*	tools to auto generate the ChangeLog and the mail to changelog	Pascal Rigaux	2000-12-19	1	-0/+6
*	no_comment	Pascal Rigaux	2000-09-25	1	-0/+1
*	no_comment	Pascal Rigaux	2000-09-25	1	-20/+19
*	no_comment	Pascal Rigaux	2000-09-24	1	-0/+38

ass="hl opt">= substr($name, 0, 63); # max length must be < NAME_LEN / 2 where NAME_LEN is 128 bless { disks => [], VG_name => $name }, $class; } sub hasExtended { 0 } sub adjustStart {} sub adjustEnd {} sub write {} sub cylinder_size { my ($hd) = @_; $hd->{PE_size}; } init(); sub init { eval { modules::load('lvm-mod') }; run_program::run('vgscan') if !-e '/etc/lvmtab'; run_program::run('vgchange', '-a', 'y'); } sub run { if (my $r = run_program::run(@_)) { $r; } else { $? >> 8 == 98 or return; #- sometimes, it needs running vgscan again, doing so: run_program::run('vgscan'); run_program::run(@_); } } sub run_or_die { my ($prog, @para) = @_; run($prog, @para) or die "$prog failed\n"; } sub check { my ($in) = @_; my $f = '/sbin/pvcreate'; -e $f or $in->do_pkgs->install('lvm'); -e $f or $in->ask_warn('', "Mandatory package lvm is missing"), return; init(); 1; } sub get_vg { my ($part) = @_; my $dev = expand_symlinks(devices::make($part->{device})); (split(':', run_program::get_stdout('pvdisplay', '-c', $dev)))[1]; } sub update_size { my ($lvm) = @_; my @l = split(':', run_program::get_stdout('vgdisplay', '-c', '-D', $lvm->{VG_name})); $lvm->{totalsectors} = ($lvm->{PE_size} = $l[12]) * $l[13]; } sub get_lv_size { my ($lvm_device) = @_; my $info = run_program::get_stdout('lvdisplay', '-D', '-c', "/dev/$lvm_device"); (split(':', $info))[6]; } sub get_lvs { my ($lvm) = @_; my @l = run_program::get_stdout('vgdisplay', '-v', '-D', $lvm->{VG_name}); $lvm->{primary}{normal} = [ map { my $type = -e "/dev/$_" && fsedit::typeOfPart("/dev/$_"); { device => $_, type => $type || 0x83, size => get_lv_size($_) } } map { if_(m|^LV Name\s+/dev/(\S+)|, $1) } @l ]; } sub vg_add { my ($part) = @_; my $dev = expand_symlinks(devices::make($part->{device})); run_or_die('pvcreate', '-y', '-ff', $dev); my $prog = run('vgdisplay', $part->{lvm}) ? 'vgextend' : 'vgcreate'; run_or_die($prog, $part->{lvm}, $dev); } sub vg_destroy { my ($lvm) = @_; is_empty_array_ref($lvm->{primary}{normal}) or die N("Remove the logical volumes first\n"); run('vgchange', '-a', 'n', $lvm->{VG_name}); run_or_die('vgremove', $lvm->{VG_name}); foreach (@{$lvm->{disks}}) { delete $_->{lvm}; $_->{isFormatted} = 0; $_->{notFormatted} = 1; } } sub lv_delete { my ($lvm, $lv) = @_; run_or_die('lvremove', '-f', "/dev/$lv->{device}"); my $list = $lvm->{primary}{normal}; @$list = grep { $_ != $lv } @$list; } sub lv_create { my ($lvm, $lv) = @_; my $list = $lvm->{primary}{normal} ||= []; my $nb = 1 + max(map { basename($_->{device}) } @$list); $lv->{device} = "$lvm->{VG_name}/$nb"; run_or_die('lvcreate', '--size', int($lv->{size} / 2) . 'k', '-n', $nb, $lvm->{VG_name}); $lv->{size} = get_lv_size($lv->{device}); #- the created size is smaller than asked size $lv->{notFormatted} = 1; $lv->{isFormatted} = 0; push @$list, $lv; } sub lv_resize { my ($lv, $oldsize) = @_; run_or_die($oldsize > $lv->{size} ? ('lvreduce', '-f') : 'lvextend', '--size', int($lv->{size} / 2) . 'k', "/dev/$lv->{device}"); $lv->{size} = get_lv_size($lv->{device}); #- the resized partition may not be the exact asked size } 1;