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