summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xlistdrobpoxes.cgi23
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";
+}