[BACK]Return to makemeta-vlp.pl CVS log [TXT] [DIR] Up to [Repository] / foxridge-archiver

Diff for /foxridge-archiver/makemeta-vlp.pl between versions 1.5 and 1.6

version 1.5, 2006/06/27 15:25:40 version 1.6, 2006/12/11 18:08:24
Line 10  use MPIWGStor; Line 10  use MPIWGStor;
 $|=1;  $|=1;
   
 # program version  # program version
 my $version = "0.2.3 (27.6.2006 ROC)";  my $version = "0.2.4 (5.12.2006 ROC)";
 my $help =   my $help = 
 "use: makemeta-vlp [options] file.xml  "use: makemeta-vlp [options] file.xml
 options:  options:
Line 19  options: Line 19  options:
   -replace  replace existing index files    -replace  replace existing index files
   -online-mode  mode for creating online/permanent files    -online-mode  mode for creating online/permanent files
   -archive-mode  mode for creating archive/data files    -archive-mode  mode for creating archive/data files
     -access=free  adds free access tag for online-mode
 ";  ";
 logger("INFO", "makemeta-vlp $version");  logger("INFO", "makemeta-vlp $version");
   
Line 27  logger("INFO", "makemeta-vlp $version"); Line 28  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',
       'derivedFrom' => 'derived-from/archive-path'
     );      );
 # sub type switch tag  # sub type switch tag
 my %type_map = (  my %type_map = (
Line 219  logger('DEBUG', "online_mode: $online_mo Line 222  logger('DEBUG', "online_mode: $online_mo
 my $archive_mode = (exists $$args{'archive-mode'}) ? $$args{'archive-mode'} : 0;  my $archive_mode = (exists $$args{'archive-mode'}) ? $$args{'archive-mode'} : 0;
 logger('DEBUG', "archive_mode: $archive_mode");  logger('DEBUG', "archive_mode: $archive_mode");
   
   # access type
   my $access_type = (exists $$args{'access'}) ? $$args{'access'} : "";
   
 # index.meta namespace (not really implemented!)  # index.meta namespace (not really implemented!)
 my $namespace = "";  my $namespace = "";
   
Line 266  sub find_arch_dir { Line 272  sub find_arch_dir {
   
 sub find_permanent_dir {  sub find_permanent_dir {
     my ($input_node) = @_;      my ($input_node) = @_;
     my $online_base = '/mpiwg/online/permanent';      my $online_base = $lib_online_dir;
     my $dest_id = sstrip($input_node->findvalue("fm:$arch_id_field"));      my $dest_id = sstrip($input_node->findvalue("fm:$arch_id_field"));
     if (! $dest_id) {      if (! $dest_id) {
     logger('ERROR', "no ID field for online permanent entry");      logger('ERROR', "no ID field for online permanent entry");
Line 407  sub process_fm_entry { Line 413  sub process_fm_entry {
       create_text_path('meta/acquisition/date', stime(time), $index_root, $namespace);        create_text_path('meta/acquisition/date', stime(time), $index_root, $namespace);
       create_text_path('meta/acquisition/provider/provider-id', 'vlp', $index_root, $namespace);        create_text_path('meta/acquisition/provider/provider-id', 'vlp', $index_root, $namespace);
       create_text_path('meta/acquisition/provider/address', 'Max Planck Institute for the History of Science', $index_root, $namespace);        create_text_path('meta/acquisition/provider/address', 'Max Planck Institute for the History of Science', $index_root, $namespace);
       # image acquisition  
       create_text_path('meta/image-acquisition/device', 'Flatbed Scanner' , $index_root, $namespace);  
       create_text_path('meta/image-acquisition/image-type', 'Greyscale' , $index_root, $namespace);  
       create_text_path('meta/image-acquisition/production-comment', 'Raw scans in \'raw\' folder, cleaned pages in \'pages\' folder.' , $index_root, $namespace);  
     }      }
     # media      # media
     create_text_path('media-type', 'image', $index_root, $namespace);      create_text_path('media-type', 'image', $index_root, $namespace);
     create_text_path('meta/content-type', 'scanned document', $index_root, $namespace);      create_text_path('meta/content-type', 'scanned document', $index_root, $namespace);
       # access
       if ($access_type) {
       if ($access_type eq "free") {
           create_element_path('meta/access-conditions/access@type=free', $index_root, $namespace);
       } else {
           my $acc_tag = create_element_path('meta/access-conditions/access@type=institution', $index_root, $namespace);
           create_text_path('name', $access_type, $acc_tag, $namespace);
       }
       }
   
     # convert bib entries      # convert bib entries
     my $cnt = convert_bib($input_node, $index_root, $index_doc);      my $cnt = convert_bib($input_node, $index_root, $index_doc);
Removed from v.1.5  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>