Changeset 2650 in MondoRescue for devel/mr

Timestamp:

Jun 13, 2010, 12:36:38 PM (14 years ago)

Author:

Bruno Cornec

Message:

r3875@localhost: bruno | 2010-06-12 12:31:38 +0200

• Review completely the installation process for mrmini, and first packages buildable

Location:

devel/mr

Files:

• Makefile.PL (modified) (1 diff)
• etc/mondorescue.conf (modified) (1 diff)
• lib/MondoRescue/Base.pm (modified) (2 diffs)
• lib/MondoRescue/LVM.pm (modified) (1 diff)
• post-install.sh (deleted)

devel/mr/Makefile.PL

@@ -5 +5 @@
 # the contents of the Makefile that is written.
 WriteMakefile(
-    NAME         => 'PBPKG',
-    DISTNAME     => 'PBPKG',
-    VERSION      => 'PBVER',
-    INST_SCRIPT  => 'blib/bin',
+    NAME         => 'PBPKG',
+    DISTNAME     => 'PBPKG',
+    VERSION   => 'PBVER',
+    INST_SCRIPT  => 'blib/bin',
     INSTALLDIRS  => 'perl',
-    PREREQ_PM    => {
-            #HTTP::Headers                    => 1.59,
-            #Template                         => 0,
-    },    # e.g., Module::Name => 1.1
+    PREREQ_PM   => {
+            #HTTP::Headers                  => 1.59,
+            #Template                        => 0,
+    },  # e.g., Module::Name => 1.1
     #ABSTRACT_FROM => 'bin/',   # retrieve abstract from module
-    AUTHOR        => 'Bruno Cornec <bruno#mondorescue.org>',
-    EXE_FILES     => [ qw( sbin/mranalyze-lvm sbin/mrcheck-lvm ) ],
-    MAN1PODS      => { 
-            'sbin/mranalyze-lvm' => '$(INST_MAN1DIR)/mranalyze-lvm.$(MAN1EXT)', 
-            'sbin/mrcheck-lvm' => '$(INST_MAN1DIR)/mranalyze-lvm.$(MAN1EXT)', 
+    AUTHOR      => 'Bruno Cornec <bruno#mondorescue.org>',
+    EXE_FILES    => [ qw( sbin/mranalyze-lvm sbin/mrcheck-lvm ) ],
+    MAN1PODS      => {
+            'sbin/mranalyze-lvm' => '$(INST_MAN1DIR)/mranalyze-lvm.$(MAN1EXT)',
+            'sbin/mrcheck-lvm' => '$(INST_MAN1DIR)/mranalyze-lvm.$(MAN1EXT)',
                     },
-    MAN3PODS      => {  
-                        'lib/MondoRescue/Base.pm' => '$(INST_MAN3DIR)/MondoRescue::Base.$(MAN3EXT)', 
-                        'lib/MondoRescue/LVM.pm' => '$(INST_MAN3DIR)/MondoRescue::LVM.$(MAN3EXT)', 
-                        'lib/MondoRescue/Inventory.pm' => '$(INST_MAN3DIR)/MondoRescue::Inventory.$(MAN3EXT)', 
+    MAN3PODS      => {  
+            'lib/MondoRescue/Base.pm' => '$(INST_MAN3DIR)/MondoRescue::Base.$(MAN3EXT)',
+            'lib/MondoRescue/LVM.pm' => '$(INST_MAN3DIR)/MondoRescue::LVM.$(MAN3EXT)',
+            'lib/MondoRescue/Inventory.pm' => '$(INST_MAN3DIR)/MondoRescue::Inventory.$(MAN3EXT)',
+            'lib/MondoRescue/DynConf.pm' => '$(INST_MAN3DIR)/MondoRescue::DynConf.$(MAN3EXT)',
                 },
 );
+
+package MY;
+
+sub postamble {
+
+        # Determine location of etc conf files
+        my $text ="";
+
+        # Grab out any CONFDIR or other build param
+        my $confdir = undef;
+        my $target = undef;
+        my $mandir = undef;
+        my $cachedir = undef;
+        my $sharedir = undef;
+
+        while (my $arg = shift @ARGV) {
+                my ($key, $value) = split /=/, $arg;
+                if ($key =~ /^CONFDIR$/) {
+                        $confdir = $value;
+                } elsif ($key =~ /^MANDIR$/) {
+                        $mandir = $value;
+                } elsif ($key =~ /^CACHEDIR$/) {
+                        $cachedir = $value;
+                } elsif ($key =~ /^SHAREDIR$/) {
+                        $sharedir = $value;
+                } elsif ($key =~ /^TARGET$/) {
+                        $target = $value;
+                }
+        }
+
+        if (not defined $target) {
+            $target = "/usr/local";
+            if (not defined $confdir) {
+                $confdir = "/usr/local/etc";
+            }
+        } else {
+            $sharedir = $sharedir || "$target/share";
+            $mandir = $mandir || "$sharedir/man";
+            $cachedir = $cachedir || "$target/var/cache";
+            if (not defined $confdir) {
+                die "CONFDIR should be defined if PREFIX is defined";
+            }
+        }
+
+        my $conff = "etc/PBPROJ.conf";
+        open(CONF, ">> $conff") || die "Unable to append to $conff";
+        print CONF << "EOF";
+#
+# Configuration information added at install time
+#
+#
+# installation target
+#
+mr_install_dir default = $target
+#
+#
+# conf dir
+#
+mr_conf_dir default = $confdir/PBPROJ
+#
+# cache directory
+#
+mr_cache_dir default = $cachedir/PBPROJ
+#
+# share directory
+#
+mr_share_dir default = $sharedir/PBPROJ
+EOF
+        close(CONF);
+        # Create the dynamic content for MondoRescue
+        my $dynf = "lib/MondoRescue/DynConf.pm";
+        open(DYN, "> $dynf") || die "Unable to create $dynf";
+
+        $text .= "install ::\n";
+        $text .= "\t".'@echo PBPKG PBVER-PBREV will be installed under $(DESTDIR)'."\n";
+        $text .= "\t".'install -m 755 -d $(DESTDIR)'."$confdir/PBPROJ".' $(DESTDIR)'."$cachedir/PBPROJ".' $(DESTDIR)'."$sharedir/PBPROJ\n";
+        $text .= "\t".'cp etc/PBPROJ.conf $(DESTDIR)'."$confdir/PBPROJ/PBPROJ.conf.dist ; install -m 755 -d ".' $(DESTDIR)'."$mandir/man5 ; pod2man etc/PBPROJ.conf > ".'$(DESTDIR)'."$mandir/man5/PBPROJ.conf.5\n";
+        $text .= "\t".'md5sum $(DESTDIR)'."$confdir/PBPROJ/PBPROJ.conf.dist > ".'$(DESTDIR)'."$confdir/PBPROJ/PBPROJ.conf.dist.md5\n";
+        $text .= "\t".'cp lib/MondoRescue/DynConf.pm $(DESTDIR)/$(INST_LIBDIR)/'."\n";
+        $text .= "\t".'md5sum $(DESTDIR)'."$confdir/PBPROJ/PBPROJ.conf.dist > ".'$(DESTDIR)'."$confdir/PBPROJ/PBPROJ.conf.dist.md5\n";
+        #$text .= "\t".'if [ -f etc/PBKG.conf ]; then cp etc/PBPKG.conf $(DESTDIR)'."$confdir/PBPROJ/PBKG.conf.dist ; install -m 755 -d ".' $(DESTDIR)'."$mandir/man5 ; pod2man etc/PBPKG.conf > ".'$(DESTDIR)'."$mandir/man5/PBPKG.conf.5 ; fi\n";
+        #$text .= "\t".'md5sum $(DESTDIR)'."$confdir/PBPROJ/PBPKG.conf.dist > ".'$(DESTDIR)'."$confdir/PBPROJ/PBPKG.conf.dist.md5\n";
+
+        # Now generate a perl module used by every other one in the project
+        print DYN << "EOF";
+#!/usr/bin/perl -w
+#
+# Declare variables for the MondoRescue project
+# This module has been GENERATED at installation time
+# DO NOT MODIFY WITHOUT GOOD REASONS.
+#
+# Copyright B. Cornec 2008
+# Provided under the GPL v2
+#
+package MondoRescue::DynConf;
+
+use strict 'vars';
+
+# Inherit from the "Exporter" module which handles exporting functions.
+ 
+use Exporter;
+ 
+# Export, by default, all the functions into the namespace of
+# any code which uses this module.
+our \@ISA = qw(Exporter);
+our \@EXPORT = qw(mr_dynconf_init);
+
+=pod
+
+=head1 NAME
+
+MondoRescue::DynConf, part of the mondorescue.org project
+
+=head1 DESCRIPTION
+
+This modules provides environment variables setup for the Mondorescue project
+
+=head1 USAGE
+
+=over 4
+
+=item B<mr_dynconf_init>
+
+This function returns all the installation PATH info needed by the project
+It takes no parameter and returns 3 values
+First value is the conf dir
+Second value is the project name
+
+=cut
+
+sub mr_dynconf_init {
+    return($confdir,PBPROJ);
+}
+1;
+=pod
+=back 
+
+=head1 WEB SITES
+
+The main Web site of the project is available at L<http://www.mondorescue.org/>. Bug reports should be filled using the trac instance of the project at L<http://trac.mondorescue.org/>.
+
+=head1 USER MAILING LIST
+
+The mailing list of the project is available at L<mailto:mondo\@lists.sf.net>
+
+=head1 AUTHORS
+
+The Mondorescue.org team L<http://www.mondorescue.org/> lead by Bruno Cornec L<mailto:bruno\@mondorescue.org>.
+
+=head1 COPYRIGHT
+
+mrmini is distributed under the GPL v2.0 license
+described in the file C<COPYING> included with the distribution.
+
+=cut
+
+
+EOF
+    close(DYN);
+    return($text);
+}

devel/mr/etc/mondorescue.conf

@@ -7 +7 @@
 # DO NOT CHANGE THAT FILE IN ANYWAY AS ITS MD5 SUM IS USED AS A CHECK !!
 # Anyway changing some values in your own configuration file may render 
-# mrmini instable or cause failures. Use with care.
+# MondoRescue tools instable or cause failures. Use with care.
 
 # Temporary directory

devel/mr/lib/MondoRescue/Base.pm

@@ -60 +60 @@
 }
 
+
 # Get the various location determined at installation time
-my ($confdir,$localdir,$pbproj) = mr_dynconf_init();
+my ($etcdir,$pbproj) = mr_dynconf_init();
 
 # Temp dir
@@ -68 +69 @@
 # First use the main configuration file
 pb_conf_init($pbproj);
-pb_conf_add("$confdir/$pbproj.conf");
+#
+# Conf files Management
+# the $MRMINI_CONF/mondorescue.conf.dist is delivered as part of the project and
+# its checksum is verified as we need good default values that we can trust
+#
+open(MD5,"$etcdir/$pbproj.conf.dist.md5") || die "Unable to read mandatory $etcdir/$pbproj.conf.dist.md5: $!";
+my $omd5 = <MD5>;
+chop($omd5);
+close(MD5);
+open(CONF,"$etcdir/$pbproj.conf.dist") || die "Unable to read mandatory $etcdir/$pbproj.conf.dist: $!";
+my $md5 = Digest::MD5->new;
+binmode(CONF);
+$md5->addfile(CONF);
+die "Invalid MD5 found sum for $etcdir/$pbproj.conf.dist: $md5->hexdigest" if ($omd5 ne $md5->hexdigest);
+close(CONF);
+
+pb_conf_add("$etcdir/$pbproj.conf.dist");
 }
 

devel/mr/lib/MondoRescue/LVM.pm

@@ -277 +277 @@
     s/^[\s]*//;
 
+=pod
+
+The structure contains an array of LVs called lvs and starting at 1, containing the name of the PV as provided by the pv_name attribute of the pvs command
+
+=cut
+
     my ($vg_name,$lv_uuid,$lv_name,$lv_attr,$lv_major,$lv_minor,$lv_read_ahead,$lv_kernel_major,$lv_kernel_minor,$lv_kernel_read_ahead,$lv_size,$seg_count,$origin,$origin_size,$snap_percent,$copy_percent,$move_pv,$convert_lv,$lv_tags,$mirror_log,$modules) = split(/:/);
-=pod
-
-The structure contains an array of LVs called lvs and starting at 1, containing the name of the PV as provided by the pv_name attribute of the pvs command
-pv_name              - Name of the physical volume PV
-
-=cut
-
-    # Array of PVs for that VG
-    $lvm->{$vg_name}->{'pvs'}->[$lvm->{$vg_name}->{'pvnum'}] = $pv_name;
 
 =pod