X-Git-Url: https://git.distorted.org.uk/~mdw/qmail/blobdiff_plain/ed442cdcfc53509217cae564e9ccf70c5e22657e..HEAD:/debian/preinst diff --git a/debian/preinst b/debian/preinst index bfacc91..e9e2848 100644 --- a/debian/preinst +++ b/debian/preinst @@ -2,7 +2,6 @@ require 5.002; use strict 'subs'; -use strict 'barewords'; use English; sub check_uid($$$$$$) { @@ -163,16 +162,16 @@ if ( $action eq 'install' ) { } # Check for qmail uids and gids my $errors; - $errors++ unless check_gid('qmail', 70, ()); + $errors++ unless check_gid('qmail', 64010, ()); #$errors++ unless check_gid('nogroup', 65534, ()); - $errors++ unless check_uid('alias', 70, 65534, 'qmail alias', '/var/qmail/alias', '/bin/sh'); - $errors++ unless check_uid('qmaild', 71, 65534, 'qmail daemon', '/var/qmail', '/bin/sh'); - $errors++ unless check_uid('qmails', 72, 70, 'qmail send', '/var/qmail', '/bin/sh'); - $errors++ unless check_uid('qmailr', 73, 70, 'qmail remote', '/var/qmail', '/bin/sh'); - $errors++ unless check_uid('qmailq', 74, 70, 'qmail queue', '/var/qmail', '/bin/sh'); - $errors++ unless check_uid('qmaill', 75, 65534, 'qmail log', '/var/qmail', '/bin/sh'); - $errors++ unless check_uid('qmailp', 76, 65534, 'qmail pw', '/var/qmail', '/bin/sh'); + $errors++ unless check_uid('alias', 64010, 65534, 'qmail alias', '/var/qmail/alias', '/bin/sh'); + $errors++ unless check_uid('qmaild', 64011, 65534, 'qmail daemon', '/var/qmail', '/bin/sh'); + $errors++ unless check_uid('qmails', 64012, 64010, 'qmail send', '/var/qmail', '/bin/sh'); + $errors++ unless check_uid('qmailr', 64013, 64010, 'qmail remote', '/var/qmail', '/bin/sh'); + $errors++ unless check_uid('qmailq', 64015, 64010, 'qmail queue', '/var/qmail', '/bin/sh'); + $errors++ unless check_uid('qmaill', 64016, 65534, 'qmail log', '/var/qmail', '/bin/sh'); + $errors++ unless check_uid('qmailp', 64017, 65534, 'qmail pw', '/var/qmail', '/bin/sh'); #$errors++ unless check_uid('nobody', 65534, 65534, 'nobody', '/tmp', '/bin/sh'); if ( $errors ) {