Do not send "welcome mail" as default. If you want this feature

you can still enable it. Better, use mail client like elm or pine.

Requested by: Jordan
This commit is contained in:
Wolfram Schneider 1996-08-13 21:50:51 +00:00
parent 1164f6aff1
commit 2e8b782306
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=17590

View File

@ -32,7 +32,7 @@
#
# Email: Wolfram Schneider <wosch@cs.tu-berlin.de>
#
# $Id: adduser.perl,v 1.10 1996/02/10 17:15:47 wosch Exp $
# $Id: adduser.perl,v 1.11 1996/05/06 06:15:19 gclarkii Exp $
#
# read variables
@ -41,8 +41,8 @@ sub variables {
$defaultpasswd = "yes"; # use password for new users
$dotdir = "/usr/share/skel"; # copy dotfiles from this dir
$dotdir_bak = $dotdir;
$send_message = "/etc/adduser.message"; # send message to new user
$send_message_bak = $send_message;
$send_message = "no"; # send message to new user
$send_message_bak = '/etc/adduser.message';
$config = "/etc/adduser.conf"; # config file for adduser
$config_read = 1; # read config file
$logfile = "/var/log/adduser"; # logfile
@ -905,7 +905,11 @@ sub filetest {
# create configuration files and exit
sub create_conf {
$create_conf = 1;
&message_create($send_message);
if ($send_message ne 'no') {
&message_create($send_message);
} else {
&message_create($send_message_bak);
}
&config_write(1);
exit(0);
}