#!/usr/bin/perl -w

package esmith;

use strict;
use Errno;

my $event = $ARGV [0];
my $list = $ARGV [1];

die "list name argument missing." unless defined ($list);

$list =~ s/\./:/g;
unlink "/var/qmail/alias/.qmail-$list";
unlink "/var/qmail/alias/.qmail-$list-default";

exit (0);