aboutsummaryrefslogtreecommitdiff
path: root/nis/nis_call.c
diff options
context:
space:
mode:
Diffstat (limited to 'nis/nis_call.c')
-rw-r--r--nis/nis_call.c220
1 files changed, 220 insertions, 0 deletions
diff --git a/nis/nis_call.c b/nis/nis_call.c
new file mode 100644
index 0000000000..cd1b6170d4
--- /dev/null
+++ b/nis/nis_call.c
@@ -0,0 +1,220 @@
+/* Copyright (C) 1997 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Thorsten Kukuk <kukuk@vt.uni-paderborn.de>, 1997.
+
+ The GNU C Library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Library General Public License as
+ published by the Free Software Foundation; either version 2 of the
+ License, or (at your option) any later version.
+
+ The GNU C Library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with the GNU C Library; see the file COPYING.LIB. If not,
+ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA. */
+
+#include <string.h>
+#include <rpc/rpc.h>
+#include <rpc/auth.h>
+#include <rpcsvc/nis.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <arpa/inet.h>
+#include "nis_intern.h"
+
+static struct timeval TIMEOUT = {25, 0};
+static int const MAXTRIES = 3;
+
+static unsigned long
+inetstr2int (const char *str)
+{
+ char buffer[strlen (str) + 3];
+ size_t buflen;
+ size_t i, j;
+
+ buflen = stpcpy (buffer, str) - buffer;
+
+ j = 0;
+ for (i = 0; i < buflen; ++i)
+ if (buffer[i] == '.')
+ {
+ ++j;
+ if (j == 4)
+ {
+ buffer[i] = '\0';
+ break;
+ }
+ }
+
+ return inet_addr (buffer);
+}
+
+static CLIENT *
+__nis_dobind (const nis_server *server, u_long flags)
+{
+ struct sockaddr_in clnt_saddr;
+ int clnt_sock;
+ size_t i;
+ CLIENT *client = NULL;
+ /* XXX What is this variable for? */
+ void *out = NULL;
+
+ for (i = 0; i < server->ep.ep_len; i++)
+ {
+ memset (&clnt_saddr, '\0', sizeof clnt_saddr);
+ clnt_saddr.sin_family = AF_INET;
+ if (strcmp (server->ep.ep_val[i].family,"loopback") == 0)
+ {
+ if (server->ep.ep_val[i].uaddr[i] == '-')
+ clnt_saddr.sin_addr.s_addr = htonl (INADDR_LOOPBACK);
+ else
+ if (strcmp (server->ep.ep_val[i].proto,"udp") == 0)
+ {
+ if ((flags & USE_DGRAM) == USE_DGRAM)
+ clnt_saddr.sin_addr.s_addr = htonl (INADDR_LOOPBACK);
+ else
+ continue;
+ }
+ else
+ if (strcmp (server->ep.ep_val[i].proto,"tcp") == 0)
+ {
+ if ((flags & USE_DGRAM) == USE_DGRAM)
+ continue;
+ else
+ clnt_saddr.sin_addr.s_addr = htonl (INADDR_LOOPBACK);
+ }
+ }
+ else
+ if (strcmp (server->ep.ep_val[i].family,"inet") == 0)
+ {
+ if (server->ep.ep_val[i].uaddr[i] == '-')
+ clnt_saddr.sin_addr.s_addr =
+ inetstr2int (server->ep.ep_val[i].uaddr);
+ else
+ if (strcmp (server->ep.ep_val[i].proto,"udp") == 0)
+ {
+ if ((flags & USE_DGRAM) == USE_DGRAM)
+ clnt_saddr.sin_addr.s_addr =
+ inetstr2int (server->ep.ep_val[i].uaddr);
+ else
+ continue;
+ }
+ else
+ if (strcmp (server->ep.ep_val[i].proto,"tcp") == 0)
+ {
+ if ((flags & USE_DGRAM) == USE_DGRAM)
+ continue;
+ else
+ clnt_saddr.sin_addr.s_addr =
+ inetstr2int (server->ep.ep_val[i].uaddr);
+ }
+ }
+ else
+ continue;
+
+ clnt_sock = RPC_ANYSOCK;
+ if ((flags & USE_DGRAM) == USE_DGRAM)
+ client = clntudp_create (&clnt_saddr, NIS_PROG, NIS_VERSION,
+ TIMEOUT, &clnt_sock);
+ else
+ client = clnttcp_create (&clnt_saddr, NIS_PROG, NIS_VERSION,
+ &clnt_sock, 0, 0);
+
+ if (client == NULL)
+ continue;
+#if 1
+ if (clnt_call (client, 0, (xdrproc_t) xdr_void, NULL,
+ (xdrproc_t) xdr_void, out, TIMEOUT) != RPC_SUCCESS)
+ {
+ clnt_destroy (client);
+ continue;
+ }
+#endif
+ if ((flags & NO_AUTHINFO) != NO_AUTHINFO)
+ {
+#if !defined(NO_DES_RPC)
+ if (server->key_type == NIS_PK_DH)
+ {
+ char netname[MAXNETNAMELEN+1];
+ char *p;
+
+ strcpy (netname, "unix.");
+ strncat (netname, server->name,MAXNETNAMELEN-5);
+ netname[MAXNETNAMELEN-5] = '\0';
+ p = strchr (netname, '.');
+ *p = '@';
+ client->cl_auth =
+ authdes_pk_create (netname, &server->pkey, 300, NULL, NULL);
+ if (!client->cl_auth)
+ client->cl_auth = authunix_create_default ();
+ }
+ else
+#endif
+ client->cl_auth = authunix_create_default ();
+ }
+ return client;
+ }
+
+ return NULL;
+}
+
+nis_error
+__do_niscall (const nis_server *serv, int serv_len, u_long prog,
+ xdrproc_t xargs, caddr_t req, xdrproc_t xres, caddr_t resp,
+ u_long flags)
+{
+ CLIENT *clnt;
+ directory_obj *dir = NULL;
+ const nis_server *server;
+ int try, result, server_len;
+
+ if (serv == NULL || serv_len == 0)
+ {
+ dir = readColdStartFile ();
+ if (dir == NULL)
+ return NIS_UNAVAIL;
+ server = dir->do_servers.do_servers_val;
+ server_len = dir->do_servers.do_servers_len;
+ }
+ else
+ {
+ server = serv;
+ server_len = serv_len;
+ }
+
+ try = 0;
+ result = NIS_NAMEUNREACHABLE;
+
+ while (try < MAXTRIES && result != RPC_SUCCESS)
+ {
+ unsigned int i;
+
+ ++try;
+ for (i = 0; i < server_len; i++)
+ {
+ if ((clnt = __nis_dobind (&server[i], flags)) == NULL)
+ continue;
+
+ result = clnt_call (clnt, prog, xargs, req, xres, resp, TIMEOUT);
+
+ if (result != RPC_SUCCESS)
+ {
+ /* XXX Grrr. The cast is needed for now since Sun code does
+ note know about `const'. */
+ clnt_perror (clnt, (char *) "do_niscall: clnt_call");
+ clnt_destroy (clnt);
+ result = NIS_RPCERROR;
+ }
+ else
+ clnt_destroy (clnt);
+ }
+ }
+
+ if (dir != NULL)
+ nis_free_directory (dir);
+ return result;
+}