1#!/usr/bin/perl
2#
3# Copyright (C) 2004, 2007, 2011, 2012  Internet Systems Consortium, Inc. ("ISC")
4# Copyright (C) 2001  Internet Software Consortium.
5#
6# Permission to use, copy, modify, and/or distribute this software for any
7# purpose with or without fee is hereby granted, provided that the above
8# copyright notice and this permission notice appear in all copies.
9#
10# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
11# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
12# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
13# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
14# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
15# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
16# PERFORMANCE OF THIS SOFTWARE.
17
18# $Id$
19
20#
21# Send a file to a given address and port using TCP.  Used for
22# configuring the test server in ans.pl.
23#
24
25use IO::File;
26use IO::Socket;
27
28@ARGV == 2 or die "usage: send.pl host port [file ...]\n";
29
30my $host = shift @ARGV;
31my $port = shift @ARGV;
32
33my $sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port,
34				 Proto => "tcp",) or die "$!";
35while (<>) {
36	$sock->syswrite($_, length $_);
37}
38
39$sock->close;
40