Actual source code: fhost.c
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
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()`.
27: Not Collective
29: Input Parameter:
30: . nlen - length of name
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.
36: Level: developer
38: Fortran Note:
39: In Fortran this routine has the format
41: $ character*(64) name
42: $ call PetscGetHostName(name,ierr)
44: .seealso: `PetscGetUserName()`, `PetscGetArchType()`
45: @*/
46: PetscErrorCode PetscGetHostName(char name[], size_t nlen)
47: {
48: char *domain;
49: #if defined(PETSC_HAVE_UNAME) && !defined(PETSC_HAVE_GETCOMPUTERNAME)
50: struct utsname utname;
51: #endif
53: #if defined(PETSC_HAVE_GETCOMPUTERNAME)
54: {
55: size_t nnlen = nlen;
56: GetComputerName((LPTSTR)name, (LPDWORD)(&nnlen));
57: }
58: #elif defined(PETSC_HAVE_UNAME)
59: uname(&utname);
60: PetscStrncpy(name, utname.nodename, nlen);
61: #elif defined(PETSC_HAVE_GETHOSTNAME)
62: gethostname(name, nlen);
63: #elif defined(PETSC_HAVE_SYSINFO_3ARG)
64: sysinfo(SI_HOSTNAME, name, nlen);
65: #endif
66: /* if there was not enough room then system call will not null terminate name */
67: name[nlen - 1] = 0;
69: /* See if this name includes the domain */
70: PetscStrchr(name, '.', &domain);
71: if (!domain) {
72: size_t l, ll;
73: PetscStrlen(name, &l);
74: if (l == nlen - 1) return 0;
75: name[l++] = '.';
76: name[l] = 0;
77: #if defined(PETSC_HAVE_SYSINFO_3ARG)
78: sysinfo(SI_SRPC_DOMAIN, name + l, nlen - l);
79: #elif defined(PETSC_HAVE_GETDOMAINNAME)
81: #endif
82: /* check if domain name is not a dnsdomainname and nuke it */
83: PetscStrlen(name, &ll);
84: if (ll > 4) {
85: const char *suffixes[] = {".edu", ".com", ".net", ".org", ".mil", NULL};
86: PetscInt index;
87: PetscStrendswithwhich(name, suffixes, &index);
88: if (!suffixes[index]) {
89: PetscInfo(NULL, "Rejecting domainname, likely is NIS %s\n", name);
90: name[l - 1] = 0;
91: }
92: }
93: }
94: return 0;
95: }