ACIL FM

Nama	Ukuran	Aksi
BUGREPORTS	746 B	View DL Edit
CHANGES	67.79 MB	View DL Edit
COPYING	17.67 MB	View DL Edit
COPYING.OpenSSL	6.13 MB	View DL Edit
daemon.sh	903 B	View DL Edit
DEVELOPMENT	8.99 MB	View DL Edit
EXAMPLES	17.01 MB	View DL Edit
FAQ	3.75 MB	View DL Edit
ftp.sh	4.12 MB	View DL Edit
gatherinfo.sh	4.03 MB	View DL Edit
mail.sh	2.02 MB	View DL Edit
PORTING	3.02 MB	View DL Edit
proxy.sh	1.99 MB	View DL Edit
proxyecho.sh	1.2 MB	View DL Edit
readline-test.sh	1.26 MB	View DL Edit
readline.sh	764 B	View DL Edit
README	11.47 MB	View DL Edit
SECURITY	1.81 MB	View DL Edit
socat_buildscript_for_android.sh	3.5 MB	View DL Edit
socks4a-echo.sh	2.52 MB	View DL Edit
socks4echo.sh	2.31 MB	View DL Edit
test.sh	459.55 MB	View DL Edit

Edit file: /usr/share/doc/socat/proxy.sh

#! /usr/bin/env bash
# source: proxy.sh
# Copyright Gerhard Rieger and contributors (see file CHANGES)
# 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

# 20130622  GR allow hostnames, not only IP addresses

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

badrequest () {
    $ECHO "HTTP/1.0${SPACES}500 Bad Request$CR"
    $ECHO "$CR"
}

# read and parse HTTP request
read m a h
#echo "\"$m\" \"$a\" \"$h\"" >&2
if [ "$m" != 'CONNECT' ]; then
    badrequest; exit 1
fi
if [[ "$a" == [0-9]+\.[0-9]+\.[0-9]+\.[0-9]+:[0-9]+ ]]; then
    : go on below
elif [[ "$a" == [0-9a-zA-Z-.][0-9a-zA-Z-.]*:[0-9][0-9]* ]]; then
    : go on below
else
    badrequest; exit 1
fi

if [[ "$h" == HTTP/1.[01][[:space:]]* ]]; then
    : go on below
else
    badrequest; exit 1
fi

# 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
$SOCAT $SOCAT_OPTS - tcp:$a || {
    $ECHO "HTTP/1.0${SPACES}500 Failed to connect to $a$CR"
    $ECHO $CR
}

Batal