allow for device names
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Tue, 16 Aug 2011 11:44:32 +0200
changeset 61 38b3bff416ba
parent 60 5c07e27687f2
child 62 24b1c19790bb
allow for device names
bin/imager.save
--- a/bin/imager.save	Tue Aug 16 11:10:16 2011 +0200
+++ b/bin/imager.save	Tue Aug 16 11:44:32 2011 +0200
@@ -87,12 +87,18 @@
     my $idx  = "{DIR}/idx/{HOSTNAME}/{DEVICE}/";
     my $data = "{DIR}/data";
     my $info = "{DIR}/data/info";
-    my $size;
+    my ($size, $name);
+
+    if ($src =~ /(?<dev>.+?):(?<name>.+)/) {
+	$src = $+{dev};
+	$name = $+{name};
+    }
+    else { $name = $src };
 
     foreach ($idx, $data, $info) {
         s/{DIR}/$dst/g;
         s/{HOSTNAME}/hostname/eg;
-        s/{DEVICE}/get_devname($src)/eg;
+        s/{DEVICE}/$name/g;
     }
     $size = get_devsize($src);