From: Vladimir Sokolovsky <vlad@mellanox.co.il>
Date: Mon, 20 Aug 2007 06:31:10 +0000 (+0300)
Subject: Added view instalaltion guide and show installed software functions.
X-Git-Url: https://openfabrics.org/gitweb/?a=commitdiff_plain;h=a09d34793b98e6c8e3ec524a8b6c1e96732bd905;p=~aditr%2Fofed_scripts.git

Added view instalaltion guide and show installed software functions.

Signed-off-by: Vladimir Sokolovsky <vlad@mellanox.co.il>
---

diff --git a/install.pl b/install.pl
index f2d3686..ae364f7 100755
--- a/install.pl
+++ b/install.pl
@@ -2111,7 +2111,7 @@ sub build_rpm
             $cmd .= " --define 'path_to_mpihome $prefix/mpi/$compiler/$mpi-$main_packages{$mpi}{'version'}'";
         }
         else {
-            $cmd .= "--define '_prefix $prefix'";
+            $cmd .= " --define '_prefix $prefix'";
         }
 
         $cmd .= " $main_packages{$parent}{'srpmpath'}";
@@ -2424,6 +2424,16 @@ sub main
         }
     
         if ($inp == 1) {
+            if (-e "$CWD/docs/${PACKAGE}_Installation_Guide.txt") {
+                system("less $CWD/docs/${PACKAGE}_Installation_Guide.txt");
+            }
+            elsif (-e "$CWD/README.txt") {
+                system("less $CWD/README.txt");
+            }
+            else {
+                print RED "$CWD/docs/${PACKAGE}_Installation_Guide.txt does not exist...", RESET;
+            }
+
             return 0;
         }
         elsif ($inp == 2) {
@@ -2439,6 +2449,18 @@ sub main
             print_selected();
         }
         elsif ($inp == 3) {
+            my $cnt = 0;
+            for my $package ( @all_packages, @hidden_packages) {
+                if (is_installed($package)) {
+                    print "$package\n";
+                    $cnt ++;
+                }
+            }
+            if (not $cnt) {
+                print "\nThere is no $PACKAGE software installed\n";
+            }
+            print GREEN "\nPress any key to continue...", RESET;
+            getch();
             return 0;
         }
         elsif ($inp == 4) {