--- foxridge-archiver/makemeta-lib.pl	2006/05/16 18:58:21	1.8
+++ foxridge-archiver/makemeta-lib.pl	2006/12/11 18:07:43	1.12
@@ -10,16 +10,18 @@ use MPIWGStor;
 $|=1;
 
 # program version
-my $version = "0.2.3 (16.5.2006 ROC)";
+my $version = "0.2.6 (11.12.2006 ROC)";
 my $help = 
 "use: makemeta-lib [options] file.xml
 options:
   -debug  show debugging info
   -dry-run  simulate, dont'do anything
   -online-mode  mode for creating online/permanent files
+  -online-base=dir  base directory for online ids (for online mode)
   -cw-mode  mode for copying einstein_cw archive documents
   -digifiles-mode  mode for copying files from digifiles
   -map-file=mapfile.xml  digilib mapping file (for digifiles mode)
+  -access=free  adds free access tag (use access=mpiwg for restricted access)
 ";
 logger("INFO", "makemeta-lib $version");
 
@@ -105,7 +107,8 @@ my %lang_map = (
     'Latin' => 'la',
     'Japanese' => 'ja',
     'Dutch' => 'nl',
-    'Spanish' => 'es'
+    'Spanish' => 'es',
+    'Swedish' => 'sv'
     );
 # storage fields
 my $arch_id_field = 'ID_Archive';
@@ -139,6 +142,9 @@ logger('DEBUG', "dry-run: $dry_run");
 # use online mode
 my $online_mode = (exists $$args{'online-mode'}) ? $$args{'online-mode'} : 0;
 logger('DEBUG', "online_mode: $online_mode");
+# online base dir
+my $online_base_dir = (exists $$args{'online-base'}) ? $$args{'online-base'} : "";
+logger('DEBUG', "online_base_dir: $online_base_dir");
 
 # use einstein-cw mode
 my $cw_mode = (exists $$args{'cw-mode'}) ? $$args{'cw-mode'} : 0;
@@ -153,6 +159,9 @@ logger('DEBUG', "map_file_name: $map_fil
 my $mapping_doc;
 my $mapping_root;
 
+# access type
+my $access_type = (exists $$args{'access'}) ? $$args{'access'} : "";
+
 # index.meta namespace (not really implemented!)
 my $namespace = "";
 
@@ -170,7 +179,7 @@ if (! $infile) {
     exit 1;
 }
 # strip double slashes
-$infile =~ s/\/\//\//;
+$infile = sstrip($infile, 1);
 if (! -f $infile) {
     logger("ABORT", "input file \'$infile\' doesn't exist!");
     exit 1;
@@ -273,15 +282,21 @@ sub find_cw_dir {
 
 sub find_permanent_dir {
     my ($input_node) = @_;
+    my $online_id = sstrip($input_node->findvalue("fm:$online_id_field"));
+    # try online_base_dir + online_id first
+    if (($online_base_dir)&&($online_id)) {
+	my $dir = sstrip("$online_base_dir/$online_id", 1);
+	return $dir;
+    }
+    # then online_url
     my $online_base = '/mpiwg/online/permanent';
-    my $src_dir = find_online_dir($input_node, $online_base, 'pageimg');
-    my $dest_id = sstrip($input_node->findvalue("fm:$online_id_field"));
-    if (! $dest_id) {
-	logger('ERROR', "no ID field for online permanent entry");
+    my $online_dir = find_online_dir($input_node, $online_base, 'pageimg');
+    if ((! $online_dir)) {
+	logger('ERROR', "no ID or URL for online permanent entry");
 	$errcnt++;
 	return;
     }
-    my $dir = "$online_base/$src_dir";
+    my $dir = sstrip("$online_base/$online_dir", 1);
     return $dir;
 }
 
@@ -310,7 +325,8 @@ sub find_online_dir {
     if ($online_dir) {
 	$online_dir =~ s/\/$//; # strip ending slashes
 	if ($page_dir) {
-	  $online_dir =~ s/\/${page_dir}$//;
+	    # strip page_dir
+	    $online_dir =~ s/\/${page_dir}$//;
 	}
 	#logger("DEBUG", "dir: $base_dir/$online_dir");
 	if (-d "$base_dir/$online_dir") {
@@ -455,7 +471,16 @@ sub process_fm_entry {
     # derived-from
     if ($derived_from) {
        create_text_path('derived-from/archive-path', $derived_from, $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
     my $cnt = convert_bib($input_node, $index_root, $index_doc);