|
#!/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);
|
|
|