Skip to content
GitLab
Commit 90afd5cf authored by Francesc Guasch's avatar Francesc Guasch
Browse files

Merge branch 'feat/cool_new_branch' of... 

Merge branch 'feat/cool_new_branch' of https://github.com/robertperez-upc/ravada into robertperez-upc-feat/cool_new_branch
parent ec0a0091
Hide whitespace changes
Inline Side-by-side
lib/Ravada/Domain.pm
View file @ 90afd5cf
......@@ -2671,9 +2671,10 @@ sub clone {
my $request = delete $args{request};
my $memory = delete $args{memory};
my $start = delete $args{start};
my $is_pool = delete $args{is_pool};
my $no_pool = delete $args{no_pool};
my $with_cd = delete $args{with_cd};
my $volatile = delete $args{volatile};
my $id_owner = delete $args{id_owner};
confess "ERROR: Unknown args ".join(",",sort keys %args)
if keys %args;
......@@ -2692,7 +2693,7 @@ sub clone {
delete $args2{from_pool};
return $self->_copy_clone(%args2) if !$self->is_base && $self->id_base();
my $uid = $user->id;
my $uid = $id_owner || $user->id;
if ( !$self->is_base() ) {
$request->status("working","Preparing base") if $request;
......@@ -2706,6 +2707,7 @@ sub clone {
push @args_copy, ( remote_ip => $remote_ip) if $remote_ip;
push @args_copy, ( from_pool => $from_pool) if defined $from_pool;
push @args_copy, ( add_to_pool => $add_to_pool) if defined $add_to_pool;
push @args_copy, ( volatile => $volatile ) if defined $volatile;
my $vm = $self->_vm;
if ($self->volatile_clones ) {
......@@ -2747,6 +2749,9 @@ sub _copy_clone($self, %args) {
my $memory = delete $args{memory};
my $request = delete $args{request};
my $add_to_pool = delete $args{add_to_pool};
my $volatile = delete $args{volatile};
my $id_owner = delete $args{id_owner};
$id_owner = $user->id if (! $id_owner);
confess "ERROR: Unknown arguments ".join(",",sort keys %args)
if keys %args;
......@@ -2755,6 +2760,7 @@ sub _copy_clone($self, %args) {
my @copy_arg;
push @copy_arg, ( memory => $memory ) if $memory;
push @copy_arg, ( volatile => $volatile ) if $volatile;
$request->status("working","Copying domain ".$self->name
." to $name") if $request;
......@@ -2762,7 +2768,7 @@ sub _copy_clone($self, %args) {
my $copy = $self->_vm->create_domain(
name => $name
,id_base => $base->id
,id_owner => $user->id
,id_owner => $id_owner
,from_pool => 0
,@copy_arg
);
......@@ -2794,7 +2800,7 @@ sub _copy_ports($base, $copy) {
for my $port ( $base->list_ports ) {
my %port = %$port;
next if $port_already{$port->{internal_port}};
delete @port{'id','id_domain','public_port','is_secondary'};
delete @port{'id','id_domain','public_port','is_secondary','is_active'};
$copy->expose(%port);
}
......@@ -4927,7 +4933,7 @@ sub _pre_clone($self,%args) {
confess "ERROR: Missing user owner of new domain" if !$user;
for (qw(is_pool start add_to_pool from_pool with_cd)) {
for (qw(is_pool start add_to_pool from_pool with_cd volatile id_owner)) {
delete $args{$_};
}
confess "ERROR: Unknown arguments ".join(",",sort keys %args) if keys %args;
......
lib/Ravada/Front.pm
View file @ 90afd5cf
......@@ -128,23 +128,23 @@ Returns: listref of machines
=cut
sub list_machines_user($self, $user, $access_data={}) {
sub _list_machines_user($self, $user, $access_data, $typeof) {
my $base = $typeof ? 1 : 0;
my $sth = $CONNECTOR->dbh->prepare(
"SELECT id,name,is_public, description, screenshot"
"SELECT id,name,is_public, description, screenshot, id_owner"
." FROM domains "
." WHERE is_base=1"
." WHERE is_base=$base"
." ORDER BY name "
);
my ($id, $name, $is_public, $description, $screenshot);
my ($id, $name, $is_public, $description, $screenshot, $id_owner);
$sth->execute;
$sth->bind_columns(\($id, $name, $is_public, $description, $screenshot));
$sth->bind_columns(\($id, $name, $is_public, $description, $screenshot, $id_owner));
my $bookings_enabled = $self->setting('/backend/bookings');
my @list;
while ( $sth->fetch ) {
next if !$is_public && !$user->is_admin;
next if !$is_public && !$user->is_admin && (($typeof) || ($user->id != $id_owner));
next if !$user->allowed_access($id);
# check if enabled settings and this user not allowed
......@@ -196,6 +196,14 @@ sub list_machines_user($self, $user, $access_data={}) {
return \@list;
}
sub list_machines_user($self, $user, $access_data={}) {
return _list_machines_user($self, $user, $access_data, 1);
}
sub list_private_machines_user($self, $user, $access_data={}) {
return _list_machines_user($self, $user, $access_data, 0);
}
sub _access_allowed($self, $id_base, $id_clone, $access_data) {
if ($id_clone) {
my $clone = Ravada::Front::Domain->open($id_clone);
......
lib/Ravada/Request.pm
View file @ 90afd5cf
......@@ -86,7 +86,7 @@ our %VALID_ARG = (
,check_storage => { uid => 1 }
,set_base_vm=> {uid => 1, id_vm=> 1, id_domain => 1, value => 2 }
,cleanup => { timeout => 2 }
,clone => { uid => 1, id_domain => 1, name => 2, memory => 2, number => 2
,clone => { uid => 1, id_domain => 1, name => 2, memory => 2, number => 2, volatile => 2, id_owner => 2
# If base has pools, from_pool = 1 if undefined
# when from_pool is true the clone is picked from the pool
# when from_pool is false the clone is created
......
lib/Ravada/VM.pm
View file @ 90afd5cf
......@@ -424,8 +424,9 @@ sub _around_create_domain {
|| $owner->can_create_machine()
|| ($base && $owner->can_clone);
confess "ERROR: Base ".$base->name." is private"
if !$owner->is_admin && $base && !$base->is_public();
# Do not check if base is public to allow not public machines to be copied
# confess "ERROR: Base ".$base->name." is private"
# if !$owner->is_admin && $base && !$base->is_public();
if ($add_to_pool) {
confess "Error: This machine can only be added to a pool if it is a clone"
......@@ -474,7 +475,7 @@ sub _around_create_domain {
}
}
my $user = Ravada::Auth::SQL->search_by_id($id_owner);
$domain->is_volatile(1) if $user->is_temporary() ||($base && $base->volatile_clones());
$domain->is_volatile(1) if $user->is_temporary() ||($base && $base->volatile_clones()) || $volatile;
my @start_args = ( user => $owner );
push @start_args, (remote_ip => $remote_ip) if $remote_ip;
......@@ -821,7 +822,7 @@ sub _check_require_base {
delete $args{start};
delete $args{remote_ip};
delete @args{'_vm','name','vm', 'memory','description','id_iso','listen_ip','spice_password','from_pool'};
delete @args{'_vm','name','vm', 'memory','description','id_iso','listen_ip','spice_password','from_pool', 'volatile'};
confess "ERROR: Unknown arguments ".join(",",keys %args)
if keys %args;
......@@ -844,10 +845,12 @@ sub _check_require_base {
die "ERROR: Domain ".$self->name." is not base"
if !$base->is_base();
my $user = Ravada::Auth::SQL->search_by_id($id_owner);
# Do not check if base is public to allow not public machines to be copied
# my $user = Ravada::Auth::SQL->search_by_id($id_owner);
die "ERROR: Base ".$base->name." is not public\n"
unless $user->is_admin || $base->is_public;
# die "ERROR: Base ".$base->name." is not public\n"
# unless $user->is_admin || $base->is_public;
}
=head2 id
......
lib/Ravada/WebSocket.pm
View file @ 90afd5cf
......@@ -32,6 +32,7 @@ my %SUB = (
,list_machines => \&_list_machines
,list_machines_tree => \&_list_machines_tree
,list_machines_user => \&_list_machines_user
,list_machines_user_including_privates => \&_list_machines_user_including_privates
,list_bases_anonymous => \&_list_bases_anonymous
,list_requests => \&_list_requests
,machine_info => \&_get_machine_info
......@@ -182,6 +183,20 @@ sub _list_machines_user($rvd, $args) {
return $ret;
}
sub _list_machines_user_including_privates($rvd, $args) {
my $login = $args->{login} or die "Error: no login arg ".Dumper($args);
my $user = Ravada::Auth::SQL->new(name => $login)
or die "Error: uknown user $login";
my $client = $args->{client};
my $ret = $rvd->list_machines_user($user, {client => $client});
my $priv_machines = $rvd->list_private_machines_user($user, {client => $client});
push(@$ret, $_) foreach (@$priv_machines);
return $ret;
}
sub _list_bases_anonymous($rvd, $args) {
my $remote_ip = $args->{remote_ip} or die "Error: no remote_ip arg ".Dumper($args);
return $rvd->list_bases_anonymous($remote_ip);
......
public/js/ravada.js
View file @ 90afd5cf
......@@ -159,7 +159,7 @@
var subscribe_list_machines_user = function(url) {
$scope.machines = [];
var channel = 'list_machines_user';
var channel = 'list_machines_user_including_privates';
if ($scope.anonymous) {
channel = 'list_bases_anonymous';
}
......@@ -264,6 +264,7 @@
var data = JSON.parse(event.data);
$scope.$apply(function () {
$scope.showmachine = data;
$scope.copy_is_volatile = $scope.showmachine.is_volatile;
if (!subscribed_extra) {
subscribed_extra = true;
subscribe_nodes(url,data.type);
......@@ -575,6 +576,9 @@
,'copy_number': $scope.copy_number
,'copy_ram': $scope.copy_ram
,'new_name': $scope.new_name
,'new_owner': $scope.copy_owner
,'copy_is_volatile': $scope.copy_is_volatile
,'copy_is_pool': $scope.copy_is_pool
})
).then(function(response) {
// if there are many , we pick the last one
......@@ -825,6 +829,7 @@
$scope.list_users=response.data;
for (var i = 0; i < response.data.length; i++) {
if (response.data[i].id == $scope.showmachine.id_owner) {
$scope.copy_owner = response.data[i].id;
$scope.new_owner = response.data[i];
}
}
......
script/rvd_front
View file @ 90afd5cf
......@@ -3002,9 +3002,19 @@ sub copy_machine {
my $base = $RAVADA->search_domain_by_id($id_base) or confess "I can't find domain $id_base";
my $name = ( $new_name or $base->name."-".$USER->name );
$USER = _logged_in($c);
my $owner = $arg->{new_owner};
$owner = undef if (! $USER) || (! $USER->is_admin);
confess "owner do not exists" if ($owner) && (! Ravada::Auth::SQL->new(name => $owner));
my @create_args = ( from_pool => 0 );
push @create_args,( memory => $ram ) if $ram;
push @create_args, ( name => $name ) if !defined $number || $number == 1;
push @create_args, ( name => $name ) if $number == 1;
push @create_args, ( id_owner => $owner ) if ($owner);
push @create_args, ( volatile => $arg->{copy_is_volatile} ? 1 : 0 );
push @create_args, ( add_to_pool => $arg->{copy_is_pool} && $base->is_pool() ? 1 : 0 );
my $req2 = Ravada::Request->clone(
uid => $USER->id
, id_domain => $base->id
......
templates/main/list_bases_ng.html.ep
View file @ 90afd5cf
......@@ -15,7 +15,7 @@
<div class="card-body">
<div ng-repeat="machine in machines | orderBy: 'id_clone'"
class="col-sm-4 d-inline-block mb-2"
ng-show="machine.is_public || (!machine.is_public && !only_public)">
ng-show="machine.is_public || (!only_public)">
<div class="card card-success">
<div class="card-header" id="step1" >
<h3 class="card-title">
......
templates/main/vm_copy.html.ep
View file @ 90afd5cf
......@@ -33,6 +33,30 @@
<input class="form-control" ng-model="copy_ram" type="text" size="3">
</div>
</div>
<div class="row">
<div class="col-md-12 mt-12">
<input type="checkbox" name="copy_is_volatile" ng-model="copy_is_volatile">
<label class="control-label" for="copy_is_volatile"><%=l 'Volatile' %></label>
</div>
</div>
<div class="row" ng-show="showmachine.is_pool">
<div class="col-md-12 mt-12">
<input type="checkbox" name="copy_is_pool" ng-model="copy_is_pool">
<label class="control-label" for="copy_is_pool"><%=l 'Pool' %></label>
</div>
</div>
% if ($USER->is_admin){
<div class="form-group row">
<div class="col-md-2 mt-2">
<label class="control-label" for="copy_owner"><%=l 'Owner' %></label>
</div>
<div class="col-md-4">
<select class="form-control" ng-model="copy_owner" name="copy_owner">
<option ng-repeat="user in list_users" ng-value="user.id" ng-selected="user.id == copy_owner">{{user.name}}</option>
</select>
</div>
</div>
% }
<div ng-show="copy_request" class="alert alert-warning">
Copy {{showmachine.name}} {{copy_request.status}}.
<br/>
......
templates/main/vm_options.html.ep
View file @ 90afd5cf
......@@ -197,7 +197,7 @@
<label class="control-label" for="new_owner"><%=l 'Owner' %></label>
</div>
<div class="col-lg-4">
<select ng-model="new_owner" name="id_owner"
<select class="form-control" ng-model="new_owner" name="id_owner"
ng-options="user.name for user in list_users track by user.id"
ng-change="set_value('id_owner',new_owner.id)"
>
......
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