Changeset 2659 in MondoRescue for devel/mrmini

Timestamp:

Jun 23, 2010, 4:26:59 PM (15 years ago)

Author:

Bruno Cornec

Message:

r3911@wsip-70-165-196-181: bruno | 2010-06-22 03:34:20 +0200

• First packaged version of a mrmin version begining to work (but doing nothing interesting yet ;-)

Location:

devel/mrmini

Files:

• Makefile.PL (modified) (2 diffs)
• etc/mrmini.conf (modified) (2 diffs)
• lib/MondoRescue/Mini (moved) (moved from devel/mrmini/lib/MondoRescue/Mindi )
• lib/MondoRescue/Mini/Base.pm (added)
• sbin/mrmini (modified) (5 diffs)

devel/mrmini/Makefile.PL

@@ -9 +9 @@
     VERSION      => 'PBVER',
     INST_SCRIPT  => 'blib/sbin',
-    INSTALLDIRS  => 'perl',
+    INSTALLDIRS  => 'vendor',
     PREREQ_PM    => {
             #HTTP::Headers                    => 1.59,
@@ -21 +21 @@
             'sbin/mrprepare-lvm' => '$(INST_MAN1DIR)/mrprepare-lvm.$(MAN1EXT)', 
                     },
-    #MAN3PODS      => { 
-            #'lib/MondoRescue/Mini/LVM.pm' => '$(INST_MAN3DIR)/MondoRescue::Mini::LVM.$(MAN3EXT)',
-            #},
+    MAN3PODS      => {  
+            'lib/MondoRescue/Mini/Base.pm' => '$(INST_MAN3DIR)/MondoRescue::Mini::Base.$(MAN3EXT)',
+            },
 );
+
+
+package MY;
+
+sub postamble {
+
+    use MondoRescue::DynConf;
+
+    my ($confdir,$proj) = mr_dynconf_init();
+
+    my $text .= "install ::\n";
+    $text .= "\t".'@echo PBPKG PBVER-rPBREV will be installed under $(DESTDIR)'."\n";
+    $text .= "\tinstall -m 755 -d ".' $(DESTDIR)/$(INSTALLMAN1DIR)/../man5 $(DESTDIR)'."/$confdir/".'; cp etc/PBPKG.conf $(DESTDIR)'."/$confdir/PBPKG.conf.dist ; pod2man etc/PBPKG.conf > ".'$(DESTDIR)/$(INSTALLMAN1DIR)/../man5/PBPKG.conf.5'."\n";
+    $text .= "\t".'md5sum $(DESTDIR)'."$confdir/PBPKG.conf.dist > ".'$(DESTDIR)'."$confdir/PBPKG.conf.dist.md5\n";
+    return($text);
+}

devel/mrmini/etc/mrmini.conf

@@ -88 +88 @@
 #
 mr_force_mods mrmini = 
-mr deny_mods mrmini = 
-
-#
-# Location of the fstab file
-#
-mr_fstab default = /etc/fstab
+mr_deny_mods mrmini = 
 
 #
@@ -99 +94 @@
 #
 mr_log_file mrmini = /var/log/mrmini.log
-mr_log_file mondoarchive = /var/log/mondoarchive.log
-mr_log_file mondorestore = /var/log/mondorestore.log
 
 #

devel/mrmini/sbin/mrmini

@@ -27 +27 @@
 use MondoRescue::LVM;
 use MondoRescue::Base;
-
-# Global variables
-my %opts;                   # CLI Options
-my @date = pb_get_date();
-my $mr_date = strftime("%Y-%m-%d %H:%M:%S", @date);
+use MondoRescue::DynConf;
+use MondoRescue::Mini::Base;
 
 =pod
@@ -105 +102 @@
 
 =cut
+
+# Global variables
+my %opts;                   # CLI Options
+
 GetOptions(
         "verbose|v+" => \$opts{'v'},
@@ -154 +155 @@
 =cut
 
+
+
 # ---------------------------------------------------------------------------
 
 # Initialize the syntax string
 
-pb_syntax_init("mrmini Version PBVER-rPBREV\n");
+#
+# Global variables
+#
+my $proj;
+($mr->{'confdir'},$proj) = mr_dynconf_init();
+my @date = pb_get_date();
+$mr->{'start_date'} = strftime("%Y-%m-%d %H:%M:%S", @date);
+
+$ENV{'PBPROJ'} = $proj;
+$ENV{'PBPKG'} = "mrmini";
+
+# Adds conf files in order
+pb_conf_add("$mr->{'confdir'}/mondorescue.conf.dist","$mr->{'confdir'}/mondorescue.conf");
+($mr->{'install_dir'},$mr->{'version'}) =  mr_conf_get("mr_install_dir","mr_version");
+
+pb_syntax_init("$ENV{'PBPKG'} Version $mr->{'version'}\n");
 pb_display_init("text","");
 
@@ -190 +208 @@
     $iso = $opts{'i'};
 }
-
-#
-# Global variables
-#
-my ($MRMINI_PREFIX,$MRMINI_CONF,$MRMINI_LIB) = mr_setup_var();
-my $MRMINI_VERSION = "PBVER-rPBREV";
-my $MRMINI_SBIN = "$MRMINI_PREFIX/sbin";
-my $MRMINI_FDISK = "$MRMINI_SBIN/parted2fdik";
-my $MRMINI_DEPLIST = "$MRMINI_CONF/deplist.d";
-# Better ?
-my $ARCH = `uname -m`;
-chop($ARCH);
+my $logfile = undef;
+if (defined $opts{'l'}) {
+    $logfile = $opts{'l'};
+}
 
 # 
@@ -207 +217 @@
 #
 pb_temp_init();
-
-# Adds conf files in order
-pb_conf_add("$ENV{'HOME'}/.mondorescuerc","$MRMINI_CONF/mondorescue.conf");
-
-#
-# Configuration parameters
-#
-$ENV{'PBPROJ'} = "mrmini";
-my ($mr_boot_size,$mr_boot_cd,$mr_boot_usb,$mr_boot_tape,$mr_kernel,$mr_fstab) =  pb_conf_get("mr_boot_size","mr_boot_cd","mr_boot_usb","mr_boot_tape","mr_kernel","mr_fstab");
-my ($mr_tape_mods,$mr_scsi_mods,$mr_ide_mods,$mr_pcmcia_mods,$mr_usb_mods,$mr_net_mods,$mr_cdrom_mods,$mr_deny_mods,$mr_force_mods) =  pb_conf_get("mr_tape_mods","mr_scsi_mods","mr_ide_mods","mr_pcmcia_mods","mr_usb_mods","mr_net_mods","mr_cdrom_mods","mr_extra_mods","mr_deny_mods","mr_force_mods");
-my ($mr_logfile,$mr_cache_dir,$mr_boot_msg,$mr_burn_cmd,$mr_burn_opt) = pb_conf_get("mr_logfile","mr_cache_dir","mr_boot_msg","mr_burn_cmd","mr_burn_opt");
-
-#
-# Manage log file
-#
-my $logfile = $mr_logfile->{$ENV{'PBPROJ'}};
-
-if (defined $opts{'l'}) {
-    $logfile = $opts{'l'};
-}
-open(pbLOG,"> $logfile") || die "Unable to log to $logfile: $!";
-$pbLOG = \*pbLOG;
-$pbdebug = 0  if ($pbdebug == -1);
-pb_log_init($pbdebug, $pbLOG);
-
-pb_log(0,"mrmini start date: $mr_date");
-pb_log(0,"-------------------------------------");
-pb_log(0,"mrmini v$MRMINI_VERSION");
-pb_log(0,"$ARCH architecture detected");
-pb_log(0,"mrmini called with the following arguments: ".join(" ",@ARGV));
-pb_log(0,"-------------------------------------");
-pb_log(0,"MONDO_CACHE: $ENV{'MONDO_CACHE'}") if (defined $ENV{'MONDO_CACHE'});
-pb_log(0,"MRMINI_LIB: $MRMINI_LIB");
-pb_log(0,"MRMINI_CONF: $MRMINI_CONF");
-pb_log(0,"MRMINI_SBIN: $MRMINI_SBIN");
-if (-r "$ENV{'HOME'}/.mondorescuerc") {
-    pb_log(0,"-------------------------------------");
-    pb_log(0,"Conf file $ENV{'HOME'}/.mondorescuerc");
-    pb_display_file("$ENV{'HOME'}/.mondorescuerc");
-}
-if (-r "$MRMINI_CONF/mondorescue.conf") {
-    pb_log(0,"-------------------------------------");
-    pb_log(0,"Conf file $MRMINI_CONF/mondorescue.conf");
-    pb_display_file("$MRMINI_CONF/mondorescue.conf");
-}
-pb_log(0,"-------------------------------------");
-
-#
-# Prepare cache dir
-#
-pb_rm_rf("$mr_cache_dir/*");
-pb_mkdir_p($mr_cache_dir);
-
-# 
-# LVM setup
-#
-my ($lvmver,$lvmcmd) = mr_lvm_check();
-
-pb_log(0,"LVM $lvmver command set to $lvmcmd");
-pb_log(0,"-------------------------------------");
+mr_mini_main($logfile);
 mr_exit(0);