listdropboxes now supports type to be specified to limit the list of dropboxes

1 files changed, 2 insertions, 1 deletions

diff --git a/rh-bin/listdropboxes.cgi b/rh-bin/listdropboxes.cgi
index 2b753d1..61e85d9 100755
--- a/rh-bin/listdropboxes.cgi
+++ b/rh-bin/listdropboxes.cgi
@@ -35,6 +35,7 @@ my @dropboxes = ();
 my $q = CGI->new;
 my $username = $q->param('LOGIN_NAME');
 my $token = $q->param('PASSWORD');
+my $type = $q->param('TYPE');
 
 if(!defined $username) {
   $responsecode = 400;
@@ -49,7 +50,7 @@ if(!defined $username) {
     ($result, $status, $errorstring) = RHRD::rddb::check_token($ctx, $username, $token);
     if($result == 1) {
       $responsecode = 200;
-      @dropboxes = RHRD::rddb::get_dropboxes($ctx, $username);
+      @dropboxes = RHRD::rddb::get_dropboxes($ctx, $username, $type);
       if(!defined $dropboxes[0] && defined $dropboxes[1]) {
         $responsecode = 500;
         $status = $dropboxes[1];