From 3f145290a93b39bf15b50269dd8be585d7b4bc9c Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 16 Oct 1998 13:31:41 +0000
Subject: [PATCH] fixed create_sysop so that the it has the correct BEGIN
 sequence, which will allow it to use ENV variables for setting the correct
 root

added instructions to INSTALL to for using create_sysop!
---
 INSTALL              | 16 ++++++++++++++++
 perl/create_sysop.pl | 10 ++++++++++
 2 files changed, 26 insertions(+)

diff --git a/INSTALL b/INSTALL
index 9180e36d..96c47d88 100644
--- a/INSTALL
+++ b/INSTALL
@@ -30,7 +30,15 @@ the following modules:-
   ..
   ..
   cpan> install IO::Select
+
+  In order to use IO::Select you will need to 
   
+  # cd /root/.cpan/build/IO-1.20  
+  # make install UNINST=1
+
+  The 'cd' is to the place where CPAN sets up its local cache. The example 
+  shown is for Linux defaults.
+
 3) select a user to run the cluster as UNDER _NO_ CIRCUMSTANCES USE ROOT.
 
    I say again DO NOT USE root.
@@ -115,6 +123,14 @@ the following modules:-
    :x
    
    $ cd ../perl
+
+   now create the basic user file with you as the sysop.
+
+   $ create_sysop.pl
+
+   try and run the cluster program and see whether all the various rivets are
+   flying in approximate formation...
+
    $ cluster.pl
    DXSpider DX Cluster Version x.x
    Copyright (c) 1998 Dirk Koopman G1TLH
diff --git a/perl/create_sysop.pl b/perl/create_sysop.pl
index 3b1196fe..1e553209 100755
--- a/perl/create_sysop.pl
+++ b/perl/create_sysop.pl
@@ -9,6 +9,16 @@
 # $Id$
 # 
 
+# make sure that modules are searched in the order local then perl
+BEGIN {
+  # root of directory tree for this system
+  $root = "/spider"; 
+  $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
+
+  unshift @INC, "$root/perl";  # this IS the right way round!
+  unshift @INC, "$root/local";
+}
+
 use DXVars;
 use DXUser;
 
-- 
2.43.0