1 #define PETSC_DESIRE_FEATURE_TEST_MACROS /* for getdomainname() */ 2 /* 3 Code for manipulating files. 4 */ 5 #include <petscsys.h> 6 #if defined(PETSC_HAVE_SYS_UTSNAME_H) 7 #include <sys/utsname.h> 8 #endif 9 #if defined(PETSC_HAVE_WINDOWS_H) 10 #include <windows.h> 11 #endif 12 #if defined(PETSC_HAVE_SYS_SYSTEMINFO_H) 13 #include <sys/systeminfo.h> 14 #endif 15 #if defined(PETSC_HAVE_UNISTD_H) 16 #include <unistd.h> 17 #endif 18 #if defined(PETSC_HAVE_NETDB_H) 19 #include <netdb.h> 20 #endif 21 22 /*@C 23 PetscGetHostName - Returns the name of the host. This attempts to 24 return the entire Internet name. It may not return the same name 25 as MPI_Get_processor_name(). 26 27 Not Collective 28 29 Input Parameter: 30 . nlen - length of name 31 32 Output Parameter: 33 . name - contains host name. Must be long enough to hold the name 34 This is the fully qualified name, including the domain. 35 36 Level: developer 37 38 Fortran Version: 39 In Fortran this routine has the format 40 41 $ character*(64) name 42 $ call PetscGetHostName(name,ierr) 43 44 .seealso: PetscGetUserName(),PetscGetArchType() 45 @*/ 46 PetscErrorCode PetscGetHostName(char name[],size_t nlen) 47 { 48 char *domain; 49 PetscErrorCode ierr; 50 #if defined(PETSC_HAVE_UNAME) && !defined(PETSC_HAVE_GETCOMPUTERNAME) 51 struct utsname utname; 52 #endif 53 54 PetscFunctionBegin; 55 #if defined(PETSC_HAVE_GETCOMPUTERNAME) 56 { 57 size_t nnlen = nlen; 58 GetComputerName((LPTSTR)name,(LPDWORD)(&nnlen)); 59 } 60 #elif defined(PETSC_HAVE_UNAME) 61 uname(&utname); 62 ierr = PetscStrncpy(name,utname.nodename,nlen);CHKERRQ(ierr); 63 #elif defined(PETSC_HAVE_GETHOSTNAME) 64 gethostname(name,nlen); 65 #elif defined(PETSC_HAVE_SYSINFO_3ARG) 66 sysinfo(SI_HOSTNAME,name,nlen); 67 #endif 68 /* if there was not enough room then system call will not null terminate name */ 69 name[nlen-1] = 0; 70 71 /* See if this name includes the domain */ 72 ierr = PetscStrchr(name,'.',&domain);CHKERRQ(ierr); 73 if (!domain) { 74 size_t l,ll; 75 ierr = PetscStrlen(name,&l);CHKERRQ(ierr); 76 if (l == nlen-1) PetscFunctionReturn(0); 77 name[l++] = '.'; 78 name[l] = 0; 79 #if defined(PETSC_HAVE_SYSINFO_3ARG) 80 sysinfo(SI_SRPC_DOMAIN,name+l,nlen-l); 81 #elif defined(PETSC_HAVE_GETDOMAINNAME) 82 if (getdomainname(name+l,nlen - l)) SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SYS,"getdomainname()"); 83 #endif 84 /* check if domain name is not a dnsdomainname and nuke it */ 85 ierr = PetscStrlen(name,&ll);CHKERRQ(ierr); 86 if (ll > 4) { 87 const char *suffixes[] = {".edu",".com",".net",".org",".mil",NULL}; 88 PetscInt index; 89 ierr = PetscStrendswithwhich(name,suffixes,&index);CHKERRQ(ierr); 90 if (!suffixes[index]) { 91 ierr = PetscInfo1(NULL,"Rejecting domainname, likely is NIS %s\n",name);CHKERRQ(ierr); 92 name[l-1] = 0; 93 } 94 } 95 } 96 PetscFunctionReturn(0); 97 } 98