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