mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2025-01-30 16:51:41 +00:00
Code Issues Releases Activity

Oops, rename adduser.sh to adduser.perl

Browse Source 
Add empty clean and obj targets.
This commit is contained in:
Andrey A. Chernov 1994-12-30 12:13:08 +00:00
parent 4298bedc38
commit e3763702e6
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=5286
2 changed files with 198 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
usr.sbin/adduser/Makefile
View File

@ -1,7 +1,9 @@
MAN8= adduser.8
clean obj:
beforeinstall:
install -c -o ${BINOWN} -g ${BINGRP} -m ${BINMODE} \
${.CURDIR}/adduser.sh ${DESTDIR}${BINDIR}/adduser
${.CURDIR}/adduser.perl ${DESTDIR}${BINDIR}/adduser
.include <bsd.prog.mk>

195
usr.sbin/adduser/adduser.perl Normal file
View File

@ -0,0 +1,195 @@
#!/usr/bin/perl
# Copyright (c) 1994 GB Data Systems
# All rights reserved.
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 3. The name of the Author may not be used to endorse or promote products
# derived from this software without specific prior written permission.
# THIS SOFTWARE IS PROVIDED BY GB DATA AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL GB DATA OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Id: adduser.sh,v 1.1 1994/12/30 12:03:48 ache Exp $
#
$configfile = "\/etc\/adduser.conf";
if (-f $configfile) {
open (CONFIG, "$configfile");
while (<CONFIG>) {
eval "$_";
}
}
open (WHOAMI, "whoami|");
while (<WHOAMI>) {
$whoami = $_;
}
chop $whoami;
if ($whoami ne "root") {
system "clear";
print "\n\nYou must be root to add an user\n\n";
close WHOAMI;
exit;
}
close WHOAMI;
# Start getting information and print a banner
print " Adduser\n";
print " A system utility for adding users with defaults\n";
print "\n\n";
#
# User ID
#
print "Please enter the login name of the user: ";
chop ($userlogin = <STDIN>);
sub subuid {
$userid = "";
print "Please enter the user id or hit enter for the next id: ";
chop ($userid = <STDIN>);
}
while (!$userid) {
&subuid;
if (!$userid) {
if ($useautoids) {
open (USERID, "+<$userids");
chop ($xxuserid = <USERID>);
$userid = $xxuserid + 1;
close USERID;
open (USERID, "+>$userids");
print (USERID "$userid\n");
close USERID;
} else { &subuid; }
}
}
#
# Group ID
#
sub groupids {
print "Please enter the group id or hit enter for the default id: ";
chop ($groupid = <STDIN>);
}
&groupids;
while (!$groupid) {
if ($defgroupid) {
if (!$groupid) {
$groupid = "$defgroupid";
} else { &groupids; }
} else { &groupids; }
}
#
# User name
#
print "Please enter the user's name: ";
chop ($username = <STDIN>);
#
# Home directory
#
print "Please enter the users home directory or hit enter for default: ";
chop ($userdir = <STDIN>);
if (!$userdir) {
$userdir = "$defusrdir\/$userlogin";
print "$userdir\n";
}
#
# Login Shell
#
print "Please enter the users login shell or hit enter for default: ";
chop ($usershell = <STDIN>);
if (!$usershell) {
$usershell = "$userdefshell";
print "$usershell\n";
}
#
# Create password file entry
#
print "Opening and locking passwd file in blocking mode.\n";
open (PASS, '>>/etc/master.passwd');
flock (PASS, 2) || die "Can't lock passwd file, must be in use!!\n";
print (PASS "$userlogin::$userid:$groupid::0:0:$username,,,:$userdir:$usershell\n");
print "Unlocking and closing password file\n";
flock (PASS,8);
close PASS;
print "Re-indexing password databases\n";
system 'pwd_mkdb -p /etc/master.passwd';
system "passwd $userlogin";
#
# Create user directory
#
print "Creating user directory\n";
if (! -e $defusrdir) {
system "mkdir -p $defusrdir\/$userdir";
} else {
system "mkdir $userdir";
}
print "Copying user shell files\n";
system "cp $skel_location\/dot.login $userdir\/\.login";
system "cp $skel_location\/dot.profile $userdir\/\.profile";
if ($usershell eq "\/bin\/csh" || $usershell eq "\/usr\/local\/bin\/tcsh")
{
system "cp $skel_location\/dot.cshrc $userdir\/.cshrc";
}
system "chmod -R 664 $userdir";
system "chown -R $userid.$groupid $userdir";
#
# Print out information used in creation of this account
#
print "\n\n";
print "Information used to create this account follows.\n";
print "\n";
print "Login Name: $userlogin\n";
print "UserId: $userid\n";
print "GroupId: $groupid\n";
print "UserName: $username\n";
print "HomeDir: $userdir\n";
print "Shell: $usershell\n";
print "\nDONE\n\n";