bin/tests/system/send.pl

   1 #!/usr/bin/perl
   2 #
   3 # Copyright (C) 2004, 2007  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: send.pl,v 1.5 2007/06/19 23:47:00 tbox Exp $
  19
  20 #
  21 # Send a file to a given address and port using TCP.  Used for
  22 # configuring the test server in ixfr/ans2/ans.pl.
  23 #
  24
  25 use IO::File;
  26 use IO::Socket;
  27
  28 @ARGV == 2 or die "usage: send.pl host port [file ...]\n";
  29
  30 my $host = shift @ARGV;
  31 my $port = shift @ARGV;
  32
  33 my $sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port,
  34                                  Proto => "tcp",) or die "$!";
  35 while (<>) {
  36         $sock->syswrite($_, length $_);
  37 }
  38
  39 $sock->close;