admin.vm.Create: add 'created-by-' tag

qubes/api/admin.py

@@ -737,6 +737,7 @@ class QubesAdminAPI(qubes.api.AbstractQubesAPI):
         self.fire_event_for_permission(pool=pool, pools=pools, **kwargs)
 
         vm = self.app.add_new_vm(vm_class, **kwargs)
+        vm.tags.add('created-by-' + str(self.src))
 
         try:
             yield from vm.create_on_disk(pool=pool, pools=pools)