Disallow archive paths beginning with `/`

This would have resulted in final paths starting with `.//`, which,
while probably mostly harmless, is definitely weird.

diff --git a/lib/archive2extractor.xslt b/lib/archive2extractor.xslt
index b5fb70322239a63d16bb989c839723afe9493f7f..d43be68573892f016ca11998c03b6caacd3caf2b 100644 (file)
--- a/lib/archive2extractor.xslt
+++ b/lib/archive2extractor.xslt
@@ -25,7 +25,7 @@ If a copy of the M·P·L was not distributed with this file, You can obtain one
                        version="1.0"
                >
                        <xslt:template match="/">
                        version="1.0"
                >
                        <xslt:template match="/">

-                               <for-each select="书社:archive/*[@书社:archived-as and not(starts-with(@书社:archived-as, '../') or contains(@书社:archived-as, '/../'))]">
+                               <for-each select="书社:archive/*[@书社:archived-as and not(starts-with(@书社:archived-as, '../') or starts-with(@书社:archived-as, '/') or contains(@书社:archived-as, '/../'))]">

                                        <variable name="href">
                                                <text>./extracted/</text>
                                                <choose>
                                        <variable name="href">
                                                <text>./extracted/</text>
                                                <choose>