]> gb7djk.dxcluster.net Git - spider.git/blob - perl/SysVar.pm
improve node initialisation debugging
[spider.git] / 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";