Changeset 3563 in MondoRescue for branches/3.0-mindi-2.1/mindi/parted2fdisk.pl

Timestamp:

Apr 11, 2016, 7:43:30 PM (8 years ago)

Author:

Bruno Cornec

Message:

Many additional backports from 3.2 and 3.0 future

• Improved support for systemd
• Launch start-netfs when a network conf is detected in the conf file to avoid an error later on in automatic mode

File:

• branches/3.0-mindi-2.1/mindi/parted2fdisk.pl (modified) (7 diffs)

branches/3.0-mindi-2.1/mindi/parted2fdisk.pl

@@ -4 +4 @@
 #
 # parted2fdisk: fdisk like interface for parted 
-# [developped for mindi/mondo http://www.mondorescue.org]
+# [developed for mindi/mondo http://www.mondorescue.org]
 #
 # Aims to be architecture independant (i386/ia64)
 # Tested on ia64 with RHAS 2.1 - Mandrake 9.0 - RHEL 3.0 - SLES 10
 #
-# Copyright B. Cornec 2000-2013
+# Copyright B. Cornec 2000-2015
 # Provided under the GPL v2
 
 use strict;
+use File::Basename;
 
 
@@ -19 +20 @@
 =head1 NAME
 
-parted2fdisk is a fdisk lie command using parted internally.
+parted2fdisk is a fdisk like command using parted internally.
 
 =head1 DESCRIPTION
 
-parted2fdisk behaves like a fdisk command, but dialog internally with parted in order to manipulate partiion tables, which allow it to support GPT partition format as well as MBR, contrary to fdisk. It aimed at providing compatible external interface wti fdisk. Developed initialy for ia64 Linux, but is also useful now on x86 systems using GPT partition format (for large HDDs).
+parted2fdisk behaves like the fdisk command, but dialog internally with parted in order to manipulate partition tables, which allow it to support GPT partition format as well as MBR, contrary to fdisk. It aims at providing compatible external interface with fdisk. Developed initialy for ia64 Linux, it is also useful now on x86 systems using GPT partition format (for large HDDs).
 
 =head1 SYNOPSIS
@@ -96 +97 @@
 
 my $fdisk = "/sbin/fdisk";
+$fdisk = "/usr/sbin/fdisk" if (not -x "/sbin/fdisk");
 my $parted = "/sbin/parted";
+$parted = "/usr/sbin/parted" if (not -x "/sbin/parted");
 
 my $i;
@@ -152 +155 @@
         "ext4" => "83",
         "xfs" => "83",
+        "btrfs" => "83",
         "reiserfs" => "83",
         "linux-swap" => "82",
         "lvm" => "8e",
+        "raid" => "fd",
         "" => "",
     );
@@ -434 +439 @@
         "linux-swap" => "Linux swap",
         "lvm" => "Linux LVM",
+        "raid" => "RAID Linux auto",
         "fat16" => "fat16",
         "fat32" => "fat32",
@@ -478 +484 @@
 
 # This will return MB
-get_parted ($device,$start,$end,\%type);
+get_parted($device,$start,$end,\%type);
 
 while (($n,$d) = each %type) {
@@ -674 +680 @@
 }
 
-
-# Based on Version 2.4  27-Sep-1996  Charles Bailey  bailey@genetics.upenn.edu
-# in Basename.pm
-
-sub basename {
-
-my($fullname) = shift;
-
-my($dirpath,$basename);
-
-($dirpath,$basename) = ($fullname =~ m#^(.*/)?(.*)#s);
-
-return($basename);
-}
-
 sub myexit {