From 0a3edefb3971c4edf56f349ca56066afe8d4d4bf Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Fri, 21 Nov 2003 21:11:30 +0000
Subject: [PATCH] Make cdCommands environment variable names match envPaths,   
  i.e. don't upper-case the app name. Also added ARCH and IOC environment
 variables.

---
 configure/tools/convertRelease.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/configure/tools/convertRelease.pl b/configure/tools/convertRelease.pl
index c9bc80016..de5efd329 100755
--- a/configure/tools/convertRelease.pl
+++ b/configure/tools/convertRelease.pl
@@ -250,13 +250,18 @@ sub cdCommands {
     
     print OUT "startup = \"$startup\"\n";
     
+    $ioc = $cwd;
+    $ioc =~ s/^.*\///;	# iocname is last component of directory name
+    
+    print OUT "putenv \"ARCH=$arch\"\n";
+    print OUT "putenv \"IOC=$ioc\"\n";
+    
     foreach $app (@includes) {
 	$iocpath = $path = $macros{$app};
 	$iocpath =~ s/^$root/$iocroot/o if ($opt_t);
 	$app_lc = lc($app);
-	$app_uc = uc($app);
 	print OUT "$app_lc = \"$iocpath\"\n" if (-d $path);
-	print OUT "putenv \"$app_uc=$iocpath\"\n" if (-d $path);
+	print OUT "putenv \"$app=$iocpath\"\n" if (-d $path);
 	print OUT "${app_lc}bin = \"$iocpath/bin/$arch\"\n" if (-d "$path/bin/$arch");
     }
     close OUT;