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