* Set tcv as default machine.

* Retrieve hostname with unix('hostname -a'), environment variable are too unreliable

git-svn-id: https://spcsvn.epfl.ch/repos/TCV/gdat/trunk@6019 d63d8f72-b253-0410-a779-e742ad2e26cf

crpptbx/gdat.m

@@ -78,11 +78,12 @@ if nargin>2
 end
 
 fusion_machine_defaultname=getenv('FUSION_MACHINE_DEFAULTNAME');
-default_machine = '';
+default_machine = 'tcv';
 if ~isempty(fusion_machine_defaultname)
   default_machine = lower(fusion_machine_defaultname);
 else
-  hostname=getenv('HOSTNAME');
+  [s,hostname]=unix('hostname -a');
+  if s || isempty(hostname), hostname=getenv('HOSTNAME');end
   if ~isempty(regexpi(hostname,'epfl'))
     default_machine = 'tcv';
   elseif ~isempty(regexpi(hostname,'rzg.mpg'))