Added _APPNAME_ to ioc boot stuff.

2003-02-06 17:21:30 +00:00
parent ad68425f39
commit 8ee88feabb
2 changed files with 3 additions and 2 deletions
@@ -120,6 +120,7 @@ if ($opt_i) {
    find(\&FCopyTree, "$top/$apptypename");

    foreach $ioc ( @ARGV ) {
+	($appname = $ioc) =~ s/App$//;
 	$ioc = "ioc" . $ioc unless ($ioc =~ /^ioc/);
        if (-d "iocBoot/$ioc") {
 	    print "iocBoot/$ioc exists, not modified.\n";