foxridge-archiver: makemeta-lib.pl annotate

annotate makemeta-lib.pl @ 29:f77f6cb40c4f

now with access-conditions tag

author	casties
date	Tue, 16 May 2006 21:56:32 +0200
parents	3ff9da4b7c87
children	398ef4b8f072

rev	line source
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	1 #!/usr/local/bin/perl -w
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	2
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	3 use strict;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	4 use XML::LibXML;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	5
22 c3defe3e2780 corrected perl lib path casties parents: 17 diff changeset	6 use lib '/usr/local/mpiwg/archive';
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	7 use MPIWGStor;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	8
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	9 # make output unbuffered
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	10 $\|=1;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	11
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	12 # program version
29 f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	13 my $version = "0.2.4 (16.5.2006 ROC)";
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	14 my $help =
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	15 "use: makemeta-lib [options] file.xml
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	16 options:
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	17 -debug show debugging info
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	18 -dry-run simulate, dont'do anything
17 6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	19 -online-mode mode for creating online/permanent files
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	20 -cw-mode mode for copying einstein_cw archive documents
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	21 -digifiles-mode mode for copying files from digifiles
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	22 -map-file=mapfile.xml digilib mapping file (for digifiles mode)
29 f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	23 -access=free adds free access tag (use access=mpiwg for restricted access)
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	24 ";
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	25 logger("INFO", "makemeta-lib $version");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	26
13 f33fb7f1898e added mapping for spanish lang casties parents: 12 diff changeset	27 ###########################################
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	28 # mappings
13 f33fb7f1898e added mapping for spanish lang casties parents: 12 diff changeset	29
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	30 # generic mappings at top level
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	31 my %gen_map = (
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	32 'Device' => 'meta/image-acquisition/device',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	33 'Image_Type' => 'meta/image-acquisition/image-type',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	34 'Production_Comment' => 'meta/image-acquisition/production-comment',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	35 'Postproduction' => 'meta/image-acquisition/production-comment',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	36 'Language' => 'meta/lang'
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	37 );
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	38 # sub type switch tag
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	39 my %type_map = (
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	40 'Reference_Type' => 'meta/bib@type'
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	41 );
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	42 # sub type mappings
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	43 my %subtype_map = (
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	44 'Book' => {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	45 '_name' => 'book',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	46 'Author' => 'meta/bib/author',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	47 'Title' => 'meta/bib/title',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	48 'Year' => 'meta/bib/year',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	49 'Place_Published' => 'meta/bib/city',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	50 'Publisher' => 'meta/bib/publisher',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	51 'Edition' => 'meta/bib/edition'
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	52 },
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	53 'Journal Article' => {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	54 '_name' => 'journal-article',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	55 'Author' => 'meta/bib/author',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	56 'Title' => 'meta/bib/title',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	57 'Year' => 'meta/bib/year',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	58 'Secondary_Title' => 'meta/bib/journal',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	59 'Volume' => 'meta/bib/volume',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	60 'Number' => 'meta/bib/issue',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	61 'Pages' => 'meta/bib/pages'
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	62 },
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	63 'In Book' => {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	64 '_name' => 'inbook',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	65 'Author' => 'meta/bib/author',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	66 'Title' => 'meta/bib/title',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	67 'Year' => 'meta/bib/year',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	68 'Secondary_Title' => 'meta/bib/book-title',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	69 'Pages' => 'meta/bib/pages'
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	70 },
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	71 'Newspaper Article' => {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	72 '_name' => 'newspaper-article',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	73 'Author' => 'meta/bib/author',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	74 'Title' => 'meta/bib/title',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	75 'Year' => 'meta/bib/year',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	76 'Secondary_Title' => 'meta/bib/newspaper',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	77 'Place_Published' => 'meta/bib/city',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	78 'Number' => 'meta/bib/issue-date',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	79 'Pages' => 'meta/bib/pages'
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	80 },
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	81 'Edited Book' => {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	82 '_name' => 'edited-book',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	83 'Author' => 'meta/bib/editor',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	84 'Title' => 'meta/bib/title',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	85 'Year' => 'meta/bib/year',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	86 'Place_Published' => 'meta/bib/city',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	87 'Publisher' => 'meta/bib/publisher',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	88 'Edition' => 'meta/bib/edition'
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	89 },
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	90 'Manuscript' => {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	91 '_name' => 'manuscript',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	92 'Author' => 'meta/bib/author',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	93 'Title' => 'meta/bib/title',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	94 'Year' => 'meta/bib/year',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	95 'Place_Published' => 'meta/bib/location',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	96 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	97 );
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	98 # language element
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	99 my $lang_field = 'Language';
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	100 # languages to iso codes
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	101 my %lang_map = (
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	102 'German' => 'de',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	103 'English' => 'en',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	104 'Italian' => 'it',
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	105 'French' => 'fr',
13 f33fb7f1898e added mapping for spanish lang casties parents: 12 diff changeset	106 'Latin' => 'la',
14 018e7c913b32 lang japanese casties parents: 13 diff changeset	107 'Japanese' => 'ja',
15 8d2f0586eca6 new helper script for calling archiver on many directories casties parents: 14 diff changeset	108 'Dutch' => 'nl',
13 f33fb7f1898e added mapping for spanish lang casties parents: 12 diff changeset	109 'Spanish' => 'es'
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	110 );
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	111 # storage fields
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	112 my $arch_id_field = 'ID_Archive';
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	113 my $online_url_field = 'URL';
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	114 my $online_id_field = 'ID_OnlinePermanent';
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	115
13 f33fb7f1898e added mapping for spanish lang casties parents: 12 diff changeset	116 #######################################################
f33fb7f1898e added mapping for spanish lang casties parents: 12 diff changeset	117 # internal parameters
f33fb7f1898e added mapping for spanish lang casties parents: 12 diff changeset	118 #
f33fb7f1898e added mapping for spanish lang casties parents: 12 diff changeset	119
f33fb7f1898e added mapping for spanish lang casties parents: 12 diff changeset	120 # storage
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	121 my $lib_arch_dir = '/mpiwg/archive/data/library';
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	122 my $lib_online_dir = '/mpiwg/online/permanent';
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	123 my $lib_digilib_path = 'permanent';
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	124 my $digifiles_dir = "/net/digifiles.mpiwg-berlin.mpg.de/Volumes/raid";
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	125
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	126 # read command line parameters
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	127 my $args = MPIWGStor::parseargs;
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	128 if (! scalar(%$args)) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	129 print $help, "\n";
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	130 exit 1;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	131 }
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	132
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	133 # debug level
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	134 $debug = (exists $$args{'debug'}) ? $$args{'debug'} : 0;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	135
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	136 # simulate action only
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	137 my $dry_run = (exists $$args{'dry-run'}) ? $$args{'dry-run'} : 0;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	138 logger('DEBUG', "dry-run: $dry_run");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	139
17 6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	140 # use online mode
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	141 my $online_mode = (exists $$args{'online-mode'}) ? $$args{'online-mode'} : 0;
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	142 logger('DEBUG', "online_mode: $online_mode");
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	143
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	144 # use einstein-cw mode
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	145 my $cw_mode = (exists $$args{'cw-mode'}) ? $$args{'cw-mode'} : 0;
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	146 logger('DEBUG', "cw_mode: $cw_mode");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	147
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	148 # use digifiles mode
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	149 my $digifiles_mode = (exists $$args{'digifiles-mode'}) ? $$args{'digifiles-mode'} : 0;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	150 logger('DEBUG', "digifiles_mode: $digifiles_mode");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	151 # digilib mapping file
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	152 my $map_file_name = (exists $$args{'map-file'}) ? $$args{'map-file'} : "";
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	153 logger('DEBUG', "map_file_name: $map_file_name");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	154 my $mapping_doc;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	155 my $mapping_root;
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	156
29 f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	157 # access type
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	158 my $access_type = (exists $$args{'access'}) ? $$args{'access'} : "";
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	159
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	160 # index.meta namespace (not really implemented!)
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	161 my $namespace = "";
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	162
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	163
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	164 my $xml_changed = 0;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	165 my $errcnt = 0;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	166 my $warncnt = 0;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	167
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	168 #######################################################
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	169 # check parameters that were passed to the program
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	170 #
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	171 my $infile = $$args{'path'};
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	172 if (! $infile) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	173 logger("ABORT", "no input file given!");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	174 exit 1;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	175 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	176 # strip double slashes
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	177 $infile =~ s/\/\//\//;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	178 if (! -f $infile) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	179 logger("ABORT", "input file \'$infile\' doesn't exist!");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	180 exit 1;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	181 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	182
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	183
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	184 #######################################################
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	185 # subroutines
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	186 #
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	187
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	188
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	189 sub add_digilib_mapping {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	190 my ($src_dir, $dest_dir) = @_;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	191 my $elem = $mapping_root->addNewChild($namespace, 'mapping');
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	192 $elem->addChild($mapping_doc->createAttributeNS($namespace, 'link', $src_dir));
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	193 $elem->addChild($mapping_doc->createAttributeNS($namespace, 'dir', $dest_dir));
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	194 if ($map_file_name) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	195 write_xml($mapping_doc, $map_file_name);
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	196 } else {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	197 logger('ABORT', "unable to write mapping file!");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	198 exit 1;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	199 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	200 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	201
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	202 sub find_digifiles_dir {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	203 my ($input_node) = @_;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	204 my $digifiles_base = '/net/digifiles.mpiwg-berlin.mpg.de/Volumes/raid';
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	205 my $src_dir = find_online_dir($input_node, $digifiles_base, '');
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	206 if (! $src_dir) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	207 logger('ERROR', "no online directory for digifiles entry");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	208 $errcnt++;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	209 return;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	210 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	211 my $dest_id = sstrip($input_node->findvalue("fm:$online_id_field"));
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	212 if (! $dest_id) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	213 logger('ERROR', "no ID field for digifiles entry");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	214 $errcnt++;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	215 return;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	216 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	217 my $dir = "$lib_online_dir/library/$dest_id";
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	218 my $map_dir = "$lib_digilib_path/library/$dest_id";
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	219 if ($dry_run) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	220 logger('DEBUG', "would move $digifiles_base/$src_dir to $dir");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	221 add_digilib_mapping($src_dir, "$map_dir/pageimg");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	222 return $dir;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	223 } else {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	224 logger('INFO', "moving $digifiles_base/$src_dir to $dir");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	225 logger('DEBUG', "mkdir $dir/pageimg");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	226 if (system("mkdir -p $dir/pageimg && chmod -R 0775 $dir") == 0) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	227 logger('DEBUG', "cp $digifiles_base/$src_dir $dir/pageimg");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	228 if (system("cp -rp $digifiles_base/$src_dir/* $dir/pageimg/") == 0) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	229 if (-d "$dir/pageimg") {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	230 logger('DEBUG', "directory $dir OK");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	231 add_digilib_mapping($src_dir, "$map_dir/pageimg");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	232 if (system("rm -rf $digifiles_base/$src_dir/* && rm -rf $digifiles_base/$src_dir") == 0) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	233 logger('DEBUG', "directory $digifiles_base/$src_dir removed");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	234 return $dir;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	235 } else {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	236 logger('ERROR', "unable to remove source directory $digifiles_base/$src_dir!");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	237 $errcnt++;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	238 return $dir;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	239 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	240 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	241 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	242 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	243 logger('ABORT', "unable to copy directory $src_dir to $dir!");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	244 exit 1;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	245 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	246 return;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	247 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	248
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	249 sub find_cw_dir {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	250 my ($input_node) = @_;
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	251 my $cw_base = '/mpiwg/archive/data/library/inbox/zwischen_backup';
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	252 my $src_dir = find_online_dir($input_node, $cw_base, 'pageimg');
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	253 my $dest_id = sstrip($input_node->findvalue("fm:$arch_id_field"));
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	254 if (! $dest_id) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	255 logger('ERROR', "no ID field for einstein-cw entry");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	256 $errcnt++;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	257 return;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	258 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	259 my $dir = "$lib_arch_dir/$dest_id";
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	260 if ($dry_run) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	261 logger('DEBUG', "would move $cw_base/$src_dir to $dir");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	262 return $dir;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	263 } else {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	264 logger('DEBUG', "moving $cw_base/$src_dir to $dir");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	265 if (rename "$cw_base/$src_dir", $dir) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	266 if (-d $dir) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	267 logger('DEBUG', "directory $dir OK");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	268 return $dir;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	269 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	270 } else {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	271 logger('ABORT', "unable to rename directory $cw_base/$src_dir to $dir!");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	272 exit 1;
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	273 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	274 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	275 return;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	276 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	277
17 6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	278 sub find_permanent_dir {
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	279 my ($input_node) = @_;
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	280 my $online_base = '/mpiwg/online/permanent';
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	281 my $src_dir = find_online_dir($input_node, $online_base, 'pageimg');
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	282 my $dest_id = sstrip($input_node->findvalue("fm:$online_id_field"));
29 f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	283 if ((! $dest_id)\|\|(! $src_dir)) {
17 6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	284 logger('ERROR', "no ID field for online permanent entry");
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	285 $errcnt++;
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	286 return;
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	287 }
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	288 my $dir = "$online_base/$src_dir";
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	289 return $dir;
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	290 }
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	291
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	292 #
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	293 # $dir = find_online_dir($input_node, $base_dir, $page_dir)
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	294 #
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	295 # Takes the path from the $online_url_field of the $input_node document
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	296 # and looks in the directory $base_dir for it. Strips $page_dir from the end.
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	297 # Returns the directory path sans $base_dir if it exists
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	298 #
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	299 sub find_online_dir {
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	300 my ($input_node, $base_dir, $page_dir) = @_;
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	301 $base_dir = $lib_online_dir unless ($base_dir);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	302
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	303 my $online_url = $input_node->findvalue("fm:$online_url_field");
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	304 logger('DEBUG', "checking URL: $online_url");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	305 my $online_dir;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	306 if ($online_url =~ /fn=permanent\/(.+)/) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	307 # new style digilib URL
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	308 $online_dir = $1;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	309 } elsif ($online_url =~ /\?([^\+]+)\+/) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	310 # old style digilib URL
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	311 $online_dir = $1;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	312 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	313 #logger('DEBUG', "online_dir1: $online_dir");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	314 if ($online_dir) {
17 6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	315 $online_dir =~ s/\/$//; # strip ending slashes
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	316 if ($page_dir) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	317 $online_dir =~ s/\/${page_dir}$//;
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	318 }
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	319 #logger("DEBUG", "dir: $base_dir/$online_dir");
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	320 if (-d "$base_dir/$online_dir") {
17 6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	321 logger('DEBUG', "directory $base_dir/$online_dir exists");
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	322 return $online_dir;
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	323 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	324 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	325 return;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	326 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	327
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	328 sub find_arch_dir {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	329 my ($input_node) = @_;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	330 my $dir = "";
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	331
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	332 my $bib_dir = $input_node->findvalue("fm:$arch_id_field");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	333 #logger('DEBUG', "bibdir: $bib_dir");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	334 if ($bib_dir) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	335 $dir = "$lib_arch_dir/$bib_dir";
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	336 if (-d $dir) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	337 logger('DEBUG', "directory $dir exists");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	338 return $dir;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	339 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	340 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	341 return;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	342 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	343
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	344
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	345 sub convert_bib {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	346 my ($input_node, $index_root, $index_doc) = @_;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	347 my $cnt = 0;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	348 my $type = "";
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	349 my $type_path = "";
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	350
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	351 # process general stuff first
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	352 foreach my $n ($input_node->getChildNodes()) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	353 my $name = $n->nodeName();
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	354 my $val = $n->textContent();
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	355 #logger('DEBUG', " NODE: $name = '$val'");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	356 if (exists $gen_map{$name}) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	357 # is a general field
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	358 if ($name eq $lang_field) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	359 # language field -> convert to iso code
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	360 if (exists $lang_map{$val}) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	361 $val = $lang_map{$val};
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	362 } else {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	363 logger('ERROR', "unknown language: $val! skipping...");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	364 $errcnt++;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	365 return 0;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	366 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	367 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	368 create_element_path($gen_map{$name}, $index_root, $namespace)
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	369 ->appendTextNode($val);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	370 $cnt++;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	371 } elsif (exists $type_map{$name}) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	372 # is a type field
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	373 $type_path = $type_map{$name};
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	374 $type = $val;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	375 # check with known types
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	376 if (exists $subtype_map{$val}) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	377 my $indextype = $subtype_map{$val}->{'_name'};
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	378 create_element_path("$type_path=$indextype", $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	379 $cnt++;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	380 } else {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	381 logger('ERROR', 'unknown bib type $val! skipping...');
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	382 $errcnt++;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	383 return 0;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	384 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	385 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	386 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	387 # process sub type fields
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	388 if ($type) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	389 foreach my $n ($input_node->getChildNodes()) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	390 my $name = $n->nodeName();
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	391 my $val = $n->textContent();
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	392 #logger('DEBUG', " NODE: $name = '$val'");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	393 if (exists $subtype_map{$type}->{$name}) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	394 create_element_path($subtype_map{$type}->{$name}, $index_root, $namespace)
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	395 ->appendTextNode($val);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	396 $cnt++;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	397 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	398 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	399 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	400 return $cnt;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	401 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	402
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	403
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	404
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	405 sub process_all_fm_entries {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	406 my ($input_root) = @_;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	407 my $cnt = 0;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	408
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	409 foreach my $n ($input_root->findnodes('fm:ROW')) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	410 logger('INFO', "processing entry $cnt ...");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	411 process_fm_entry($n);
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	412 $cnt++;
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	413 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	414 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	415
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	416
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	417 sub process_fm_entry {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	418 my ($input_node) = @_;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	419 my $index_doc = XML::LibXML::Document->createDocument('1.0', 'UTF-8');
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	420 my $index_root = $index_doc->createElementNS($namespace, 'resource');
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	421 $index_root->addChild($index_doc->createAttributeNS($namespace, 'version', '1.1'));
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	422 $index_root->addChild($index_doc->createAttributeNS($namespace, 'type', 'MPIWG'));
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	423 $index_doc->setDocumentElement($index_root);
28 3ff9da4b7c87 added derived-from casties parents: 22 diff changeset	424 my $derived_from = "";
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	425
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	426 # try to find the document directory
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	427 my $doc_dir = "";
17 6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	428 if ($online_mode) {
6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	429 $doc_dir = find_permanent_dir($input_node);
28 3ff9da4b7c87 added derived-from casties parents: 22 diff changeset	430 $derived_from = find_arch_dir($input_node);
17 6c5c7743acb1 new version with new -onlinne-mode for online/permanent. casties parents: 16 diff changeset	431 } elsif ($cw_mode) {
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	432 $doc_dir = find_cw_dir($input_node);
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	433 } elsif ($digifiles_mode) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	434 $doc_dir = find_digifiles_dir($input_node);
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	435 } else {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	436 $doc_dir = find_arch_dir($input_node);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	437 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	438 if (! $doc_dir) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	439 logger('ERROR', "document directory not found! skipping...");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	440 $errcnt++;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	441 return;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	442 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	443
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	444 # add standard stuff to index.meta
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	445 my ($docname, $docpath) = split_file_path($doc_dir);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	446 # name and date
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	447 create_text_path('name', $docname, $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	448 create_text_path('archive-path', $doc_dir, $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	449 create_text_path('archive-creation-date', stime(time), $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	450 create_text_path('creator', 'digigroup', $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	451 create_text_path('description', 'a scanned document', $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	452 # acquisition
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	453 create_text_path('meta/acquisition/date', stime(time), $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	454 create_text_path('meta/acquisition/provider/provider-id', 'digigroup', $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	455 create_text_path('meta/acquisition/provider/address', 'Max Planck Institute for the History of Science', $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	456 # media
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	457 create_text_path('media-type', 'image', $index_root, $namespace);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	458 create_text_path('meta/content-type', 'scanned document', $index_root, $namespace);
28 3ff9da4b7c87 added derived-from casties parents: 22 diff changeset	459 # derived-from
3ff9da4b7c87 added derived-from casties parents: 22 diff changeset	460 if ($derived_from) {
3ff9da4b7c87 added derived-from casties parents: 22 diff changeset	461 create_text_path('derived-from/archive-path', $derived_from, $index_root, $namespace);
29 f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	462 }
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	463 # access
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	464 if ($access_type) {
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	465 if ($access_type eq "free") {
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	466 create_element_path('access-conditions/access@type=free', $index_root, $namespace);
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	467 } else {
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	468 my $acc_tag = create_element_path('access-conditions/access@type=institution', $index_root, $namespace);
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	469 create_text_path('name', $access_type, $acc_tag, $namespace);
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	470 }
f77f6cb40c4f now with access-conditions tag casties parents: 28 diff changeset	471 }
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	472
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	473 # convert bib entries
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	474 my $cnt = convert_bib($input_node, $index_root, $index_doc);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	475 if ($cnt == 0) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	476 # error or nothing to convert
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	477 logger('ERROR', "no bibliographic metadata!");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	478 $errcnt++;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	479 return;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	480 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	481
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	482 # write new index.meta file
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	483 if ($dry_run) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	484 logger('DEBUG', "would write $doc_dir/index.meta");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	485 logger('DEBUG', $index_doc->toString(1));
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	486 } else {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	487 write_xml($index_doc, "$doc_dir/index.meta");
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	488 }
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	489
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	490 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	491
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	492
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	493
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	494
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	495
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	496 #######################################################
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	497 # Main
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	498 #
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	499
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	500 # load filemaker xml dump
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	501 my ($input_doc, $input_root) = read_xml($infile);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	502 # set namespace prefix
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	503 my $fm_namespace = $input_root->namespaceURI();
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	504 $input_root->setNamespace($fm_namespace, 'fm', 1);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	505
16 8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	506 # create digilib mapping file for digifiles mode
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	507 if ($digifiles_mode) {
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	508 $mapping_doc = XML::LibXML::Document->createDocument('1.0', 'UTF-8');
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	509 $mapping_root = $mapping_doc->createElementNS($namespace, 'digilib-aliases');
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	510 $mapping_doc->setDocumentElement($mapping_root);
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	511 #<mapping link="exp1/archimedes_image_repository/archimedes_large/achil_propo_087_la_1545" dir="permanent/archimedes_repository/large/achil_propo_087_la_1545"/>
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	512
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	513 }
8eee361fdec8 weiter arbeit am digifiles modus casties parents: 15 diff changeset	514
12 620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	515 process_all_fm_entries($input_root);
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	516
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	517
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	518 logger("INFO", "$warncnt warnings");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	519 logger("INFO", "$errcnt errors");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	520 if ($errcnt > 0) {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	521 logger("ABORT", "there were errors!");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	522 exit 1;
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	523 } else {
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	524 logger("DONE", "done something successfully!");
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	525 }
620aad237f57 new tool makemeta-lib.pl to create index meta entries from the libraries online sources database casties parents: diff changeset	526

Mercurial > hg > foxridge-archiver

annotate makemeta-lib.pl @ 29:f77f6cb40c4f