freebsd-src/usr.sbin/spray/spray.c
2000-05-28 15:05:15 +00:00

221 lines
5.4 KiB
C

/*
* 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.
*/
#ifndef lint
static const char rcsid[] =
"$FreeBSD$";
#endif /* not lint */
#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 usage ();
void print_xferstats ();
/* spray buffer */
char spray_buffer[SPRAYMAX];
/* RPC timeouts */
struct timeval NO_DEFAULT = { -1, -1 };
struct timeval ONE_WAY = { 0, 0 };
struct timeval TIMEOUT = { 25, 0 };
int
main(argc, argv)
int argc;
char **argv;
{
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 */
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)
errx(1, "%s", clnt_spcreateerror(NULL));
/*
* 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)
errx(1, "%s", clnt_sperror(cl, NULL));
/* 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)
errx(1, "%s", clnt_sperror(cl, NULL));
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 != 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);
}
void
print_xferstats(packets, packetlen, xfertime)
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 ()
{
fprintf(stderr,
"usage: spray [-c count] [-l length] [-d delay] host\n");
exit(1);
}