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
  10 use vars qw($data $local_data $system $cmd $localcmd $userfn $motd);
  11
  12 ##
  13 ## DXVars.pm overrides
  14 ##
  15 # data files live in
  16 $data = "$root/data";
  17
  18 # for local data
  19 $local_data = "$root/local_data";
  20
  21 # system files live in (except they don't, not really)
  22 $system = "$root/sys";
  23
  24 # command files live in
  25 $cmd = "$root/cmd";
  26
  27 # local command files live in (and overide $cmd)
  28 $localcmd = "$root/local_cmd";
  29
  30 # where the user data lives
  31 $userfn = "$local_data/users";
  32
  33 # the "message of the day" file
  34 $motd = "$local_data/motd";