Commit b9cfc0db authored by Francesc Guasch's avatar Francesc Guasch
Browse files

[#507] default VM names

parent 04998785
......@@ -23,6 +23,7 @@ create_domain
search_id_iso
flush_rules open_ipt
arg_create_dom
vm_names
);
our $DEFAULT_CONFIG = "t/etc/ravada.conf";
......@@ -33,7 +34,10 @@ our $CONT_POOL= 0;
our $USER_ADMIN;
our $CHAIN = 'RAVADA';
our %ARG_CREATE_DOM = ();
our %ARG_CREATE_DOM = (
KVM => []
,Void => []
);
sub user_admin {
return $USER_ADMIN;
......@@ -46,6 +50,10 @@ sub arg_create_dom {
return @{$ARG_CREATE_DOM{$vm_name}};
}
sub vm_names {
return sort keys %ARG_CREATE_DOM;
}
sub create_domain {
my $vm_name = shift;
my $user = (shift or $USER_ADMIN);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment