#!/usr/bin/perl
# Copyright 2018 James Ziobro
#	Software provided under GNU GPL: https://www.gnu.org/licenses/gpl.txt
# VirtDomain.pl:	v1 12/2018
# read assorted aliases formated files and create virtuser and aliases files to handle like virtual domains
# filename is assumed to be "domain name"
#	"domain name" excludes any directory part of FILENAME

my $A     = "aliases.CKP";
my $V     = "virtusers.CKP";
my $FIRST = "azz-"; # something that wont clash with any real aliases or mailboxes

eval '$' . $1 . '$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
# process any FOO=bar switches

open( ALIASES, ">" . $A )
  or die "\nError opening $A : $!";
open( VIRTUSER, ">" . $V )
  or die "\nError opening $V : $!";

my $aliasN = 0;
while (<>) {
    $aliasN++;
    $ARGV =~ s/.*\///; # filename without path is the domain name
    chomp;    # strip record separator
    next if /\s*\#/;    # skip comments
    next if /^\s*$/;    # skip blanks
    print $ARGV . ':' . $_ . "\n";
    my ( $name, $alias ) = split /:/, $_, 2;
    $name =~ s/\s*//g;    # kill all whitespace!
    print ALIASES $FIRST, $aliasN, ":", $alias, "\n";
    print VIRTUSER $name, '@', $ARGV, "	", $FIRST, $aliasN, "\n";

}