Changeset 3360 in MondoRescue for branches/3.0/mindi/parted2fdisk.pl

Timestamp:

Mar 7, 2015, 2:41:11 PM (9 years ago)

Author:

Bruno Cornec

Message:

Backports from 3.2 (rev 3336-3359):

• Improve kernel 3.14+ detection for initramfs
• Fix installation of parted2fdisk under rootfs by removing useless -s option of install
• Remove usage of internal function basename in parted2fdisk use File::Basename instead

File:

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

branches/3.0/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;
@@ -156 +159 @@
         "linux-swap" => "82",
         "lvm" => "8e",
+        "raid" => "fd",
         "" => "",
     );
@@ -435 +439 @@
         "linux-swap" => "Linux swap",
         "lvm" => "Linux LVM",
+        "raid" => "RAID Linux auto",
         "fat16" => "fat16",
         "fat32" => "fat32",
@@ -479 +484 @@
 
 # This will return MB
-get_parted ($device,$start,$end,\%type);
+get_parted($device,$start,$end,\%type);
 
 while (($n,$d) = each %type) {
@@ -675 +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 {