aplinfo: factoring out regex for vztmpl

Signed-off-by: Lorenz Stechauner <l.stechauner@proxmox.com>

diff --git a/PVE/APLInfo.pm b/PVE/APLInfo.pm
index 31522ae57898853326201618c2fad110c3b0646e..fa991a1b6a3f5e6fbf261623306e1b1ff49a09d2 100644 (file)
--- a/PVE/APLInfo.pm
+++ b/PVE/APLInfo.pm
@@ -8,6 +8,7 @@ use LWP::UserAgent;
 use POSIX qw(strftime);
 
 use PVE::SafeSyslog;
+use PVE::Storage;
 use PVE::Tools qw(run_command);
 use PVE::pvecfg;
 
@@ -83,7 +84,7 @@ sub read_aplinfo_from_fh {
            my $template;
            if ($res->{location}) {
                $template = $res->{location};
-               $template =~ s|.*/([^/]+.tar.[gx]z)$|$1|;
+               $template =~ s|.*/([^/]+$PVE::Storage::vztmpl_extension_re)$|$1|;
                if ($res->{location} !~ m|^([a-zA-Z]+)\://|) {
                    # relative localtion (no http:// prefix)
                    $res->{location} = "$source/$res->{location}";