Changeset 25512

Timestamp:

2012-05-01T15:50:00+12:00 (12 years ago)

Author:

ak19

Message:

Utility function for getting path to the java command: if GS binary, will get the path to java executable in the included JRE, else just the java command on its own which will resort to using the system java.

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/util.pm

@@ -1715 +1715 @@
 }
 
+sub get_java_command {
+    my $java = "java";
+    if(defined $ENV{'GSDLHOME'}) { # should be, as this script would be launched from the cmd line 
+                               # after running setup.bat or from GLI which also runs setup.bat
+    my $java_bin = &util::filename_cat($ENV{'GSDLHOME'},"packages","jre","bin");
+    if(-d $java_bin) {
+        $java = &util::filename_cat($java_bin,"java");
+    }
+    }
+    return $java;
+}
+
 
 1;