/[webpac]/branches/drustvene/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/drustvene/all2xml.pl

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

revision 57 by dpavlin, Fri Jul 4 15:05:23 2003 UTC revision 58 by dpavlin, Fri Jul 4 16:56:40 2003 UTC
# Line 18  die "FATAL: can't find configuration fil Line 18  die "FATAL: can't find configuration fil
18    
19  my $config;  my $config;
20    
21  use index_DBI;  # there is no other, right now ;-)  #use index_DBI;         # default DBI module for index
22    use index_DBI_cache;    # faster DBI module using memory cache
23  my $index;  my $index;
24    
25  my %opts;  my %opts;
# Line 240  foreach my $database ($cfg->Sections) { Line 241  foreach my $database ($cfg->Sections) {
241    
242  print STDERR "reading ./import_xml/$type.xml\n";  print STDERR "reading ./import_xml/$type.xml\n";
243    
244          $config=XMLin("./import_xml/$type.xml", forcearray => [ $type2tag{$type} ], forcecontent => 1);          # extract just type basic
245            my $type_base = $type;
246            $type_base =~ s/_.+$//g;
247    
248            $config=XMLin("./import_xml/$type.xml", forcearray => [ $type2tag{$type_base} ], forcecontent => 1);
249    
250          # output current progress indicator          # output current progress indicator
251          my $last_p = 0;          my $last_p = 0;
# Line 258  print STDERR "reading ./import_xml/$type Line 263  print STDERR "reading ./import_xml/$type
263          # now read database          # now read database
264  print STDERR "using: $type...\n";  print STDERR "using: $type...\n";
265    
266          if ($type eq "isis") {          if ($type_base eq "isis") {
267    
268                  my $isis_db = $cfg -> val($database, 'isis_db') || die "$database doesn't have 'isis_db' defined!";                  my $isis_db = $cfg -> val($database, 'isis_db') || die "$database doesn't have 'isis_db' defined!";
269    
270                  $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage);                  $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage);
# Line 278  print STDERR "using: $type...\n"; Line 284  print STDERR "using: $type...\n";
284    
285                                  my $swishpath = $path."#".int($row->{mfn});                                  my $swishpath = $path."#".int($row->{mfn});
286    
287                                  if (my $xml = data2xml($type,$row,$add_xml)) {                                  if (my $xml = data2xml($type_base,$row,$add_xml)) {
288                                          $xml = $cp2utf->convert($xml);                                          $xml = $cp2utf->convert($xml);
289                                          use bytes;      # as opposed to chars                                          use bytes;      # as opposed to chars
290                                          print "Path-Name: $swishpath\n";                                          print "Path-Name: $swishpath\n";
# Line 289  print STDERR "using: $type...\n"; Line 295  print STDERR "using: $type...\n";
295                  }                  }
296                  print STDERR "\n";                  print STDERR "\n";
297    
298          } elsif ($type eq "excel") {          } elsif ($type_base eq "excel") {
299                  use Spreadsheet::ParseExcel;                  use Spreadsheet::ParseExcel;
300                  use Spreadsheet::ParseExcel::Utility qw(int2col);                  use Spreadsheet::ParseExcel::Utility qw(int2col);
301                                    

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

  ViewVC Help
Powered by ViewVC 1.1.26