#!/usr/bin/perl

$| = 1;

$action = shift @ARGV;

if ( $action eq 'purge' ) {
    system('update-rc.d qmail remove >/dev/null');
    system("rm -rf /var/qmail");
    system("rm -rf /etc/qmail");
    exit $?;
}

if ( $action eq 'abort-install' ) {
    # Put back old inetd.conf (?)
    exit 0
}