From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 17 Aug 2016 16:04:00 +0000 (+0100)
Subject: fix --system on create_sysop.pl
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=f49472a1678a1178209470a649393b570276a044;p=spider.git

fix --system on create_sysop.pl

Make sure that --system uses and creates files in data.
---

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index 60d7d2a1..809850fd 100755
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -35,9 +35,11 @@ my %pre = ();						# the prefix hash
 my %pren = ();						# the inverse
 
 my $prefix;
+my $system;
 
 if (@ARGV && $ARGV[0] =~ /^--system$/) {
 	$prefix = $main::data;
+	++$system;
 	shift;
 } else {
 	$prefix = $main::local_data;
@@ -45,7 +47,7 @@ if (@ARGV && $ARGV[0] =~ /^--system$/) {
 
 my $ifn;
 
-$ifn = "$prefix/wpxloc.raw";
+$ifn = $system ? "$main::data/wpxloc.raw" : "$prefix/wpxloc.raw";
 unless (open (IN, $ifn)) {
 	$ifn = "$main::data/wpxloc.raw";
 	open(IN, $ifn) or die "can't open $ifn ($!)";
@@ -110,7 +112,7 @@ close(IN);
 
 # now open the cty.dat file if it is there
 my $r;
-$ifn = "$prefix/cty.dat";
+$ifn = $system ? "$main::data/cty.dat" : "$prefix/cty.dat";
 unless ($r = open (IN, $ifn)) {
 	$ifn = "$main::data/cty.dat";
 	$r = open(IN, $ifn);