21 my ( $ldap, $ubase,        $abase );

    21 my ( $ldap, $ubase,        $abase );

    22 my ( $imap, $acl_password, $nspat );

    22 my ( $imap, $acl_password, $nspat );

    23 END { $imap and $imap = undef; }

    23 END { $imap and $imap = undef; }

    24 

    24 

    25 sub _list();

    25 sub _list();

    27 

    26 

    28 sub list_by_user($@);

    27 sub list_by_user($@);

    29 sub list_by_folder($);

    28 sub list_by_folder($);

    30 sub list_groups(@);

    29 sub list_groups(@);

    31 sub uniq(@);

    30 sub uniq(@);

   384     my %x;

   383     my %x;

   385     @x{@_} = ();

   384     @x{@_} = ();

   386     return keys %x;

   385     return keys %x;

   387 }

   386 }

   388 

   387 

   406 sub imap_list($$) {

   388 sub imap_list($$) {

   407 

   389 

   408     my ( $ref, $folder ) = @_;

   390     my ( $ref, $folder ) = @_;

   409 

   391 

   410     my $list = $imap->list( $ref, $folder )

   392     my $list = $imap->list( $ref, $folder )