#!/usr/bin/perl -w

#----------------------------------------------------------------------
# Copyright (c) 2001 Mitel Networks Corporation 
# 
# Technical support for this program is available from Mitel Networks
# Corporation.  Please visit our web site www.e-smith.com for details.
#----------------------------------------------------------------------
package esmith;

use strict;
use Errno;
use esmith::templates;
use esmith::ConfigDB;
use esmith::AccountsDB;

my $config = esmith::ConfigDB->open;
my $accounts = esmith::AccountsDB->open;

#--------------------------------------------------
# Set up default alias.
#--------------------------------------------------

my $dest = $config->get_value('EmailUnknownUser') || 'returntosender';
my $acctype = $accounts->get_prop($dest,'type') || 'unknown';

if ($dest ne 'returntosender') {
    $config->get('EmailUnknownUser')->set_value('admin') if ($dest ne 'admin' && $acctype =~ /delete|system|unknown/);
    esmith::templates::processTemplate
    ({
        TEMPLATE_PATH => "/var/qmail/alias/.qmail-default",
        UID => "alias",
        GID => "qmail",
    });
} else {
    $config->new_record('EmailUnknownUser', {type=>'returntosender'});
    unlink ("/var/qmail/alias/.qmail-default");
}

exit (0);
