X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSysVar.pm;fp=perl%2FSysVar.pm;h=92a81e4b4d584422ebcb879190e54a1cd0d7617c;hb=c94ff1bf2cbe16ed59c5b273c7f6730fd7314cab;hp=0000000000000000000000000000000000000000;hpb=68fa2f8ae34d78464cb196851a7ce09ebef61b1b;p=spider.git

diff --git a/perl/SysVar.pm b/perl/SysVar.pm
new file mode 100644
index 00000000..92a81e4b
--- /dev/null
+++ b/perl/SysVar.pm
@@ -0,0 +1,39 @@
+# These are a load of system variables that used to live in DXVars.pm.
+#
+# They have been broken out into a separate module which must be called AFTER 'use DXVars' if that is in fact called at all.
+#
+# It is a replacement for DXVars.pm wherever it is used just for these paths
+#
+
+package main;
+use warnings;
+
+##
+## DXVars.pm overrides
+##
+# data files live in 
+$data = "$root/data";
+
+# for local data
+$local_data = "$root/local_data";
+
+# system files live in (except they don't, not really)
+$system = "$root/sys";
+
+# command files live in
+$cmd = "$root/cmd";
+
+# local command files live in (and overide $cmd)
+$localcmd = "$root/local_cmd";
+
+# data files live in 
+$data = "$root/data";
+
+# for local data
+$local_data = "$root/local_data";
+
+# where the user data lives
+$userfn = "$local_data/users";
+
+# the "message of the day" file
+$motd = "$local_data/motd";