Adding upstream version 3.118+deb11u1.upstream/3.118+deb11u1upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 225 insertions, 0 deletions

diff --git a/AdduserCommon.pm b/AdduserCommon.pm
new file mode 100644
index 0000000..e329bba
--- /dev/null
+++ b/AdduserCommon.pm
@@ -0,0 +1,225 @@
+use vars qw(@EXPORT $VAR1);
+
+
+# Common functions that are used in adduser and deluser
+# Copyright (C) 2000 Roland Bauerschmidt <rb@debian.org>
+
+# Most of the functions are adopted from the original adduser
+# Copyright (C) 1997, 1998, 1999 Guy Maor <maor@debian.org>
+# Copyright (C) 1995 Ted Hajek <tedhajek@boombox.micro.umn.edu>
+#                     Ian A. Murdock <imurdock@gnu.ai.mit.edu>
+#
+
+@EXPORT = qw(invalidate_nscd gtx dief warnf read_config get_users_groups get_group_members s_print s_printf systemcall);
+
+sub invalidate_nscd {
+    # Check if we need to do make -C /var/yp for NIS
+    my $nisconfig;
+    if(-f "/etc/default/nis") {
+        $nisconfig = "/etc/default/nis";
+    } elsif(-f "/etc/init.d/nis") {
+        $nisconfig = "/etc/init.d/nis";
+    }
+    # find out whether a local ypserv is running
+    # We can ditch any rpcinfo error since if the portmapper is nonfunctional,
+    # we couldn't connect to ypserv anyway. If this assumption is invalid,
+    # please file a bug and suggest a better way.
+    if(defined($nisconfig) && -f "/var/yp/Makefile" &&
+        -x "/usr/sbin/rpcinfo" && grep(/ypserv/, qx{/usr/sbin/rpcinfo -p 2>/dev/null})) {
+	open(NISCONFIG, "<$nisconfig");
+	if(grep(/^NISSERVER=master/, <NISCONFIG>)) {
+            system("make", "-C", "/var/yp");
+	}
+	close(NISCONFIG);
+    }
+ 
+    # Check if we need to invalidate the NSCD cache
+    my $nscd = &which('nscd',1);
+    # this function replaces startnscd and stopnscd (closes: #54726)
+    # We are ignoring any error messages given by nscd here since we
+    # cannot expect the nscd maintainer and upstream to document their
+    # interfaces. See #330929.
+    if(defined($nscd) && -x $nscd)
+      {
+	    my $table = shift;
+	    if ($table)
+	      {
+	        system ($nscd, "-i", $table);
+	      }
+	    else
+	      {
+	        # otherwise we invalidate passwd and group table
+	        system ($nscd, "-i", "passwd");
+	        system ($nscd, "-i", "group");
+	      }
+      }
+}
+
+sub gtx {
+    return gettext( shift );
+}
+
+sub dief {
+    my ($form,@argu)=@_;
+    printf STDERR sprintf(gtx("%s: %s"), $0, $form), @argu;
+    exit 1;
+}
+
+sub warnf {
+    my ($form,@argu)=@_;
+    printf STDERR sprintf(gtx("%s: %s"), $0, $form), @argu;
+}
+
+# parse the configuration file
+# parameters:
+#  -- filename of the configuration file
+#  -- a hash for the configuration data
+sub read_config {
+    my ($conf_file, $configref) = @_;
+    my ($var, $lcvar, $val);
+
+    if (! -f $conf_file) {
+	warnf gtx("`%s' does not exist. Using defaults.\n"),$conf_file if $verbose;
+	return;
+    }
+
+    open (CONF, $conf_file) || dief ("%s: `%s'\n",$conf_file,$!);
+    while (<CONF>) {
+	chomp;
+	next if /^#/ || /^\s*$/;
+
+	if ((($var, $val) = /^\s*([_a-zA-Z0-9]+)\s*=\s*(.*)/) != 2) {
+	    warnf gtx("Couldn't parse `%s', line %d.\n"),$conf_file,$.;
+	    next;
+	}
+	$lcvar = lc $var;
+	if (!defined($configref->{$lcvar})) {
+	    warnf gtx("Unknown variable `%s' at `%s', line %d.\n"),$var,$conf_file,$.;
+	    next;
+	}
+
+	$val =~ s/^"(.*)"$/$1/;
+	$val =~ s/^'(.*)'$/$1/;
+
+	$configref->{$lcvar} = $val;
+    }
+
+    close CONF || die "$!";
+}
+
+# return a user's groups
+sub get_users_groups {
+    my($user) = @_;
+    my($name,$members,@groups);
+    setgrent;
+    while (($name,$members) = (getgrent)[0,3]) {
+	for (split(/ /, $members)) {
+	    if ($user eq $_) {
+		push @groups, $name;
+		last;
+	    }
+	}
+    }
+    endgrent;
+    @groups;
+}
+
+# return a group's members
+sub get_group_members
+  {
+      my $group = shift;
+      my @members;
+      foreach (split(/ /, (getgrnam($group))[3])) {
+	  if (getpwuid(getpwnam($_)) eq $_ ) {
+	      push @members, $_;
+	  }
+      }
+      return @members;
+  }
+
+sub s_print
+{
+    print join(" ",@_)
+	if($verbose);
+}
+
+sub s_printf
+{
+    printf @_
+	if($verbose);
+}
+
+sub d_printf
+{
+    printf @_
+    	if((defined($verbose) && $verbose > 1) || (defined($debugging) && $debugging == 1));
+}
+
+sub systemcall {
+    my $c = join(' ', @_);
+    print ("$c\n") if $verbose==2;
+    if (system(@_)) {
+	dief (gtx("`%s' returned error code %d. Exiting.\n"), $c, $?>>8)
+	  if ($?>>8);
+        dief (gtx("`%s' exited from signal %d. Exiting.\n"), $c, $?&255);
+    }
+}
+
+sub which {
+    my ($progname, $nonfatal) = @_ ;
+    for my $dir (split /:/, $ENV{"PATH"}) {
+        if (-x "$dir/$progname" ) {
+            return "$dir/$progname";
+        }
+    }
+    dief(gtx("Could not find program named `%s' in \$PATH.\n"), $progname) unless ($nonfatal);
+    return 0;
+}
+
+
+# preseed the configuration variables 
+# then read the config file /etc/adduser and overwrite the data hardcoded here
+sub preseed_config {
+  my ($conflistref, $configref) = @_;
+  $configref->{"system"} = 0;
+  $configref->{"only_if_empty"} = 0;
+  $configref->{"remove_home"} = 0;
+  $configref->{"home"} = "";
+  $configref->{"remove_all_files"} = 0;
+  $configref->{"backup"} = 0;
+  $configref->{"backup_to"} = ".";
+  $configref->{"dshell"} = "/bin/bash";
+  $configref->{"first_system_uid"} = 100;
+  $configref->{"last_system_uid"} = 999;
+  $configref->{"first_uid"} = 1000;
+  $configref->{"last_uid"} = 59999;
+  $configref->{"first_system_gid"} = 100;
+  $configref->{"last_system_gid"} = 999;
+  $configref->{"first_gid"} = 1000;
+  $configref->{"last_gid"} = 59999;
+  $configref->{"dhome"} = "/home";
+  $configref->{"skel"} = "/etc/skel";
+  $configref->{"usergroups"} = "yes";
+  $configref->{"users_gid"} = "100";
+  $configref->{"grouphomes"} = "no";
+  $configref->{"letterhomes"} = "no";
+  $configref->{"quotauser"} = "";
+  $configref->{"dir_mode"} = "0755";
+  $configref->{"setgid_home"} = "no";
+  $configref->{"no_del_paths"} = "^/$ ^/lost+found/.* ^/media/.* ^/mnt/.* ^/etc/.* ^/bin/.* ^/boot/.* ^/dev/.* ^/lib/.* ^/proc/.* ^/root/.* ^/sbin/.* ^/tmp/.* ^/sys/.* ^/srv/.* ^/opt/.* ^/initrd/.* ^/usr/.* ^/var/.*";
+  $configref->{"name_regex"} = "^[a-z][-a-z0-9_]*\$";
+  $configref->{"exclude_fstypes"} = "(proc|sysfs|usbfs|devpts|tmpfs)";
+  $configref->{"skel_ignore_regex"} = "dpkg-(old|new|dist)\$";
+  $configref->{"extra_groups"} = "dialout cdrom floppy audio video plugdev users";
+  $configref->{"add_extra_groups"} = 0;
+
+  foreach( @$conflistref ) {
+      read_config($_,$configref);
+  }
+}
+
+# Local Variables:
+# mode:cperl
+# End:
+
+#vim:set ai et sts=4 sw=4 tw=0: