linse/sicspsi
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

env. variable TECS_DEFAULT as default host

Browse Source
This commit is contained in:
zolliker
2005-09-02 12:49:34 +00:00
parent 0d1f2bc9b3
commit 87b4c5bf68
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
tecs/tecs_client.f
View File

@ -13,6 +13,7 @@
logical oneCommand
character logarg*4/'25'/
character defcmd*8/'status'/
integer rwacs/0/
! functions
integer tecs_get_par, tecs_quit_server, tecs_set_par, tecs_watch_log
@ -26,6 +27,16 @@
call sys_get_cmdpar(line, l)
if (l .eq. 0) then
call sys_getenv('TECS_DEFAULT', line)
call str_trim(line, line, l)
if (line(1:l) .ne. ' ') then
rwacs=1
else
l = 0
endif
endif
if (l .ne. 0) then
if (line(1:l) .eq. 'off' .or. line(1:l) .eq. 'OFF') then
iret=tecs_start(' ', ' ', 9753)
@ -70,6 +81,10 @@
print '(33x,a)','type help for a list of commands'
print *
if (rwacs .ne. 0) then
iret=tecs_rights(1)
endif
l=0
1 if (oneCommand) goto 99
if (nfiles .gt. 0) then