[pmg-devel] [PATCH pmg-api] fix #4536: parse original filenames from gzip files

[Leo Nunner]

GZIP provides the possiblity to store the original filename in the
optional FNAME header field, which we can use for 'Match Archive
Filename' rules.

IO::Uncompress::Gunzip is explicitly recommended for this purpose by the
documentation on Compress::Zlib, so an additional imnport was
introduced here.

Signed-off-by: Leo Nunner <l.nunner at proxmox.com>
---
 src/PMG/Unpack.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/PMG/Unpack.pm b/src/PMG/Unpack.pm
index d4fe454..f79ed3f 100755
--- a/src/PMG/Unpack.pm
+++ b/src/PMG/Unpack.pm
@@ -7,6 +7,7 @@ use IO::Select;
 use Xdgmime;
 use Compress::Zlib qw(gzopen);
 use Compress::Bzip2 qw(bzopen);
+use IO::Uncompress::Gunzip;
 use File::Path;
 use File::Temp qw(tempdir);
 use File::Basename;
@@ -298,6 +299,13 @@ sub uncompress_file {
 	$maxsize = min2 ($maxsize, $filesize * $self->{maxratio});
     }
 
+    if($app eq 'guzip' && (my $z = IO::Uncompress::Gunzip->new($filename))) {
+	# the name (FNAME) field is optional in GZIP archives, so we won't
+	# always have a value here
+	my $header = $z->getHeaderInfo();
+	$newname = $header->{Name} if $header->{Name};
+    }
+
     $self->add_glob_mime_type ($newname);
 
     my $outfd;
-- 
2.30.2