wip(frontend): groups API and tests

script/rvd_front

@@ -1381,7 +1381,7 @@ get '/machine/list_access_groups/#type/#id_domain' => sub {
     return $c->render( json => [ $domain->list_access_groups($c->stash('type')) ] );
 };
 
-get '/machine/add_access_group/#type/#group/#id_domain' => sub($c) {
+get '/machine/add_access_group/#type/#id_domain/#group' => sub($c) {
     my $type = $c->stash('type');
     my $id_domain = $c->stash('id_domain');
     my $group = $c->stash('group');
@@ -1394,7 +1394,7 @@ get '/machine/add_access_group/#type/#group/#id_domain' => sub($c) {
     return $c->render( json => { ok => $ok, error => $@ });
 };
 
-get '/machine/remove_access_group/#type/#group/#id_domain' => sub($c) {
+get '/machine/remove_access_group/#type/#id_domain/#group' => sub($c) {
 
     my $sth = $RAVADA->_dbh->prepare("DELETE FROM group_access WHERE id_domain=? "
         ." AND name=?"
@@ -2388,12 +2388,6 @@ sub _search_user($c,$name='') {
     return $c->render(json => {found => $found , count => scalar(@$list_found) } );
 };
 
-get '/list_ldap_groups' => sub($c) {
-    return access_denied($c) unless $USER->can_view_groups || $USER->can_manage_groups;
-
-    return _list_ldap_groups($c,'*');
-};
-
 get '/group/#type/list_members/#name' => sub($c) {
     return access_denied($c) if !$USER->can_view_groups;
 

t/mojo/70_groups.t

@@ -152,7 +152,7 @@ sub test_list_groups($type, $group_name) {
 
 sub test_add_access($type,$group_name, $user_name, $id_domain) {
 
-    $t->get_ok("/machine/add_access_group/$type/$group_name/$id_domain")
+    $t->get_ok("/machine/add_access_group/$type/$id_domain/$group_name")
     ->status_is(200);
     my $result = decode_json($t->tx->res->body);
     is($result->{error},'');
@@ -183,7 +183,7 @@ sub test_add_access($type,$group_name, $user_name, $id_domain) {
 }
 
 sub test_remove_access($type, $group_name, $user_name, $id_domain) {
-    $t->get_ok("/machine/remove_access_group/$type/$group_name/$id_domain")
+    $t->get_ok("/machine/remove_access_group/$type/$id_domain/$group_name")
     ->status_is(200);
     $t->get_ok("/machine/list_access_groups/$type/$id_domain")->status_is(200);
 
@@ -219,7 +219,7 @@ sub test_group_removed($type, $group_name, $user_name, $id_domain) {
 
     $t->post_ok("/group/$type/add_member", json => {id_user => $user->id, group => $group_name })->status_is(200);
 
-    $t->get_ok("/machine/add_access_group/$type/$group_name/$id_domain")
+    $t->get_ok("/machine/add_access_group/$type/$id_domain/$group_name")
     ->status_is(200);
 
     $t->get_ok("/group/$type/remove/$group_name")->status_is(200);