X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=inline;f=perl%2Fcreate_prefix.pl;fp=perl%2Fcreate_prefix.pl;h=2c94bdb11c69100c4a3a3acf5359282ff0ceee86;hb=6f566611af29f5c7af653abf8cec2760a0c25b6e;hp=0000000000000000000000000000000000000000;hpb=15c6f0c107d136f8366bca25e3dcb7d14f2ed24b;p=spider.git

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
new file mode 100755
index 00000000..2c94bdb1
--- /dev/null
+++ b/perl/create_prefix.pl
@@ -0,0 +1,21 @@
+#
+# a program to create a prefix file from a wpxloc.raw file
+#
+# Copyright (c) - Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+use DXVars;
+
+# open the input file
+$ifn = $ARGV[0] if $ARGV[0];
+$ifn = "$data/wpxloc.raw" if !$fn;
+open (IN, $ifn) or die "can't open $ifn ($!)";
+
+while (<IN>) {
+  next if /^\!/;    # ignore comment lines
+  chomp;
+  @f = split;       # get each 'word'
+  @pre = split /\,/, $f[0];    # split the callsigns
+}