added type filter for list dropboxes

1 files changed, 4 insertions, 1 deletions

diff --git a/test/get-dropboxes b/test/get-dropboxes
index abff8d9..b8a5266 100755
--- a/test/get-dropboxes
+++ b/test/get-dropboxes
@@ -28,11 +28,14 @@ use RHRD::rddb;
 
 my $username = $ARGV[0];
 my $groupname = $ARGV[1];
+$groupname = undef if (defined($groupname) && $groupname eq '');
+my $type = $ARGV[2];
+
 
 my @dropboxes = ();
 my ($dbh, $status, $errorstring) = RHRD::rddb::opendb();
 if(defined $dbh) {
-  @dropboxes = RHRD::rddb::get_dropboxes($dbh, $username, $groupname);
+  @dropboxes = RHRD::rddb::get_dropboxes($dbh, $username, $groupname, $type);
   if(!defined $dropboxes[0] && defined $dropboxes[1]) {
     print STDERR "$dropboxes[1]: $dropboxes[2]";
     RHRD::rddb::closedb($dbh);