mirror of https://github.com/apache/druid.git
33 lines
1.2 KiB
Perl
Executable File
33 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# Licensed to the Apache Software Foundation (ASF) under one
|
|
# or more contributor license agreements. See the NOTICE file
|
|
# distributed with this work for additional information
|
|
# regarding copyright ownership. The ASF licenses this file
|
|
# to you under the Apache License, Version 2.0 (the
|
|
# "License"); you may not use this file except in compliance
|
|
# with the License. You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing,
|
|
# software distributed under the License is distributed on an
|
|
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
|
# KIND, either express or implied. See the License for the
|
|
# specific language governing permissions and limitations
|
|
# under the License.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Socket;
|
|
|
|
my @ports = (1527, 2181, 8081, 8082, 8083, 8090, 8091, 8200, 9095);
|
|
|
|
my $tcp = getprotobyname("tcp");
|
|
for my $port (@ports) {
|
|
socket(my $sock, PF_INET, SOCK_STREAM, $tcp) or die "socket: $!";
|
|
setsockopt($sock, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or die "setsockopt: $!";
|
|
bind($sock, sockaddr_in($port, INADDR_ANY)) or die "Cannot start up because port[$port] is already in use.\n";
|
|
close $sock;
|
|
}
|