Return to changemeta.pl CVS log

Up to [Repository] / foxridge-archiver

first real version

    1: #!/usr/local/bin/perl -w
    2: 
    3: use strict;
    4: use XML::LibXML;
    5: 
    6: use lib '/usr/local/mpiwg/archive_devel';
    7: use MPIWGStor;
    8: 
    9: # make output unbuffered
   10: $|=1;
   11: 
   12: # program version
   13: my $version = "0.2 (27.6.2006 ROC)";
   14: my $help = 
   15: "use: checkmeta [options] dir
   16: options:
   17:   -debug  show debugging info
   18:   -dry-run  simulate, dont'do anything
   19:   -access=free  set free access tag (use access=mpiwg for restricted access)
   20: ";
   21: logger("INFO", "checkmeta $version");
   22: 
   23: 
   24: #######################################################
   25: # internal parameters
   26: #
   27: 
   28: # read command line parameters
   29: my $args = MPIWGStor::parseargs;
   30: if (! scalar(%$args)) {
   31:     print $help, "\n";
   32:     exit 1;
   33: }
   34: 
   35: # debug level
   36: $debug = (exists $$args{'debug'}) ? $$args{'debug'} : 0;
   37: 
   38: # simulate action only
   39: my $dry_run = (exists $$args{'dry-run'}) ? $$args{'dry-run'} : 0;
   40: logger('DEBUG', "dry-run: $dry_run");
   41: 
   42: # access type
   43: my $access_type = (exists $$args{'access'}) ? $$args{'access'} : "";
   44: logger('DEBUG', "access: $access_type");
   45: 
   46: # index.meta namespace (not really implemented!)
   47: my $namespace = "";
   48: 
   49: 
   50: my $xml_changed = 0;
   51: my $errcnt = 0;
   52: my $warncnt = 0;
   53: 
   54: #######################################################
   55: # check parameters that were passed to the program
   56: #
   57: my $docdir = $$args{'path'};
   58: if (! $docdir) {
   59:     logger("ABORT", "no document directory given!");
   60:     exit 1;
   61: }
   62: # strip double slashes
   63: $docdir = sstrip($docdir, 1);
   64: if (! -d $docdir) {
   65:     logger("ABORT", "document directory \'$docdir\' doesn't exist!");
   66:     exit 1;
   67: }
   68: 
   69: 
   70: #######################################################
   71: # subroutines
   72: #
   73: 
   74: #
   75: # sets access tag to given access_type
   76: # removes access tag if access_type is empty
   77: #
   78: sub change_access {
   79:     my ($access_type, $index_root) = @_;
   80: 
   81:     my $parent_tag = $index_root->findnodes('//meta/access-conditions')->get_node(1);
   82:     if ($parent_tag) {
   83: 	my $access_tag = $parent_tag->findnodes('access')->get_node(1);
   84: 	# remove access tag if it exists
   85: 	if ($access_tag) {
   86: 	    $parent_tag->removeChild($access_tag);
   87: 	}
   88:     } else {
   89: 	$parent_tag = create_element_path('meta/access-conditions', $index_root, $namespace);
   90:     }
   91: 
   92:     # add new access tag (if $access_Type is not empty)
   93:     if ($access_type eq "free") {
   94: 	create_element_path('access@type=free', $parent_tag, $namespace);
   95:     } elsif (length $access_type > 0) {
   96: 	my $acc_tag = create_element_path('access@type=institution', $parent_tag, $namespace);
   97: 	create_text_path('name', $access_type, $acc_tag, $namespace);
   98:     }
   99:     $xml_changed++
  100: }
  101: 
  102: 
  103: 
  104: 
  105: 
  106: 
  107: 
  108: #######################################################
  109: # Main
  110: #
  111: 
  112: my $index_doc;
  113: my $index_root;
  114: 
  115: # load index.meta file
  116: if (-f "$docdir/index.meta") {
  117:     ($index_doc, $index_root) = read_xml("$docdir/index.meta");
  118: } else {
  119:     logger("ABORT", "index file \'$docdir/index.meta\' doesn't exist!");
  120:     exit 1;
  121: }
  122: 
  123: if ($access_type) {
  124:     change_access($access_type, $index_root);
  125: }
  126: 
  127: 
  128: logger("INFO", "$warncnt warnings");
  129: logger("INFO", "$errcnt errors");
  130: if ($errcnt > 0) {
  131:     logger("ABORT", "there were errors!");
  132:     exit 1;
  133: } elsif ($xml_changed) {
  134:     # write new index.meta file
  135:     if ($dry_run) {
  136: 	logger('DEBUG', "would write $docdir/index.meta");
  137: 	logger('DEBUG', $index_doc->toString(1));
  138:     } else {
  139: 	write_xml($index_doc, "$docdir/index.meta");
  140:     }
  141:     logger("DONE", "changed index file successfully!");
  142: } else {
  143:     logger("DONE", "didn't change index file");
  144: }
  145: