1 files changed, 43 insertions, 0 deletions
diff --git a/vo/votools/aladin.cl b/vo/votools/aladin.cl
new file mode 100644
index 00000000..5b4299bc
--- /dev/null
+++ b/vo/votools/aladin.cl
@@ -0,0 +1,43 @@
+#{  ALADIN -- Start or stop the ALADIN app.
+
+procedure aladin (cmd)
+
+string	cmd			{ prompt = "Command"			}
+bool	bkg     = yes		{ prompt = "Run in background?"		}
+bool	verbose = no		{ prompt = "Print actions?"		}
+
+begin
+    string action, command, ch
+    bool   verb
+
+
+    if ($nargs > 0) 
+      action   =  cmd
+    else
+      action   =  "start"
+    verb       =  verbose
+    command    =  "!" // osfn ("vo$java/app.aladin")
+
+
+    if (action == "stop" || action == "off") {
+	if (verb)
+	    printf ("Stopping Aladin .... ")
+        command = command // " -kill"
+        print (command) | cl(, >& "dev$null")
+
+
+    } else if (action == "status") {
+        command = command // " -status"
+        print (command) | cl()
+
+    } else {
+	# Default is to start the app
+	if (verb)
+	    printf ("Starting Aladin .... ")
+        command = command // " -bg"
+        print (command) | cl(, >& "dev$null")
+    }
+
+    if (verb)
+        printf ("\n")
+end