From 9e4da6ff51863e53ee8c65db9197d865116b93db Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 3 Mar 2001 19:27:03 +0000 Subject: creation --- perl-install/lvm.pm | 98 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 98 insertions(+) create mode 100644 perl-install/lvm.pm diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm new file mode 100644 index 000000000..5ce2b3c03 --- /dev/null +++ b/perl-install/lvm.pm @@ -0,0 +1,98 @@ +package lvm; # $Id$ + +use diagnostics; +use strict; + +#-###################################################################################### +#- misc imports +#-###################################################################################### +use common qw(:common :functional :system :file); +use modules; +use fsedit; +use devices; +use run_program; + +#- for partition_table_xxx emulation +sub hasExtended { 0 } +sub adjustStart {} +sub adjustEnd {} +sub write {} +sub cylinder_size { + my ($hd) = @_; + $hd->{PE_size}; +} + + +modules::load('lvm-mod'); +run_program::run('vgscan') if !-e '/etc/lvmtab'; + +sub get_vg { + my ($part) = @_; + my $dev = devices::make($part->{device}); + (split(':', `pvdisplay -c $dev`))[1]; +} + +sub update_size { + my ($lvm) = @_; + my @l = split(':', `vgdisplay -c -D $lvm->{LVMname}`); + $lvm->{totalsectors} = ($lvm->{PE_size} = $l[12]) * $l[13]; +} + +sub get_lvs { + my ($lvm) = @_; + $lvm->{primary}{normal} = + [ + map { + my $type = -e $_ && fsedit::typeOfPart($_); + { device => $_, + type => $type || 0x83, + isFormatted => $type, + size => (split(':', `lvdisplay -c $_`))[6] } + } map { /^LV Name\s+(\S+)/ ? $1 : () } `vgdisplay -v -D $lvm->{LVMname}` + ]; +} + +sub vg_add { + my ($part) = @_; + if (my $old_name = get_vg($part)) { + run_program::run('vgchange', '-a', 'n', $old_name); + run_program::run('vgremove', $old_name); + } + my $dev = devices::make($part->{device}); + run_program::run_or_die('pvcreate', $dev); + my $prog = run_program::run('vgdisplay', $part->{lvm}) ? 'vgextend' : 'vgcreate'; + run_program::run_or_die($prog, $part->{lvm}, $dev); +} + +sub vg_destroy { + my ($lvm) = @_; + + is_empty_array_ref($lvm->{primary}{normal}) or die _("Remove the logical volumes first\n"); + run_program::run('vgchange', '-a', 'n', $lvm->{LVMname}); + run_program::run_or_die('vgremove', $lvm->{LVMname}); + foreach (@{$lvm->{disks}}) { + delete $_->{lvm}; + $_->{isFormatted} = 0; + $_->{notFormatted} = 1; + } +} + +sub lv_delete { + my ($lvm, $lv) = @_; + + run_program::run_or_die('lvremove', '-f', $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($_) } @$list); + $lv->{device} = "/dev/$lvm->{LVMname}/$nb"; + run_program::run_or_die('lvcreate', '--size', int($lv->{size} / 2) . 'k', '-n', $nb, $lvm->{LVMname}); + push @$list, $lv; +} + +1; -- cgit v1.2.1