branch | foerste-hhsp |
changeset 75 | 63b7c7fcd0cb |
parent 48 | 36aca6fb0ab8 |
--- a/group.pm Tue Apr 14 14:47:51 2015 +0200 +++ b/group.pm Fri Feb 24 14:31:58 2017 +0100 @@ -303,23 +303,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|| mkpasswd` ); - die "pwgen/mkpasswd: $!" if $?; - } - return shift @pw; - - } -} - 1; # vim:sts=4 sw=4 aw ai sm nohlsearch: