| branch | foerste |
| changeset 47 | 05d5ada37387 |
| parent 46 | 62eb58a0ec39 |
| child 48 | 36aca6fb0ab8 |
| 46:62eb58a0ec39 | 47:05d5ada37387 |
|---|---|
461 my $in = $_[0]; |
461 my $in = $_[0]; |
462 |
462 |
463 return $in unless $in and $in eq "{pwgen}"; |
463 return $in unless $in and $in eq "{pwgen}"; |
464 |
464 |
465 if (!@pw) { |
465 if (!@pw) { |
466 chomp(@pw = `pwgen 8 10 2>/dev/null|| mkpasswd`); |
466 chomp(@pw = `pwgen 8 10 2>/dev/null`); |
467 die "pwgen/mkpasswd: $!" if $?; |
467 die "pwgen: $!" if $?; |
468 } |
468 } |
469 return shift @pw; |
469 return shift @pw; |
470 |
470 |
471 } } |
471 } } |
472 |
472 |