Remove helper for Postfixadmin

maildirdel.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $mailhome = '/var/spool/postfix/virtual';
my $domain = shift or die;
my $username = shift or die;

die "Invalid domain: $domain\n" unless $domain =~ m/^[\w\.\-]+$/;
die "Invalid username: $username\n" unless $username =~ m/^[\w\.\@\_]+$/;

my $maildir = "$mailhome/$domain/$username";
-d $maildir ?
   qx { /bin/rm -rf $maildir } :
   die "No such maildir: $maildir\n";