summaryrefslogtreecommitdiff
path: root/rh-bin/musicgrid.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'rh-bin/musicgrid.cgi')
-rwxr-xr-xrh-bin/musicgrid.cgi13
1 files changed, 8 insertions, 5 deletions
diff --git a/rh-bin/musicgrid.cgi b/rh-bin/musicgrid.cgi
index aa823aa..b1bfa1f 100755
--- a/rh-bin/musicgrid.cgi
+++ b/rh-bin/musicgrid.cgi
@@ -34,7 +34,7 @@ my $responsecode = 500;
my @clocks = ();
my $q = CGI->new;
-my $username = ""; #$q->param('LOGIN_NAME');
+my $username = "equinox"; #$q->param('LOGIN_NAME');
my $token = ""; #$q->param('PASSWORD');
my $cmd = "get"; #$q->param('COMMAND');
@@ -81,9 +81,9 @@ if(!defined $username) {
} else {
(my $ctx, $status, $errorstring) = RHRD::rddb::init();
if(defined $ctx) {
- my $result = 1; # (my $result, $status, $errorstring) = RHRD::rddb::check_token($ctx, $username, $token);
- if($result == 1) {
- # TODO: check if user is allowed to read/edit music pools
+ my $authenticated = 1; # (my $authenticated, $status, $errorstring) = RHRD::rddb::check_token($ctx, $username, $token);
+ my $authorized = RHRD::rddb::is_musicpools_user($ctx, $username);
+ if($authenticated == 1 && $authorized == 1) {
if($cmd eq "get") {
($responsecode, $errorstring) = get_clocks($ctx);
}
@@ -94,8 +94,11 @@ if(!defined $username) {
$responsecode = 400;
$errorstring = "command '$cmd' is unknown";
}
- } elsif($result == 0) {
+ } elsif($authenticated == 0) {
$responsecode = 401;
+ } elsif($authorized == 0) {
+ $responsecode = 403;
+ $errorstring = "user '" . $username . "' is not allowed to access the music grid";
} else {
$responsecode = 500;
}