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