#!/usr/bin/perl
# VERSION: 4300
##############################################################################
# PROGRAM : BuildACommunity.com Perl CGI Script                              #
#                                                                            #
# NOTES   :                                                                  #
##############################################################################
# All source code, images, programs, files included in this distribution     #
# Copyright (c) 1999 -> 2017                                                 #
#           Ecreations Software Inc.                                         #
#           All Rights Reserved.                                             #
##############################################################################
#                                                                            #
#    While we distribute the source code for our scripts and you are         #
#    allowed to edit them to better suit your needs, we do not               #
#    support modified code.  Please see the license prior to changing        #
#    anything.                                                               #
#                                                                            #
##############################################################################
#use CGI::Carp qw(fatalsToBrowser);
use strict;

BEGIN { 
	use Cwd;
}
BEGIN {
	my $directory = cwd;
	unshift @INC,$directory;
	unshift @INC,"."; 

}

use BAC::CommunityMembers::Modules::Login;
$BAC::PROGRAM_NAME = "login.cgi";	
&BAC::CommunityMembers::Modules::Login::Init();