X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_prefix.pl;h=809850fd35a54e59ce97865124844694fff768c9;hb=f49472a1678a1178209470a649393b570276a044;hp=daf4a09e409171cb1433b068aa9aa9a8c1d218c6;hpb=c94ff1bf2cbe16ed59c5b273c7f6730fd7314cab;p=spider.git

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index daf4a09e..809850fd 100755
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -20,6 +20,7 @@ BEGIN {
 	unshift @INC, "$root/local";
 }
 
+use DXVars;
 use SysVar;
 
 use Data::Dumper;
@@ -33,18 +34,24 @@ my %locn = ();						# the inverse of the above
 my %pre = ();						# the prefix hash
 my %pren = ();						# the inverse
 
-if (@ARGV && $ARVG[0] =~ /^--system$/) {
+my $prefix;
+my $system;
+
+if (@ARGV && $ARGV[0] =~ /^--system$/) {
 	$prefix = $main::data;
+	++$system;
 	shift;
 } else {
-	$prefix = $main:local_data;
+	$prefix = $main::local_data;
 }
 
-# open the input file
-my $ifn = $ARGV[0] if $ARGV[0];
+my $ifn;
 
-$ifn = "$prefix/wpxloc.raw" if !$ifn;
-open (IN, $ifn) or die "can't open $ifn ($!)";
+$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 ($!)";
+}
 
 # first pass, find all the 'master' location records
 while (<IN>) {
@@ -104,10 +111,17 @@ close(IN);
 #print Data::Dumper->Dump([\%pre, \%locn], [qw(pre locn)]);
 
 # now open the cty.dat file if it is there
+my $r;
+$ifn = $system ? "$main::data/cty.dat" : "$prefix/cty.dat";
+unless ($r = open (IN, $ifn)) {
+	$ifn = "$main::data/cty.dat";
+	$r = open(IN, $ifn);
+}
+
 my @f;
 my @a;
 $line = 0;
-if (open(IN, "$prefix/cty.dat")) {
+if ($r) {
 	my $state = 0;
 	while (<IN>) {
 		$line++;