- Timestamp:
- 2009-03-11T13:13:55+13:00 (15 years ago)
- Location:
- gsdl/trunk/perllib
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm
r18528 r18659 25 25 26 26 # plugin which reads through an archives.inf (or GDBM equivalent, 27 # archiveinf-doc. {ldb,bdb}file (i.e. the file generated in the27 # archiveinf-doc.gdb file (i.e. the file generated in the 28 28 # archives directory when an import is done), processing each file it 29 29 # finds … … 204 204 # see if this has a archives information file within it 205 205 ## my $archive_info_filename = &util::filename_cat($base_dir,$file,"archives.inf"); 206 my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb"; 207 my $doc_db = "archiveinf-doc $db_ext";206 207 my $doc_db = "archiveinf-doc.gdb"; 208 208 my $archive_info_filename = &util::filename_cat($base_dir,$file,$doc_db); 209 209 -
gsdl/trunk/perllib/plugins/DirectoryPlugin.pm
r18523 r18659 132 132 my $output_dir = $processor->getoutputdir(); 133 133 ## my $archives_inf = &util::filename_cat($output_dir,"archives.inf"); 134 my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb"; 135 my $doc_db = "archiveinf-doc$db_ext"; 134 my $doc_db = "archiveinf-doc.gdb"; 136 135 my $archives_inf = &util::filename_cat($output_dir,$doc_db); 137 136 -
gsdl/trunk/perllib/plugouts/BasePlugout.pm
r18528 r18659 701 701 702 702 my $output_dir = $self->{'output_dir'}; 703 my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb"; 704 705 my $doc_db = &util::filename_cat($output_dir,"archiveinf-doc$db_ext"); 706 my $src_db = &util::filename_cat($output_dir,"archiveinf-src$db_ext"); 703 704 my $doc_db = &util::filename_cat($output_dir,"archiveinf-doc.gdb"); 705 my $src_db = &util::filename_cat($output_dir,"archiveinf-src.gdb"); 707 706 708 707 my $doc_db_text = "";
Note:
See TracChangeset
for help on using the changeset viewer.