Changeset 10658
- Timestamp:
- 2005-09-27T14:28:29+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl3/bin/script/convert_coll_from_gs2.pl
r10653 r10658 15 15 use FileHandle; 16 16 use XML::Writer; 17 use GDBM_File; 17 #can't get this to work on windows 18 #use GDBM_File; 18 19 19 20 use strict; … … 97 98 } 98 99 99 my $db_file = &util::filename_cat ($collectdir, "index", "text", "$collection.ldb");100 # my $db_file = &util::filename_cat ($collectdir, "index", "text", "$collection.ldb"); 100 101 my $database; 101 if (-e $db_file) {102 $database = &open_database($db_file);103 } else {104 print STDERR "gdbm database file $db_file not found!!";105 die "\n";106 }102 # if (-e $db_file) { 103 # $database = &open_database($db_file); 104 # } else { 105 # print STDERR "gdbm database file $db_file not found!!"; 106 # die "\n"; 107 # } 107 108 108 109 my $buildtype; … … 619 620 620 621 my $database = (); 621 tie (%$database, 'GDBM_File', $db_file, &GDBM_READER, 0400) ||622 die "Couldn't open database $db_file\n";622 # tie (%$database, 'GDBM_File', $db_file, GDBM_READER, 0400) || 623 # die "Couldn't open database $db_file\n"; 623 624 624 625 return $database; … … 632 633 my ($database, $name) = @_; 633 634 635 return 0; # can't get this to work for windows 634 636 my $record = $database->{$name}; 635 637 my ($childtype) = $record =~ /<childtype>(\w*)/;
Note:
See TracChangeset
for help on using the changeset viewer.