diff options
| -rwxr-xr-x | listdrobpoxes.cgi | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/listdrobpoxes.cgi b/listdrobpoxes.cgi index 9a28f96..a6724d7 100755 --- a/listdrobpoxes.cgi +++ b/listdrobpoxes.cgi @@ -9,6 +9,7 @@ use rddb; my $status = 'ERROR'; my $errorstring = 'unknown'; my $responsecode = 500; +my @dropboxes = (); my $q = CGI->new; @@ -22,6 +23,7 @@ if(defined $dbh) { ($result, $status, $errorstring) = rddb::check_token($dbh, $username, $token); if($result == 1) { $responsecode = 200; + @dropboxes = rddb::get_dropboxes($dbh, $username); } elsif($result == 0) { $responsecode = 403; } else { @@ -32,7 +34,20 @@ if(defined $dbh) { print "Content-type: application/xml\n\n"; -print "<RDWebResult>\n"; -print " <ResponseCode>" . $responsecode . "</ResponseCode>\n"; -print " <ErrorString>" . $errorstring . "</ErrorString>\n"; -print "</RDWebResult>\n"; +if($responsecode != 200) { + print "<RDWebResult>\n"; + print " <ResponseCode>" . $responsecode . "</ResponseCode>\n"; + print " <ErrorString>" . $errorstring . "</ErrorString>\n"; + print "</RDWebResult>\n"; +} else { + print "<dropboxList>\n"; + for my $href (@dropboxes) { + print " <dropbox>\n"; + print " <name>" . $href->{'NAME'} . "</name>\n"; + print " <group>" . $href->{'GROUP'} . "</group>\n"; + print " <path>" . $href->{'PATH'} . "</path>\n"; + print " <to_cart>" . $href->{'TO_CART'} . "</to_cart>\n"; + print " </dropbox>\n"; + } + print "</dropboxList>\n"; +} |