Merge branch 'test' into mojo

[spider.git] / perl / SysVar.pm

diff --git a/perl/SysVar.pm b/perl/SysVar.pm
index 92a81e4b4d584422ebcb879190e54a1cd0d7617c..7dba2beadfe185918ed4a23ad85ed072a209d311 100644 (file)
--- a/perl/SysVar.pm
+++ b/perl/SysVar.pm
@@ -6,7 +6,8 @@
 #
 
 package main;
-use warnings;
+
+use vars qw($data $local_data $system $cmd $localcmd $userfn $motd);
 
 ##
 ## DXVars.pm overrides
@@ -26,14 +27,10 @@ $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";
+$motd = "motd";
+
+1;