From: Mike Taylor Date: Mon, 19 Jun 2006 16:45:18 +0000 (+0000) Subject: Comment on what remains to be done X-Git-Tag: CPAN-v1.02~54^2~1175 X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=0c7f526350e81439f54e5c2164855bde68a1013a;p=irspy-moved-to-github.git Comment on what remains to be done --- diff --git a/zebra/ezeerex2pqfproperties.pl b/zebra/ezeerex2pqfproperties.pl index a10c3f9..1155b4c 100755 --- a/zebra/ezeerex2pqfproperties.pl +++ b/zebra/ezeerex2pqfproperties.pl @@ -1,6 +1,6 @@ #! /usr/bin/perl -w -# $Id: ezeerex2pqfproperties.pl,v 1.4 2006-06-19 16:41:03 mike Exp $ +# $Id: ezeerex2pqfproperties.pl,v 1.5 2006-06-19 16:45:18 mike Exp $ # # Run like this: # ./ezeerex2pqfproperties.pl zeerex.xml @@ -69,6 +69,9 @@ sub print_indexes { foreach my $map ($xc->findnodes("z:map", $node)) { my $setname = $xc->findvalue('z:name/@set', $map); my $indexname = $xc->findvalue('z:name', $map); + ### We need a way for the ZeeRex record to specify other + # attributes to be specified along with the access-point, + # e.g. @attr 4=3 for whole-field indexes. print "index.$setname.$indexname = $ptype=$pval\n" if $indexname ne ""; }