U/perl/usesocks.U

   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 ?INIT:: set usesocks on the Configure command line to enable socks.
  25 : Check is we will use socks
  26 ?X: We should really have some explanatory text here, and some
  27 ?X: automatic setting of sensible defaults.
  28 case "$usesocks" in
  29 $define|true|[yY]*)     dflt='y';;
  30 *) dflt='n';;
  31 esac
  32 cat <<EOM
  33
  34 Perl can be built to use the SOCKS proxy protocol library.  To do so,
  35 Configure must be run with -Dusesocks.  If you use SOCKS you also need
  36 to use the PerlIO abstraction layer, this will be implicitly selected.
  37
  38 If this doesn't make any sense to you, just accept the default '$dflt'.
  39 EOM
  40 rp='Build Perl for SOCKS?'
  41 . ./myread
  42 case "$ans" in
  43 y|Y)    val="$define" ;;
  44 *)      val="$undef" ;;
  45 esac
  46 set usesocks
  47 eval $setvar
  48