Commit | Line | Data |
---|---|---|
1 | #!/usr/bin/perl | |
2 | ||
3 | $| = 1; | |
4 | ||
5 | $action = shift @ARGV; | |
6 | ||
7 | if ( $action eq 'purge' ) { | |
8 | system('update-rc.d qmail remove >/dev/null'); | |
9 | system("rm -rf /var/qmail"); | |
10 | system("rm -rf /etc/qmail"); | |
11 | exit $?; | |
12 | } | |
13 | ||
14 | if ( $action eq 'abort-install' ) { | |
15 | # Put back old inetd.conf (?) | |
16 | exit 0 | |
17 | } | |
18 |