#! /usr/bin/perl
# copyright Thomas Lange 2001-2007, lange@debian.org
# map "normal" device notation to grub notation

# TODO: read from stdin if no parameter given

use strict;
my $grubdevice;
my %map;

my $device=shift;
my $devicemap="$ENV{target}/boot/grub/device.map";

open (DEVICEMAP,"<$devicemap") || die "Can't open $devicemap\n";
while (<DEVICEMAP>) {
  my ($grubdevice,$olddevice) = split;
  $map{$olddevice} = $grubdevice;
}

$device=~ m#^(/dev/(?:[sh]d\D|i2o/hd\D|ida/c\d*d\d*|cciss/c\d*d\d*))p*(\d*)$# || die "Can't match device: $device\n";
my ($disk,$partition) = ($1,$2);

if ($map{$disk}) {
  $grubdevice=$map{$disk};
} else {
  die "No match in $devicemap for $disk\n";
}

if ($partition) {
  $partition--;
  $grubdevice=~s/\)/,$partition\)/;
}

print "$grubdevice\n";
exit 0;
