From 35d993a5a2c714728bfd4cfd9dfbe0239e1f1fab Mon Sep 17 00:00:00 2001
From: ana <ana>
Date: Tue, 23 Oct 2007 14:14:10 +0000
Subject: [PATCH] Support for the new hierarchical naming scheme. "default"
 (vimage) is now known as ".".

Bug found by:
Submitted by:
Reviewed by:
Approved by:
Obtained from:
---
 exec.tcl | 4 ++--
 imunes   | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/exec.tcl b/exec.tcl
index 2f98845..d7208ed 100755
--- a/exec.tcl
+++ b/exec.tcl
@@ -1,4 +1,4 @@
-# $Id: exec.tcl,v 1.58 2007/10/09 11:22:51 marko Exp $
+# $Id: exec.tcl,v 1.59 2007/10/23 14:14:10 ana Exp $
 
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -633,7 +633,7 @@ proc vimageCleanup {} {
 
     set t_start [clock seconds]
     set vimages [join [nexec vimage -l | fgrep -v "    " | cut -d: -f 1]]
-    set defindex [lsearch $vimages default]
+    set defindex [lsearch $vimages .]
     set vimages [lreplace $vimages $defindex $defindex]
 
     # Kill all processes in all vimages
diff --git a/imunes b/imunes
index 6f60ee2..fdaddf2 100755
--- a/imunes
+++ b/imunes
@@ -37,7 +37,7 @@
 
 if [ `id -ur` -eq 0 -a -x /sbin/vimage ]; then
     vimage=`vimage`
-    if [ `expr ${vimage} != "default"` -ne 0 ]; then
+    if [ `expr ${vimage} != "."` -ne 0 ]; then
 	echo "Imunes cannot be started from virtual image!"
 	echo "(exit to default and try again)"
 	exit 2
-- 
2.39.5