#!/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", 82, "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. } }