From daca89243af359a79f23b69690d2b39aa6db9b67 Mon Sep 17 00:00:00 2001
From: "Anders S. Mortensen" <sondberg@indexdata.dk>
Date: Mon, 17 Dec 2007 11:48:14 +0000
Subject: [PATCH] Added.

---
 util/abs2dom |   31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 util/abs2dom

diff --git a/util/abs2dom b/util/abs2dom
new file mode 100755
index 0000000..fb20cdc
--- /dev/null
+++ b/util/abs2dom
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+
+# $Id: abs2dom,v 1.1 2007-12-17 11:48:14 sondberg Exp $
+# ----------------------------------------------------------------------------
+# Generate a dom-filter indexing stylesheet based upon an .abs file
+
+use strict;
+
+my $xslt_header = <<END_OF_XSLT;
+<?xml version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                    xmlns:z="http://indexdata.com/zebra-2.0"
+                    version="1.0">
+
+  <xsl:output indent="yes"
+        method="xml"
+        version="1.0"
+        encoding="UTF-8"/>
+END_OF_XSLT
+
+
+while (<>) {
+    chomp;
+    s/^\s+//;
+    s/\s+$//;
+    next unless s/^xelm\s+//;
+    my ($indexes) = (/(\S+)$/);
+    s/\s+\Q$indexes\E$//;
+    my $xpath = $_;
+
+    print "XPATH='$xpath', INDEX='$indexes'\n"; 
+}
-- 
1.7.10.4