--- foxridge-archiver/makemeta-lib.pl	2005/08/23 15:01:08	1.5
+++ foxridge-archiver/makemeta-lib.pl	2006/05/16 18:58:21	1.8
@@ -3,20 +3,21 @@
 use strict;
 use XML::LibXML;
 
-use lib '/usr/local/mpiwg/archive_devel';
+use lib '/usr/local/mpiwg/archive';
 use MPIWGStor;
 
 # make output unbuffered
 $|=1;
 
 # program version
-my $version = "0.2.1 (15.8.2005)";
+my $version = "0.2.3 (16.5.2006 ROC)";
 my $help = 
 "use: makemeta-lib [options] file.xml
 options:
   -debug  show debugging info
   -dry-run  simulate, dont'do anything
-  -cw-mode  mode for copying einstein_cq documents
+  -online-mode  mode for creating online/permanent files
+  -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)
 ";
@@ -135,6 +136,10 @@ $debug = (exists $$args{'debug'}) ? $$ar
 my $dry_run = (exists $$args{'dry-run'}) ? $$args{'dry-run'} : 0;
 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");
+
 # use einstein-cw mode
 my $cw_mode = (exists $$args{'cw-mode'}) ? $$args{'cw-mode'} : 0;
 logger('DEBUG', "cw_mode: $cw_mode");
@@ -266,6 +271,20 @@ sub find_cw_dir {
     return;
 }
 
+sub find_permanent_dir {
+    my ($input_node) = @_;
+    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");
+	$errcnt++;
+	return;
+    }
+    my $dir = "$online_base/$src_dir";
+    return $dir;
+}
+
 #
 # $dir = find_online_dir($input_node, $base_dir, $page_dir)
 #
@@ -289,12 +308,13 @@ sub find_online_dir {
     }
     #logger('DEBUG', "online_dir1: $online_dir");
     if ($online_dir) {
+	$online_dir =~ s/\/$//; # strip ending slashes
 	if ($page_dir) {
 	  $online_dir =~ s/\/${page_dir}$//;
 	}
 	#logger("DEBUG", "dir: $base_dir/$online_dir");
 	if (-d "$base_dir/$online_dir") {
-	    logger('DEBUG', "directory $base_dir/$online_dir exists"); 
+	    logger('DEBUG', "directory $base_dir/$online_dir exists");
 	    return $online_dir;
 	}
     }
@@ -397,10 +417,14 @@ sub process_fm_entry {
     $index_root->addChild($index_doc->createAttributeNS($namespace, 'version', '1.1'));
     $index_root->addChild($index_doc->createAttributeNS($namespace, 'type', 'MPIWG'));
     $index_doc->setDocumentElement($index_root);
+    my $derived_from = "";
 
     # try to find the document directory
     my $doc_dir = "";
-    if ($cw_mode) {
+    if ($online_mode) {
+	$doc_dir = find_permanent_dir($input_node);
+	$derived_from = find_arch_dir($input_node);
+    } elsif ($cw_mode) {
 	$doc_dir = find_cw_dir($input_node);
     } elsif ($digifiles_mode) {
 	$doc_dir = find_digifiles_dir($input_node);
@@ -428,6 +452,10 @@ sub process_fm_entry {
     # media
     create_text_path('media-type', 'image', $index_root, $namespace);
     create_text_path('meta/content-type', 'scanned document', $index_root, $namespace);
+    # derived-from
+    if ($derived_from) {
+       create_text_path('derived-from/archive-path', $derived_from, $index_root, $namespace);
+     }
 
     # convert bib entries
     my $cnt = convert_bib($input_node, $index_root, $index_doc);