blob: 8fd6c220d9dd21d00537d6ac0887628d09e5a627 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
function host = FindFreeSSH(host_list, Settings, wait_time, command)
% function host = FindFreeSSH(host_list, Settings, wait_time, command)
%
% Find a free ssh host not running openEMS
%
% internal function used by RunOpenEMS
%
% host_list: give a list of possible host
%
% wait_time: wait x seconds after not finding a free host and rechecking
% default: 600 seconds
%
% command: unix command to check for free host (empty result --> free)
% default: 'ps -e | grep openEMS'
%
% See also RunOpenEMS
%
% openEMS matlab interface
% -----------------------
% author: Thorsten Liebig
if (nargin<4)
% command which should return an empty string if host is available
command = 'ps -e | grep openEMS';
end
% 10 seconds ssh timeout
time_out = 10;
if (nargin<3)
wait_time = 600;
end
if ~isunix
ssh_command = [Settings.SSH.Putty.Path '/plink '];
ssh_options = [' -i ' Settings.SSH.Putty.Key];
command = ['"' command '"'];
else
ssh_command = 'ssh';
ssh_options = ['-o ConnectTimeout=' num2str(time_out)];
command = ['''' command ''''];
end
if ischar(host_list)
fid=fopen(host_list);
if (fid==-1)
error('FindFreeSSH: cant open host file');
end
clear host_list;
host_list = {};
while 1
line = fgetl(fid);
if ischar(line)
host_list{end+1} = line;
else
break;
end
end
fclose(fid);
elseif ~iscell(host_list)
error('FindFreeSSH: unknown host list format');
end
while 1
for n = 1:numel(host_list)
host = host_list{n};
[status, result] = unix([ssh_command ' ' ssh_options ' ' host ' ' command ]);
if (isempty(result) && status==1)
disp(['FindFreeSSH:: found a free host: ' host ]);
return
elseif (~isempty(result) && status==0)
disp(['FindFreeSSH:: ' host ' is busy running openEMS ... ' ]);
else
disp(['FindFreeSSH:: shh connection to ' host ' failed ... ' ]);
end
end
host = '';
if (wait_time<=0)
warning('openEMS:FindFreeSSH',' unable to find a free host ');
return
end
disp([' no free host found waiting for ' num2str(wait_time) ' seconds ... '])
pause(wait_time)
end
|
