{
    use esmith::config;
    use esmith::db;

    my $domain  = $DomainName || '';
    $OUT .= "$domain\n";
    my $a; my $b;
    
    system("/bin/cat /home/e-smith/db/domains |/bin/grep domain > /tmp/vdomains");# == 0
	#or die ("Error writing /tmp/vdomains\n");
    
    #list of virtual domains
    if ( -s "/tmp/vdomains" )
    {
      open (INF,"/tmp/vdomains")
      or die ("can't open vdomains to read: $1. ");

      while (<INF>)
      {
           #take each line, split by =
           ($a,$b) = split(/\=/, $_);
            $OUT .= "$a\n";
      }
    }    

}
