From 01a66903f3394f212eac2a0f1351091524ba4f18 Mon Sep 17 00:00:00 2001
From: Eric van der Vlist <vdv@dyomedea.com>
Date: Fri, 13 Apr 2012 19:08:04 +0200
Subject: [PATCH] First version that can produce a packaged archive.

---
 .../pipelines/actions/archive-resource.xpl    | 12 ++++-
 archiver/pipelines/actions/mediatypes/css.xpl | 14 ++---
 .../pipelines/actions/mediatypes/html.xpl     | 14 ++++-
 .../pipelines/actions/package-archive.xpl     | 52 +++++++++++++++----
 4 files changed, 69 insertions(+), 23 deletions(-)

diff --git a/archiver/pipelines/actions/archive-resource.xpl b/archiver/pipelines/actions/archive-resource.xpl
index 798dc67..5bd6033 100644
--- a/archiver/pipelines/actions/archive-resource.xpl
+++ b/archiver/pipelines/actions/archive-resource.xpl
@@ -132,6 +132,16 @@ for $a in /queue/action where $a/@uuid = $(uuid) return
             <p:output name="links" id="links"/>
           </p:processor>
 
+          <!-- It's a hack so that the document is not submitted as text through the xforms:submit processor... -->
+          <p:processor name="oxf:xslt">
+            <p:input name="config">
+              <document xsl:version="2.0">
+                <xsl:copy-of select="/"/>
+              </document>
+            </p:input>
+            <p:input name="data" href="#rewritten"/>
+            <p:output name="data" id="rewritten-embedded"/>
+          </p:processor>
 
           <!-- Store the rewritten document in the database -->
           <p:processor name="oxf:pipeline">
@@ -147,7 +157,7 @@ for $a in /queue/action where $a/@uuid = $(uuid) return
                 <type>document</type>
               </config>
             </p:input>
-            <p:input name="param" href="#rewritten"/>
+            <p:input name="param" href="#rewritten-embedded"/>
             <p:output name="data" id="response3"/>
           </p:processor>
           <p:processor name="oxf:null-serializer">
diff --git a/archiver/pipelines/actions/mediatypes/css.xpl b/archiver/pipelines/actions/mediatypes/css.xpl
index f04d6db..785ca8d 100644
--- a/archiver/pipelines/actions/mediatypes/css.xpl
+++ b/archiver/pipelines/actions/mediatypes/css.xpl
@@ -23,6 +23,7 @@
         <url>
           <xsl:value-of select="/*"/>
         </url>
+        <content-type>text/css</content-type>
         <mode>text</mode>
       </config>
     </p:input>
@@ -97,18 +98,9 @@
         </xsl:template>
       </xsl:stylesheet>
     </p:input>
-    <p:output name="data" id="rewritten-local" debug="rewritten"/>
+    <p:output name="data" ref="rewritten" debug="rewritten"/>
   </p:processor>
 
-  <!-- It's a hack so that the document is not submitted as text through the xforms:submit processor... -->
-  <p:processor name="oxf:xslt">
-    <p:input name="config">
-      <document xsl:version="2.0">
-        <xsl:copy-of select="/"/>
-      </document>
-    </p:input>
-    <p:input name="data" href="#rewritten-local"/>
-    <p:output name="data" ref="rewritten"/>
-  </p:processor>
+ 
 
 </p:config>
diff --git a/archiver/pipelines/actions/mediatypes/html.xpl b/archiver/pipelines/actions/mediatypes/html.xpl
index f81e2d6..2df89fc 100644
--- a/archiver/pipelines/actions/mediatypes/html.xpl
+++ b/archiver/pipelines/actions/mediatypes/html.xpl
@@ -105,7 +105,19 @@
         </xsl:template>
       </xsl:stylesheet>
     </p:input>
-    <p:output name="data" ref="rewritten" debug="rewritten"/>
+    <p:output name="data" id="html-rewritten" debug="rewritten"/>
+  </p:processor>
+
+  <p:processor name="oxf:xml-converter">
+    <p:input name="config">
+      <config>
+        <content-type>application/xml</content-type>
+        <encoding>utf-8</encoding>
+        <version>1.0</version>
+      </config>
+    </p:input>
+    <p:input name="data" href="#html-rewritten"/>
+    <p:output name="data" ref="rewritten"/>
   </p:processor>
 
 </p:config>
diff --git a/archiver/pipelines/actions/package-archive.xpl b/archiver/pipelines/actions/package-archive.xpl
index 34b2c6e..56d54c1 100644
--- a/archiver/pipelines/actions/package-archive.xpl
+++ b/archiver/pipelines/actions/package-archive.xpl
@@ -228,10 +228,32 @@ conformsTo:
 
     <p:choose href="current()">
       <p:when test="/archive/@href-rewritten">
-        <p:processor name="oxf:identity">
-          <p:input name="data">
-            <none/>
+        <!-- Read the rewritten document -->
+        <p:processor name="oxf:pipeline">
+          <p:input name="config" href="/data-access.xpl"/>
+          <p:input name="data" transform="oxf:xslt" href="aggregate('root', #data, current())">
+            <config xsl:version="2.0">
+              <relpath>
+                <xsl:value-of select="/root/action/@directory"/>
+                <xsl:value-of select="/root/archive/@href-rewritten"/>
+              </relpath>
+              <operation>read</operation>
+              <type>document</type>
+            </config>
           </p:input>
+          <p:input name="param">
+            <empty/>
+          </p:input>
+          <p:output name="data" id="rewritten" debug="rewritten"/>
+        </p:processor>
+        <!-- Store this document -->
+        <p:processor name="oxf:file-serializer">
+          <p:input name="config">
+            <config>
+              <scope>request</scope>
+            </config>
+          </p:input>
+          <p:input name="data" href="#rewritten#xpointer(/document/document)"/>
           <p:output name="data" id="file" debug="file"/>
         </p:processor>
       </p:when>
@@ -270,13 +292,23 @@ conformsTo:
           <xsl:value-of select="/root/url"/>
         </file>
         <xsl:for-each select="/root/files/file[url]">
-          <xsl:variable name="tokens" select="tokenize(archive/@url, '/')"/>
-          <xsl:variable name="last-token" select="$tokens[last()]"/>
-          <xsl:variable name="tokens2" select="tokenize($last-token, '\.')"/>
-          <xsl:variable name="extension" select="$tokens2[last()]"/>
-          <file name="rewritten/{saxon:string-to-hexBinary(substring(archive/@url, 1, string-length(archive/@url) - string-length($extension) - 1), 'utf-8')}.{$extension}">
-            <xsl:value-of select="url"/>
-          </file>
+          <xsl:choose>
+            <xsl:when test="position()=1">
+              <!-- TODO: support non HTML documents... -->
+              <file name="rewritten/index.html">
+                <xsl:value-of select="url"/>
+              </file>
+            </xsl:when>
+            <xsl:otherwise>
+              <xsl:variable name="tokens" select="tokenize(archive/@url, '/')"/>
+              <xsl:variable name="last-token" select="$tokens[last()]"/>
+              <xsl:variable name="tokens2" select="tokenize($last-token, '\.')"/>
+              <xsl:variable name="extension" select="$tokens2[last()]"/>
+              <file name="rewritten/{saxon:string-to-hexBinary(substring(archive/@url, 1, string-length(archive/@url) - string-length($extension) - 1), 'utf-8')}.{$extension}">
+                <xsl:value-of select="url"/>
+              </file>
+            </xsl:otherwise>
+          </xsl:choose>
         </xsl:for-each>
       </files>
     </p:input>