summaryrefslogtreecommitdiffstats
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/INSTALL13
-rw-r--r--examples/README139
-rwxr-xr-xexamples/adduser.local849
-rw-r--r--examples/adduser.local.conf617
-rw-r--r--examples/adduser.local.conf.examples/adduser.conf90
-rw-r--r--examples/adduser.local.conf.examples/bash.bashrc96
-rw-r--r--examples/adduser.local.conf.examples/profile88
-rw-r--r--examples/adduser.local.conf.examples/skel.other/index.html28
-rw-r--r--examples/adduser.local.conf.examples/skel/dot.bash_logout10
-rw-r--r--examples/adduser.local.conf.examples/skel/dot.bash_profile45
-rw-r--r--examples/adduser.local.conf.examples/skel/dot.bashrc23
11 files changed, 1998 insertions, 0 deletions
diff --git a/examples/INSTALL b/examples/INSTALL
new file mode 100644
index 0000000..f2551d7
--- /dev/null
+++ b/examples/INSTALL
@@ -0,0 +1,13 @@
+Please read the README file for detailed information about what needs to
+be done to install the ADDUSER Local System Additions program. In brief:
+
+# cp --pr=t ./adduser.local /usr/local/sbin
+# chmod 755 /usr/local/sbin/adduser.local
+# cp ./adduser.local.conf /etc
+# editor /etc/adduser.local.conf # The important step!
+# mkdir /etc/skel.other
+# cp --pr=t ./adduser.local.conf.examples/skel.other/index.html /etc/skel.other
+
+IMPORTANT: Do NOT just perform the above steps without knowing what you
+are doing! In particular, the fourth step is very important for you to
+do correctly.
diff --git a/examples/README b/examples/README
new file mode 100644
index 0000000..f12e705
--- /dev/null
+++ b/examples/README
@@ -0,0 +1,139 @@
+**************************************************************************
+* *
+* ADDUSER Local System Additions v4.9 *
+* Copyright (C) 1999-2013, John Zaitseff *
+* *
+**************************************************************************
+
+Welcome to the ADDUSER Local System Additions program! This program, once
+installed as /usr/local/sbin/adduser.local, works in conjunction with the
+Debian adduser(8) command to extend the creation of your user accounts.
+
+As a system administrator, you are often faced with a long list of "things
+to do" when creating a new user account. For example, if you have
+configured FTP and Web servers, you would probably have to create a
+directory within their directories for the new user, possibly copy a
+skeleton "index.html" file into the proper location, add the user to the
+"ftp" and "www" groups and so on. All, naturally, without forgetting any
+vital step!
+
+The adduser.local program automates much of this for you. By modifying
+the program's configuration file, /etc/adduser.local.conf, to match your
+local requirements, this program can automatically add a user to
+supplementary groups, create directories and symbolic links and copy
+skeleton files to the newly-created directories.
+
+Note that once you install this program (and edit the configuration file),
+you will never need to directly run adduser.local: the Debian adduser(8)
+command automatically calls adduser.local with the correct parameters. If
+you like, however, you CAN run adduser.local directly (try the "--help"
+parameter for a brief command-line summary), such as for user accounts
+that have already been created.
+
+The adduser.local program is written in Perl (with comments!), and comes
+with a sample configuration file that is extensively documented. In fact,
+the sample adduser.local.conf file is probably all you will need to read,
+once you have installed the program. A number of sample files are also
+included in the "adduser.local.conf.examples" directory --- do what you like
+with these.
+
+To illustrate the program's simplicity, the following lines have been
+taken almost verbatim from the sample configuration file:
+
+ service = web
+
+ user[web] = www
+ addtogroup[web] = true
+ homedir[web] = ""
+ subdir[web] = "doc/users"
+ althome[web] = false
+ mkdir[web] = true
+ chgrpdir[web] = true
+ mklink[web] = true
+ linkname[web] = "public_html"
+ skelfile[web] = "index.html"
+ chgrpskel[web] = true
+
+Assuming adduser(8) was called for the user "john", and the system user
+"www" belongs to the group "www" and has the home directory "/home/www"
+(in actual fact, all these values are taken from the password database),
+the following actions are performed by this program:
+
+ - the user "john" is added to the group "www",
+
+ - the directory "/home/www/doc/users/john" is created, owned by the user
+ "john" and with group owner "www",
+
+ - the link "public_html" is created in the user "john"'s home directory
+ to point to this directory,
+
+ - the file "/etc/skel.other/index.html" is copied to this directory,
+ owned by the user "john" and with group owner "www".
+
+For more details, just read through the sample configuration file.
+
+
+INSTALLATION
+============
+
+Installation of the adduser.local program is quite easy. Simply follow
+these steps as root:
+
+1. Copy the actual program to the correct location:
+
+ # cp --pr=t ./adduser.local /usr/local/sbin
+ # chmod 755 /usr/local/sbin/adduser.local
+
+2. Copy the configuration file to the correct location:
+
+ # cp ./adduser.local.conf /etc
+
+3. Edit the configuration file with your favourite editor. You should
+ modify the file as appropriate to your requirements. The sample
+ configuration file is extensively self-documented.
+
+ # editor /etc/adduser.local.conf
+
+4. Create the "other" skeleton directory and populate it with your own
+ files. For example:
+
+ # mkdir /etc/skel.other
+ # cp --pr=t ./adduser.local.conf.examples/skel.other/index.html /etc/skel.other
+
+5. You are finished.
+
+The main reason you have to install this program manually is so that you
+do not forget to do Step 3, the most important one!
+
+
+LICENSE
+=======
+
+The adduser.local program is distributed under the terms of the GNU
+General Public License. The copyright on this program belongs to John
+Zaitseff. The actual license appears in the file COPYING, or, on a Debian
+GNU/Linux system, in the file /usr/share/common-license/GPL.
+
+Even though the GNU General Public License does NOT require you to send
+your modifications back to the author, it is considered "good form" to do
+so, as this allows your modifications to be incorporated into future
+versions of the program, allowing others to benefit from them.
+
+All files in the "adduser.local.conf.examples" directory are released into
+the public domain and are NOT covered by the GNU General Public License.
+
+
+FEEDBACK
+========
+
+Your comments, suggestions, corrections and enhancements are always warmly
+welcomed! Please send these to:
+
+Postal: John Zaitseff,
+ Unit 6, 116 Woodburn Road,
+ Berala, NSW, 2141,
+ Australia.
+
+E-mail: J.Zaitseff@zap.org.au
+Web: http://www.zap.org.au/software/utils/adduser.local/
+FTP: ftp://ftp.zap.org.au/pub/utils/adduser.local/adduser.local.tar.gz
diff --git a/examples/adduser.local b/examples/adduser.local
new file mode 100755
index 0000000..7861200
--- /dev/null
+++ b/examples/adduser.local
@@ -0,0 +1,849 @@
+#!/usr/bin/perl -w
+
+#########################################################################
+# #
+# ADDUSER Local System Additions v4.9 #
+# Copyright (C) 1999-2013, John Zaitseff #
+# #
+#########################################################################
+
+# Author: John Zaitseff <J.Zaitseff@zap.org.au>
+# Date: 21st June, 2013
+# Version: 4.9
+
+# This program, once installed as /usr/local/sbin/adduser.local, is auto-
+# matically called by the adduser(8) system program on a Debian system.
+# This script completes the creation of a user account in a system-
+# dependent way.
+#
+# This script is automatically called by adduser with arguments "USERNAME
+# UID GID HOMEDIR". See adduser(8) for more details. In addition, this
+# script may be called manually; run "perldoc adduser.local" for more
+# details.
+
+
+# This program, including associated files, is free software. You may
+# distribute it and/or modify it under the terms of the GNU General
+# Public License as published by the Free Software Foundation; either
+# Version 2 of the license, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+
+#########################################################################
+# Configuration parameters and default values
+
+use strict; # Enforce better programming habits
+
+use locale; # Allow locale-specific sorting, etc.
+use utf8; # This script may use the UTF-8 character set
+use open ":locale"; # Use locale for standard input/output
+
+use Getopt::Long; # Parse command line options
+use Pod::Usage; # Display command line usage
+
+
+(our $O = $0) =~ s,^.*/,,; # Script name (without path)
+our $version = "4.9"; # Script version
+
+our $copyright = # Copyright information
+"$O v$version: adduser(8) local system additions\n" .
+"Copyright (C) 1999-2013, John Zaitseff.\n";
+
+our @adduser = ('/usr/sbin/adduser', '--quiet'); # adduser(8)
+our @chown = ('/bin/chown', '-h'); # chown(1)
+our @install = ('/usr/bin/install', '-p'); # install(1)
+
+our $procmounts = '/proc/mounts'; # List of current mounts
+
+# These default values are extensively documented in adduser.local.conf.
+
+our $d_conffile = '/etc/adduser.local.conf'; # Configuration file location
+our $d_skelother = '/etc/skel.other'; # Location of skeleton files
+our $d_dirmode = '2755'; # Octal mode for directories
+our $d_filemode = '0644'; # Octal mode for files
+
+our $d_user = ''; # Default service user name
+our $d_group = ''; # Default service group name
+our $d_addtogroup = 'false'; # Default for addtogroup variable
+our $d_homedir = ''; # Default home directory
+our $d_subdir = ''; # Default subdirectory
+our $d_althome = 'false'; # Default for use alternate home directory
+our $d_mounted = 'false'; # Default for checking if mounted
+our $d_mkdir = 'false'; # Default for creating directory
+our $d_chgrpdir = 'false'; # Default for chgrpdir variable
+our $d_mklink = 'false'; # Default for creating symbolic link
+our $d_linkname = ''; # Default for symbolic link name
+our $d_skelfile = ''; # Default for skeleton file
+our $d_chgrpskel = 'false'; # Default for chgrpskel variable
+
+# Strings appearing in the configuration file
+
+our $s_skelother = 'skelother';
+our $s_dirmode = 'dirmode';
+our $s_filemode = 'filemode';
+
+our $s_service = 'service';
+
+our $s_user = 'user';
+our $s_group = 'group';
+our $s_addtogroup = 'addtogroup';
+our $s_homedir = 'homedir';
+our $s_subdir = 'subdir';
+our $s_althome = 'althome';
+our $s_mounted = 'mounted';
+our $s_mkdir = 'mkdir';
+our $s_chgrpdir = 'chgrpdir';
+our $s_mklink = 'mklink';
+our $s_linkname = 'linkname';
+our $s_skelfile = 'skelfile';
+our $s_chgrpskel = 'chgrpskel';
+
+our @s_false = ('false', 'f', 'no', 'n', '0');
+our @s_true = ('true', 't', 'yes', 'y', '1');
+
+# Strings internal to this program (as used by the %cv hash)
+
+our $s_svcuid = '.svcuid'; # Storage for UID of service's user name
+our $s_svcgid = '.svcgid'; # GID of service's user name or group name
+our $s_actualdir = '.actualdir'; # Actual dir: homedir + subdir + username
+our $s_actuallink = '.actuallink'; # Actual sym link: user homedir + linkname
+our $s_actualsrcf = '.actualsrcf'; # Actual source file: skelother + skelfile
+our $s_actualdstf = '.actualdstf'; # Actual dest file: actualdir + skelfile
+
+our $s_addtogroupB = '.addtogroupB'; # Boolean versions of variables
+our $s_althomeB = '.althomeB';
+our $s_mountedB = '.mountedB';
+our $s_mkdirB = '.mkdirB';
+our $s_chgrpdirB = '.chgrpdirB';
+our $s_mklinkB = '.mklinkB';
+our $s_chgrpskelB = '.chgrpskelB';
+
+# Function prototypes
+
+sub chkbool($$$$);
+sub lchown(@);
+sub showusage();
+sub showversion();
+sub showcmdlerr(@);
+
+
+#########################################################################
+# Initialise global variables
+
+our $conffile = $d_conffile; # Default configuration file
+our $verbose = 1; # Be verbose by default
+our $dryrun = 0; # NOT a dry run by default
+
+our @services = (); # No services to install by default
+
+# %cv is a hash for all configuration variables read in from the
+# configuration file. Global variables are represented by their strings,
+# eg, $cv{"skelother"}. Service-specific variables are represented by the
+# service string value, a comma, then their string, eg, $cv{"www","user"}.
+# The %cl hash plays a similar role, but contains the line number of the
+# configuration.
+
+our (%cv, %cl);
+
+$cv{$s_skelother} = $d_skelother; $cl{$s_skelother} = 0;
+$cv{$s_dirmode} = $d_dirmode; $cl{$s_dirmode} = 0;
+$cv{$s_filemode} = $d_filemode; $cl{$s_filemode} = 0;
+
+# For safety's sake, initialise the PATH environment variable
+
+$ENV{PATH} = '/usr/sbin:/usr/bin:/sbin:/bin';
+
+# Declare some global variables
+
+our $username; # Username for which adduser.local was called
+our $uid; # User's UID
+our $gid; # User's GID
+our $homedir; # User's home directory
+
+
+#########################################################################
+# Process command-line arguments
+
+our $opt_help;
+our $opt_version;
+
+Getopt::Long::Configure("bundling");
+
+GetOptions('help|h|?' => \$opt_help,
+ 'version|V' => \$opt_version,
+ 'conf=s' => \$conffile,
+ 'dry-run|n!' => \$dryrun,
+ 'verbose|v!' => \$verbose,
+ 'quiet|q' => sub { $verbose = 0; },
+ )
+ or showcmdlerr();
+
+showusage() if $opt_help;
+showversion() if $opt_version;
+
+
+#########################################################################
+# Process additional command-line parameters: USERNAME [UID GID HOMEDIR]
+
+if ($#ARGV < 0) { showcmdlerr("$O: Missing USERNAME parameter"); }
+if ($#ARGV > 3) { showcmdlerr("$O: Too many command-line parameters"); }
+
+# Include some sanity checking. These checks are not particularly
+# rigorous, as root can do anything anyway... It is meant to stop silly
+# mistakes, not to stop thinking. In any case, this script SHOULD only
+# be called from adduser(8)...
+
+die "$O: Only root can execute this program\n" if ($> != 0) and (! $dryrun);
+
+if ($#ARGV == 0) {
+ # Only a single parameter: USERNAME
+
+ $username = $ARGV[0];
+
+ (my $t_name, undef, $uid, $gid, undef, undef, undef, $homedir)
+ = getpwnam($username);
+
+ die "$O: No such user: $username\n" if ! defined($t_name);
+
+} elsif ($#ARGV == 3) {
+ # Four parameters: USERNAME UID GID HOMEDIR
+
+ $username = $ARGV[0];
+ $uid = $ARGV[1];
+ $gid = $ARGV[2];
+ $homedir = $ARGV[3];
+
+ $homedir =~ s,/$,,; # Remove trailing '/' if present
+ (my $t_name, undef, my $t_uid, my $t_gid) = getpwnam($username);
+
+ die "$O: No such user: $username\n" if ! defined($t_name);
+ die "$O: No such UID: $uid\n" if ! defined(getpwuid($uid));
+ die "$O: No such GID: $gid\n" if ! defined(getgrgid($gid));
+ die "$O: UID of user $username not the same as $uid\n" if $t_uid != $uid;
+ die "$O: GID of user $username not the same as $gid\n" if $t_gid != $gid;
+ die "$O: Directory does not exist: $homedir\n" if ! -d $homedir;
+
+} else {
+ showcmdlerr("$O: Missing UID, GID and/or HOMEDIR parameters");
+}
+
+
+#########################################################################
+# Process the configuration file
+
+if (! -r $conffile) {
+ warn "$O: Cannot read configuration file $conffile:\n";
+ warn "$O: $conffile: $!\n";
+
+ exit(0);
+}
+
+print "Processing configuration file $conffile\n" if $verbose;
+
+open(CONFFILE, $conffile) or die "$O: $conffile: $!\n";
+
+while (<CONFFILE>) {
+ my ($var, $svc, $val);
+
+ chomp;
+
+ # Skip comments and blank lines
+ next if /^\s*#/ or /^\s*$/;
+
+ # Try matching a global variable with or without quotes
+ if ((($var, $val) = /^\s*(\w+)\s*=\s*(.*)$/) == 2) {
+
+ # Remove trailing spaces and surrounding quotes
+ # (Technically, doing it this way is slightly sloppy)
+ $val =~ s/^(.*?)\s*$/$1/;
+ $val =~ s/^\"(.*)\"$/$1/;
+ $val =~ s/^\'(.*)\'$/$1/;
+
+ # Process the global variable
+ if ($var eq $s_service) {
+
+ # Special global configuration variable "service"
+ my $svc = $val;
+
+ if (grep($_ eq $svc, @services)) {
+ warn "$O: Service \"$val\" redefined at $conffile:$.\n";
+ next;
+ }
+
+ push @services, $val;
+
+ # Set up default values
+
+ $cv{$svc,$s_user} = $d_user;
+ $cv{$svc,$s_group} = $d_group;
+ $cv{$svc,$s_addtogroup} = $d_addtogroup;
+ $cv{$svc,$s_homedir} = $d_homedir;
+ $cv{$svc,$s_subdir} = $d_subdir;
+ $cv{$svc,$s_althome} = $d_althome;
+ $cv{$svc,$s_mounted} = $d_mounted;
+ $cv{$svc,$s_mkdir} = $d_mkdir;
+ $cv{$svc,$s_chgrpdir} = $d_chgrpdir;
+ $cv{$svc,$s_mklink} = $d_mklink;
+ $cv{$svc,$s_linkname} = $d_linkname;
+ $cv{$svc,$s_skelfile} = $d_skelfile;
+ $cv{$svc,$s_chgrpskel} = $d_chgrpskel;
+
+ $cl{$svc,$s_user} = 0;
+ $cl{$svc,$s_group} = 0;
+ $cl{$svc,$s_addtogroup} = 0;
+ $cl{$svc,$s_homedir} = 0;
+ $cl{$svc,$s_subdir} = 0;
+ $cl{$svc,$s_althome} = 0;
+ $cl{$svc,$s_mounted} = 0;
+ $cl{$svc,$s_mkdir} = 0;
+ $cl{$svc,$s_chgrpdir} = 0;
+ $cl{$svc,$s_mklink} = 0;
+ $cl{$svc,$s_linkname} = 0;
+ $cl{$svc,$s_skelfile} = 0;
+ $cl{$svc,$s_chgrpskel} = 0;
+ }
+ else {
+ # Ordinary global variable
+
+ if (! defined($cv{$var})) {
+ warn "$O: Unknown global variable \"$var\" at $conffile:$.\n";
+ next;
+ }
+
+ $cv{$var} = $val;
+ $cl{$var} = $.;
+ }
+ }
+
+ # Try matching a service variable with or without quotes
+ elsif ((($var, $svc, $val) = /^\s*(\w+)\s*\[\s*(\w+)\s*\]\s*=\s*(.*)$/) == 3) {
+
+ # Remove trailing spaces and surrounding quotes
+ $val =~ s/^(.*?)\s*$/$1/;
+ $val =~ s/^\"(.*)\"$/$1/;
+ $val =~ s/^\'(.*)\'$/$1/;
+
+ if (! grep($_ eq $svc, @services)) {
+ warn "$O: Undefined service \"$svc\" at $conffile:$.\n";
+ next;
+ }
+ if (! defined($cv{$svc,$var})) {
+ warn "$O: Unknown service variable \"$var\" at $conffile:$.\n";
+ next;
+ }
+
+ $cv{$svc,$var} = $val;
+ $cl{$svc,$var} = $.;
+ }
+
+ # Otherwise, it is an error in the configuration file
+ else {
+ warn "$O: Could not parse line at $conffile:$.\n";
+ next;
+ }
+}
+
+close(CONFFILE) or die "$O: $conffile: $!\n";
+
+
+#########################################################################
+# Global variables sanity checking
+{
+ my $t;
+
+ # Check "skelother"
+
+ if (! -d $cv{$s_skelother}) {
+ warn "$O: Directory $cv{$s_skelother} does not exist\n";
+ }
+
+ # Check "dirmode"
+
+ $t = $cv{$s_dirmode};
+ if (($t !~ /^[01234567]{1,4}$/) or (oct($t) == 0)) {
+ warn "$O: Illegal value \"$t\" at $conffile:$cl{$s_dirmode}\n";
+ warn "$O: Global variable \"$s_dirmode\" set to $d_dirmode\n";
+ $cv{$s_dirmode} = $d_dirmode;
+ }
+
+ # Check "filemode"
+
+ $t = $cv{$s_filemode};
+ if (($t !~ /^[01234567]{1,4}$/) or (oct($t) == 0)) {
+ warn "$O: Illegal value \"$t\" at $conffile:$cl{$s_filemode}\n";
+ warn "$O: Global variable \"$s_filemode\" set to $d_filemode\n";
+ $cv{$s_filemode} = $d_filemode;
+ }
+}
+
+
+#########################################################################
+# Actually perform what is required, with appropriate error checking
+
+foreach my $svc (@services) {
+ my ($t_user, $t_group, $t_homedir);
+
+ print "Processing service \"$svc\"\n" if $verbose;
+
+ # Check validity of all boolean variables and convert them to true bools
+
+ chkbool($svc, $s_addtogroup, $s_addtogroupB, $d_addtogroup);
+ chkbool($svc, $s_althome, $s_althomeB, $d_althome);
+ chkbool($svc, $s_mounted, $s_mountedB, $d_mounted);
+ chkbool($svc, $s_mkdir, $s_mkdirB, $d_mkdir);
+ chkbool($svc, $s_chgrpdir, $s_chgrpdirB, $d_chgrpdir);
+ chkbool($svc, $s_mklink, $s_mklinkB, $d_mklink);
+ chkbool($svc, $s_chgrpskel, $s_chgrpskelB, $d_chgrpskel);
+
+ # Process the "user" configuration variable
+
+ if ($cv{$svc,$s_user} ne '') {
+ # Retrieve information about the specified service's user name
+
+ (my $t_user, undef, $cv{$svc,$s_svcuid}, $cv{$svc,$s_svcgid},
+ undef, undef, undef, my $t_homedir) = getpwnam($cv{$svc,$s_user});
+
+ if (! defined($t_user)) {
+ warn "$O: Illegal user name \"$cv{$svc,$s_user}\" at $conffile:$cl{$svc,$s_user}\n";
+ } else {
+ $cv{$svc,$s_user} = $t_user;
+ }
+
+ # Only set home directory information if not specified by user
+ if ($cv{$svc,$s_homedir} eq '') {
+ if ($cv{$svc,$s_althomeB}) {
+ $cv{$svc,$s_homedir} = $homedir; # From command line
+ } else {
+ $cv{$svc,$s_homedir} = $t_homedir; # From service's home
+ }
+ }
+
+ # If the group parameter is not specified, get the appropriate info
+ # from the user information
+ if ($cv{$svc,$s_svcgid} and ($cv{$svc,$s_group} eq '')) {
+ ($cv{$svc,$s_group}) = getgrgid($cv{$svc,$s_svcgid});
+ }
+ }
+
+ # Process the "group" configuration variable
+
+ if ($cv{$svc,$s_group} ne '') {
+ # Retrieve info about the group. Yes, it may have been done
+ # above, but specifying "group" can be done without specifying
+ # "user". In addition, a different group can be specified from
+ # that used by "user".
+
+ ($t_group, undef, $cv{$svc,$s_svcgid}) = getgrnam($cv{$svc,$s_group});
+
+ if (! defined($t_group)) {
+ warn "$O: Illegal group name \"$cv{$svc,$s_group}\" at $conffile:$cl{$svc,$s_group}\n";
+
+ $cv{$svc,$s_addtogroup} = 'false'; $cv{$svc,$s_addtogroupB} = 0;
+ $cv{$svc,$s_chgrpdir} = 'false'; $cv{$svc,$s_chgrpdirB} = 0;
+ $cv{$svc,$s_chgrpskel} = 'false'; $cv{$svc,$s_chgrpskelB} = 0;
+ }
+ else {
+ $cv{$svc,$s_group} = $t_group;
+ }
+ }
+
+ # Process the "addtogroup" configuration variable
+
+ if ($cv{$svc,$s_addtogroupB} and ($cv{$svc,$s_group} ne '')) {
+
+ my $t = $cv{$svc,$s_group};
+ (my $t_group, undef, my $t_gid, my $t_members) = getgrnam $t;
+
+ # Check if the user is already a member of that group
+
+ if (($t_gid == $gid) or grep($_ eq $username, split(' ', $t_members))) {
+ print " User \"$username\" already in group \"$t\"\n"
+ if $verbose;
+ } else {
+ print " Adding user \"$username\" to group \"$t\"\n"
+ if $verbose;
+ system(@adduser, $username, $t) if ! $dryrun;
+ }
+ }
+
+ # Process the "mounted" configuration variable
+
+ $cv{$svc,$s_homedir} =~ s,/$,,; # Remove trailing / on homedir
+ $cv{$svc,$s_subdir} =~ s,^/,,; # Remove leading / on subdir
+ $cv{$svc,$s_subdir} =~ s,/$,,; # Remove trailing / on subdir
+
+ if (($cv{$svc,$s_homedir} ne '') and $cv{$svc,$s_mountedB}) {
+ # Need to check for "mounted" before checking for the existence of
+ # of the service's home directory.
+
+ if (! -r $procmounts) {
+ warn "$O: $procmounts: $!\n";
+ } else {
+ my ($t_dev, $t_mntpoint, $t_type, $t_options);
+ my $ismounted = 0;
+ my $t_dir = $cv{$svc,$s_homedir} . '/';
+
+ # Open mounts table and process it
+
+ open(MOUNTS, $procmounts) or die "$O: $procmounts: $!\n";
+ while (<MOUNTS>) {
+ chomp;
+ ($t_dev, $t_mntpoint, $t_type, $t_options) = split;
+ if ($t_mntpoint !~ m,/$,) { $t_mntpoint .= '/'; }
+
+ # Check if the service's home directory is mounted
+ # Skip "/" as that is always mounted
+ if (($t_mntpoint ne '/') and
+ (substr($t_dir, 0, length($t_mntpoint)) eq $t_mntpoint)) {
+ $ismounted = 1;
+ }
+ }
+ close(MOUNTS) or die "$O: $procmounts: $!\n";
+
+ if (! $ismounted) {
+ print " Directory $cv{$svc,$s_homedir} not mounted\n"
+ if $verbose;
+ $cv{$svc,$s_homedir} = '';
+ }
+ }
+ }
+
+ # Process the "homedir" and "subdir" configuration variables
+
+ if ($cv{$svc,$s_homedir} ne '') {
+ if (! -d $cv{$svc,$s_homedir}) {
+ warn "$O: No such directory: $cv{$svc,$s_homedir}\n";
+ $cv{$svc,$s_homedir} = '';
+ }
+ elsif (($cv{$svc,$s_subdir} ne '') and (! $cv{$svc,$s_althomeB})) {
+ my $t = $cv{$svc,$s_homedir} . '/' . $cv{$svc,$s_subdir};
+ if (! -d $t) {
+ warn "$O: No such directory: $t\n";
+ $cv{$svc,$s_subdir} = '';
+ $cv{$svc,$s_homedir} = '';
+ }
+ }
+ }
+
+ # Calculate the actual directory to create (if necessary)
+
+ if ($cv{$svc,$s_homedir} ne '') {
+ $cv{$svc,$s_actualdir} = $cv{$svc,$s_homedir};
+ if ($cv{$svc,$s_subdir} ne '') {
+ $cv{$svc,$s_actualdir} .= '/' . $cv{$svc,$s_subdir};
+ }
+ if (! $cv{$svc,$s_althomeB}) {
+ $cv{$svc,$s_actualdir} .= '/' . $username;
+ }
+ }
+
+ # Process the "mkdir" and "chgrpdir" configuration variables
+
+ if (($cv{$svc,$s_homedir} ne '') and $cv{$svc,$s_mkdirB}) {
+ my $t = $cv{$svc,$s_actualdir};
+
+ if (-d $t) {
+ print " Directory $t already exists\n" if $verbose;
+ } elsif (-e $t) {
+ warn "$O: Not a directory: $t\n";
+ $cv{$svc,$s_homedir} = '';
+ } else {
+ print " Directory $t created\n" if $verbose;
+ mkdir($t, oct($cv{$s_dirmode})) if ! $dryrun;
+ # Note that this newly-created directory will inherit the
+ # SGID (set group ID) bit from its parent directory. This
+ # IS desired, hence, do NOT do a separate chmod()!
+ if ($cv{$svc,$s_chgrpdirB}) {
+ chown($uid, $cv{$svc,$s_svcgid}, $t) if ! $dryrun;
+ } else {
+ chown($uid, $gid, $t) if ! $dryrun;
+ }
+ }
+ }
+
+ # Process the "mklink" and "linkname" configuration variables
+
+ if (($cv{$svc,$s_homedir} ne '') and $cv{$svc,$s_mklinkB}
+ and (-d $cv{$svc,$s_actualdir})) {
+
+ # Calculate the actual link name
+
+ $cv{$svc,$s_linkname} =~ s,/$,,; # Remove trailing '/'
+
+ if ($cv{$svc,$s_linkname} eq '') {
+ $cv{$svc,$s_actuallink} = $homedir . '/' . $svc;
+ } else {
+ $cv{$svc,$s_actuallink} = $homedir . '/' . $cv{$svc,$s_linkname};
+ }
+
+ # Create the symbolic link, if needed
+
+ my $t = $cv{$svc,$s_actuallink};
+ if (-l $t) {
+ print " Symbolic link $t already exists\n"
+ if $verbose;
+ } elsif (-e $t) {
+ warn "$O: Not a symbolic link: $t\n";
+ } else {
+ print " Symbolic link $t created\n" if $verbose;
+ symlink($cv{$svc,$s_actualdir}, $t) if ! $dryrun;
+ if ($cv{$svc,$s_chgrpdirB}) {
+ lchown($uid, $cv{$svc,$s_svcgid}, $t) if ! $dryrun;
+ } else {
+ lchown($uid, $gid, $t) if ! $dryrun;
+ }
+ }
+ }
+
+ # Process the "skelfile" and "chgrpskel" configuration variables
+
+ if (($cv{$svc,$s_homedir} ne '') and ($cv{$svc,$s_skelfile} ne '')
+ and (-d $cv{$svc,$s_actualdir})) {
+
+ my $t = $cv{$svc,$s_skelfile};
+ $cv{$svc,$s_actualsrcf} = $cv{$s_skelother} . '/' . $t;
+ $cv{$svc,$s_actualdstf} = $cv{$svc,$s_actualdir} . '/' . $t;
+
+ if (-e $cv{$svc,$s_actualdstf}) {
+ print " File $cv{$svc,$s_actualdstf} already exists\n"
+ if $verbose;
+ } elsif (! -r $cv{$svc,$s_actualsrcf}) {
+ warn "$O: $cv{$svc,$s_actualsrcf}: $!\n";
+ } else {
+ print " File $cv{$svc,$s_actualdstf} created\n" if $verbose;
+ if ($cv{$svc,$s_chgrpskelB}) {
+ system(@install, '-m', $cv{$s_filemode}, '-o', $uid,
+ '-g', $cv{$svc,$s_svcgid},
+ $cv{$svc,$s_actualsrcf}, $cv{$svc,$s_actualdstf})
+ if ! $dryrun;
+ } else {
+ system(@install, '-m', $cv{$s_filemode}, '-o', $uid, '-g',
+ $gid, $cv{$svc,$s_actualsrcf}, $cv{$svc,$s_actualdstf})
+ if ! $dryrun;
+ }
+ }
+ }
+}
+
+
+#########################################################################
+# End of program
+
+exit(0);
+
+
+#########################################################################
+# Check that the configuration variable contains is a valid boolean value
+
+sub chkbool($$$$) {
+ my $svc = $_[0]; # Service name
+ my $var = $_[1]; # Partial hash key of variable to check
+ my $new = $_[2]; # Partial hash key of new variable (true bool)
+ my $def = $_[3]; # Default value, in case of error
+
+ my $val = $cv{$svc,$var};
+
+ if (grep($_ eq $val, @s_true)) {
+ $cv{$svc,$new} = 1;
+ } elsif (grep($_ eq $val, @s_false)) {
+ $cv{$svc,$new} = 0;
+ } else {
+ warn "$O: Illegal value \"$val\" at $conffile:$cl{$var}\n";
+ warn "$O: Variable \"$var\[$svc\]\" set to \"$def\"\n";
+
+ $cv{$svc,$var} = $def;
+ chkbool($svc, $var, $new, $def);
+ }
+}
+
+
+#########################################################################
+# A chown() that works with symbolic links
+
+sub lchown(@) {
+ # The chown() function does NOT change the ownership of symbolic links
+ # under Linux 2.1.81 or later. Hence, make an external call to the
+ # chown(1) program. This program MUST support the "-h" parameter.
+
+ my $t_uid = shift;
+ my $t_gid = shift;
+
+ system(@chown, '-h', "$t_uid:$t_gid", @_);
+}
+
+
+#########################################################################
+# Display usage information
+
+sub showusage() {
+ pod2usage(-message => $copyright, -exitval => 0);
+}
+
+
+#########################################################################
+# Display program version information
+
+sub showversion() {
+ print "$copyright\n";
+ print <<"DATAEND"
+This program is free software that is distributed under the GNU General
+Public License, version 2 or later. See /usr/share/common-licenses/GPL
+for more information.
+DATAEND
+ ;
+ exit(0);
+}
+
+
+#########################################################################
+# Show an error message relating to the command-line and terminate
+
+sub showcmdlerr(@) {
+ map { warn "$_\n" } @_;
+ die "Try `$O --help' for more information.\n";
+}
+
+
+__END__
+
+
+#########################################################################
+# Program documentation in POD format
+
+=head1 NAME
+
+adduser.local - adduser(8) local system additions
+
+=head1 SYNOPSIS
+
+/usr/local/sbin/adduser.local [B<--dry-run>] [B<--conf> FILE] [B<--quiet>]
+[B<--verbose>] [B<--help>] [B<--version>] USERNAME [UID GID HOMEDIR]
+
+=head1 DESCRIPTION
+
+The B<adduser.local> script, once installed as
+F</usr/local/sbin/adduser.local>, is automatically called by the
+adduser(8) system program on a Debian system. This script completes the
+creation of a user account by parsing a system-dependent configuration
+file, F</etc/adduser.local.conf>. That configuration file lists a number
+of "services" to be configured, where each service is simply a convenient
+name for directories that must be created, Unix groups to which the user
+must be added, files that need to be copied, symbolic links to be created
+and so on.
+
+This script is automatically called by adduser(8) with arguments
+I<USERNAME UID GID HOMEDIR>. In addition, this script may be called
+manually. In this case, only I<USERNAME> needs to be passed, along with
+options as described later in B<OPTIONS>.
+
+Note that adduser(8) can now perform I<some> of the tasks that
+B<adduser.local> does, particularly by using the EXTRA_GROUPS and
+ADD_EXTRA_GROUPS variables in F</etc/adduser.conf>. However,
+B<adduser.local> is far more flexible than doing just that...
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-n>, B<--dry-run>
+
+Pretend to fulfil everything required, without actually doing anything.
+
+=item B<-c>, B<--conf> I<FILE>
+
+Use configuration file I<FILE> instead of the default
+F</etc/adduser.local.conf>.
+
+=item B<-q>, B<--quiet>
+
+Don't show extraneous output.
+
+=item B<-v>, B<--verbose>
+
+Show output about what was done (default).
+
+=item B<-h>, B<--help>
+
+Show a brief command-line summary.
+
+=item B<-V>, B<--version>
+
+Show the version of the B<adduser.local> script.
+
+=back
+
+=head1 RETURN VALUE
+
+B<adduser.local> returns a successful (zero) exit status if no severe
+errors were detected, otherwise a non-zero exit code is returned.
+
+=head1 EXAMPLES
+
+To add the user "john" to your system:
+
+ adduser john
+
+This automatically calls B<adduser.local> with the appropriate arguments.
+
+If you would like to rerun the B<adduser.local> script (such as after
+modifying its configuration file) for the user "john":
+
+ adduser.local john
+
+=head1 FILES
+
+=over 4
+
+=item F</etc/adduser.local.conf>
+
+Configuration for B<adduser.local>. The default configuration is
+extensively documented.
+
+=back
+
+=head1 FEEDBACK
+
+Your comments, suggestions, corrections and enhancements are always warmly
+welcomed! Please send these to:
+
+ Postal: John Zaitseff,
+ The ZAP Group,
+ Unit 6, 116 Woodburn Road,
+ Berala, NSW, 2141,
+ Australia
+
+ E-mail: J.Zaitseff@zap.org.au
+ Web: http://www.zap.org.au/software/utils/adduser.local/
+ FTP: ftp://ftp.zap.org.au/pub/utils/adduser.local/adduser.local.tar.gz
+
+=head1 COPYRIGHT
+
+Copyright (C) 1999-2013, John Zaitseff.
+
+This program is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 2 of the License, or (at your
+option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License along
+with this program; if not, write to the Free Software Foundation, Inc.,
+51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+=head1 SEE ALSO
+
+adduser(8)
+
+=cut
diff --git a/examples/adduser.local.conf b/examples/adduser.local.conf
new file mode 100644
index 0000000..e89e468
--- /dev/null
+++ b/examples/adduser.local.conf
@@ -0,0 +1,617 @@
+############################################################################
+# /etc/adduser.local.conf: Configuration for /usr/local/sbin/adduser.local #
+############################################################################
+
+# [JNZ] Modified 21-Jun-2013
+
+# This file configures the local system additions to adduser(8) and should
+# be modified to suit local conditions.
+#
+# adduser.local is a script that configures a user's account for various
+# "services". These services are simply convenient names for directories
+# that must be created, Unix groups to which the user must be added, files
+# that need to be copied and so on.
+#
+# Note that adduser(8) can now perform SOME of the tasks that adduser.local
+# does, particularly by using the EXTRA_GROUPS and ADD_EXTRA_GROUPS
+# variables in /etc/adduser.conf. However, adduser.local is far more
+# flexible than doing just that...
+#
+# Please see the end of this file for an explanation of its syntax.
+
+
+######################
+# Global Options #
+######################
+
+# The skelother variable points to the "other" (secondary) skeletal
+# directory. This directory is similar to /etc/skel (see the SKEL variable
+# in /etc/adduser.conf), except that files are not necessarily copied to the
+# home directory.
+
+skelother = /etc/skel.other
+
+# The dirmode variable specifies the octal mode used by chmod(1) for any
+# directories created by adduser.local. Note, however, that such created
+# directories automatically inherit the SGID (set group ID) bit from their
+# parent directory.
+
+dirmode = 0755
+
+# The filemode variable specifies the octal mode used by chmod(1) for any
+# files created by adduser.local.
+
+filemode = 0644
+
+
+#####################
+# USERS service #
+#####################
+
+# Add the user to the Unix group "users". Every user on this machine
+# should be a member of this group. This is already done if the file
+# /etc/adduser.conf includes the setting "USERGROUPS=no". If USERGROUPS
+# is set to "yes", you should uncomment the following three lines.
+
+service = users
+group[users] = users
+addtogroup[users] = true
+
+
+###################
+# WWW service #
+###################
+
+# Configure the WWW service for the user, a service that has a real UID
+# associated with it. Assuming the user "www" has a GID of "www" and a
+# home directory of "/home/www" (in actual fact, the values are taken from
+# the password database), the following actions are performed:
+#
+# - the user is added to the "www" group
+# - the directory "/home/www/doc/users/$USER" is created, owned by
+# the user, with group owner "www"
+# - the link "public_html" is created to point to this directory
+# - the file "/etc/skel.other/index.html" is copied to this directory
+#
+# This assumes that the system user "www" and group "www" are NOT the same
+# as the UID and GID of the web server ("www-data" on my system). The "www"
+# account is for the web administrator.
+
+service = www
+
+user[www] = www
+addtogroup[www] = true
+homedir[www] = ""
+subdir[www] = "doc/users"
+althome[www] = false
+mkdir[www] = true
+chgrpdir[www] = true
+mklink[www] = true
+linkname[www] = "public_html"
+skelfile[www] = "index.html"
+chgrpskel[www] = true
+
+# If your web server's configuration follows the "other" (more common!)
+# standard for personal web pages (wherein the "public_html" directory is a
+# real directory in the user's home directory), you might want to use
+# something like the following:
+
+#service = www
+#homedir[www] = ""
+#subdir[www] = "public_html"
+#althome[www] = true
+#mkdir[www] = true
+#skelfile[www] = "index.html"
+
+
+###################
+# FTP service #
+###################
+
+# Configure the FTP service for the user in a similar way to the WWW
+# service above. The only difference is that no skeleton file is copied.
+
+service = ftp
+
+user[ftp] = ftp
+addtogroup[ftp] = true
+homedir[ftp] = ""
+subdir[ftp] = "doc/users"
+althome[ftp] = false
+mkdir[ftp] = true
+chgrpdir[ftp] = true
+mklink[ftp] = true
+linkname[ftp] = "public_ftp"
+
+
+##############################
+# Restricted FTP service #
+##############################
+
+# Create the directory ~ftp/doc-restricted/users/$USER, owned by the user,
+# for the Restricted FTP service on the ZAP Group server.
+
+service = ftp_r
+
+user[ftp_r] = ftp
+homedir[ftp_r] = ""
+subdir[ftp_r] = "doc-restricted/users"
+althome[ftp_r] = false
+mkdir[ftp_r] = true
+chgrpdir[ftp_r] = true
+
+
+####################
+# DATA service #
+####################
+
+# Create the directory /data/$USER, owned by the user. This is only done
+# if /data exists (it is an ordinary directory, not a mount point).
+
+#service = data
+#homedir[data] = "/data"
+#subdir[data] = ""
+#mounted[data] = false
+#mkdir[data] = true
+
+
+#####################
+# CDROM service #
+#####################
+
+# Add the user to the Unix group "cdrom" (if it exists). This allows the
+# user to access the CD-ROM hardware on the machine.
+
+service = cdrom
+group[cdrom] = cdrom
+addtogroup[cdrom] = true
+
+
+######################
+# FLOPPY service #
+######################
+
+# Add the user to the Unix group "floppy" (if it exists). This allows the
+# user to access the floppy drive on the machine.
+
+service = floppy
+group[floppy] = floppy
+addtogroup[floppy] = true
+
+
+#####################
+# AUDIO service #
+#####################
+
+# Add the user to the Unix group "audio" (if it exists). This allows the
+# user to access the audio hardware on the machine.
+
+service = audio
+group[audio] = audio
+addtogroup[audio] = true
+
+
+###################
+# DIP service #
+###################
+
+# Add the user to the Unix group "dip" (if it exists). This allows the
+# user to dial out using the local modem.
+
+service = dip
+group[dip] = dip
+addtogroup[dip] = true
+
+
+#####################
+# VIDEO service #
+#####################
+
+# Add the user to the Unix group "video" (if it exists). This allows the
+# user to use video devices plugged into the computer.
+
+service = video
+group[video] = video
+addtogroup[video] = true
+
+
+#######################
+# PLUGDEV service #
+#######################
+
+# Add the user to the Unix group "plugdev" (if it exists). This allows
+# the user to use the pmount daemon with pluggable devices.
+
+service = plugdev
+group[plugdev] = plugdev
+addtogroup[plugdev] = true
+
+
+#######################
+# SCANNER service #
+#######################
+
+# Add the user to the Unix group "scanner" (if it exists). This allows
+# the user to use any attached scanners.
+
+service = scanner
+group[scanner] = scanner
+addtogroup[scanner] = true
+
+
+###########################
+# Syntax of this file #
+###########################
+
+# The syntax of this file will be familiar to anyone who has used a
+# scripting language before. This file is processed line by line, with each
+# line either being blank (and hence ignored), a comment or a configuration
+# variable.
+#
+# Comment lines (such as this one) begin with a hash character ("#") and
+# continue to the end of the line. The hash character may be preceded by
+# white space. Comment lines, like blank lines, are ignored.
+#
+# All lines that are not blank or are comment lines contain configuration
+# variables (one per line, with no comments allowed). A configuration
+# variable has one of two forms:
+#
+# VARIABLE = VALUE
+# VARIABLE[SERVICE] = VALUE
+#
+# The first form is for global variables, while the second form is for
+# variables associated with a particular service. Both the variable name
+# and the service name are alphanumeric strings and are case sensitive (ie,
+# the names "SKELOTHER", "skelother" and "SkelOther" refer to three
+# different variables).
+#
+# The value is typically a string which may or may not be case sensitive.
+# It may be (but usually does not need to be) surrounded by single or double
+# quotes, in which case everything within the quotes is part of the value.
+# Note that white space may surround the variable, service and value
+# components; such white space is discarded, unless it appears in quotes.
+# You may NOT use backslash to quote quote characters!
+#
+# If a value required is a boolean, "0", "false", "f", "no" and "n" are
+# treated as the false value, while "1", "true", "t", "yes" and "y" are
+# treated as the true value. In both cases, the value is case-insensitive.
+#
+#
+# GLOBAL VARIABLES:
+# =================
+#
+# The following global variables are available:
+#
+# skelother
+# dirmode
+# filemode
+#
+# These are described in the section "Global Options" above.
+#
+#
+# SERVICE VARIABLES:
+# ==================
+#
+# The main role of adduser.local is to configure a user's account for
+# various "services". These services are simply convenient names for
+# directories that must be created, Unix groups to which the user must be
+# added, files that need to be copied and so on.
+#
+# adduser.local is informed of the existence of a service by the "service"
+# global variable:
+#
+# service = SERVICENAME
+#
+# The service name SERVICENAME may be any case-sensitive alphanumeric
+# string. Examples used within this file are "www" and "data". Service
+# names need not correspond to any real service --- they are completely
+# internal to adduser.local, and are only used as a key for service
+# variables. The "service" global variable may appear multiple times, each
+# time with a different service name.
+#
+# The order of the "service" global variables IS important, as that is the
+# order in which those services are created. This is important if one
+# service depends on a prior one having been set up.
+#
+# The "service" global variable must appear before any of the services
+# variables for that service are defined.
+#
+# The following service variables are available, and may be specified in any
+# order:
+#
+# user
+# group
+# addtogroup
+# homedir
+# subdir
+# althome
+# mounted
+# mkdir
+# chgrpdir
+# mklink
+# linkname
+# skelfile
+# chgrpskel
+#
+# Remember that each service variable is followed by a service name in
+# square brackets. In the following explanations, "SVC" is used as a
+# sample service name.
+#
+#
+# user[SVC] = USER
+#
+# Specifies that the service belongs to a real user, and that that
+# service user name is USER. This user name must appear in the password
+# database file either in the first field (ie, a user name) or in the
+# third (ie, a numeric UID).
+#
+# Specifying a user name or UID also sets default values for the
+# "group" and "homedir" service variables. These default values are
+# taken from the password database (the "homedir" variable is only set
+# if the "althome" variable is set to false).
+#
+#
+# group[SVC] = GROUP
+#
+# Specifies that the service's group name is GROUP. This group name
+# must appear in the group database file either in the first field (ie,
+# a group name) or in the third (ie, a numeric GID).
+#
+# If this variable is not specified, or is specified with GROUP as an
+# empty string "", and the user variable is specified (and points to a
+# valid user), the group name is taken to be the service user's default
+# group. For example, if "user[svc] = mail" were to be specified, and
+# group[svc] were not, the group used would be default group for the
+# user "mail" (which happens to be GID 8, ie, "mail").
+#
+# This group is also used for the group owner of directories, links
+# and copied files, depending on the settings of the "chgrpdir" and
+# "chgrpskel" variables.
+#
+#
+# addtogroup[SVC] = BOOLEAN
+#
+# Instructs whether to add the user to the group specified by the
+# "group" variable or implied by the "user" variable. If true,
+# adduser.local adds the user to the group, assuming that the group,
+# in fact, exists.
+#
+# If this variable is not specified, false is assumed.
+#
+#
+# homedir[SVC] = PATH
+#
+# Specifies the service's home directory as an absolute path name (ie,
+# starting from "/"). The service's home directory is used to check if
+# it is a mount point, as well as a base directory for the "mkdir" and
+# "skelfile" variables. If the directory does not exist, those
+# variables take no effect.
+#
+# If this variable is not specified, or is specified with PATH as an
+# empty string "", the value used for the service's home directory is
+# calculated in one of two ways. The first method is to use the home
+# directory of the service user; the second is to use the home directory
+# of the user for whom adduser.local was called.
+#
+# The first method is used when the "althome" variable is set to false
+# and the "user" variable is specified (and points to a valid user).
+# For example, if "user[svc] = www" and "althome[svc] = false" were to
+# be specified, the default value of the "homedir" variable would be
+# taken from www's home directory, typically "/var/www".
+#
+# The second method is used when the "althome" variable is true. For
+# example, if adduser.local were to be called for the user "anna", and
+# "althome" were set to true, the "homedir" variable would be set to the
+# home directory of anna, typically "/home/anna".
+#
+# Note that neither of these methods is used if the "homedir" variable
+# is set to anything other than an empty string; in such a case, the
+# specified value for the variable is always used.
+#
+#
+# subdir[SVC] = PATH
+#
+# Specifies a subdirectory off the home directory. This subdirectory is
+# used for creating the new directory, copying the skeleton file and for
+# the destination of the link.
+#
+# If the "althome" variable is set to false, the subdirectory must
+# already exist and is used in conjunction with the home directory and
+# the user's name (for whom adduser.local was called). For example, if
+# the following were to be specified:
+#
+# homedir[svc] = /media/zip
+# subdir[svc] = home
+# althome[svc] = false
+# mkdir[svc] = true
+#
+# and the user's name (for whom adduser.local was called) was "james",
+# the directory "/media/zip/home/james" would be created.
+#
+# If, on the other hand, the "althome" variable was set to true, the
+# subdirectory is used only in conjunction with the home directory; it
+# is THAT directory that is created. For example, if the following were
+# to be specified:
+#
+# althome[svc] = true
+# subdir[svc] = "public_html"
+# mkdir[svc] = true
+#
+# and adduser.local were called for the user "kathy" (who had the home
+# directory "/home/kathy"), the directory "/home/kathy/public_html"
+# would be created.
+#
+# If this variable is not specified, blank is assumed.
+#
+#
+# althome[SVC] = BOOLEAN
+#
+# Specifies whether the default value for the "homedir" variable is to
+# be taken from the service's home directory or from the user's home
+# directory (for whom adduser.local was called). If false, the
+# service's home directory (implied by the "user" setting) is used. If
+# true, the actual user's home directory is used.
+#
+# This variable also controls whether or not the user's login name is
+# used as part of the directory created by the "mkdir" variable and used
+# by the "mklink" and "skelfile" variables. See "homedir" and "mklink"
+# for more details.
+#
+# If this variable is not specified, false is assumed.
+#
+#
+# mounted[SVC] = BOOLEAN
+#
+# Specifies whether to check if the directory specified by the
+# "homedir" variable (or implied by other variables) is mounted or
+# not. A directory is mounted if it, or any parent directory, is
+# mounted (excluding the root directory, which is always mounted).
+# For example, if the following were to be specified (and the user's
+# name were "alice"):
+#
+# homedir[svc] = /home/external/server/ftp
+# subdir[svc] = doc/users
+# mounted[svc] = true
+# mkdir[svc] = true
+#
+# then the directory "/home/external/server/ftp/doc/users/alice" would
+# be created only if either "/home/external/server/ftp",
+# "/home/external/server", "/home/external" or "/home" were mounted.
+#
+# If this variable is not specified, false is assumed (ie, the mount
+# check is NOT performed).
+#
+# Note that "checking for mounting" is defined as examining the contents
+# of /proc/mounts. It does NOT actually attempt to mount the
+# directories.
+#
+#
+# mkdir[SVC] = BOOLEAN
+#
+# Directs adduser.local whether or not to create the directory specified
+# by the "homedir" and "subdir" variables. If the "althome" variable is
+# false, the directory that is created has the user's login name at the
+# end. In all cases, the newly created directory belongs to that user.
+# For example, if adduser.local was called for the user "david", and the
+# following lines were to be specified:
+#
+# homedir[data1] = "/data/1"
+# subdir[data1] = "users"
+# althome[data1] = false
+# mkdir[data1] = true
+#
+# then the directory "/data/1/users/david" would be created, owned by
+# the user "david". If, on the other hand, the following were to be
+# specified (for the same user "david"):
+#
+# subdir[www] = "public_html"
+# althome[www] = true
+# mkdir[www] = true
+#
+# then the directory "/home/david/public_html" would be created
+# (assuming "/home/david" was david's home directory), owned by the
+# user "david".
+#
+# The mode of the directory is taken from the "dirmode" global variable
+# in this configuration file. See also the comment on that global
+# variable.
+#
+# The group owner of the directory is either the same as the user's (in
+# this case, if the user "david" was in the group "users" by default,
+# then the group owner would be "users"), or the same as the service
+# user's group (see the "group" variable for more information). The
+# "chgrpdir" variable specifies which of these two options is used.
+#
+# If this variable is not specified, false is assumed.
+#
+#
+# chgrpdir[SVC] = BOOLEAN
+#
+# Specifies the group owner of any directory and link created by the
+# "mkdir" and "mklink" variables respectively. If true is specified,
+# the group owner is the same as specified by the "group" variable (or
+# implied by the "user" variable). If false is specified, the group
+# owner is the same as the actual user's default group.
+#
+# If this variable is not specified, false is assumed.
+#
+#
+# mklink[SVC] = BOOLEAN
+#
+# Specifies whether or not to create a symbolic link to the created
+# directory (see "mkdir" above) in the actual user's home directory.
+# The name of the link is taken from the "linkname" variable below. For
+# example, if the following were to be specified, and adduser.local were
+# called for the user "mark":
+#
+# homedir[data1] = "/data/1"
+# subdir[data1] = "users"
+# althome[data1] = false
+# mkdir[data1] = true
+# mklink[data1] = true
+# linkname[data1] = "data1"
+#
+# then, not only would the directory "/data/1/users/mark" be created,
+# but the symbolic link "data1" would be created in his home directory
+# as well, pointing to that directory (that is, "/home/mark/data1" ->
+# "/data/1/users/mark").
+#
+# If this variable is not specified, false is assumed.
+#
+#
+# linkname[SVC] = PATH
+#
+# Specifies the name of the symbolic link created in the user's home
+# directory, as demonstrated in the example above. If PATH includes
+# subdirectories, these subdirectories must already exist before the
+# symbolic link is created; these can be created by other services prior
+# to this one.
+#
+# If the "mklink" variable is true, and the "linkname" variable is not
+# specified, or is an empty string "", the name of the service is used
+# (as specified by the "service" global variable).
+#
+#
+# skelfile[SVC] = PATH
+#
+# Instructs adduser.local to copy the file PATH from the "skelother"
+# skeleton directory (see the global variable of that name) into the
+# newly-created directory specified by the "mkdir" variable. For
+# example, if adduser.local was called for the user "nina", and the
+# following lines were to be specified:
+#
+# homedir[www] = "/home/www"
+# subdir[www] = "doc/users"
+# althome[www] = false
+# mkdir[www] = true
+# skelfile[www] = "index.html"
+#
+# then the directory "/home/www/doc/users/nina" would be created and the
+# file "index.html" would be copied from /etc/skel.other (assuming this
+# is the directory specified by the "skelother" global variable) into
+# that newly-created directory.
+#
+# The newly-copied file will have a mode as specified by the "filemode"
+# global variable, and its group owner will either be the default group
+# of the user, or the group as specified by the "group" variable or
+# implied by the "user" variable. See the "chgrpskel" variable below.
+#
+# If this variable is not specified, or PATH is an empty string "", no
+# file is copied. If a file of that name already exists, it is NOT
+# overwritten. Only one file may be specified in any given service; if
+# more are needed, simply create additional services with matching
+# "homedir", "subdir", "althome" and "mkdir" variables.
+#
+#
+# chgrpskel[SVC] = BOOLEAN
+#
+# Determines whether or not adduser.local changes the group owner of the
+# copied skeleton file (specified by the "skelfile" variable above) to
+# the group specified by the "group" variable or implied by the "user"
+# variable. If this variable is false, the default group of the user
+# remains the group owner.
+#
+# If this variable is not specified, false is assumed.
+#
+#
+# End of /etc/adduser.local.conf.
diff --git a/examples/adduser.local.conf.examples/adduser.conf b/examples/adduser.local.conf.examples/adduser.conf
new file mode 100644
index 0000000..a3b914e
--- /dev/null
+++ b/examples/adduser.local.conf.examples/adduser.conf
@@ -0,0 +1,90 @@
+# /etc/adduser.conf: `adduser' configuration.
+# See adduser(8) and adduser.conf(5) for full documentation.
+
+# [JNZ] Modified 21-Jun-2013
+
+# Modified from the version shipped with adduser(8) by John Zaitseff.
+# These modifications are released into the public domain.
+
+# The DSHELL variable specifies the default login shell on your
+# system.
+DSHELL=/bin/bash
+
+# The DHOME variable specifies the directory containing users' home
+# directories.
+DHOME=/home
+
+# If GROUPHOMES is "yes", then the home directories will be created as
+# /home/groupname/user.
+GROUPHOMES=no
+
+# If LETTERHOMES is "yes", then the created home directories will have
+# an extra directory - the first letter of the user name. For example:
+# /home/u/user.
+LETTERHOMES=no
+
+# The SKEL variable specifies the directory containing "skeletal" user
+# files; in other words, files such as a sample .profile that will be
+# copied to the new user's home directory when it is created.
+SKEL=/etc/skel
+
+# FIRST_SYSTEM_[GU]ID to LAST_SYSTEM_[GU]ID inclusive is the range for UIDs
+# for dynamically allocated administrative and system accounts/groups.
+# Please note that system software, such as the users allocated by the
+# base-passwd package, may assume that UIDs less than 100 are unallocated.
+FIRST_SYSTEM_UID=100
+LAST_SYSTEM_UID=999
+
+FIRST_SYSTEM_GID=100
+LAST_SYSTEM_GID=999
+
+# FIRST_[GU]ID to LAST_[GU]ID inclusive is the range of UIDs of dynamically
+# allocated user accounts/groups.
+FIRST_UID=1000
+LAST_UID=59999
+
+FIRST_GID=1000
+LAST_GID=59999
+
+# The USERGROUPS variable can be either "yes" or "no". If "yes" each
+# created user will be given their own group to use as a default. If
+# "no", each created user will be placed in the group whose gid is
+# USERS_GID (see below).
+USERGROUPS=yes
+
+# If USERGROUPS is "no", then USERS_GID should be the GID of the group
+# `users' (or the equivalent group) on your system.
+USERS_GID=100
+
+# If DIR_MODE is set, directories will be created with the specified
+# mode. Otherwise the default mode 0755 will be used.
+DIR_MODE=0755
+
+# If SETGID_HOME is "yes" home directories for users with their own
+# group the setgid bit will be set. This was the default for
+# versions << 3.13 of adduser. Because it has some bad side effects we
+# no longer do this per default. If you want it nevertheless you can
+# still set it here.
+SETGID_HOME=no
+
+# If QUOTAUSER is set, a default quota will be set from that user with
+# `edquota -p QUOTAUSER newuser'
+QUOTAUSER=""
+
+# If SKEL_IGNORE_REGEX is set, adduser will ignore files matching this
+# regular expression when creating a new home directory
+SKEL_IGNORE_REGEX="dpkg-(old|new|dist|save)"
+
+# Set this if you want the --add_extra_groups option to adduser to add
+# new users to other groups.
+# This is the list of groups that new non-system users will be added to
+# Default:
+#EXTRA_GROUPS="dialout cdrom floppy audio video plugdev users"
+
+# If ADD_EXTRA_GROUPS is set to something non-zero, the EXTRA_GROUPS
+# option above will be default behavior for adding new, non-system users
+#ADD_EXTRA_GROUPS=1
+
+
+# check user and group names also against this regular expression.
+#NAME_REGEX="^[a-z][-a-z0-9_]*\$"
diff --git a/examples/adduser.local.conf.examples/bash.bashrc b/examples/adduser.local.conf.examples/bash.bashrc
new file mode 100644
index 0000000..de42139
--- /dev/null
+++ b/examples/adduser.local.conf.examples/bash.bashrc
@@ -0,0 +1,96 @@
+#########################################################################
+# /etc/bash.bashrc: System-wide initialisation file for Bash #
+#########################################################################
+
+# [JNZ] Modified 21-Jun-2013
+
+# This script file is sourced by bash(1) for interactive shells. It is
+# also sourced by /etc/profile for (possibly non-interactive) login
+# shells.
+#
+# Written by John Zaitseff and released into the public domain.
+
+
+# Useful shell settings
+
+shopt -s checkwinsize expand_aliases
+set -P
+
+# Useful variable settings
+
+export LANG=en_AU.UTF-8 # We are in Australia
+export LC_ALL=en_AU.UTF-8
+export TIME_STYLE=$'+%b %e %Y\n%b %e %H:%M' # As used by ls(1)
+
+# Useful aliases, defined whether or not this shell is interactive
+
+alias cls=clear
+alias ls="ls -v"
+alias ll="ls -l"
+alias l.="ls -A"
+alias dir="ls -laF"
+alias e="emacs -nw"
+alias lo=libreoffice
+
+# Set a variable identifying any Debian Chroot Compilation Environment
+
+if [ -z "$debian_chroot" -a -r /etc/debian_chroot ]; then
+ export debian_chroot=$(cat /etc/debian_chroot)
+fi
+
+# Run the following only if this shell is interactive
+
+if [ "$PS1" ]; then
+
+ export HISTIGNORE="&: +.*" # Forget commands starting with space
+ unset HISTFILE # Don't save commands to history file
+ export LESSHISTFILE=- # Don't save history for less(1)
+ export PROMPT_DIRTRIM=2 # Trailing directory components to keep
+
+ # Make less(1) more friendly for non-text input files
+ if [ -x /usr/bin/lesspipe ]; then
+ eval $(/usr/bin/lesspipe)
+ fi
+
+ # Allow the Debian Chroot Compilation Environment to modify the prompt
+ if [ -z "$debian_chroot" ]; then
+ PS1h="\h"
+ else
+ PS1h="($debian_chroot)"
+ fi
+
+ # Set options depending on terminal type
+ if [ -x /usr/bin/tput ] && tput setaf 1 >&/dev/null; then
+ # The terminal supports colour: assume it complies with ECMA-48
+ # (ISO/IEC-6429). This is almost always the case...
+
+ # Make ls(1) use colour in its listings
+ if [ -x /usr/bin/dircolors ]; then
+ alias ls="ls -v --color=auto"
+ eval $(/usr/bin/dircolors --sh)
+ fi
+
+ # Set the terminal prompt
+ if [ $(id -u) -ne 0 ]; then
+ PS1="\[\e[42;30m\]\u@$PS1h\[\e[37m\]:\[\e[30m\]\w\[\e[0m\] \\\$ "
+ else
+ # Root user gets a nice RED prompt!
+ PS1="\[\e[41;37;1m\]\u@$PS1h\[\e[30m\]:\[\e[37m\]\w\[\e[0m\] \\\$ "
+ fi
+ else
+ # The terminal does not support colour
+ PS1="\u@$PS1h:\w \\\$ "
+ fi
+
+ # Allow bash(1) completion in interactive shells
+
+ if ! shopt -oq posix; then
+ if [ -f /usr/share/bash-completion/bash_completion ]; then
+ . /usr/share/bash-completion/bash_completion
+ elif [ -f /etc/bash_completion ]; then
+ . /etc/bash_completion
+ fi
+ fi
+
+ unset PS1h
+fi
diff --git a/examples/adduser.local.conf.examples/profile b/examples/adduser.local.conf.examples/profile
new file mode 100644
index 0000000..2c2b70a
--- /dev/null
+++ b/examples/adduser.local.conf.examples/profile
@@ -0,0 +1,88 @@
+#########################################################################
+# /etc/profile: System-wide initialisation file for Bourne shells #
+#########################################################################
+
+# [JNZ] Modified 21-Jun-2013
+
+# This script file is sourced by Bourne-compatible shells, such as sh(1),
+# bash(1), ksh(1) and ash(1), when those shells are run as a login shell.
+#
+# When a login shell starts, the following script files are sourced, in
+# this order:
+#
+# /etc/profile - this file
+# /etc/profile.d/*.sh - additional profile scripts
+# /etc/bash.bashrc - sourced by this file (only for bash(1))
+# $HOME/.bash_profile - run by bash(1)
+# $HOME/.bashrc - sourced by the default $HOME/.bash_profile
+#
+# When a normal (non-login) bash(1) shell starts, the following files are
+# sourced:
+#
+# /etc/bash.bashrc - run by bash(1)
+# $HOME/.bashrc - run by bash(1)
+#
+# Written by John Zaitseff and released into the public domain.
+
+
+umask 022
+
+# Set the default executable path, as ENV_PATH and ENV_SUPATH in
+# /etc/login.defs does not always seem to be consulted
+
+if [ "`id -u`" -eq 0 ]; then
+ PATH="/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin"
+else
+ PATH="/usr/local/bin:/usr/bin:/bin:/usr/local/games:/usr/games"
+fi
+
+# Augment various paths as required
+
+if [ -d $HOME/bin ]; then
+ PATH=$HOME/bin:$PATH
+fi
+
+if [ -d $HOME/man ]; then
+ MANPATH=$HOME/man:$MANPATH
+ export MANPATH
+fi
+if [ -d $HOME/lib/man ]; then
+ MANPATH=$HOME/lib/man:$MANPATH
+ export MANPATH
+fi
+
+export PATH
+
+# Set the default prompt for interactive shells
+
+if [ "$PS1" ]; then
+ if [ "$BASH" ] && [ "$BASH" != "/bin/sh" ]; then
+ PS1="\u@\h:\w \\\$ "
+ else
+ if [ "`id -u`" -eq 0 ]; then
+ PS1='# '
+ else
+ PS1='$ '
+ fi
+ fi
+fi
+
+# Source all *.sh scripts in /etc/profile.d
+
+if [ -d /etc/profile.d ]; then
+ for i in /etc/profile.d/*.sh; do
+ if [ -r "$i" ]; then
+ . "$i"
+ fi
+ done
+ unset i
+fi
+
+# If this is a bash(1) shell, source an additional initialisation script.
+# This may override variables, functions and aliases set above.
+
+if [ "$BASH" ] && [ "$BASH" != "/bin/sh" ]; then
+ if [ -r /etc/bash.bashrc ]; then
+ . /etc/bash.bashrc
+ fi
+fi
diff --git a/examples/adduser.local.conf.examples/skel.other/index.html b/examples/adduser.local.conf.examples/skel.other/index.html
new file mode 100644
index 0000000..d4eb6be
--- /dev/null
+++ b/examples/adduser.local.conf.examples/skel.other/index.html
@@ -0,0 +1,28 @@
+<!DOCTYPE html>
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
+
+<!-- This document is a place-holder for the home page until the user
+ gets around to replacing it with his or her own.
+
+ [JNZ] Modified 21-Jun-2013
+
+ Written by John Zaitseff and released into the public domain. -->
+
+<head>
+ <title>My Home Page</title>
+ <meta charset="UTF-8" />
+ <meta name="author" content="The user">
+ <meta name="description" content="The user's default home page">
+ <meta name="keywords" content="home, homepage, default">
+</head>
+
+<body>
+
+<h1>My Home Page</h1>
+
+<p>Welcome to my home page on the World Wide Web! This page, like so
+many others, is under construction. I&rsquo;ll be replacing this page
+soon&hellip; I hope.</p>
+
+</body>
+</html>
diff --git a/examples/adduser.local.conf.examples/skel/dot.bash_logout b/examples/adduser.local.conf.examples/skel/dot.bash_logout
new file mode 100644
index 0000000..922c64b
--- /dev/null
+++ b/examples/adduser.local.conf.examples/skel/dot.bash_logout
@@ -0,0 +1,10 @@
+#########################################################################
+# ~/.bash_logout: Personal log-out script for Bash #
+#########################################################################
+
+# [JNZ] Modified 21-Jun-2013
+
+# This script file is sourced by bash(1) when the login shell terminates.
+# By default, no action is taken.
+#
+# Written by John Zaitseff and released into the public domain.
diff --git a/examples/adduser.local.conf.examples/skel/dot.bash_profile b/examples/adduser.local.conf.examples/skel/dot.bash_profile
new file mode 100644
index 0000000..d8b0331
--- /dev/null
+++ b/examples/adduser.local.conf.examples/skel/dot.bash_profile
@@ -0,0 +1,45 @@
+#########################################################################
+# ~/.bash_profile: Personal initialisation script for Bash #
+#########################################################################
+
+# [JNZ] Modified 21-Jun-2013
+
+# This script file is sourced by bash(1) for login shells.
+#
+# When a login shell starts, the following script files are sourced, in
+# this order:
+#
+# /etc/profile - run by bash(1)
+# /etc/profile.d/*.sh - additional profile scripts
+# /etc/bash.bashrc - sourced by /etc/profile file (only for bash(1))
+# $HOME/.bash_profile - this file
+# $HOME/.bashrc - sourced by this file (if unchanged)
+#
+# When a normal (non-login) bash(1) shell starts, the following files are
+# sourced:
+#
+# /etc/bash.bashrc - run by bash(1)
+# $HOME/.bashrc - run by bash(1)
+#
+# Written by John Zaitseff and released into the public domain.
+
+
+if [ -f $HOME/.bashrc ]; then
+ . $HOME/.bashrc
+fi
+
+# Display a verse from the Bible
+
+if [ ! -f $HOME/.hushlogin ] && [ ! -f $HOME/.hushverse ]; then
+ if [ $(type -p verse) ]; then
+ echo
+ verse
+ echo
+ fi
+fi
+
+# Turn on talk(1) messages, unless the user does not want this
+
+if [ ! -f $HOME/.hushlogin ] && [ ! -f $HOME/.hushtalk ]; then
+ mesg y 2>/dev/null
+fi
diff --git a/examples/adduser.local.conf.examples/skel/dot.bashrc b/examples/adduser.local.conf.examples/skel/dot.bashrc
new file mode 100644
index 0000000..36f56fe
--- /dev/null
+++ b/examples/adduser.local.conf.examples/skel/dot.bashrc
@@ -0,0 +1,23 @@
+#########################################################################
+# ~/.bashrc: Personal initialisation script for Bash #
+#########################################################################
+
+# [JNZ] Modified 21-Jun-2013
+
+# This script file is sourced by interactive Bash shells (ie, shells for
+# which you are able to provide keyboard input). It is also sourced by
+# ~/.bash_profile for login shells. It is the best place to put shell
+# variables, functions and aliases.
+#
+# Written by John Zaitseff and released into the public domain.
+
+
+# Variable settings for your convenience
+
+export EDITOR=emacs # Everyone's favourite editor
+
+# Run the following only if this shell is interactive
+
+if [ "$PS1" ]; then
+ export IGNOREEOF=5 # Disallow accidental Ctrl-D
+fi