| 1 | ?RCS: $Id$ |
| 2 | ?RCS: |
| 3 | ?RCS: Copyright (c) 1999 Jarkko Hietaniemi |
| 4 | ?RCS: |
| 5 | ?RCS: You may distribute under the terms of either the GNU General Public |
| 6 | ?RCS: License or the Artistic License, as specified in the README file. |
| 7 | ?RCS: |
| 8 | ?MAKE:usesocks: Myread Oldconfig Setvar |
| 9 | ?MAKE: -pick add $@ %< |
| 10 | ?Y:TOP |
| 11 | ?S:usesocks: |
| 12 | ?S: This variable conditionally defines the USE_SOCKS symbol, |
| 13 | ?S: and indicates that Perl should be built to use SOCKS. |
| 14 | ?S:. |
| 15 | ?C:USE_SOCKS: |
| 16 | ?C: This symbol, if defined, indicates that Perl should |
| 17 | ?C: be built to use socks. |
| 18 | ?C:. |
| 19 | ?H:?%<:#ifndef USE_SOCKS |
| 20 | ?H:?%<:#$usesocks USE_SOCKS /**/ |
| 21 | ?H:?%<:#endif |
| 22 | ?H:. |
| 23 | ?LINT:set usesocks |
| 24 | ?LINT:extern useperlio |
| 25 | ?LINT:change useperlio |
| 26 | ?INIT:: set usesocks on the Configure command line to enable socks. |
| 27 | : Check is we will use socks |
| 28 | ?X: We should really have some explanatory text here, and some |
| 29 | ?X: automatic setting of sensible defaults. |
| 30 | case "$usesocks" in |
| 31 | $define|true|[yY]*) dflt='y';; |
| 32 | *) dflt='n';; |
| 33 | esac |
| 34 | cat <<EOM |
| 35 | |
| 36 | Perl can be built to use the SOCKS proxy protocol library. To do so, |
| 37 | Configure must be run with -Dusesocks. If you use SOCKS you also need |
| 38 | to use the PerlIO abstraction layer, this will be implicitly selected. |
| 39 | |
| 40 | If this doesn't make any sense to you, just accept the default '$dflt'. |
| 41 | EOM |
| 42 | rp='Build Perl for SOCKS?' |
| 43 | . ./myread |
| 44 | case "$ans" in |
| 45 | y|Y) val="$define" ;; |
| 46 | *) val="$undef" ;; |
| 47 | esac |
| 48 | set usesocks |
| 49 | eval $setvar |
| 50 | |
| 51 | case "$usesocks" in |
| 52 | $define|true|[yY]*) useperlio="$define";; |
| 53 | esac |
| 54 | |