* Copyright (c) 1999 The NetBSD Foundation, Inc.

/* $NetBSD: am_glue.c,v 1.4 2010/06/23 18:07:59 yamt Exp $ */

/*-
* Copyright (c) 1999 The NetBSD Foundation, Inc.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/

#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: am_glue.c,v 1.4 2010/06/23 18:07:59 yamt Exp $");
#endif /* not lint */

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif /* HAVE_CONFIG_H */
#include <am_defs.h>
#include <amu.h>
#include <rpc/pmap_prot.h>
#include <rpc/pmap_clnt.h>

#include <stdbool.h>

#include "am_glue.h"

static CLIENT *clnt;

static struct timeval tv = { 5, 0 };
/*
* Appease lint: Properly typecast some numbers defined in
* src/extern/bsd/am-utils/dist/include/amq_defs.h.
*/
#define xAMQ_PROGRAM (rpcprog_t)AMQ_PROGRAM
#define xAMQ_VERSION (rpcvers_t)AMQ_VERSION
#define xAMQPROC_SYNC_UMNT (rpcproc_t)AMQPROC_SYNC_UMNT

static int
ping_pmap(void)
{
u_short port = 0;
CLIENT *cl;
struct pmap parms;
struct sockaddr_in si;
int s = -1, rv;
static struct timeval pingtv = { 1, 0 };

(void)memset(&si, 0, sizeof(si));
si.sin_family = AF_INET;
si.sin_len = sizeof(si);
si.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
si.sin_port = htons(PMAPPORT);

if ((cl = clntudp_bufcreate(&si, PMAPPROG, PMAPVERS, pingtv,
&s, RPCSMALLMSGSIZE, RPCSMALLMSGSIZE)) == NULL)
return -1;

parms.pm_prog = PMAPPROG;
parms.pm_vers = PMAPVERS;
parms.pm_prot = IPPROTO_UDP;
parms.pm_port = 0; /* not needed or used */

rv = CLNT_CALL(cl, (rpcproc_t)PMAPPROC_GETPORT,
(xdrproc_t)xdr_pmap, &parms,
(xdrproc_t)xdr_u_short, &port, pingtv) == RPC_SUCCESS ? 0 : -1;

CLNT_DESTROY(cl);
return rv;
}

static void
am_init(void)
{
static const char *server = "localhost";
static bool called;

if (called)
return;
called = true;

if (ping_pmap() == -1)
return;
/*
* Create RPC endpoint
*/
/* try tcp first */
clnt = clnt_create(server, xAMQ_PROGRAM, xAMQ_VERSION, "tcp");
if (clnt != NULL)
return;

/* try udp next */
clnt = clnt_create(server, xAMQ_PROGRAM, xAMQ_VERSION, "udp");
if (clnt != NULL) /* set udp timeout */
(void)clnt_control(clnt, CLSET_RETRY_TIMEOUT, (void *)&tv);
}

int
am_unmount(const char *dirname)
{
static struct timeval timeout = { ALLOWED_MOUNT_TIME, 0 };
amq_sync_umnt result;

am_init();

if (clnt == NULL)
return AMQ_UMNT_FAILED;

if (clnt_call(clnt, xAMQPROC_SYNC_UMNT, xdr_amq_string, &dirname,
xdr_amq_sync_umnt, (void *)&result, timeout) != RPC_SUCCESS)
return AMQ_UMNT_SERVER;

return result.au_etype;
}