projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
move ganerated stuff to local_data
[spider.git]
/
perl
/
create_prefix.pl
diff --git
a/perl/create_prefix.pl
b/perl/create_prefix.pl
index 43501eea55e03f5ea4d1596ce6e975d2a5eca38e..daf4a09e409171cb1433b068aa9aa9a8c1d218c6 100755
(executable)
--- a/
perl/create_prefix.pl
+++ b/
perl/create_prefix.pl
@@
-13,13
+13,18
@@
BEGIN {
# root of directory tree for this system
$root = "/spider";
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
# root of directory tree for this system
$root = "/spider";
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
-
+
+ mkdir "$root/local_data", 02777 unless -d "$root/local_data";
+
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
}
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
}
-use DXVars;
+use SysVar;
+
use Data::Dumper;
use Data::Dumper;
+use DXUtil;
+
use strict;
my %loc = (); # the location unique hash
use strict;
my %loc = (); # the location unique hash
@@
-28,9
+33,17
@@
my %locn = (); # the inverse of the above
my %pre = (); # the prefix hash
my %pren = (); # the inverse
my %pre = (); # the prefix hash
my %pren = (); # the inverse
+if (@ARGV && $ARVG[0] =~ /^--system$/) {
+ $prefix = $main::data;
+ shift;
+} else {
+ $prefix = $main:local_data;
+}
+
# open the input file
my $ifn = $ARGV[0] if $ARGV[0];
# open the input file
my $ifn = $ARGV[0] if $ARGV[0];
-$ifn = "$main::data/wpxloc.raw" if !$ifn;
+
+$ifn = "$prefix/wpxloc.raw" if !$ifn;
open (IN, $ifn) or die "can't open $ifn ($!)";
# first pass, find all the 'master' location records
open (IN, $ifn) or die "can't open $ifn ($!)";
# first pass, find all the 'master' location records
@@
-94,7
+107,7
@@
close(IN);
my @f;
my @a;
$line = 0;
my @f;
my @a;
$line = 0;
-if (open(IN, "$
main::data
/cty.dat")) {
+if (open(IN, "$
prefix
/cty.dat")) {
my $state = 0;
while (<IN>) {
$line++;
my $state = 0;
while (<IN>) {
$line++;
@@
-125,7
+138,7
@@
if (open(IN, "$main::data/cty.dat")) {
close IN;
close IN;
-open(OUT, ">$
main::data/prefix_data.pl") or die "Can't open $main::data
/prefix_data.pl ($!)";
+open(OUT, ">$
prefix/prefix_data.pl") or die "Can't open $prefix
/prefix_data.pl ($!)";
print OUT "\%pre = (\n";
foreach my $k (sort keys %pre) {
print OUT "\%pre = (\n";
foreach my $k (sort keys %pre) {