#!/usr/bin/perl

use mxMSsmtp::Config;
use mxMSsmtp::Run;
use Getopt::Std;
use strict;

my %opts;
my $cfg = undef;
my $pid;

getopts('c:D', \%opts);
$cfg = $opts{c} if $opts{c};

my $vars = mxMSsmtp::Config::get($cfg) or die "Problem getting config file\n";
if ($opts{D}) {
        run mxMSsmtp::Run($vars) unless $pid = fork;
}
else {
        run mxMSsmtp::Run($vars);
}

exit;