/[webpac]/branches/ffzg/all2xml.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/ffzg/all2xml.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 58 by dpavlin, Fri Jul 4 16:56:40 2003 UTC revision 59 by dpavlin, Fri Jul 4 17:57:11 2003 UTC
# Line 66  sub data2xml { Line 66  sub data2xml {
66          my $type = shift @_;          my $type = shift @_;
67          my $row = shift @_;          my $row = shift @_;
68          my $add_xml = shift @_;          my $add_xml = shift @_;
69            # needed to read values from configuration file
70            my $cfg = shift @_;
71            my $database = shift @_;
72    
73          my $xml;          my $xml;
74    
# Line 170  sub data2xml { Line 173  sub data2xml {
173                          }                          }
174                  }                  }
175    
176                    # now try to parse variables from configuration file
177                    foreach my $x (@{$config->{indexer}->{$field}->{'config'}}) {
178    
179                            my $val = $cfg->val($database, x($x->{content}));
180    
181                            my ($s,$d,$i) = (1,1,0);        # swish, display default
182                            $s = 0 if (lc($x->{type}) eq "display");
183                            $d = 0 if (lc($x->{type}) eq "swish");
184                            ($s,$d,$i) = (0,0,1) if (lc($x->{type}) eq "index");
185    
186                            if ($val) {
187                                    $display_data .= $val if ($d);
188                                    $swish_data .= $val if ($s);
189                                    $index->insert($field, $val, $path) if ($i);
190                            }
191    
192                    }
193    
194    
195                  if ($display_data) {                  if ($display_data) {
196    
# Line 245  print STDERR "reading ./import_xml/$type Line 266  print STDERR "reading ./import_xml/$type
266          my $type_base = $type;          my $type_base = $type;
267          $type_base =~ s/_.+$//g;          $type_base =~ s/_.+$//g;
268    
269          $config=XMLin("./import_xml/$type.xml", forcearray => [ $type2tag{$type_base} ], forcecontent => 1);          $config=XMLin("./import_xml/$type.xml", forcearray => [ $type2tag{$type_base}, 'config' ], forcecontent => 1);
270    
271          # output current progress indicator          # output current progress indicator
272          my $last_p = 0;          my $last_p = 0;
# Line 284  print STDERR "using: $type...\n"; Line 305  print STDERR "using: $type...\n";
305    
306                                  my $swishpath = $path."#".int($row->{mfn});                                  my $swishpath = $path."#".int($row->{mfn});
307    
308                                  if (my $xml = data2xml($type_base,$row,$add_xml)) {                                  if (my $xml = data2xml($type_base,$row,$add_xml,$cfg,$database)) {
309                                          $xml = $cp2utf->convert($xml);                                          $xml = $cp2utf->convert($xml);
310                                          use bytes;      # as opposed to chars                                          use bytes;      # as opposed to chars
311                                          print "Path-Name: $swishpath\n";                                          print "Path-Name: $swishpath\n";
# Line 341  print STDERR "using: $type...\n"; Line 362  print STDERR "using: $type...\n";
362    
363                          next if (! $row);                          next if (! $row);
364    
365                          if (my $xml = data2xml($type,$row,$add_xml)) {                          if (my $xml = data2xml($type_base,$row,$add_xml,$cfg,$database)) {
366                                  $xml = $cp2utf->convert($xml);                                  $xml = $cp2utf->convert($xml);
367                                  use bytes;      # as opposed to chars                                  use bytes;      # as opposed to chars
368                                  print "Path-Name: $swishpath\n";                                  print "Path-Name: $swishpath\n";

Legend:
Removed from v.58  
changed lines
  Added in v.59

  ViewVC Help
Powered by ViewVC 1.1.26