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

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

revision 56 by dpavlin, Wed Jun 25 12:09:27 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 33  getopts('d:m:qs', \%opts); Line 34  getopts('d:m:qs', \%opts);
34    
35  my $path;       # this is name of database  my $path;       # this is name of database
36    
37  Text::Iconv->raise_error(1);     # Conversion errors raise exceptions  Text::Iconv->raise_error(0);     # Conversion errors don't raise exceptions
38    
39  # this is encoding of all files on disk, including import_xml/*.xml file and  # this is encoding of all files on disk, including import_xml/*.xml file and
40  # filter/*.pm files! It will be used to store strings in perl internally!  # filter/*.pm files! It will be used to store strings in perl internally!
# 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;
252          sub progress {          sub progress {
253                  #return if (! $opts{q});        # FIXME                  #return if (! $opts{q});        # FIXME
254                  my $current = shift;                  my $current = shift;
255                  my $total = shift;                  my $total = shift || 1;
256                  my $p = int($current * 100 / $total);                  my $p = int($current * 100 / $total);
257                  if ($p != $last_p) {                  if ($p != $last_p) {
258                          printf STDERR ("%5d / %5d [%-51s] %-2d %% \r",$current,$total,"=" x ($p/2).">", $p );                          printf STDERR ("%5d / %5d [%-51s] %-2d %% \r",$current,$total,"=" x ($p/2).">", $p );
# 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.56  
changed lines
  Added in v.58

  ViewVC Help
Powered by ViewVC 1.1.26