Reinstate support for eXist-db 4.x.x

Author: adamretter

modules/get-package.xq

@@ -11,6 +11,7 @@ xquery version "3.1";
 import module namespace config="http://exist-db.org/xquery/apps/config" at "config.xqm";
 import module namespace log="http://exist-db.org/xquery/app/log" at "log.xqm";
 
+declare namespace compression="http://exist-db.org/xquery/compression";
 declare namespace request="http://exist-db.org/xquery/request";
 declare namespace response="http://exist-db.org/xquery/response";
 declare namespace util="http://exist-db.org/xquery/util";
@@ -40,9 +41,10 @@ declare function local:log-package-not-found-event($filename as xs:string) as em
 
 
 let $filename := request:get-parameter("filename", ())
+let $wants-zip as xs:boolean := ends-with($filename, ".zip")
 let $xar-filename :=
     (: strip .zip from resource name :)
-    if (ends-with($filename, ".zip")) then
+    if ($wants-zip) then
         replace($filename, ".zip$", "")
     else
         $filename
@@ -52,7 +54,13 @@ return
         let $xar := util:binary-doc($config:packages-col || "/" || $xar-filename)
         let $log := local:log-get-package-event($xar-filename)
         return
-            response:stream-binary($xar, "application/zip")
+            if ($wants-zip) then
+                let $entry := <entry type="binary" method="store" name="/{$xar-filename}" strip-prefix="false">{$xar}</entry>
+                let $zip := compression:zip($entry, false())
+                return
+                    response:stream-binary($zip, "application/zip")
+            else
+                response:stream-binary($xar, "application/zip")
     else
         (
             response:set-status-code(404),