[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.8 and 1.10

version 1.8, 2009/02/02 11:45:15 version 1.10, 2017/03/16 17:00:43
Line 1 Line 1
 #!/usr/local/bin/perl -w  #!/usr/bin/perl -w
   
 use strict;  use strict;
 use XML::LibXML;  use XML::LibXML;
Line 10  use MPIWGStor; Line 10  use MPIWGStor;
 $|=1;  $|=1;
   
 # program version  # program version
 my $version = "0.2.6 (1.2.2009 ROC)";  my $version = "0.2.7 (27.8.2010 ROC)";
 my $help =   my $help = 
 "use: makemeta-vlp [options] file.xml  "use: makemeta-vlp [options] file.xml
 options:  options:
Line 20  options: Line 20  options:
   -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    -access=free  adds free access tag for online-mode
     -texttool adds texttool tag for online-mode
 ";  ";
 logger("INFO", "makemeta-vlp $version");  logger("INFO", "makemeta-vlp $version");
   
Line 120  my %subtype_map = ( Line 121  my %subtype_map = (
     'Pages' => 'meta/bib/number-of-pages',      'Pages' => 'meta/bib/number-of-pages',
     '#Cover pages only, articles have been extracted' => 'meta/bib/comment'      '#Cover pages only, articles have been extracted' => 'meta/bib/comment'
     },      },
       'Journal' => {
       '_name' => 'report',
       'Title' => 'meta/bib/title',
       'SecondaryTitle' => 'meta/bib/institution',
       'Author' => 'meta/bib/author',
       'Place_Published' => 'meta/bib/city',
       'Year' => 'meta/bib/year',
       'Date' => 'meta/bib/date',
       'Pages' => 'meta/bib/pages',
       },
     'Magazine Article' => {      'Magazine Article' => {
     '_name' => 'magazine-article',      '_name' => 'magazine-article',
     'Author' => 'meta/bib/author',      'Author' => 'meta/bib/author',
Line 130  my %subtype_map = ( Line 141  my %subtype_map = (
     'Date' => 'meta/bib/issue-date',      'Date' => 'meta/bib/issue-date',
     'Pages' => 'meta/bib/pages'      'Pages' => 'meta/bib/pages'
     },      },
       'Newspaper Article' => {
       '_name' => 'newspaper-article',
       'Author' => 'meta/bib/author',
       'Title' => 'meta/bib/title',
       'Year' => 'meta/bib/year',
       'Secondary_Title' => 'meta/bib/newspaper',
       'Date' => 'meta/bib/issue-date',
       'Pages' => 'meta/bib/pages'
       },
     'Report' => {      'Report' => {
     '_name' => 'report',      '_name' => 'report',
     'Author' => 'meta/bib/author',      'Author' => 'meta/bib/author',
Line 190  my %lang_map = ( Line 210  my %lang_map = (
     );      );
 # storage fields  # storage fields
 my $arch_id_field = 'ID';  my $arch_id_field = 'ID';
   my $access_free_field = 'online';
   
 #######################################################  #######################################################
 # internal parameters  # internal parameters
Line 225  logger('DEBUG', "online_mode: $online_mo Line 246  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");
   
   # create texttool tag (online mode only)
   my $texttool = (exists $$args{'texttool'}) ? $$args{'texttool'} : 1;
   logger('DEBUG', "texttool: $texttool");
   # image dir for texttool
   my $texttool_img_dir = "pages";
   
 # access type  # access type
 my $access_type = (exists $$args{'access'}) ? $$args{'access'} : "";  my $access_type = (exists $$args{'access'}) ? $$args{'access'} : "";
   
Line 283  sub find_permanent_dir { Line 310  sub find_permanent_dir {
     return;      return;
     }      }
     my $dir = "$online_base/lit$dest_id";      my $dir = "$online_base/lit$dest_id";
       if (-d $dir) {
           logger('DEBUG', "directory $dir exists"); 
     return $dir;      return $dir;
 }  }
       return;
   }
   
   
 sub convert_bib {  sub convert_bib {
Line 428  sub process_fm_entry { Line 459  sub process_fm_entry {
         my $acc_tag = create_element_path('meta/access-conditions/access@type=institution', $index_root, $namespace);          my $acc_tag = create_element_path('meta/access-conditions/access@type=institution', $index_root, $namespace);
         create_text_path('name', $access_type, $acc_tag, $namespace);          create_text_path('name', $access_type, $acc_tag, $namespace);
     }      }
       } elsif ($online_mode) {
           # read access conditions from "online" field in DB dump
           my $online = sstrip($input_node->findvalue("fm:$access_free_field"));
           if ($online) {
           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', 'mpiwg', $acc_tag, $namespace);
       }
       }
   
       # texttool tag with image dir
       if ($online_mode && $texttool) {
       if ( -d "$doc_dir/$texttool_img_dir" ) {
           create_text_path('meta/texttool/image', $texttool_img_dir,$index_root, $namespace);
       } else {
               logger('WARNING', "page image directory missing!");
               $warncnt++;
           }
     }      }
   
     # convert bib entries      # convert bib entries
Removed from v.1.8  
changed lines
  Added in v.1.10

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