perl/SysVar.pm

   1 # These are a load of system variables that used to live in DXVars.pm.
   2 #
   3 # They have been broken out into a separate module which must be called AFTER 'use DXVars' if that is in fact called at all.
   4 #
   5 # It is a replacement for DXVars.pm wherever it is used just for these paths
   6 #
   7
   8 package main;
   9 use warnings;
  10
  11 ##
  12 ## DXVars.pm overrides
  13 ##
  14 # data files live in
  15 $data = "$root/data";
  16
  17 # for local data
  18 $local_data = "$root/local_data";
  19
  20 # system files live in (except they don't, not really)
  21 $system = "$root/sys";
  22
  23 # command files live in
  24 $cmd = "$root/cmd";
  25
  26 # local command files live in (and overide $cmd)
  27 $localcmd = "$root/local_cmd";
  28
  29 # data files live in
  30 $data = "$root/data";
  31
  32 # for local data
  33 $local_data = "$root/local_data";
  34
  35 # where the user data lives
  36 $userfn = "$local_data/users";
  37
  38 # the "message of the day" file
  39 $motd = "$local_data/motd";