/usr/share/doc/socat/examples/proxy.sh is in socat 1.7.1.3-1.2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | #! /bin/bash
# source: proxy.sh
# Copyright Gerhard Rieger 2003-2004
# Published under the GNU General Public License V.2, see file COPYING
# perform primitive simulation of a proxy server.
# accepts and answers correct HTTP CONNECT requests on stdio, and tries to
# establish the connection to the given server.
# it is required for socats test.sh
# for TCP, use this script as:
# socat tcp-l:8080,reuseaddr,fork exec:"proxy.sh",nofork
if [ -z "$SOCAT" ]; then
if type socat >/dev/null 2>&1; then
SOCAT=socat
else
SOCAT="./socat"
fi
fi
if [ $(echo "x\c") = "x" ]; then E=""
elif [ $(echo -e "x\c") = "x" ]; then E="-e"
else
echo "cannot suppress trailing newline on echo" >&2
exit 1
fi
ECHO="echo $E"
CR=$($ECHO "\r")
#echo "CR=$($ECHO "$CR\c" |od -c)" >&2
case `uname` in
HP-UX|OSF1)
# their cats are too stupid to work with unix domain sockets
CAT="$SOCAT -u stdin stdout"
;;
*)
CAT=cat
;;
esac
SPACES=" "
while [ -n "$1" ]; do
case "$1" in
-w) n="$2"; while [ "$n" -gt 0 ]; do SPACES="$SPACES "; n=$((n-1)); done
shift ;;
#-s) STAT="$2"; shift ;;
esac
shift
done
# read and parse HTTP request
read l
if echo "$l" |egrep '^CONNECT +[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+:[0-9]+ +HTTP/1.[01]' >/dev/null
then
: go on below
else
$ECHO "HTTP/1.0${SPACES}500 Bad Request$CR"
$ECHO "$CR"
exit
fi
# extract target server name/address
s=`echo $l |awk '{print($2);}'`
# read more headers until empty line
while [ "$l" != "$CR" ]; do
read l
done
# send status
$ECHO "HTTP/1.0${SPACES}200 OK$CR"
# send empty line
$ECHO "$CR"
# perform proxy (relay) function
exec $SOCAT $SOCAT_OPTS - tcp:$s
|