* Copyright (c) 1993 Winning Strategies, Inc.

/* $NetBSD: spray.c,v 1.7 2011/08/30 20:45:31 joerg Exp $ */

/*
* Copyright (c) 1993 Winning Strategies, 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Winning Strategies, Inc.
* 4. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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: spray.c,v 1.7 2011/08/30 20:45:31 joerg Exp $");
#endif

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

#include <rpc/rpc.h>
#include <rpcsvc/spray.h>

#ifndef SPRAYOVERHEAD
#define SPRAYOVERHEAD 86
#endif

static void print_xferstats(int, int, double);
__dead static void usage(void);

/* spray buffer */
static char spray_buffer[SPRAYMAX];

/* RPC timeouts */
static struct timeval NO_DEFAULT = { -1, -1 };
static struct timeval ONE_WAY = { 0, 0 };
static struct timeval TIMEOUT = { 25, 0 };

int
main(int argc, char **argv)
{
char *progname;
spraycumul host_stats;
sprayarr host_array;
CLIENT *cl;
int c;
int i;
int count = 0;
int delay = 0;
int length = 0;
double xmit_time; /* time to receive data */

progname = *argv;
while ((c = getopt(argc, argv, "c:d:l:")) != -1) {
switch (c) {
case 'c':
count = atoi(optarg);
break;
case 'd':
delay = atoi(optarg);
break;
case 'l':
length = atoi(optarg);
break;
default:
usage();
/* NOTREACHED */
}
}
argc -= optind;
argv += optind;

if (argc != 1) {
usage();
/* NOTREACHED */
}

/* Correct packet length. */
if (length > SPRAYMAX) {
length = SPRAYMAX;
} else if (length < SPRAYOVERHEAD) {
length = SPRAYOVERHEAD;
} else {
/* The RPC portion of the packet is a multiple of 32 bits. */
length -= SPRAYOVERHEAD - 3;
length &= ~3;
length += SPRAYOVERHEAD;
}

/*
* The default value of count is the number of packets required
* to make the total stream size 100000 bytes.
*/
if (!count) {
count = 100000 / length;
}

/* Initialize spray argument */
host_array.sprayarr_len = length - SPRAYOVERHEAD;
host_array.sprayarr_val = spray_buffer;

/* create connection with server */
cl = clnt_create(*argv, SPRAYPROG, SPRAYVERS, "udp");
if (cl == NULL) {
clnt_pcreateerror(progname);
exit(1);
}

/*
* For some strange reason, RPC 4.0 sets the default timeout,
* thus timeouts specified in clnt_call() are always ignored.
*
* The following (undocumented) hack resets the internal state
* of the client handle.
*/
clnt_control(cl, CLSET_TIMEOUT, (caddr_t)&NO_DEFAULT);

/* Clear server statistics */
if (clnt_call(cl, SPRAYPROC_CLEAR, xdr_void, NULL, xdr_void, NULL, TIMEOUT) != RPC_SUCCESS) {
clnt_perror(cl, progname);
exit(1);
}

/* Spray server with packets */
printf ("sending %d packets of lnth %d to %s ...", count, length, *argv);
fflush (stdout);

for (i = 0; i < count; i++) {
clnt_call(cl, SPRAYPROC_SPRAY, xdr_sprayarr, &host_array, xdr_void, NULL, ONE_WAY);

if (delay) {
usleep(delay);
}
}

/* Collect statistics from server */
if (clnt_call(cl, SPRAYPROC_GET, xdr_void, NULL, xdr_spraycumul, &host_stats, TIMEOUT) != RPC_SUCCESS) {
clnt_perror(cl, progname);
exit(1);
}

xmit_time = host_stats.clock.sec +
(host_stats.clock.usec / 1000000.0);

printf ("\n\tin %.2f seconds elapsed time\n", xmit_time);

/* report dropped packets */
if (host_stats.counter != (unsigned)count) {
int packets_dropped = count - host_stats.counter;

printf("\t%d packets (%.2f%%) dropped\n",
packets_dropped,
100.0 * packets_dropped / count );
} else {
printf("\tno packets dropped\n");
}

printf("Sent:");
print_xferstats(count, length, xmit_time);

printf("Rcvd:");
print_xferstats(host_stats.counter, length, xmit_time);

exit (0);
}

static void
print_xferstats(int packets, int packetlen, double xfertime)
{
int datalen;
double pps; /* packets per second */
double bps; /* bytes per second */

datalen = packets * packetlen;
pps = packets / xfertime;
bps = datalen / xfertime;

printf("\t%.0f packets/sec, ", pps);

if (bps >= 1024)
printf ("%.1fK ", bps / 1024);
else
printf ("%.0f ", bps);

printf("bytes/sec\n");
}

static void
usage(void)
{
fprintf(stderr, "usage: spray [-c count] [-l length] [-d delay] host\n");
exit(1);
}