#!/usr/bin/perl -w -i
use strict;

opendir(D, '/home/virtual') || die;
my @sites = grep /^site[0-9]+$/, readdir(D);
closedir(D);

while (<>) {
    print;
    if (/^# SENDMAIL_ADD_MAPS BEGIN/) {
	while (!/^# SENDMAIL_ADD_MAPS END/) {
	    $_ = <>;
	}
	for my $s (@sites) {
	    print "K${s}_a hash -o -m /home/virtual/$s/fst/etc/aliases.db\n";
	}
	for my $s (@sites) {
	    print "K${s}_u text -o -m -z: /home/virtual/$s/fst/etc/passwd\n";
	}
	print;
    }
}

