projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix all the DXUser API changes to use JSON
[spider.git]
/
perl
/
create_prefix.pl
diff --git
a/perl/create_prefix.pl
b/perl/create_prefix.pl
index 60d7d2a1f462861d60868da871dacf37b6bdaaec..f1a0b554856f132be04df0a5b653f621ff6a440e 100755
(executable)
--- a/
perl/create_prefix.pl
+++ b/
perl/create_prefix.pl
@@
-6,7
+6,7
@@
#
#
#
#
-
require 5.004
;
+
use 5.10.1
;
# search local then perl directories
BEGIN {
# search local then perl directories
BEGIN {
@@
-35,17
+35,21
@@
my %pre = (); # the prefix hash
my %pren = (); # the inverse
my $prefix;
my %pren = (); # the inverse
my $prefix;
+my $system;
-if (@ARGV && $ARGV[0] =~ /^-
-system
$/) {
+if (@ARGV && $ARGV[0] =~ /^-
?-?syst?e?m?
$/) {
$prefix = $main::data;
$prefix = $main::data;
+ ++$system;
shift;
shift;
+ say "create_prefix.pl: creating SYSTEM prefix files";
} else {
$prefix = $main::local_data;
} else {
$prefix = $main::local_data;
+ say "create_prefix.pl: creating LOCAL prefix files";
}
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
+114,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);