[pve-devel] [PATCH manager v8 1/2] fix #4849: api: download to storage: automatically dectect and configure compression
Philipp Hufnagl
p.hufnagl at proxmox.com
Thu Sep 21 15:09:16 CEST 2023
extends the query_url_metadata callback with the functionallity to
detect used compressions. If a compression is used it tells the ui which
one
Signed-off-by: Philipp Hufnagl <p.hufnagl at proxmox.com>
---
PVE/API2/Nodes.pm | 22 +++++++++++++++++++++-
1 file changed, 21 insertions(+), 1 deletion(-)
diff --git a/PVE/API2/Nodes.pm b/PVE/API2/Nodes.pm
index 5a148d1d..1e8ed09e 100644
--- a/PVE/API2/Nodes.pm
+++ b/PVE/API2/Nodes.pm
@@ -34,6 +34,7 @@ use PVE::RRD;
use PVE::Report;
use PVE::SafeSyslog;
use PVE::Storage;
+use PVE::Storage::Plugin;
use PVE::Tools;
use PVE::pvecfg;
@@ -1564,7 +1565,13 @@ __PACKAGE__->register_method({
type => 'boolean',
optional => 1,
default => 1,
- }
+ },
+ 'detect-compression' => {
+ description => "If true an auto detection of used compression will be attempted",
+ type => 'boolean',
+ optional => 1,
+ default => 0,
+ },
},
},
returns => {
@@ -1583,6 +1590,11 @@ __PACKAGE__->register_method({
type => 'string',
optional => 1,
},
+ compression => {
+ type => 'string',
+ enum => $PVE::Storage::Plugin::KNOWN_COMPRESSION_FORMATS,
+ optional => 1,
+ },
},
},
code => sub {
@@ -1605,6 +1617,7 @@ __PACKAGE__->register_method({
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
);
}
+ my $detect_compression = $param->{'detect-compression'} // 0;
my $req = HTTP::Request->new(HEAD => $url);
my $res = $ua->request($req);
@@ -1615,6 +1628,7 @@ __PACKAGE__->register_method({
my $disposition = $res->header("Content-Disposition");
my $type = $res->header("Content-Type");
+ my $compression;
my $filename;
if ($disposition && ($disposition =~ m/filename="([^"]*)"/ || $disposition =~ m/filename=([^;]*)/)) {
@@ -1628,10 +1642,16 @@ __PACKAGE__->register_method({
$type = $1;
}
+ if ($detect_compression && $filename =~ m!^(.+)\.(${\PVE::Storage::Plugin::COMPRESSOR_RE})$!) {
+ $filename = $1;
+ $compression = $2;
+ }
+
my $ret = {};
$ret->{filename} = $filename if $filename;
$ret->{size} = $size + 0 if $size;
$ret->{mimetype} = $type if $type;
+ $ret->{compression} = $compression if $compression;
return $ret;
}});
--
2.39.2
More information about the pve-devel
mailing list