security/amavis-perl/pkg-deinstall.qmail


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#!/usr/bin/perl

use strict;

my $qmailDir;

# ensure we are running only as post installation
exit 0 if $ARGV[ 1 ] ne "POST-DEINSTALL";

# find location of qmail
if ( -f "/var/qmail/bin/qmail-send" ) {
    $qmailDir = "/var/qmail";
} else {
    $qmailDir = "/usr/local/qmail";
}

print "==> Removing virusalert user\n";
unlink "${qmailDir}/alias/.qmail-virusalert";

print "==> Removing amavis from qmail\n";
unlink "${qmailDir}/bin/qmail-queue";
system( "mv ${qmailDir}/bin/qmail-queue-real ${qmailDir}/bin/qmail-queue" );

print "==> Removing mode from suidperl\n";
chmod 0511, "/usr/bin/suidperl";