+ if (!server || (strlen(server) == 0)) {
+ server = getenv("MOIRASERVER");
+ }
+
+#ifdef HESIOD
+ if (!server || (strlen(server) == 0)) {
+ pp = hes_resolve("moira", "sloc");
+ if (pp) server = *pp;
+ }
+#endif HESIOD
+
+ if (!server || (strlen(server) == 0)) {
+ server = MOIRA_SERVER;
+ }
+
+ if (!index(server, ':')) {
+ p = index(MOIRA_SERVER, ':');
+ p++;
+ sprintf(sbuf, "%s:%s", server, p);
+ server = sbuf;
+ }
+