#!/usr/bin/perl -w

use strict;
my $text;

open(FILE, "list.txt") or die("Unable to open file");

open(CONFFILE, ">>/usr/local/apache/conf/httpd.conf");
#open(CONFFILE, ">mytestfile");


while (my $domain = <FILE>) {
	chomp $domain;
	my $string = `grep -l $domain /var/cpanel/users/*`;
	chomp $string;
	my @user = split(/\//, $string);
	print CONFFILE "<VirtualHost 69.16.238.201>\n";
	print CONFFILE "ServerAlias www.$domain $domain\n";
	print CONFFILE "ServerAdmin webmaster\@$domain\n";
	print CONFFILE "DocumentRoot /home/$user[4]/public_html\n";
	print CONFFILE "User $user[4]\n";
	print CONFFILE "Group $user[4]\n";
	print CONFFILE "ServerName www.$domain\n";
	print CONFFILE "CustomLog domlogs/$domain combined\n";
	print CONFFILE "ScriptAlias /cgi-bin/ /home/$user[4]/public_html/cgi-bin\n";
	print CONFFILE "<\/VirtualHost>\n\n";
}

close(FILE);

close(CONFFILE);