--- a/acl.pm Tue Apr 14 14:47:51 2015 +0200
+++ b/acl.pm Fri Feb 24 14:31:58 2017 +0100
@@ -23,7 +23,6 @@
END { $imap and $imap = undef; }
sub _list();
-sub _mkpw($);
sub list_by_user($@);
sub list_by_folder($);
@@ -386,23 +385,6 @@
return keys %x;
}
-{
- my @pw;
-
- sub _mkpw($) {
- my $in = $_[0];
-
- return $in unless $in and $in eq "{pwgen}";
-
- if ( !@pw ) {
- chomp( @pw = `pwgen 8 10 2>/dev/null` );
- die "pwgen: $!" if $?;
- }
- return shift @pw;
-
- }
-}
-
sub imap_list($$) {
my ( $ref, $folder ) = @_;