1#!/usr/bin/perl
2#
3# Copyright (C) 2010, 2012  Internet Systems Consortium, Inc. ("ISC")
4#
5# Permission to use, copy, modify, and/or distribute this software for any
6# purpose with or without fee is hereby granted, provided that the above
7# copyright notice and this permission notice appear in all copies.
8#
9# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
10# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
11# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
12# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
13# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
14# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
15# PERFORMANCE OF THIS SOFTWARE.
16
17# Id: testsock.pl,v 1.2 2010/06/17 05:38:05 marka Exp
18
19# Test whether the interfaces on 10.53.0.* are up.
20
21require 5.001;
22
23use Socket;
24use Getopt::Long;
25
26my $port = 0;
27my $id = 0;
28GetOptions("p=i" => \$port,
29           "i=i" => \$id);
30
31my @ids;
32if ($id != 0) {
33	@ids = ($id);
34} else {
35	@ids = (1..5);
36}
37
38foreach $id (@ids) {
39        my $addr = pack("C4", 10, 53, 0, $id);
40	my $sa = pack_sockaddr_in($port, $addr);
41	socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname("tcp"))
42      		or die "$0: socket: $!\n";
43	setsockopt(SOCK, SOL_SOCKET, SO_REUSEADDR, pack("l", 1));
44
45	bind(SOCK, $sa)
46	    	or die sprintf("$0: bind(%s, %d): $!\n",
47			       inet_ntoa($addr), $port);
48	close(SOCK);
49	sleep(1);
50}
51