get-settings

   1 #
   2
   3 paskeys='KEYSUBMIT KEYSTUMP2WEB KEYWEB2STUMP'
   4 pas="$paskeys"
   5 for k in $pas; do eval "$k=''"; export $k; done
   6
   7 . settings
   8 export GROUP ABBREV INFOHEADER MODEMAIL GROUPURL REJECTIONSLIST
   9
  10 . ../global-settings
  11 export ROOTBASEDIR CGIBASEURL DOMAIN SLIMYDOMAIN OURUSER ADMIN
  12 export LOGGROUPPREFIX LOGGROUPEMAILPREFIX TESTGROUP
  13 export STATICFILESURL STATICFILESDIR CGISCRIPTDIR SPAMFILTERINGADMIN
  14
  15 BASEDIR=$ROOTBASEDIR/live-$ABBREV
  16 export BASEDIR
  17
  18
  19 # derivative settings:
  20
  21 PUBREJOPT=''
  22 if $PUBLISHREJECTIONS; then
  23         PUBREJOPT=-P
  24 fi
  25 export PUBREJOPT
  26
  27
  28 test -f persistent-autosettings || touch persistent-autosettings
  29 . persistent-autosettings
  30
  31 exec 3>persistent-autosettings.new
  32 cat >&3 persistent-autosettings
  33
  34 for k in $pas; do
  35         eval "v=\$$k"
  36         if [ "x$v" != x ]; then continue; fi
  37
  38         v="`dd if=/dev/urandom count=6 ibs=1 2> /dev/null \
  39                 | uuencode -m - \
  40                 | perl -ne 'y/A-Z\+\//a-z01/; print if $.==2;' `"
  41         case $v in
  42         ????????)       ;;
  43         *)              exit 1;;
  44         esac
  45         case $v in
  46         *[^0-9a-z]*)    echo >&2 "unexpected from dd etc.: $v"; exit 1 ;;
  47         esac
  48         echo >&3 "$k='$v'"
  49 done
  50
  51 mv -f persistent-autosettings.new persistent-autosettings
  52
  53 exec 3>&-
  54 . persistent-autosettings
  55