1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
diff -Naurp usermin-1.150.orig/setup.sh usermin-1.150/setup.sh
--- usermin-1.150.orig/setup.sh 2005-09-03 16:19:50.000000000 -0700
+++ usermin-1.150/setup.sh 2005-09-03 16:21:01.000000000 -0700
@@ -342,12 +342,12 @@ else
echo ""
exit 12
fi
- $perl -e 'use Socket; socket(FOO, PF_INET, SOCK_STREAM, getprotobyname("tcp")); setsockopt(FOO, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)); bind(FOO, pack_sockaddr_in($ARGV[0], INADDR_ANY)) || exit(1); exit(0);' $port
- if [ $? != "0" ]; then
- echo "ERROR: TCP port $port is already in use by another program"
- echo ""
- exit 13
- fi
+ #$perl -e 'use Socket; socket(FOO, PF_INET, SOCK_STREAM, getprotobyname("tcp")); setsockopt(FOO, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)); bind(FOO, pack_sockaddr_in($ARGV[0], INADDR_ANY)) || exit(1); exit(0);' $port
+ #if [ $? != "0" ]; then
+ # echo "ERROR: TCP port $port is already in use by another program"
+ # echo ""
+ # exit 13
+ #fi
# Ask the user if SSL should be used
if [ "$ssl" = "" ]; then
|
GitWeb
