1 files changed, 106 insertions, 0 deletions
diff --git a/mail/qmail/pkg-install b/mail/qmail/pkg-install
new file mode 100644
index 000000000000..05fdd883b31e
--- /dev/null
+++ b/mail/qmail/pkg-install
@@ -0,0 +1,106 @@
+#!/usr/bin/perl
+#
+
+# The post-install script
+if ($ARGV[1] eq "POST-INSTALL") {
+	# Build the queue directory structure
+	# Some of these directories will have been created during the
+	# pkg_add(1) process.  Hopefully this will at least make sure
+	# that they have the right permissions and owners.
+
+	system ("$ENV{PKG_PREFIX}/configure/install x");
+	system ("cd $ENV{PKG_PREFIX}/configure && ./config");
+
+	utime time, time, "$ENV{PKG_PREFIX}/alias/.qmail-postmaster", "$ENV{PKG_PREFIX}/alias/.qmail-root", "$ENV{PKG_PREFIX}/alias/.qmail-mailer-daemon";
+	exit 0;
+}
+
+@groups = ("qmail", "qnofiles");
+%users = ('qmaild', "qnofiles", 'qmaill', "qnofiles", 'qmailp', "qnofiles",
+          'qmailq', "qmail", 'qmailr', "qmail", 'qmails', "qmail");
+# daemon, local, pop, queue, remote, deliver, respectively.
+# alias is a special case above...
+%gids = ("qmail", 80, "qnofiles", 81);
+%uids = ('alias', 81, 'qmaild', 82, 'qmaill', 83, 'qmailp', 84, 'qmailq', 85,
+         'qmailr', 86, 'qmails', 87);
+
+if ($ENV{PACKAGE_BUILDING} || $ARGV[1] eq "PRE-INSTALL") {
+	$doguid=1;  # Make sure we get the assigned guids.
+}
+
+foreach $group (@groups) {
+	if (! getgrnam ($group)) {
+		do checkrpw;  # May exit
+
+		$x = "-g $gids{$group}";
+		$result = system ("/usr/sbin/pw groupadd $group $x");
+		if ($result) {
+			die "Failed to add group $group as gid $gids{$group}\n";
+		}
+	}
+}
+
+if (! getpwnam ("alias")) {
+	do checkrpw;  # May exit
+
+	$x = "-u $uids{'alias'}";
+	$result = system ("/usr/sbin/pw useradd alias -g qnofiles -d \"$ENV{PKG_PREFIX}/alias\" -s /nonexistent $x");
+	if ($result) {
+		die "Failed to add user alias as uid $uids{'alias'}\n";
+	}
+}
+
+foreach $user (keys %users) {
+	if (! getpwnam ($user)) {
+		do checkrpw;  # May exit
+
+		$x = "-u $uids{$user}";
+		$result = system ("/usr/sbin/pw useradd $user -g $users{$user} -d \"$ENV{PKG_PREFIX}\" -s /nonexistent $x");
+		if ($result) {
+			die "Failed to add user $user as uid $uids{$user}\n";
+		}
+	}
+}
+
+# Check that all gids/uids are as they should be...
+# If we are being installed as a package...
+if ($doguid) {
+	foreach $group (@groups) {
+		if (getgrnam($group) != $gids{$group}) {
+			die "Group $group should have gid $gids{$group}\n";
+		}
+	}
+
+	foreach $user (keys %users) {
+		if (getpwnam($user) != $uids{$user}) {
+			die "User $user should have uid $uids{$user}\n";
+		}
+	}
+	if (getpwnam("alias") != $uids{"alias"}) {
+		die "User alias should have uid $uids{'alias'}\n";
+	}
+}
+
+exit 0;
+
+sub checkrpw {
+	if (! -x "/usr/sbin/pw") {
+		print <<'EOM';
+This system looks like a pre-2.2 version of FreeBSD.  We see that it
+is missing the "pw" utility.  We need this utility.  Please get and
+install it, and try again.  You can get the source from:
+
+  ftp://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current/src/usr.sbin/pw.tar.gz
+
+EOM
+		die "No /usr/sbin/pw";
+	}
+
+	if ($> != 0) {
+		print "It is necessary to add missing qmail users/groups at";
+		print "this stage.  Please either add them manually or retry";
+		print "as root.";
+		# Let pw(1) signal the failure so the user can see which
+		# group/user is actually missing.
+	}
+}