usr.sbin/adduser/adduser.perl

80     $send_message = "no"; 	# send message to new user
81     $message_file = "/etc/adduser.message";
682 # send message to new user
686     return 1 if !&confirm_yn("Send welcome message to ``$name''", "yes");
699     if (!&confirm_yn("Add anything to the message", "no")) {
700 	print "Use ``.'' or ^D alone on a line to finish your message.\n";
708 	&confirm_list("Copy message to another user?:",
717     local($to, @message) = @_;
724 	foreach $e (@message) {
929     [-message message_file]
1026 	elsif (/^--?(message)$/) {
1088     $send_message = &message_default;   # send message to new user
1232     local($message, $allow, $confirm, @list) = @_;
1235     $print = "$message" if $message;
1236     $print .= " " unless $message =~ /\n$/ || $#list == 0;
1239     $print .= " " unless $message =~ /\n$/ && $#list == 0;
1254     return &confirm_list($message, $allow, $confirm, @list);
1262     local($message, $confirm, $default) = @_;
1264     print "$message [$confirm]: ";
1292 # return 1 if &confirm("message", "yes") and answer is yes
1293 #	or if &confirm("message", "no") and answer is no
1296     local($message, $confirm) = @_;
1304     print "$message (y/n) [$confirm]: ";
1317 	return &confirm_yn($message, $confirm);
1356 			    "Send welcome message?: /path/file default no",
1372 	# try and create the message file
1398 	warn "Do not send message(s)\n" if $verbose;
1408 # create message file
1436 # read message file into buffer
1583 # send message to user? ("yes" or "no")
1586 # send this file to new user ("/etc/adduser.message")
1624 ## your own variables, see /etc/adduser.message