;
; Copyright (C) 1998 by ETHZ/INF/CS
; All rights reserved
;
; $Id: idl_template.pro,v 1.9 2000/06/21 09:28:19 hedc Exp $
;
; Substitutions
;   @@CLIENT_HOST@@ =  @CLIENT_HOST@
;   @@HOME_DIR@@ =  @HOME_DIR@
;
; Purpose: A wrapper routine for a plain idl command line
;
; 15/09/99 cvp
;

; set X display variable
; setenv, 'DISPLAY=@CLIENT_HOST@:0.0'
; results in message LICENSE MANAGER: Current license is not for the specified X Window display
message, /reset
cd, '@HOME_DIR@'

; execute the command
retcode = EXECUTE("@CMD@")

; cleanup 
RETALL
CLOSE, /ALL
!error_state.code = retcode