#!/usr/bin/perl

my $brokenvartmp = 0;
if ( -e '/proc/mounts' ) {
    open( my $mt_fh, '<', '/proc/mounts' ) || die "unable to open /proc/mounts: $!";
    while ( readline($mt_fh) ) {

        #must detect: /dev/sda1 /var/tmp\040(deleted) ext2 rw,nosuid,noexec,usrquota 0 0
        #
        #
        #
        if (/\S+\s+\(deleted\)[^\/]*\/var\/tmp\s+/) {
            $brokenvartmp = 1;
        }
        if (/\S+\s+\/var\/tmp[^\(]+\(deleted\)\s+/) {
            $brokenvartmp = 1;
        }

    }
    close($mt_fh);
}

if ($brokenvartmp) {
    print "Unmounting broken /var/tmp... ";
    system 'umount', '/var/tmp';
    print "Done\n";
}

my $mailtrap_gid = ( getgrnam('mailtrap') )[2];
my $sendmail_gid = ( stat('/usr/sbin/sendmail') )[5];
if ( $mailtrap_gid && defined $sendmail_gid ) {
    if (   -e '/usr/sbin/sendmail'
        && -x '/usr/sbin/sendmail'
        && ( !-g '/usr/sbin/sendmail' || ( $sendmail_gid != $mailtrap_gid ) ) ) {
        system '/scripts/eximup', '--force';
    }
}