3 # Stitched together by Andreas Metzler, really too trivial to be copyrightable.
13 $file="/etc/exim4/passwd";
18 open(PWDFILE
,">>$file") || die("Couldn't append to file '$file': $!");
21 chop($user = <STDIN
>);
23 chop($passwd = <STDIN
>);
25 $rand = join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64, rand 64, rand 64];
26 print PWDFILE
$user . ":" . crypt($passwd, q{$1$} . $rand . q{$}) . ":" . $passwd . "\n";
33 exim-adduser - Add username/password to exim password-file.
37 exim-adduser [filename]
39 exim-adduser prompts for username and password and adds
41 username:crypted-password:cleartext-password
43 to the given file, if no filename is given /etc/exim4/passwd is used.
47 Probably many, this really is just example code.
51 /usr/share/doc/exim4-base/*,