add is_template sub

return 1 if vm is a full template (all disks are base image)
return 2 if vm is a semi-tempalte (mix of base and non-base image)

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index 2202b7ac673854c86fe160746416383a43386b28..8a795252a6672a8b0595e459656720a3348fa4c0 100644 (file)
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -4441,4 +4441,29 @@ sub template_create {
     }
 }
 
+sub is_template {
+    my ($conf) = @_;
+
+    my $baseimagecount = 0;
+    my $totalvolumecount = 0;
+    my $storecfg = PVE::Storage::config();
+
+    foreach_drive($conf, sub {
+       my ($ds, $drive) = @_;
+       return if drive_is_cdrom($drive);
+       $totalvolumecount++;
+       my $volid = $drive->{file};
+       if (PVE::Storage::volume_is_base($storecfg, $volid)){
+           $baseimagecount++;
+       }
+
+    });
+
+    return undef if $baseimagecount == 0;
+
+    return 1 if $baseimagecount == $totalvolumecount; #full template
+    return 2 if $baseimagecount < $totalvolumecount; #semi-template
+
+}
+
 1;