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
   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 test -f persistent-autosettings || touch persistent-autosettings
  22 . persistent-autosettings
  23
  24 exec 3>persistent-autosettings.new
  25 cat >&3 persistent-autosettings
  26
  27 for k in $pas; do
  28         eval "v=\$$k"
  29         if [ "x$v" != x ]; then continue; fi
  30
  31         v="`dd if=/dev/urandom count=6 ibs=1 2> /dev/null \
  32                 | uuencode -m - \
  33                 | perl -ne 'y/A-Z\+\//a-z01/; print if $.==2;' `"
  34         case $v in
  35         ????????)       ;;
  36         *)              exit 1;;
  37         esac
  38         case $v in
  39         *[^0-9a-z]*)    echo >&2 "unexpected from dd etc.: $v"; exit 1 ;;
  40         esac
  41         echo >&3 "$k='$v'"
  42 done
  43
  44 mv -f persistent-autosettings.new persistent-autosettings
  45
  46 exec 3>&-
  47 . persistent-autosettings
  48