Merge branch 'master' into 16950-add-costanalyzer
[arvados.git] / services / keep-web / s3.go
index 15f35f36084c6d6b7dae8bf89f99fa8c7c020773..49fb2456f5851662bec9573af6e06978d930d741 100644 (file)
@@ -90,7 +90,7 @@ func s3stringToSign(alg, scope, signedHeaders string, r *http.Request) (string,
        var canonicalHeaders string
        for _, h := range strings.Split(signedHeaders, ";") {
                if h == "host" {
-                       canonicalHeaders += h + ":" + r.URL.Host + "\n"
+                       canonicalHeaders += h + ":" + r.Host + "\n"
                } else {
                        canonicalHeaders += h + ":" + r.Header.Get(h) + "\n"
                }
@@ -503,6 +503,8 @@ func (h *handler) s3list(w http.ResponseWriter, r *http.Request, fs arvados.Cust
                // github.com/aws/aws-sdk-net never terminates its
                // paging loop).
                NextMarker string `xml:"NextMarker,omitempty"`
+               // ListObjectsV2 has a KeyCount response field.
+               KeyCount int
        }
        resp := listResp{
                ListResp: s3.ListResp{
@@ -599,6 +601,7 @@ func (h *handler) s3list(w http.ResponseWriter, r *http.Request, fs arvados.Cust
                }
                sort.Slice(resp.CommonPrefixes, func(i, j int) bool { return resp.CommonPrefixes[i].Prefix < resp.CommonPrefixes[j].Prefix })
        }
+       resp.KeyCount = len(resp.Contents)
        w.Header().Set("Content-Type", "application/xml")
        io.WriteString(w, xml.Header)
        if err := xml.NewEncoder(w).Encode(resp); err != nil {