]> gb7djk.dxcluster.net Git - spider.git/commitdiff
fix --system on create_sysop.pl
authorDirk Koopman <djk@tobit.co.uk>
Wed, 17 Aug 2016 16:04:00 +0000 (17:04 +0100)
committerDirk Koopman <djk@tobit.co.uk>
Wed, 17 Aug 2016 16:04:00 +0000 (17:04 +0100)
Make sure that --system uses and creates files in data.

perl/create_prefix.pl

index 60d7d2a1f462861d60868da871dacf37b6bdaaec..809850fd35a54e59ce97865124844694fff768c9 100755 (executable)
@@ -35,9 +35,11 @@ my %pre = ();                                                # the prefix hash
 my %pren = ();                                         # the inverse
 
 my $prefix;
 my %pren = ();                                         # the inverse
 
 my $prefix;
+my $system;
 
 if (@ARGV && $ARGV[0] =~ /^--system$/) {
        $prefix = $main::data;
 
 if (@ARGV && $ARGV[0] =~ /^--system$/) {
        $prefix = $main::data;
+       ++$system;
        shift;
 } else {
        $prefix = $main::local_data;
        shift;
 } else {
        $prefix = $main::local_data;
@@ -45,7 +47,7 @@ if (@ARGV && $ARGV[0] =~ /^--system$/) {
 
 my $ifn;
 
 
 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 ($!)";
 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;
 
 # 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);
 unless ($r = open (IN, $ifn)) {
        $ifn = "$main::data/cty.dat";
        $r = open(IN, $ifn);