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

#code to give unique siteids present in sendmail.domainmap
open(D, '/etc/virtualhosting/mappings/sendmail.domainmap') || die;
my %temp = ();
while(<D>){
    if ( /(site[0-9]+)\n$/ ){
        $temp{$1}++;
    }
}
my @sites = keys(%temp);
close(D);

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

