/[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 766 by dpavlin, Thu Aug 23 22:32:15 2007 UTC revision 776 by dpavlin, Sun Aug 3 06:33:56 2008 UTC
# Line 8  use XML::Simple; Line 8  use XML::Simple;
8  use Text::Iconv;  use Text::Iconv;
9  use Config::IniFiles;  use Config::IniFiles;
10  use Encode;  use Encode;
11  #use GDBM_File;  use GDBM_File;
12  use Fcntl;      # for O_RDWR  use Fcntl;      # for O_RDWR
13  use TDB_File;  #use TDB_File;
14  use Carp;  use Carp;
15    
16  $|=1;  $|=1;
# Line 673  foreach my $database ($cfg->Sections) { Line 673  foreach my $database ($cfg->Sections) {
673          # create new lookup file          # create new lookup file
674          my $lookup_file = $cfg -> val($database, 'lookup_newfile'); # optional          my $lookup_file = $cfg -> val($database, 'lookup_newfile'); # optional
675          if ($lookup_file) {          if ($lookup_file) {
                 #tie %lhash, 'GDBM_File', $lookup_file, &GDBM_NEWDB, 0644;  
676                  if (! -e $lookup_file) {                  if (! -e $lookup_file) {
677                          open(LOOKUP, "> $lookup_file") || die "can't create $lookup_file': $!";                          open(LOOKUP, "> $lookup_file") || die "can't create $lookup_file': $!";
678                          close(LOOKUP);                          close(LOOKUP);
679                  }                  }
680                  tie %lhash, 'TDB_File', $lookup_file, TDB_CLEAR_IF_FIRST, O_RDWR, 0644;                  tie %lhash, 'GDBM_File', $lookup_file, &GDBM_NEWDB, 0644;
681                    #tie %lhash, 'TDB_File', $lookup_file, TDB_CLEAR_IF_FIRST, O_RDWR, 0644;
682                  print STDERR "creating lookup file '$lookup_file'\n";                  print STDERR "creating lookup file '$lookup_file'\n";
683                  # delete memory cache for lookup file                  # delete memory cache for lookup file
684                  delete $cache->{lhash};                  delete $cache->{lhash};
# Line 687  foreach my $database ($cfg->Sections) { Line 687  foreach my $database ($cfg->Sections) {
687          # open existing lookup file          # open existing lookup file
688          $lookup_file = $cfg -> val($database, 'lookup_open'); # optional          $lookup_file = $cfg -> val($database, 'lookup_open'); # optional
689          if ($lookup_file) {          if ($lookup_file) {
690                  #tie %lhash, 'GDBM_File', $lookup_file, &GDBM_READER, 0644;                  tie %lhash, 'GDBM_File', $lookup_file, &GDBM_READER, 0644;
691                  tie %lhash, 'TDB_File', $lookup_file, TDB_DEFAULT, O_RDWR, 0644;                  #tie %lhash, 'TDB_File', $lookup_file, TDB_DEFAULT, O_RDWR, 0644;
692                  print STDERR "opening lookup file '$lookup_file'\n";                  print STDERR "opening lookup file '$lookup_file'\n";
693          }          }
694    

Legend:
Removed from v.766  
changed lines
  Added in v.776

  ViewVC Help
Powered by ViewVC 1.1.26