+information. Unless specifically noted below, no attempt is (yet) made to
+parse this data.
+
+=item get_domain_mailboxes
+
+Returns an arrayref of arrayrefs, each with three elements: username, mailbox
+type, and workgroup. The protocol calls them: MAILBOX, TYPE, and WORKGROUP.
+
+=cut
+
+sub get_domain_mailboxes {
+ my $self = shift;
+# my $command = $AUTOLOAD;
+# $command =~ s/.*://;
+ my $command = 'get_domain_mailboxes';
+# my $csv = new Text::CSV_XS;
+ $self->_app_command( $command, @_ );
+ [ map { chomp; [ map { s/(^"|"$)//g; $_ }
+ split(/(?<=[^"]")\s+(?="[^"])/, $_)
+ ]
+ }
+ grep { $_ !~ /^,$/ }
+ splice( @{$self->_app_response}, 2 )
+ ];
+}
+
+=item get_mailbox_forward_only
+
+Returns the forward email address.
+
+=cut
+
+sub get_mailbox_forward_only {
+ my $self = shift;
+# my $command = $AUTOLOAD;
+# $command =~ s/.*://;
+ my $command = 'get_mailbox_forward_only';
+ $self->_app_command( $command, @_ );
+
+ my $lines = $self->_app_response;
+
+ unless ( $lines->[1] =~ /^FORWARD_EMAIL="([^"]+)"$/ ) {
+ warn $lines->[1];
+ $self->set_status ( -1, $lines->[0] );
+ return undef;
+ }
+
+ $1;
+
+}