source: trunk/gsdl3/bin/script/convert_coll_from_gs2.pl@ 13828

Last change on this file since 13828 was 13828, checked in by kjdon, 17 years ago

trying to tidy up gs2 links in display items
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 22.1 KB
Line 
1#!/usr/bin/perl -w
2
3BEGIN {
4 die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
5 die "GSDL3HOME not set\n" unless defined $ENV{'GSDL3HOME'};
6 die "GSDL3SRCHOME not set\n" unless defined $ENV{'GSDL3SRCHOME'};
7 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
8 unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
9 unshift (@INC, "$ENV{'GSDL3SRCHOME'}/lib/perl/cpan");
10}
11
12use colcfg;
13use util;
14use parsargv;
15use FileHandle;
16use XML::Writer;
17#can't get this to work on windows
18#use GDBM_File;
19
20use strict;
21
22&main();
23sub print_usage() {
24 print STDOUT "Usage: convert_coll_from_gs2.pl [options] coll-name\n";
25 print STDOUT "options:\n";
26
27 print STDOUT " -collectdir Directory where collection lives.\n";
28 print STDOUT " -verbosity Controls the amount of output.\n";
29 print STDOUT " -defaultlang The language that is considered the default (for display text etc). defaults to 'en'\n\n";
30}
31
32
33sub main {
34
35 my ($defaultlang, $verbosity, $collectdir);
36 # note that no defaults are passed for most options as they're set
37 # later (after we check the collect.cfg file)
38 if (!&parsargv::parse(\@ARGV,
39 'verbosity/\d+/', \$verbosity,
40 'collectdir/.*/', \$collectdir,
41 'defaultlang/.*/', \$defaultlang)) {
42 &print_usage();
43 die "\n";
44 }
45
46 # get and check the collection name
47 my ($collection) = @ARGV;
48 if (!defined($collection) || $collection eq "") {
49 die "No collection specified\n";
50 }
51 if ($collection eq "gs2model") {
52 die "You cant convert the model collection\n";
53 }
54
55 if (!defined $collectdir || $collectdir eq "") {
56 $collectdir = &util::filename_cat ($ENV{'GSDLHOME'}, "collect");
57 }
58
59 if (!defined $defaultlang || $defaultlang eq "") {
60 $defaultlang = 'en';
61 }
62 # add on the coll name
63 $collectdir = &util::filename_cat ($collectdir, $collection);
64
65 my $collconfigfilename = &util::filename_cat ($collectdir, "etc", "collect.cfg");
66 print STDOUT "coll config=$collconfigfilename\n";
67 my $collectcfg;
68 if (-e $collconfigfilename) {
69 $collectcfg = &colcfg::read_collect_cfg ($collconfigfilename);
70
71 } else {
72 print STDERR "collect.cfg not found!!";
73 die "\n";
74 }
75
76
77 my $buildconfigfilename = &util::filename_cat ($collectdir, "index", "build.cfg");
78 my $buildcfg;
79 if (-e $buildconfigfilename) {
80 $buildcfg = &colcfg::read_build_cfg ($buildconfigfilename);
81
82 } else {
83 print STDERR "build.cfg not found!!";
84 die "\n";
85 }
86
87
88
89 my $colloutfile = &util::filename_cat ($collectdir, "etc", "collectionConfig.xml");
90 if (-e $colloutfile) {
91 print STDOUT "collectionConfig file already exists! overwriting it!\n";
92
93 }
94
95 my $buildoutfile = &util::filename_cat ($collectdir, "index", "buildConfig.xml");
96 if (-e $buildoutfile) {
97 print STDOUT "buildConfig file already exists! overwriting it!\n";
98
99 }
100
101# my $db_file = &util::filename_cat ($collectdir, "index", "text", "$collection.ldb");
102 my $database;
103# if (-e $db_file) {
104# $database = &open_database($db_file);
105# } else {
106# print STDERR "gdbm database file $db_file not found!!";
107# die "\n";
108# }
109
110 my $buildtype;
111 if (defined $buildcfg->{'buildtype'}) {
112 $buildtype = $buildcfg->{'buildtype'};
113 } else {
114 $buildtype = 'mg';
115 }
116
117 my $indexstem = undef;
118 if (defined $buildcfg->{'indexstem'}) {
119 $indexstem = $buildcfg->{'indexstem'};
120 }
121
122 my $buildoutput = new IO::File(">$buildoutfile");
123 my $buildwriter = new XML::Writer(OUTPUT => $buildoutput, NEWLINES => 1);
124
125 $buildwriter->startTag('buildConfig', 'xmlns:gsf'=>"http://www.greenstone.org/greenstone3/schema/ConfigFormat");
126
127 my $colloutput = new IO::File(">$colloutfile");
128 my $collwriter = new XML::Writer(OUTPUT => $colloutput, NEWLINES => 1);
129
130 $collwriter->startTag('collectionConfig', 'xmlns:gsf'=>"http://www.greenstone.org/greenstone3/schema/ConfigFormat", 'xmlns:xsl'=>'http://www.w3.org/1999/XSL/Transform');
131
132 #output the collection metadata to the collectionConfig file
133 $collwriter->startTag('metadataList');
134
135 my $creator = $collectcfg->{'creator'};
136 &output_metadata($collwriter, 'creator', $creator);
137 $collwriter->endTag('metadataList');
138
139 #output the display collectionmeta to collectionConfig.xml
140
141 my $collectionmeta = $collectcfg->{'collectionmeta'};
142 if (defined $collectionmeta) {
143 my %name_map = ('collectionname', 'name',
144 'collectionextra', 'description',
145 'iconcollection', 'icon',
146 'iconcollectionsmall', 'smallicon');
147
148 $collwriter->startTag('displayItemList');
149 foreach my $entry ( keys %$collectionmeta) {
150 if (defined $name_map{$entry}) {
151 my $name= $name_map{$entry};
152 foreach my $lang (keys %{$collectionmeta->{$entry}}) {
153 my $value = $collectionmeta->{$entry}->{$lang};
154 if ($entry =~ /^icon/) {
155 $value = format_icon_value($value);
156 } else {
157 $value = tidy_up_display_item($value);
158 }
159 &output_display($collwriter, $name, $lang, $value);
160 }
161 }
162 }
163 $collwriter->endTag('displayItemList');
164 }
165
166 # output building metadata to build config file
167 my $numdocs = $buildcfg->{'numdocs'};
168 $buildwriter->startTag('metadataList');
169 &output_metadata($buildwriter, 'numDocs', $numdocs);
170 &output_metadata($buildwriter, 'buildType', $buildtype);
171 $buildwriter->endTag('metadataList');
172
173
174 #indexes
175 my $indexmap = {};
176 my $firstindex = "";
177 my $first = 1;
178 if (defined $buildcfg->{'indexmap'}) {
179 my $indexmap_t = $buildcfg->{'indexmap'};
180 foreach my $i (@$indexmap_t) {
181 my ($k, $v) = $i =~ /^(.*)\-\>(.*)$/;
182 $indexmap->{$k} = $v;
183 if ($first) {
184 $firstindex = $v;
185 $first = 0;
186 }
187 }
188 } else {
189 print STDERR "indexmap not defined";
190 }
191 my $defaultindex;
192 if ($buildtype eq "mg") {
193 if (defined $collectcfg->{'defaultindex'}) {
194 $defaultindex = $collectcfg->{'defaultindex'};
195 $defaultindex = $indexmap->{$defaultindex};
196 } else {
197 # use the first one
198 $defaultindex = $firstindex;
199 }
200 }
201 elsif ($buildtype eq "mgpp") {
202 $defaultindex = "idx";
203 }
204 elsif ($buildtype eq "lucene") {
205 # lucene not implemented yet
206 $defaultindex = "idx";
207 }
208
209 # format stuff
210 my $format = $collectcfg->{'format'};
211
212 #output the search stuff to coll cfg
213 $collwriter->startTag('search');
214 foreach my $i (keys %$indexmap) {
215 my $shortname = $indexmap->{$i};
216 $collwriter->startTag('index', 'name'=>$shortname);
217 #find the coll meta stuff
218 my $indexdisplay = ".$i";
219 foreach my $lang (keys %{$collectionmeta->{$indexdisplay}}) {
220 my $value = $collectionmeta->{$indexdisplay}->{$lang};
221 output_display($collwriter, 'name', $lang, $value);
222 }
223 $collwriter->endTag('index');
224
225 }
226
227 # add in the format stuff
228 if (defined $format->{'SearchVList'}) {
229
230 $collwriter->startTag('format');
231 write_format($collwriter, $format->{'SearchVList'}, "document");
232 $collwriter->endTag('format');
233 }
234 elsif (defined $format->{'VList'}) {
235 $collwriter->startTag('format');
236 write_format($collwriter, $format->{'VList'}, "document");
237 $collwriter->endTag('format');
238 }
239
240 $collwriter->endTag('search');
241
242 $buildwriter->startTag('serviceRackList');
243
244 my @levels = ();
245 my $defaultlevel;
246 my $service_name = "";
247 #do the retrieve service
248 # assume mgpp or mg
249 if ($buildtype eq 'mgpp' || $buildtype eq 'lucene') {
250 #for each level
251 if (defined $buildcfg->{'indexlevels'}) {
252 push @levels, @{$buildcfg->{'indexlevels'}};
253
254 if (defined $buildcfg->{'textlevel'}) {
255 $defaultlevel = $buildcfg->{'textlevel'};
256 } else {
257 $defaultlevel = $levels[0];
258 }
259 } else { #use levels from collect.cfg - must be an old collection
260 @levels = ('Document');
261 $defaultlevel = 'Document';
262 if (defined $collectcfg->{'levels'}) {
263 foreach my $l (@{$collectcfg->{'levels'}}) {
264 if ($l eq "Section") {
265 $defaultlevel = 'Section';
266 }
267 push @levels, $l;
268 }
269 }
270 }
271 if ($buildtype eq 'mgpp') {
272 $service_name = "MGPP";
273 } else {
274 $service_name = "Lucene";
275 }
276 $buildwriter->startTag('serviceRack', 'name'=>"GS2".$service_name."Retrieve");
277 $buildwriter->emptyTag('defaultLevel', 'name'=>$defaultlevel);
278
279
280 } elsif ($buildtype eq "mg") {
281 $buildwriter->startTag('serviceRack', 'name'=>'GS2MGRetrieve');
282 $buildwriter->emptyTag('defaultIndex', 'name'=>$defaultindex);
283
284 }
285 if (defined $indexstem) {
286 $buildwriter->emptyTag('indexStem', 'name'=>$indexstem);
287 }
288 # close off the Retrieve service
289 $buildwriter->endTag('serviceRack');
290
291 # add in the classifiers if needed
292
293 my $count = 1;
294 my $phind = 0;
295 my $started_classifiers = 0;
296 if (defined $collectcfg->{'classify'}) {
297 $collwriter->startTag('browse');
298 # add in default format if necessary
299 if (defined $format->{"VList"} || defined $format->{"HList"}) {
300 # global formats
301 $collwriter->startTag('format');
302 if (defined $format->{"VList"}) {
303 # VLIst applies to both classifier and doc nodes
304 write_format($collwriter, $format->{"VList"}, "document");
305 write_format($collwriter, $format->{"VList"}, "classifier");
306 }
307 if (defined $format->{"HList"}) {
308 # hlist is only for classifier nodes
309 write_format($collwriter, $format->{"HList"}, "horizontal");
310 }
311 $collwriter->endTag('format');
312 }
313 my $classifiers = $collectcfg->{'classify'};
314 foreach my $cl (@$classifiers) {
315 my $name = "CL$count";
316 $count++;
317 my ($classname) = @$cl[0];
318 if ($classname =~ /^phind$/i) {
319 $phind=1;
320 #should add it into coll config classifiers
321 next;
322 }
323
324 my $horizontalAtTop = &isHorizontalClassifier($database, $name);
325 if (not $started_classifiers) {
326 $buildwriter->startTag('serviceRack', 'name'=>'GS2Browse');
327 if (defined $indexstem) {
328 $buildwriter->emptyTag('indexStem', 'name'=>$indexstem);
329 }
330
331 $buildwriter->startTag('classifierList');
332 $started_classifiers = 1;
333 }
334 my $content = ''; #use buttonname first, then metadata
335 if ($classname eq "DateList") {
336 $content = "Date";
337 } else {
338 for (my $i=0; $i<scalar(@$cl); $i++) {
339 my $arg = @$cl[$i];
340 if ($arg eq "-buttonname"){
341 $content = @$cl[$i+1];
342 last;
343 } elsif ($arg eq "-metadata") {
344 $content = @$cl[$i+1];
345 }
346
347 }
348 }
349 if ($horizontalAtTop) {
350 $buildwriter->emptyTag('classifier', 'name'=>$name, 'content'=>$content, 'horizontalAtTop'=>'true');
351 } else {
352 $buildwriter->emptyTag('classifier', 'name'=>$name, 'content'=>$content);
353 }
354
355
356 $collwriter->startTag('classifier', 'name'=>$name);
357 my $vlist = $name."VList";
358 my $hlist = $name."HList";
359 my $dlist = "";
360 if ($classname eq "DateList") {
361 $dlist = "DateList";
362 }
363 # need to work out how to split into classifier and document
364 if (defined $format->{$vlist} || defined $format->{$hlist} || defined $format->{$dlist}) {
365 $collwriter->startTag('format');
366 if (defined $format->{$vlist}) {
367 write_format($collwriter, $format->{$vlist}, "document");
368 write_format($collwriter, $format->{$vlist}, "classifier");
369 }
370 if (defined $format->{$hlist}) {
371 write_format($collwriter, $format->{$hlist}, "horizontal");
372 }
373
374 if (defined $format->{$dlist}) {
375 write_format($collwriter, $format->{$dlist}, "document");
376 }
377 $collwriter->endTag('format');
378 }
379 $collwriter->endTag('classifier');
380 } #foreach classifier
381 if ($started_classifiers) {
382 # end the classifiers
383 $buildwriter->endTag('classifierList');
384 # close off the Browse service
385 $buildwriter->endTag('serviceRack');
386 }
387
388 $collwriter->endTag('browse');
389 }
390
391
392 # the phind classifier is a separate service
393 if ($phind) {
394 # if phind classifier
395 $buildwriter->emptyTag('serviceRack', 'name'=>'PhindPhraseBrowse');
396 }
397
398 # do the search service
399 if ($buildtype eq 'mgpp' || $buildtype eq 'lucene') {
400
401 $buildwriter->startTag('serviceRack', 'name'=>'GS2'.$service_name.'Search');
402 $buildwriter->emptyTag('defaultLevel', 'name'=>$defaultlevel);
403 $buildwriter->startTag('levelList');
404 foreach my $level (@levels) {
405 $buildwriter->emptyTag('level', 'name'=>$level);
406 }
407 $buildwriter->endTag('levelList');
408
409 #fieldlist
410 my $fieldmap = {};
411 my $fieldlist = ();
412 if (defined $buildcfg->{'indexfields'}) {
413 push @$fieldlist, @{$buildcfg->{'indexfields'}};
414 if (defined $buildcfg->{'indexfieldmap'}) {
415 my $fieldmap_t = $buildcfg->{'indexfieldmap'};
416 foreach my $f (@$fieldmap_t) {
417 my ($k, $v) = $f =~ /^(.*)\-\>(.*)$/;
418 $fieldmap->{$k} = $v;
419 }
420 }
421 $buildwriter->startTag('fieldList');
422 foreach my $f (@$fieldlist) {
423 my $field = $fieldmap->{$f};
424 $buildwriter->emptyTag('field', 'shortname'=>$field, 'name'=>$f);
425 }
426 $buildwriter->endTag('fieldList');
427 } else {
428 print STDERR "indexfieldmap not defined";
429 }
430
431 # do the search types if there
432 if (defined $collectcfg->{'searchtype'}) {
433 $buildwriter->startTag('searchTypeList');
434 foreach my $st (@{$collectcfg->{'searchtype'}}) {
435 $buildwriter->emptyTag('searchType', 'name'=>$st);
436 }
437 $buildwriter->endTag('searchTypeList');
438 } elsif (defined $format->{'SearchTypes'}) {
439 #check format statement
440 my $searchtype = $format->{'SearchTypes'};
441 $buildwriter->startTag('searchTypeList');
442 if ($searchtype =~ /form/) {
443 $buildwriter->emptyTag('searchType', 'name'=>'form');
444 }
445 if ($searchtype =~ /plain/) {
446 $buildwriter->emptyTag('searchType', 'name'=>'plain');
447 }
448 $buildwriter->endTag('searchTypeList');
449 }
450 } elsif ($buildtype eq 'mg') {
451 $buildwriter->startTag('serviceRack', 'name'=>'GS2MGSearch');
452 }
453
454 if (defined $indexstem) {
455 $buildwriter->emptyTag('indexStem', 'name'=>$indexstem);
456 }
457
458 # index options
459 if ($buildtype eq 'mg' || $buildtype eq 'mgpp') {
460 $buildwriter->startTag('indexOptionList');
461 my $stemindexes = 3; # default is stem and casefold
462 if (defined $buildcfg->{'stemindexes'} && $buildcfg->{'stemindexes'} =~ /^\d+$/ ) {
463 $stemindexes = $buildcfg->{'stemindexes'};
464 }
465 $buildwriter->emptyTag('indexOption', 'name'=>'stemIndexes', 'value'=>$stemindexes);
466
467 my $maxnumeric = 4; # default
468 if (defined $buildcfg->{'maxnumeric'} && $buildcfg->{'maxnumeric'} =~ /^\d+$/) {
469 $maxnumeric = $buildcfg->{'maxnumeric'};
470 }
471 $buildwriter->emptyTag('indexOption', 'name'=>'maxnumeric', 'value'=>$maxnumeric);
472
473 $buildwriter->endTag('indexOptionList');
474 }
475 $buildwriter->emptyTag('defaultIndex', 'name'=>$defaultindex);
476 $buildwriter->startTag('indexList');
477 #for each index
478 foreach my $i (keys %$indexmap) {
479 my $index = $indexmap->{$i};
480 $buildwriter->emptyTag('index', 'name'=>$index);
481 }
482 $buildwriter->endTag('indexList');
483
484 $buildwriter->endTag('serviceRack');
485
486 $buildwriter->endTag('serviceRackList');
487 $buildwriter->endTag('buildConfig');
488
489 # we add in the default replace list just in case we have macros in the
490 # collection
491 $collwriter->emptyTag('replaceListRef', 'id'=>'gs2-standard');
492 $collwriter->endTag('collectionConfig');
493 $collwriter->end();
494 $buildwriter->end();
495 $buildoutput->close();
496 $colloutput->close();
497 &close_database($database);
498}
499
500
501sub output_metadata {
502 my ($writer, $metaname, $metavalue) = @_;
503 $writer->startTag('metadata', 'name'=>$metaname);
504 $writer->characters($metavalue);
505 $writer->endTag('metadata');
506}
507
508sub output_display {
509 my ($writer, $name, $lang, $value) = @_;
510 $lang = 'en' if $lang eq 'default';
511 if ($lang =~ /^\[/) {
512 ($lang) = $lang =~ /\[l=(.*)\]/;
513 }
514 $writer->startTag('displayItem', 'name'=>$name, 'lang'=>$lang);
515 $writer->characters($value);
516 $writer->endTag('displayItem');
517}
518sub format_icon_value {
519 my ($value) = @_;
520 if ($value =~ /^_/) {
521 my ($newvalue) = $value =~ /images\/(.*)$/;
522 if ($newvalue) {
523 return $newvalue;
524 }
525 }
526 return $value;
527}
528
529sub tidy_up_display_item {
530 my ($value) = @_;
531 # remove \n
532 $value =~ s/\\n//g;
533 # replace \' with '
534 $value =~ s/\\\'/\'/g;
535 # replace \" with "
536 $value =~ s/\\\"/\"/g;
537 # replace _httpprefix_ with _httpsite_
538 $value =~ s/_httpprefix_/_httpsite_/;
539 $value =~ s/_gwcgi_//;
540 $value =~ s/[a-z][a-z]?=_cgiarg[a-z][a-z]?_&?//;
541 return $value;
542}
543
544sub write_format {
545 my ($writer, $old_format, $node_type) = @_;
546 # replace \' with '
547 $old_format =~ s/\\\'/\'/g;
548 # replace \" with "
549 $old_format =~ s/\\\"/\"/g;
550 #convert [] to <gsf:...>
551 # assume no nesting {If} or {Or} for now
552 $old_format =~ s/\{If\}\{([^\}]*)\}/&format_if($1, $node_type)/eg;
553 $old_format =~ s/\{Or\}\{([^\}]*)\}/&format_or($1)/eg;
554 $old_format =~ s/\[Text\]/\<gsf:text\/\>/g;
555 $old_format =~ s/\[num\]/\<gsf:num\/\>/g;
556 $old_format =~ s/\[link\]/\<gsf:link type=\'$node_type\'\>/g;
557 $old_format =~ s/\[\/link\]/\<\/gsf:link\>/g;
558 $old_format =~ s/\[srclink\]/\<gsf:link type=\'source\'\>/g;
559 $old_format =~ s/\[\/srclink\]/\<\/gsf:link\>/g;
560 $old_format =~ s/\[icon\]/\<gsf:icon type=\'$node_type\'\/\>/g;
561 $old_format =~ s/\[srcicon\]/\<gsf:icon type=\'source\'\/\>/g;
562
563 # what to do with hightlight??
564 $old_format =~ s/\[\/?highlight\]//g;
565
566 #now do the rest of the [] which are assumed to be metadata
567 $old_format =~ s/\[([^\]]*)\]/&format_metadata($1)/eg;
568
569 # some html tidy
570 #turn <br> into <br />
571 $old_format =~ s/\<br\>/\<br \/\>/g;
572 #turn <p> into <p />
573 $old_format =~ s/\<p\>/\<p \/\>/g;
574
575 #put quotes around any atts
576 $old_format =~ s/=([a-z]+)([> ])/=\'$1\'$2/g;
577
578 if ($node_type eq "document") {
579 $writer->startTag('gsf:template', 'match'=>'documentNode');
580 $writer->charactersXML($old_format);
581 $writer->endTag('gsf:template');
582 } elsif ($node_type eq "classifier") {
583 $writer->startTag('gsf:template', 'match'=>'classifierNode');
584 $writer->charactersXML($old_format);
585 $writer->endTag('gsf:template');
586 } elsif ($node_type eq "horizontal") {
587 $writer->startTag('gsf:template', 'match'=>'classifierNode', 'mode'=>'horizontal');
588 $writer->charactersXML($old_format);
589 $writer->endTag('gsf:template');
590
591 }
592}
593
594sub format_metadata {
595 my ($metadata_string) = @_;
596
597 #print STDERR "original meta = $metadata_string\n";
598
599 # what shall we do with cgisafe??
600 my $cgisafe = $metadata_string =~ s/^cgisafe://;
601
602 my ($select) = $metadata_string =~ /^(parent|sibling)/;
603 $metadata_string =~ s/^(parent|sibling)//;
604 my ($scope, $delim);
605
606 if ($select) {
607 ($scope) = $metadata_string =~ /^\((Top|All)/;
608 $metadata_string =~ s/^\((Top|All)\)?//;
609 if ($scope) {
610 ($delim) = $metadata_string =~ /^\'([^\']*)\'\)/;
611 $metadata_string =~ s/^\'([^\']*)\'\)//;
612 }
613 }
614 $metadata_string =~ s/^://;
615 # remove ex.
616 $metadata_string =~ s/^ex\.//;
617
618 #print STDERR "select=$select, scope=$scope, delim=|$delim|, meta = $metadata_string\n";
619
620 my $new_format = "<gsf:metadata name='$metadata_string' ";
621 if (defined $select) {
622 if ($select eq "sibling") {
623 $new_format .= "multiple='true' ";
624 if (defined $delim) {
625 $new_format .= "separator='$delim' ";
626 }
627 } elsif ($select eq "parent"){
628 if (defined $scope) {
629 if ($scope eq "Top") {
630 $new_format .= "select='root' ";
631 } elsif ($scope eq "All") {
632 $new_format .= "select='ancestors' ";
633 if (defined $delim) {
634 $new_format .= "separator='$delim' ";
635 }
636 }
637 } else {
638 $new_format .= "select='parent' ";
639 }
640 }
641 }
642 $new_format .= "/>";
643 #print STDERR "$new_format\n";
644 return $new_format;
645
646}
647
648sub format_if {
649
650 my ($if_string, $node_type) = @_;
651 #print STDERR "if string = $if_string\n";
652
653 my @parts = split /,/, $if_string;
654 my $test = $parts[0];
655 my $true_option = $parts[1];
656 my $false_option;
657 if (scalar (@parts) == 3) {
658 $false_option = $parts[2];
659 }
660 $test =~ s/^\s*//;
661 $test =~ s/\s*$//;
662 my ($test_meta, $test_type, $test_value);
663 if ($test =~ /^(\[.+\])$/) {
664 $test_meta = $1;
665 $test_type = 'exists';
666 } else {
667 my ($lhs, $exp, $rhs) = $test =~ /^(.+)\s+(eq|ne|lt|gt|le|ge|sw|ew)\s+(.+)$/;
668 #print STDERR "lhs, exp, rhs = $lhs, $exp, $rhs\n";
669 if ($exp eq "eq") {
670 $test_type = "equals";
671 } elsif ($exp eq "sw") {
672 $test_type = "startsWith";
673 } elsif ($exp eq "ew") {
674 $test_type = "endsWith";
675 } elsif ($exp eq "ne") {
676 $test_type = "notEquals";
677 } elsif ($exp eq "lt") {
678 $test_type = "lessThan";
679 }elsif ($exp eq "gt") {
680 $test_type = "greaterThan";
681 }elsif ($exp eq "le") {
682 $test_type = "lessThanOrEquals";
683 }elsif ($exp eq "ge") {
684 $test_type = "greaterThanOrEquals";
685 }
686 if ($lhs =~ /^\[.+\]$/) {
687 $test_meta = $lhs;
688 $test_value = $rhs;
689 } else {
690 # assume rhs has meta
691 $test_meta = $rhs;
692 $test_value = $lhs;
693 }
694
695 #remove beginning and end quotes
696 $test_value =~ s/^[\'\"]//;
697 $test_value =~ s/[\'\"]$//;
698 }
699 my $test_atts = "test='$test_type' ";
700 if (defined $test_value) {
701 $test_atts .= "test-value='$test_value' ";
702 }
703 #print STDERR "test, true, false = $test, $true_option, $false_option\n";
704 my $new_format = "<gsf:switch>$test_meta";
705 $new_format .= "<gsf:when $test_atts>$true_option</gsf:when>";
706 if (defined $false_option) {
707 $new_format .="<gsf:otherwise>$false_option</gsf:otherwise>";
708 }
709 $new_format .= "</gsf:switch>";
710
711 #print STDERR "new format = $new_format\n";
712 return $new_format;
713}
714
715sub format_or {
716 my ($or_string) = @_;
717 my @meta_list = split (',', $or_string);
718 return "" unless scalar (@meta_list);
719 my $new_format = "<gsf:choose-metadata>";
720 foreach my $m (@meta_list) {
721 if ($m =~ /^\[(.*)\]$/) {
722 $new_format .= &format_metadata($1);
723 } else {
724 # a default value
725 $new_format .= "<gsf:default>$m</gsf:default>";
726 last;
727 }
728 }
729 $new_format .= "</gsf:choose-metadata>";
730 return $new_format;
731}
732
733sub open_database {
734 my ($db_file) = @_;
735
736 my $database = ();
737# tie (%$database, 'GDBM_File', $db_file, GDBM_READER, 0400) ||
738# die "Couldn't open database $db_file\n";
739
740 return $database;
741}
742
743sub close_database {
744 my ($database) = @_;
745 untie %$database;
746}
747sub isHorizontalClassifier {
748 my ($database, $name) = @_;
749
750 return 0; # can't get this to work for windows
751 my $record = $database->{$name};
752 my ($childtype) = $record =~ /<childtype>(\w*)/;
753 if ($childtype eq "HList") {
754 return 1;
755 }
756 return 0;
757}
758#$writer->startTag('');
759#$writer->endTag('');
760#$writer->characters();
761#$writer->emptyTag('');
762
7631;
Note: See TracBrowser for help on using the repository browser.