Merge branch 'develop' of https://github.com/UPC/ravada into develop

.github/ISSUE_TEMPLATE/bug_report.md

+---
+name: Bug report
+about: Create a report to help us improve
+title: ''
+labels: ''
+assignees: ''
+
+---
+
+**Describe the bug**
+A clear and concise description of what the bug is.
+
+**To Reproduce**
+Steps to reproduce the behavior:
+1. Go to '...'
+2. Click on '....'
+3. Scroll down to '....'
+4. See error
+
+**Expected behavior**
+A clear and concise description of what you expected to happen.
+
+**Screenshots**
+If applicable, add screenshots to help explain your problem.
+
+**Server (please complete the following information):**
+ - OS: [e.g. Ubuntu Server X]
+ - Browser [e.g. chrome, safari]
+ - Ravada Version [e.g. 0.6]
+
+**Client (please complete the following information):**
+ - Browser: [e.g. Firefox]
+ - OS: [e.g. Windows]
+ - Spice client version [e.g. 1.8]
+
+**Additional context**
+Add any other context about the problem here.
+
+Remember that courtesy and proper grammar go a long way.
+Please take the time to craft a precise, polite issue.
+We will do our best to help, but remember that this is an open source project - none of us are getting paid a salary to develop this project, or act as your personal support hotline ;-)
+
+Carefully search the [existing issues](https://github.com/UPC/ravada/issues), both opened and closed. Your question may have already been asked and answered before!
+

.github/ISSUE_TEMPLATE/enhancement_request.md

+---
+name: Enhancement request
+about: Suggest any enhancements for Ravada VDI project
+title: ''
+labels: ''
+assignees: ''
+
+---
+
+**Is your enhancement request related to a problem? Please describe.**
+A clear and concise description of what the problem is. Ex. I'm always frustrated when [...]
+
+**Describe the solution you'd like**
+A clear and concise description of what you want to happen.
+
+**Describe alternatives you've considered**
+A clear and concise description of any alternative solutions you've considered.
+
+**Additional context**
+Add any other context or screenshots about the enhancement request here.
+
+Remember that courtesy and proper grammar go a long way.
+Please take the time to craft a precise, polite issue.
+We will do our best to help, but remember that this is an open source project - none of us are getting paid a salary to develop this project, or act as your personal support hotline ;-)
+
+Carefully search the [existing issues](https://github.com/UPC/ravada/issues), both opened and closed. Your question may have already been asked and answered before!
+

ISSUE_TEMPLATE.md → .github/ISSUE_TEMPLATE/feature_request.md

-## TIPS FOR REPORTING ISSUES
+---
+name: Feature request
+about: Suggest an idea for Ravada VDI project
+title: ''
+labels: ''
+assignees: ''
 
-Remember that courtesy and proper grammar go a long way. 
-Please take the time to craft a precise, polite issue. 
+---
+
+**Is your feature request related to a problem? Please describe.**
+A clear and concise description of what the problem is. Ex. I'm always frustrated when [...]
+
+**Describe the solution you'd like**
+A clear and concise description of what you want to happen.
+
+**Describe alternatives you've considered**
+A clear and concise description of any alternative solutions or features you've considered.
+
+**Additional context**
+Add any other context or screenshots about the feature request here.
+
+Remember that courtesy and proper grammar go a long way.
+Please take the time to craft a precise, polite issue.
 We will do our best to help, but remember that this is an open source project - none of us are getting paid a salary to develop this project, or act as your personal support hotline ;-)
 
 Carefully search the [existing issues](https://github.com/UPC/ravada/issues), both opened and closed. Your question may have already been asked and answered before!
+

Images/Ubuntu Installation images/Readme.md

-Ubuntu screenshots to be put in the installation guide.

Images/readme.md

-This folder aims to store all of the images we might use in Ravada or Ravada Documentations.

README.md

 # ravada 
 
-[![GitHub version](https://img.shields.io/badge/version-0.4.3-brightgreen.svg)](https://github.com/UPC/ravada/releases) [![License: AGPL v3](https://img.shields.io/badge/License-AGPL%20v3-blue.svg)](https://github.com/UPC/ravada/blob/master/LICENSE)
+[![GitHub version](https://img.shields.io/badge/version-0.6.0-brightgreen.svg)](https://github.com/UPC/ravada/releases) [![License: AGPL v3](https://img.shields.io/badge/License-AGPL%20v3-blue.svg)](https://github.com/UPC/ravada/blob/master/LICENSE)
 [![Documentation Status](https://readthedocs.org/projects/ravada/badge/?version=latest)](http://ravada.readthedocs.io/en/latest/?badge=latest)
 [![Follow twitter](https://img.shields.io/twitter/follow/ravada_vdi.svg?style=social&label=Twitter&style=flat-square)](https://twitter.com/ravada_vdi)
 [![Telegram Group](https://img.shields.io/badge/Telegram-Group-blue.svg)](https://t.me/ravadavdi)

bin/rvd_benchmark_create.pl

-#!/usr/bin/perl
-
-use warnings;
-use strict;
-
-use Benchmark;
-use Carp qw(confess);
-use Getopt::Long;
-use Net::Ping;
-use Data::Dumper;
-use Ravada;
-use Ravada::Domain;
-use Ravada::Utils;
-use Sys::Virt;
-
-my ($HELP);
-my $PORT = 3000;
-my $HOST = 'localhost';
-my $N_REQUESTS;
-my $TIMEOUT = 60;
-my $KEEP = 0;
-my $CONSOLE = 1;
-my $START = 1;
-my $PING = 1;
-my $DEBUG;
-my $REMOTE_VIEWER = `which remote-viewer`;
-chomp $REMOTE_VIEWER;
-
-my $CONT = 0;
-
-$|=1;
-
-my $RVD_BACK = Ravada->new();
-my $RVD_FRONT = Ravada::Front->new();
-
-my $USER_DAEMON = Ravada::Utils->user_daemon();
-
-GetOptions(
-    help => \$HELP
-    ,debug => \$DEBUG
-    ,'requests=s' => \$N_REQUESTS
-    ,'timeout=s' => \$TIMEOUT
-    ,'keep' => \$KEEP
-    ,'console!' => \$CONSOLE
-    ,'start!' => \$START
-    ,'ping!' => \$PING
-) or exit;
-
-my ($ID_BASE) = shift @ARGV;
-
-if ($HELP || !$ID_BASE) {
-    if (!$ID_BASE) {
-        warn "ERROR: I need the id of a domain to use as base for the benchmark.\n"
-        ."    You can use any virtual machine id, but it will be converted to base if\n"
-        ."    it already hasn't.\n";
-        my $rvd_back = Ravada->new();
-        for my $machine ($rvd_back->list_domains( )) {
-            next if $machine->is_volatile || !$machine->is_base;
-            print $machine->id."\t".$machine->name;
-            print " (base)" if $machine->is_base;
-            print "\n";
-        }
-    }
-    die "$0 [--help] [--requests=X] [--timeout=$TIMEOUT] [--keep] [--console] "
-            ." [--start] [--ping] id-base\n"
-        ."  - requests: Number of requests for create machines.\n"
-        ."  - timeout: Max waiting time for machine to create.\n"
-        ."  - keep: Keep the machines created after run the test.\n"
-        ."          Machines are cleaned up by default unless this is enabled.\n"
-        ."  - console: Show the console of virtual machines.\n"
-        ."  - noconsole: Do not show de console, default is to show.\n"
-        ."  - start: Start the machines after creation.\n"
-        ."  - nostart: Do not start the machines, default is to start.\n"
-        ."  - ping: Ping the machines after startup.\n"
-        ."  - noping: Do not ping the machines, default is to ping.\n"
-            .".\n"
-        ;
-}
-
-my @CLONES;
-
-##################################################################################
-
-sub domain_ip {
-    my $id = shift;
-
-    my $domain;
-    eval { $domain = Ravada::Domain->open($id) };
-    warn $@ if $@;
-    return if !$domain;
-    my @ip;
-    eval { @ip = $domain->domain->get_interface_addresses(Sys::Virt::Domain::INTERFACE_ADDRESSES_SRC_LEASE) };
-    warn $@ if $@;
-    return $ip[0]->{addrs}->[0]->{addr} if $ip[0];
-    return;
-}
-
-sub new_domain_name {
-    my $cont = ++$CONT;
-    $cont ="0$cont" while length($cont)<3;
-    return "bench_".$$."_".$cont;
-}
-
-sub request_create {
-    my @requests;
-    for ( 1 .. $N_REQUESTS ) {
-        my $name = new_domain_name();
-        my $user = Ravada::Auth::SQL::add_user(
-            name => "user_$name"
-            ,is_temporary => 0
-        );
-
-        my @args = (
-                id_base => $ID_BASE
-                ,id_owner => $user->id
-                ,name => $name
-                ,remote_ip => '127.0.0.1'
-        );
-        push @args,(start => 1) if $START;
-        push @requests,(Ravada::Request->create_domain(@args));
-        print "Request create machine $name\n" if $DEBUG;
-    }
-    return map{ $_->id => $_ } @requests;
-}
-
-sub show_console {
-    return if !$REMOTE_VIEWER || !$CONSOLE || !$ENV{XAUTHORITY};
-    my $domain = shift;
-    my $display = $domain->display($USER_DAEMON);
-    if (!$domain->spice_password && $display) {
-        $domain->_vm->disconnect();
-        warn "Show console for domain ".$domain->name."\n";
-        my $pid = fork();
-        if(!$pid) {
-            my $cmd="$REMOTE_VIEWER -z 50 $display";
-            print `$cmd`;
-            exit 0;
-        }
-        $domain->_vm->connect();
-    }
-}
-
-sub open_domain {
-    my $req = shift;
-    confess "Req is not request" if ref($req) !~ /Request/i;
-    my $domain_name = $req->args('name');
-    my $domain;
-    my $t0 = time;
-    my $t1 = time;
-    for ( ;; ) {
-        exit_timeout($domain_name) if time-$t0 > $TIMEOUT;
-        $domain = $RVD_BACK->search_domain($domain_name);
-        confess "Domain $domain_name not a domain " if ref($domain) !~ /Domain/;
-        return $domain if $domain;
-        if ($t1 - time > 1 ) {
-            $t1 = time;
-        }
-    }
-    return;
-}
-
-sub wait_domain_active {
-    my $domain = shift;
-    my $t0 = time;
-
-    my $t1 = time;
-    my $msg = 0;
-    for ( ;; ) {
-        last if $domain->is_active;
-        last if !check_free_memory($domain->_vm);
-        exit_timeout($domain->name) if time-$t0 > $TIMEOUT;
-        if (time - $t1 > 1 ) {
-            print "\tWaiting for ".$domain->name." " if !$msg++;
-            print ".";
-            $t1 = time;
-        }
-    }
-    print "\n" if $msg;
-    show_console($domain);
-}
-
-sub check_free_memory {
-    my $vm = shift;
-
-    my $free_mem = $vm->free_memory / 1024 / 1024;
-    $free_mem =~ s/(\d+\.\d?).*/$1/;
-    return $free_mem >= 1;
-
-}
-
-sub wait_domain_up{
-    my $domain = shift;
-
-
-    my $p = Net::Ping->new('icmp');
-    my $p_tcp = Net::Ping->new('tcp');
-    my $t0 = time;
-    my $t1 = time;
-    my $ip_showed = 0;
-    my $msg = 0;
-    for ( ;; ) {
-        if ( time  - $t1 > 1) {
-            print "\tWaiting for machine ".$domain->name if !$msg++;
-            print ".";
-            $t1 = time;
-        }
-
-        exit_timeout($domain->name) if time-$t0 > $TIMEOUT;
-        last if !check_free_memory($domain->_vm);
-
-        my $is_active;
-        eval { $is_active = $domain->is_active };
-        warn $@ if $@;
-        last if $@;
-        my ($ip) = domain_ip($domain->id);
-        if ($ip) {
-            if ($msg) {
-                print " ".$ip if !$ip_showed++;
-            }
-            last if $p->ping($ip,1) || $p_tcp->ping($ip,1);
-        }
-    }
-    print "\n" if $msg;
-}
-
-sub shutdown_all {
-    my $verbose = shift;
-    my @machines = $RVD_BACK->list_domains(active => 1);
-    my @reqs;
-    my $n = 0;
-    for my $machine( @machines ) {
-        push @reqs,(Ravada::Request->force_shutdown_domain(
-            uid => $USER_DAEMON->id
-            ,id_domain => $machine->id
-        ));
-        print "Shutting down ".$machine->name."\n" if $verbose;
-        $n++;
-    }
-    return if !$n;
-    print "Waiting for $n machines to shut down\n" if $n;
-    for ( 1 .. $TIMEOUT * $n ) {
-        my $pending = 0;
-        for my $req(@reqs) {
-            $pending++ if $req->status ne 'done';
-        }
-        last if !$pending;
-        print ".";
-        sleep 1;
-    }
-
-    for ( 1 .. $TIMEOUT * $n) {
-        my $still_there = 0;
-        for my $machine( @machines ) {
-            my $domain;
-            eval { $domain = Ravada::Domain->open($machine->id) };
-            warn $@ if $@ && $@ !~ /Domain not found/;
-            $still_there++ if $domain && $domain->is_active;
-        }
-        last if !$still_there;
-        print ".";
-        sleep 1;
-    }
-    print "\n";
-}
-
-sub remove_old {
-    remove_old_machines();
-    remove_old_users();
-}
-sub remove_old_users {
-    for my $user_f ( @{$RVD_FRONT->list_users} ) {
-        next if $user_f->{name} !~ /^user_bench/;
-        my $user = Ravada::Auth::SQL->search_by_id($user_f->{id});
-        $user->remove();
-    }
-}
-
-sub remove_old_machines {
-    my @machines = $RVD_BACK->list_domains();
-    my @reqs;
-    for my $machine( @machines ) {
-        next if $machine->name !~ /^bench/;
-        warn "Removing ".$machine->name."\n" if $DEBUG;
-        push @reqs,(Ravada::Request->remove_domain(
-            uid => $USER_DAEMON->id
-            ,name => $machine->name
-        ));
-    }
-    return if !scalar @reqs;
-    print "Waiting for ".scalar(@reqs)." machines to be removed.\n";
-    for ( 1 .. $TIMEOUT * scalar(@reqs) ) {
-        my $pending = 0;
-        for my $req(@reqs) {
-            $pending++ if $req->status ne 'done';
-        }
-        last if !$pending;
-        print ".";
-        sleep 1;
-    }
-
-}
-
-sub set_base_volatile_anon {
-    my $domain = Ravada::Domain->open($ID_BASE);
-    if ( !$domain->is_base ) {
-        print "Preparing base for ".$domain->name."\n";
-        $domain->prepare_base($USER_DAEMON);
-    }
-    $domain->is_public(1);
-    $domain->volatile_clones(0);
-
-}
-
-sub init {
-    my $base = Ravada::Domain->open($ID_BASE);
-    my $free_memory = $base->_vm->free_memory();
-    my $info = $base->get_info();
-    my $cpu_count = `grep -c -P '^processor\\s+:' /proc/cpuinfo`;
-    chomp $cpu_count;
-    my $rec_n_requests = int($free_memory / $info->{memory})-1;
-    $rec_n_requests = $base->_vm->active_limit
-        if $base->_vm->active_limit
-            && $base->_vm->active_limit < int($free_memory / $info->{memory})-1
-            && int($cpu_count);
-
-    $N_REQUESTS = $rec_n_requests if !$N_REQUESTS;
-
-    if ( $N_REQUESTS != $rec_n_requests) {
-        warn "WARNING: You requested the creation of $N_REQUESTS machines.\n"
-            ."But with ".int($free_memory / 1024 /1024)." Gb free it is recommended"
-            ." the creation of $rec_n_requests\n";
-    }
-
-    print "Benchmarking the creation of $N_REQUESTS machines cloned from "
-    .$base->name
-    ."\n";
-}
-
-sub exit_timeout {
-    my $name = shift;
-    print "ERROR: Timeout waiting";
-    print " for domain $name\n";
-    shutdown_all();
-    exit -1;
-}
-
-sub check_rvd_back {
-    my $req = Ravada::Request->ping_backend();
-    for ( 1 .. 5 ) {
-        last if $req->status eq 'done';
-        sleep 1;
-    }
-    die "ERROR: I couldn't connect to rvd_back. "
-        .($req->error or '')
-        ."\n"
-        if $req->status ne 'done' || $req->error();
-
-    print "rvd_back connected.\n";
-}
-
-sub remove_old_requests {
-    my $sth = $RVD_BACK->connector->dbh->prepare(
-        "SELECT id FROM requests "
-        ." WHERE "
-        ."    ( command = 'create'  OR command = 'ping_backend' )"
-        ."    AND status <> 'done' "
-    );
-    my $sth_del = $RVD_BACK->connector->dbh->prepare("DELETE FROM requests WHERE id=?");
-    $sth->execute();
-    while (my ($id) = $sth->fetchrow) {
-        my $request = Ravada::Request->open($id);
-        next if $request->command eq 'create'
-            && $request->args('name') !~ /^bench_/;
-        $sth_del->execute($id);
-    }
-    $sth->finish;
-}
-
-sub END {
-    for my $domain (@CLONES) {
-        Ravada::Request->shutdown_domain(id_domain => $domain->id, uid => $USER_DAEMON->id);
-    }
-    remove_old() if !$KEEP;
-    remove_old_requests();
-}
-#####################################################################################
-
-remove_old_requests();
-check_rvd_back();
-remove_old()    if !$KEEP;
-shutdown_all(1);
-init();
-set_base_volatile_anon();
-
-my %requests = request_create();
-
-my $t0 = Benchmark->new();
-
-print "Waiting for ".scalar (keys %requests)." requests to run";
-for ( ;; ) {
-    my $n_pending = 0;
-    for my $id_req (sort { $requests{$a}->args('name') cmp $requests{$b}->args('name') } keys %requests) {
-        my $req = $requests{$id_req};
-        $n_pending++ if $req->status ne 'done';
-        if ($req->status eq 'done') {
-            if ( $req->error ) {
-                warn $req->error
-            } else {
-                my $domain = open_domain($req);
-                push @CLONES,($domain)  if $domain;
-                last if !check_free_memory($domain->_vm);
-            }
-            delete $requests{$id_req};
-            print ".";
-        }
-    }
-    last if !$n_pending;
-}
-print "\n";
-
-if ($START) {
-    print "Waiting for domains to start\n";
-    for my $domain (@CLONES) {
-        wait_domain_active($domain);
-        last if !check_free_memory($domain->_vm);
-    }
-}
-
-if ($START && $PING) {
-    print "Waiting for domains to ping\n";
-    for my $domain (@CLONES) {
-        wait_domain_up($domain);
-        last if !check_free_memory($domain->_vm);
-    }
-}
-
-print timestr(timediff(Benchmark->new,$t0))." to create ".scalar(@CLONES)." machines.\n";
-

lib/Ravada.pm

@@ -3,7 +3,7 @@ package Ravada;
 use warnings;
 use strict;
 
-our $VERSION = '0.6.0';
+our $VERSION = '0.7.0';
 
 use Carp qw(carp croak);
 use Data::Dumper;
@@ -64,7 +64,7 @@ our %VALID_CONFIG = (
 
 =head1 NAME
 
-Ravada - Remove Virtual Desktop Manager
+Ravada - Remote Virtual Desktop Manager
 
 =head1 SYNOPSIS
 
@@ -871,6 +871,46 @@ sub _add_indexes($self) {
     $self->_add_indexes_vms();
     $self->_add_indexes_domains();
     $self->_add_indexes_requests();
+    $self->_add_indexes_generic();
+}
+
+sub _add_indexes_generic($self) {
+    my %index = (
+        requests => [
+            "index(status,at_time)"
+            ,"index(date_changed)"