From 3f145290a93b39bf15b50269dd8be585d7b4bc9c Mon Sep 17 00:00:00 2001 From: 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