foxridge-archiver/makemeta-vlp.pl - diff

Return to makemeta-vlp.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.6, 2006/12/11 18:08:24	version 1.8, 2009/02/02 11:45:15
Line 10 use MPIWGStor;	Line 10 use MPIWGStor;
$\|=1;	$\|=1;

# program version	# program version
my $version = "0.2.4 (5.12.2006 ROC)";	my $version = "0.2.6 (1.2.2009 ROC)";
my $help =	my $help =
"use: makemeta-vlp [options] file.xml	"use: makemeta-vlp [options] file.xml
options:	options:
Line 29 logger("INFO", "makemeta-vlp $version");	Line 29 logger("INFO", "makemeta-vlp $version");
# generic mappings at top level	# generic mappings at top level
my %gen_map = (	my %gen_map = (
'Custom2_Language' => 'meta/lang',	'Custom2_Language' => 'meta/lang',
'ProductionComment' => 'meta/image-acquisition/production-comment',	'productionComment' => 'meta/image-acquisition/production-comment',
'derivedFrom' => 'derived-from/archive-path'	'derivedFrom' => 'derived-from/archive-path'
);	);
# sub type switch tag	# sub type switch tag
Line 183 my %lang_map = (	Line 183 my %lang_map = (
'Japanese' => 'ja',	'Japanese' => 'ja',
'Dutch' => 'nl',	'Dutch' => 'nl',
'Spanish' => 'es',	'Spanish' => 'es',
'Swedish' => 'sv'	'Swedish' => 'sv',
	'Russian' => 'ru',
	'Polish' => 'pl',
	'Greek' => 'el'
);	);
# storage fields	# storage fields
my $arch_id_field = 'ID';	my $arch_id_field = 'ID';