download-stream: allow the api call to set the content-encoding

this is useful if we want to pipe the output of a program e.g. through gzip

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/src/PVE/APIServer/AnyEvent.pm b/src/PVE/APIServer/AnyEvent.pm
index c159b8d5f3fd1330e57876723bfc671c92c71210..31556cedbddec46f88252ca00da64da08275bc42 100644 (file)
--- a/src/PVE/APIServer/AnyEvent.pm
+++ b/src/PVE/APIServer/AnyEvent.pm
@@ -413,6 +413,7 @@ sub send_file_start {
 
            if (ref($download) eq 'HASH') {
                $mime = $download->{'content-type'};
+               my $encoding = $download->{'content-encoding'};
 
                if ($download->{path} && $download->{stream} &&
                    $reqstate->{request}->header('PVEDisableProxy'))
@@ -424,6 +425,7 @@ sub send_file_start {
                        pvestreamfile => $download->{path},
                        Content_Type => $mime,
                    );
+                   $header->header('Content-Encoding' => $encoding) if defined($encoding);
                    # we need some data so Content-Length gets set correctly and
                    # the proxy doesn't wait for more data - place a canary
                    my $resp = HTTP::Response->new(200, "OK", $header, "error canary");
@@ -441,6 +443,7 @@ sub send_file_start {
 
                if ($download->{stream}) {
                    my $header = HTTP::Headers->new(Content_Type => $mime);
+                   $header->header('Content-Encoding' => $encoding) if defined($encoding);
                    my $resp = HTTP::Response->new(200, "OK", $header);
                    $self->response($reqstate, $resp, undef, 1, 0, $fh);
                    return;