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 Version:
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;
50: #if defined(PETSC_HAVE_UNAME) && !defined(PETSC_HAVE_GETCOMPUTERNAME)
51: struct utsname utname;
52: #endif
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: PetscStrncpy(name,utname.nodename,nlen);
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;
71: /* See if this name includes the domain */
72: PetscStrchr(name,'.',&domain);
73: if (!domain) {
74: size_t l,ll;
75: PetscStrlen(name,&l);
76: if (l == nlen-1) return(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: PetscStrlen(name,&ll);
86: if (ll > 4) {
87: const char *suffixes[] = {".edu",".com",".net",".org",".mil",NULL};
88: PetscInt index;
89: PetscStrendswithwhich(name,suffixes,&index);
90: if (!suffixes[index]) {
91: PetscInfo1(NULL,"Rejecting domainname, likely is NIS %s\n",name);
92: name[l-1] = 0;
93: }
94: }
95: }
96: return(0);
97: }