If a deleted image, and no type list, try to derive one by looking for an

existing image in emulab-ops. This is a last resort, as we do store a copy
of the typelist in the descriptor for just this purpose, but stuff happens.

utils/clone_image.in

@@ -453,6 +453,12 @@ if (($isvirtnode || $base_osinfo) && $base_osinfo->def_parentosid()) {
 #
 if (defined($base_image)) {
     my @typelist = $base_image->TypeList($base_osinfo);
+    if (! @typelist && defined($base_image->deleted())) {
+	my $sysimage = Image->LookupByName($base_image->imagename());
+	if (defined($sysimage)) {
+	    @typelist = $sysimage->TypeList();
+	}
+    }
     if (! @typelist) {
 	fatal("$base_image does not run on any types");
     }