Changeset 2149 in MondoRescue for devel/mindi/sbin/mrprepare-lvm

Timestamp:

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

Author:

Bruno Cornec

Message:

Begining f devl branch coding nd preliminary organisation

File:

• devel/mindi/sbin/mrprepare-lvm (modified) (3 diffs)

devel/mindi/sbin/mrprepare-lvm

@@ -15 +15 @@
 use Data::Dumper;
 use English;
-use File::Basename;
-use File::Copy;
-use File::stat;
-use File::Temp qw(tempdir);
-use POSIX qw(strftime);
 use lib qw (lib);
 use ProjectBuilder::Base;
 use ProjectBuilder::Distribution;
+use MondoRescue::Base;
+use MondoRescue::Mindi::LVM;
 
 =pod
@@ -149 +146 @@
 
 # -------------------------------- main -----------------------------------
-my ($lvmver,$lvmcmd) = mr_lvm_check();
-
 # Where to send the output
 my $OUTPUT = \*STDOUT;
@@ -165 +160 @@
 }
 
+mr_lvm_prepare($INPUT,$OUTPUT,$mrmult);
 
-# 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";
-
-
+close($INPUT);
+close($OUTPUT);
 #WriteShutdownScript
 mr_exit(0,"End of mrprepare-lvm");
-
-sub mr_exit {
-
-my $code = shift;
-my $msg = shift || "";
-
-close(OUTPUT);
-print $msg."\n";
-die "ERROR returned\n" if ($code < 0);
-print "No LVM handling\n" if ($code > 0);
-exit(0);
-}