version 1.6, 2006/12/11 18:08:24
|
version 1.7, 2006/12/14 15:50:05
|
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.5 (14.12.2006 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 |