Changeset 2149 in MondoRescue for devel/mindi/lib

Timestamp:

Feb 16, 2009, 5:50:07 PM (16 years ago)

Author:

Bruno Cornec

Message:

Begining f devl branch coding nd preliminary organisation

Location:

devel/mindi/lib/MondoRescue/Mindi

Files:

• . (added)
• LVM.pm (moved) (moved from devel/mindi/lib/MondoRescue/Mindi.pm ) (6 diffs)

devel/mindi/lib/MondoRescue/Mindi/LVM.pm

@@ -1 +1 @@
 #!/usr/bin/perl -w
 #
-# Mindi subroutines brought by the MondoRescue project
+# Mindi subroutines related to LVM brought by the MondoRescue project
 #
 # $Id$
@@ -8 +8 @@
 # Provided under the GPL v2
 
-package MandoRescue::Mindi;
+package MondoRescue::Mindi::LVM;
 
 use strict 'vars';
 use Data::Dumper;
 use English;
-use File::Basename;
-use File::Copy;
-use POSIX qw(strftime);
 use lib qw (lib);
 use ProjectBuilder::Base;
@@ -28 +25 @@
 
 our @ISA = qw(Exporter);
-our @EXPORT = qw(mr_lvm_check);
+our @EXPORT = qw(mr_lvm_check mr_lvm_analyze mr_lvm_prepare);
 
 =pod
@@ -48 +45 @@
 This function checks the usage of LVM and gets the version used
 It returns 2 parameters, the LVM version, and the lvm command to use if needed
+If LVM version is null then no LVM Handling should be done.
 
 =cut
@@ -53 +51 @@
 sub mr_lvm_check {
 
-# Get them from a conf file instead
-my $lvmds = "/usr/sbin/lvmdiskscan";
-my $lvmproc = "/proc/lvm/global";
-my $lvmcmd = "/usr/sbin/lvm";
-
-mr_exit(1,"$lvmproc doesn't exist.") if (! -x $lvmproc) ;
+# Get params from the conf file
+my ($lvmds_t,$lvmproc_t,$lvmcmd_t,$lvmpath_t) = pb_conf_get("mr_lvmdiskscan","mr_lvmprocfile","mr_lvmcmd","mr_lvmpath");
+my $lvmds = $lvmds_t->{'mindi'};
+my $lvmproc = $lvmproc_t->{'mindi'};
+my $lvmcmd = $lvmcmd_t->{'mindi'};
+my $lvmpath = $lvmpath_t->{'mindi'};
+
+if (! -x $lvmproc) {
+    pb_log(1,"$lvmproc doesn't exist.");
+    return(0,undef);
+    }
 
 # Check LVM volumes presence
 open(LVM,$lvmproc) || mr_exit(-1,"Unable to open $lvmproc");
 while (<LVM>) {
-    mr_exit(1,"No LVM volumes found in $lvmproc") if (/0 VGs 0 PVs 0 LVs/);
+    if (/0 VGs 0 PVs 0 LVs/) {
+        pb_log(1,"No LVM volumes found in $lvmproc");
+        return(0,undef);
+    }
 }
 close(LVM);
@@ -96 +102 @@
 if ($lvmver == 0) {
     # Still not found
-    mr_exit(-1,"Unable to determine LVM version.\nPlease report to the dev team with the result of the commands\n$lvmds and $lvmcmd version");
+    mr_exit(-1,"Unable to determine LVM version.\nPlease report to the dev team with the result of the commands\n$lvmds and $lvmcmd");
 } elsif ($lvmver == 1) {
-    $lvmcmd = "";
-}
+    $lvmcmd = "$lvmpath";
+} elsif ($lvmver == 2) {
+    $lvmcmd .= " ";
+} else {
+    pb_log(0,"Unknown LVM version $lvmver");
+}
+# Here $lvmcmd contains a full path name
 pb_log(1,"Found LVM version $lvmver");
 return ($lvmver,$lvmcmd);
+
+}
+
+=over 4
+
+=item B<mr_lvm_analyze>
+
+This function outputs in a file descriptor the LVM analysis done
+It returns 1 parameters, the LVM version or 0 if no LVM
+
+=cut
+
+sub mr_lvm_analyze {
+
+my $OUTPUT = shift;
+
+my ($lvmver,$lvmcmd) = mr_lvm_check();
+return(0) if ($lvmver == 0);
+
+print $OUTPUT "LVM:$lvmver";
+
+# Analyze the existing physical volumes
+open(LVM,$lvmcmd."pvdisplay -c |") || mr_exit(-1,"Unable to execute ".$lvmcmd."pvdisplay -c");
+while (<LVM>) {
+        print $OUTPUT "PV:$_";
+}
+close(LVM);
+
+# Analyze the existing volume groups
+open(LVM,$lvmcmd."vgdisplay -c |") || mr_exit(-1,"Unable to execute ".$lvmcmd."vgdisplay -c");
+while (<LVM>) {
+        print $OUTPUT "VG:$_";
+}
+close(LVM);
+
+# Analyze the existing logical volumes
+open(LVM,$lvmcmd."lvdisplay -c |") || mr_exit(-1,"Unable to execute ".$lvmcmd."lvdisplay -c");
+while (<LVM>) {
+        print $OUTPUT "LV:$_";
+}
+close(LVM);
+return($lvmver);
+}
+
+
+=over 4
+
+=item B<mr_lvm_prepare>
+
+This function outputs in a file descriptor the LVM setup needed to restore LVM conf
+It returns 1 parameters, the LVM version or 0 if no LVM
+
+=cut
+
+sub mr_lvm_prepare {
+
+my $INPUT = shift;
+my $OUTPUT = shift;
+my $mrmult = shift;
+
+my ($lvmver,$lvmcmd) = mr_lvm_check();
+
+# Generate the startup scrit needed to restore LVM conf
+# from what is given on input
+# Multiply by the multiplier given in input or 1 of none
+
+print $OUTPUT "# Desactivate Volume Groups\n";
+print $OUTPUT $lvmcmd."vgchange -an\n";
+print $OUTPUT "\n";
+
+my $firsttime = 0;
+while (<$INPUT>) {
+    if (/^PV:/) {
+        my ($tag,$pvname,$vgname,$pvsize,$ipvn,$pvstat,$pvna,$lvnum,$pesize,$petot,$pefree,$pelloc) = split(/:/);
+        print $OUTPUT "# Creating Physical Volumes $pvname\n";
+        print $OUTPUT $lvmcmd."pvcreate -ff -y -s ".$pesize*$mrmult." $pvname\n";
+        print $OUTPUT "\n";
+    } elsif (/^VG:/) {
+        my ($tag,$vgname,$vgaccess,$vgstat,$vgnum,$lvmaxnum,$lvnum,$ocalvinvg,$lvmaxsize,$pvmaxnum,$cnumpv,$anumpv,$vgsize,$pesize,$penum,$pealloc,$pefree,$uuid) = split(/:/);
+        if ($lvmver < 2) {
+            print $OUTPUT "# Removing device first as LVM v1 doesn't do it\n";
+            print $OUTPUT "rm -Rf /dev/$vgname\n";
+        }
+        $lvmaxnum = 255 if ($lvmaxnum > 256);
+        $pvmaxnum = 255 if ($pvmaxnum > 256);
+        print $OUTPUT "# Create Volume Group $vgname\n";
+        # Pb sur pesize unite ?
+        print $OUTPUT $lvmcmd."vgcreate $vgname -p $pvmaxnum -s $pesize -l $lvmaxnum\n";
+        print $OUTPUT "\n";
+    } elsif (/^LV:/) {
+        if ($firsttime eq 0) {
+            print $OUTPUT "\n";
+            print $OUTPUT "# Activate All Volume Groups\n";
+            print $OUTPUT $lvmcmd."vgchange -ay\n";
+            print $OUTPUT "\n";
+            $firsttime = 1;
+        }
+        my ($tag,$lvname,$vgname,$lvaccess,$lvstat,$lvnum,$oclv,$lvsize,$leinlv,$lealloc,$allocpol,$readahead,$major,$minor) = split(/:/);
+        print $OUTPUT "# Create Logical Volume $lvname\n";
+        print $OUTPUT $lvmcmd."lvcreate -n $lvname -L ".$lvsize*$mrmult." -r $readahead $vgname\n";
+        #[ "$stripes" ]    && output="$output -i $stripes"
+        #[ "$stripesize" ] && output="$output -I $stripesize"
+    }
+}
+print $OUTPUT "\n";
+print $OUTPUT "# Scanning again Volume Groups\n";
+print $OUTPUT $lvmcmd."vgscan\n";
+print $OUTPUT "\n";
 
 }