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

diff --git a/adduser/adduser.perl b/adduser/adduser.perl
index f13b69c123076a609c94d881ec4242753e7bf5dc..fe6739602afa6751023c0b73a72239dac42270bb 100644 (file)
--- a/adduser/adduser.perl
+++ b/adduser/adduser.perl
@@ -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);
 }