Gecko [ satitravel.com ]

Name	Size	Permission	Date
BUGREPORTS	746 B	-rw-r--r--	2016-07-21 21:28
CHANGES	67.56 KB	-rw-r--r--	2025-07-15 09:33
COPYING	17.67 KB	-rw-r--r--	2017-01-06 19:28
COPYING.OpenSSL	6.13 KB	-rw-r--r--	2016-07-21 21:28
DEVELOPMENT	8.99 KB	-rw-r--r--	2021-01-03 18:23
EXAMPLES	17.01 KB	-rw-r--r--	2021-01-03 18:23
FAQ	3.75 KB	-rw-r--r--	2019-04-04 08:59
PORTING	3.02 KB	-rw-r--r--	2016-07-21 21:28
README	11.47 KB	-rw-r--r--	2021-01-03 18:23
SECURITY	1.81 KB	-rw-r--r--	2016-07-21 21:28
daemon.sh	903 B	-rw-r--r--	2025-07-15 09:33
ftp.sh	4.12 KB	-rw-r--r--	2025-07-15 09:33
gatherinfo.sh	4.03 KB	-rw-r--r--	2025-07-15 09:33
mail.sh	2.02 KB	-rw-r--r--	2025-07-15 09:33
proxy.sh	1.99 KB	-rw-r--r--	2025-07-15 09:33
proxyecho.sh	1.2 KB	-rw-r--r--	2025-07-15 09:33
readline-test.sh	1.26 KB	-rw-r--r--	2025-07-15 09:33
readline.sh	764 B	-rw-r--r--	2025-07-15 09:33
socat_buildscript_for_android.sh	3.5 KB	-rw-r--r--	2025-07-15 09:33
socks4a-echo.sh	2.52 KB	-rw-r--r--	2025-07-15 09:33
socks4echo.sh	2.31 KB	-rw-r--r--	2025-07-15 09:33
test.sh	456.32 KB	-rw-r--r--	2025-07-15 09:33

Rename

#! /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
}