From 6e0675c8eb36bb1bd5eb4a1660e60009e0deaa51 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 27 Oct 2008 16:07:21 +0000
Subject: [PATCH] add get_image_name routine for xdsh and sinv to share

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2392 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Utils.pm | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 8c1d21bcb..0ef7e06f0 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -2804,5 +2804,40 @@ sub get_nodeset_state {
 }
 
 
+#-------------------------------------------------------------------------------
+
+=head3   get_image_name
+       get a name for the install image on AIX and Linux, to be used
+       by xdsh and sinv for the nodename 
+    Arguments:
+        path to image.
+    Returns:
+       imagename 
+
+=cut
+
+#-------------------------------------------------------------------------------
+sub get_image_name {
+ my ($class, $imagepath) = @_;
+ my $imagename;
+ if (xCAT::Utils->isLinux())
+ {
+      my @fields = split('/', $imagepath);
+      $imagename .= $fields[5];
+      $imagename .= ".";
+      $imagename .= $fields[3];
+      $imagename .= ".";
+      $imagename .= $fields[4];
+ }
+ else
+ {    # AIX
+      my @fields = split('/', $imagepath);
+      my $name = pop @fields;
+      $imagename = $name;
+ }
+
+  return $imagename;    
+}
+
 
 1;