|
|
@ -942,6 +942,7 @@ helper make_key_admin => sub { |
|
|
|
my $self = shift; |
|
|
|
my $self = shift; |
|
|
|
my ($token) = @_; |
|
|
|
my ($token) = @_; |
|
|
|
my $key = $self->get_key_by_token($token); |
|
|
|
my $key = $self->get_key_by_token($token); |
|
|
|
|
|
|
|
$self->app->log->debug("making key $token an admin key"); |
|
|
|
if (!$key){ |
|
|
|
if (!$key){ |
|
|
|
return 0; |
|
|
|
return 0; |
|
|
|
} |
|
|
|
} |
|
|
@ -1031,8 +1032,8 @@ get '/admin/:room' => { room => '' } => sub { |
|
|
|
my $room = $self->stash('room'); |
|
|
|
my $room = $self->stash('room'); |
|
|
|
# Someone accessing /admin is considered an admin |
|
|
|
# Someone accessing /admin is considered an admin |
|
|
|
# For now, the auth is handled outside of VROOM itself |
|
|
|
# For now, the auth is handled outside of VROOM itself |
|
|
|
my $token = $self->req->headers->header('X-VROOM-API-Key'); |
|
|
|
$self->login; |
|
|
|
$self->make_key_admin($token); |
|
|
|
$self->make_key_admin($self->session('key')); |
|
|
|
if ($room eq ''){ |
|
|
|
if ($room eq ''){ |
|
|
|
$self->purge_rooms; |
|
|
|
$self->purge_rooms; |
|
|
|
return $self->render('admin'); |
|
|
|
return $self->render('admin'); |
|
|
@ -1579,6 +1580,19 @@ any '/api' => sub { |
|
|
|
} |
|
|
|
} |
|
|
|
); |
|
|
|
); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
# Return just room config |
|
|
|
|
|
|
|
elsif ($req->{action} eq 'get_room_conf'){ |
|
|
|
|
|
|
|
return $self->render( |
|
|
|
|
|
|
|
json => { |
|
|
|
|
|
|
|
owner_auth => ($room->{owner_password}) ? 'yes' : 'no', |
|
|
|
|
|
|
|
join_auth => ($room->{join_password}) ? 'yes' : 'no', |
|
|
|
|
|
|
|
locked => ($room->{locked}) ? 'yes' : 'no', |
|
|
|
|
|
|
|
ask_for_name => ($room->{ask_for_name}) ? 'yes' : 'no', |
|
|
|
|
|
|
|
notif => $self->get_notification($room->{name}), |
|
|
|
|
|
|
|
status => 'success' |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
); |
|
|
|
|
|
|
|
} |
|
|
|
# Return your role and various info about the room |
|
|
|
# Return your role and various info about the room |
|
|
|
elsif ($req->{action} eq 'get_room_info'){ |
|
|
|
elsif ($req->{action} eq 'get_room_info'){ |
|
|
|
my $peer_id = $req->{param}->{peer_id}; |
|
|
|
my $peer_id = $req->{param}->{peer_id}; |
|
|
|