# HG changeset patch
# User casties
# Date 1151432285 -7200
# Node ID 2afcb4ff750e6ad58a3c46d7077cd4ba98445d59
# Parent  2ee05ce0c0d20df3aba56ac78cb9e123d5df82a4
first real version

diff -r 2ee05ce0c0d2 -r 2afcb4ff750e changemeta.pl
--- a/changemeta.pl	Tue Jun 27 20:06:41 2006 +0200
+++ b/changemeta.pl	Tue Jun 27 20:18:05 2006 +0200
@@ -10,13 +10,13 @@
 $|=1;
 
 # program version
-my $version = "0.1 (27.6.2006 ROC)";
+my $version = "0.2 (27.6.2006 ROC)";
 my $help = 
 "use: checkmeta [options] dir
 options:
   -debug  show debugging info
   -dry-run  simulate, dont'do anything
-  -access=free  adds free access tag (use access=mpiwg for restricted access)
+  -access=free  set free access tag (use access=mpiwg for restricted access)
 ";
 logger("INFO", "checkmeta $version");
 
@@ -81,6 +81,7 @@
     my $parent_tag = $index_root->findnodes('//meta/access-conditions')->get_node(1);
     if ($parent_tag) {
 	my $access_tag = $parent_tag->findnodes('access')->get_node(1);
+	# remove access tag if it exists
 	if ($access_tag) {
 	    $parent_tag->removeChild($access_tag);
 	}
@@ -88,6 +89,7 @@
 	$parent_tag = create_element_path('meta/access-conditions', $index_root, $namespace);
     }
 
+    # add new access tag (if $access_Type is not empty)
     if ($access_type eq "free") {
 	create_element_path('access@type=free', $parent_tag, $namespace);
     } elsif (length $access_type > 0) {
@@ -119,7 +121,7 @@
 }
 
 if ($access_type) {
-    change_access($index_root);
+    change_access($access_type, $index_root);
 }
 
 
@@ -134,7 +136,7 @@
 	logger('DEBUG', "would write $docdir/index.meta");
 	logger('DEBUG', $index_doc->toString(1));
     } else {
-	#write_xml($index_doc, "$docdir/index.meta");
+	write_xml($index_doc, "$docdir/index.meta");
     }
     logger("DONE", "changed index file successfully!");
 } else {