foxridge-archiver/makemeta-lib.pl - diff

Return to makemeta-lib.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.1, 2005/05/26 14:31:28	version 1.2, 2005/06/01 12:24:19
Line 9 use MPIWGStor;	Line 9 use MPIWGStor;
# make output unbuffered	# make output unbuffered
$\|=1;	$\|=1;

#######################################################
# internal parameters
#

# program version	# program version
my $version = "0.1.0 (24.5.2005)";	my $version = "0.1.1 (1.6.2005)";
logger("INFO", "makemeta-lib $version");	logger("INFO", "makemeta-lib $version");

#	###########################################
# mappings	# mappings
#
# generic mappings at top level	# generic mappings at top level
my %gen_map = (	my %gen_map = (
'Device' => 'meta/image-acquisition/device',	'Device' => 'meta/image-acquisition/device',
Line 96 my %lang_map = (	Line 92 my %lang_map = (
'English' => 'en',	'English' => 'en',
'Italian' => 'it',	'Italian' => 'it',
'French' => 'fr',	'French' => 'fr',
'Latin' => 'la'	'Latin' => 'la',
	'Spanish' => 'es'
);	);
# storage fields	# storage fields
my $arch_id_field = 'ID_Archive';	my $arch_id_field = 'ID_Archive';
my $online_url_field = 'URL';	my $online_url_field = 'URL';

# more storage	#######################################################
	# internal parameters
	#

	# storage
my $lib_arch_dir = '/mpiwg/archive/data/library';	my $lib_arch_dir = '/mpiwg/archive/data/library';
my $lib_online_dir = '/mpiwg/online/permanent';	my $lib_online_dir = '/mpiwg/online/permanent';


# read command line parameters	# read command line parameters
my $args = MPIWGStor::parseargs;	my $args = MPIWGStor::parseargs;