1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--- webmin-1.170/setup.sh.orig 2004-12-31 14:40:55.956541085 -0800
+++ webmin-1.170/setup.sh 2004-12-31 14:41:23.431018153 -0800
@@ -356,12 +356,12 @@
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
printf "Login name (default admin): "
if [ "$login" = "" ]; then
read login
|
GitWeb
