my $BASEDIR = $ENV{'VOCP_BASEDIR'};

$LocalDir = '/usr/local/vocp';

$LocalDir = $BASEDIR . '/usr/local/vocp';

$VOCP_conf_dir = "/etc/vocp";

$VOCP_conf_dir = $BASEDIR . "/etc/vocp";

$Spool_dir = '/var/spool/voice';

$Spool_dir = $BASEDIR . '/var/spool/voice';

@LogFiles = ('/var/log/vocp.log', '/var/log/vocp-calls.log');

@LogFiles = ($BASEDIR . '/var/log/vocp.log', $BASEDIR . '/var/log/vocp-calls.log');

	print "\n\nVOCP installer\n"

#	print "\n\nVOCP installer\n"

		. "$License\n\n"

#		. "$License\n\n"

		."This program will install VOCP $Version.\n"

#		."This program will install VOCP $Version.\n"

		."You may just press the ENTER key to accept "

#		."You may just press the ENTER key to accept "

		."the [default] value for any question.\n";

#		."the [default] value for any question.\n";

	my $AgreeLicense = 'n';

#	my $AgreeLicense = 'n';

	print "\n\nYou understand that the VOCP system, it's source code and all supporting documents and resources are\n"

#	print "\n\nYou understand that the VOCP system, it's source code and all supporting documents and resources are\n"

		. "\nCopyright (C) 2000-2003 Patrick Deegan, Psychogenic INC\n"

#		. "\nCopyright (C) 2000-2003 Patrick Deegan, Psychogenic INC\n"

		. "\nand subject to the terms and conditions described in the accompanying LICENSE file.  You have read the LICENSE and "

#		. "\nand subject to the terms and conditions described in the accompanying LICENSE file.  You have read the LICENSE and "

		. "agree to comply with the terms and conditions described therein? [$AgreeLicense]: ";

#		. "agree to comply with the terms and conditions described therein? [$AgreeLicense]: ";

#

#	option(\$AgreeLicense);

	option(\$AgreeLicense);

	my $AgreeLicense = 'y';	

	print "\n\n";

#	print "\n\n";

#		

	print "Enter:\n$Install_type{'full'} for full vocp install,\n"

	if ( $ENV{'VOCP_INSTALL_TYPE'} ne '' ) {

	     ."$Install_type{'upgrade'} if you are upgrading a previous version of VOCP (read doc/upgrading.txt!),\n"

		$install = $ENV{'VOCP_INSTALL_TYPE'};

	     ."$Install_type{'sound'} if you only wish to convert the sound files "

	}

	     ."to rmd format\n[$install]: ";	     

	option(\$install);

#	print "Enter:\n$Install_type{'full'} for full vocp install,\n"

#	     ."$Install_type{'upgrade'} if you are upgrading a previous version of VOCP (read doc/upgrading.txt!),\n"

#	     ."$Install_type{'sound'} if you only wish to convert the sound files "

#	     ."to rmd format\n[$install]: ";	     

#	option(\$install);

		print "Skipping sound file conversion.\n";

#		print "Skipping sound file conversion.\n";

		print "Done.\n\n";

#		print "Done.\n\n";

	system("touch " . join(" ", @LogFiles));

#	system("touch " . join(" ", @LogFiles));

		my $installDeps = 'y';

		my $installDeps = 'n';

		print "\nCertain modules now required by VOCP were not found.  You must install the modules marked REQUIRED before proceeding.  "

		print "\nCertain modules now required by VOCP were not found.  You must install the modules marked REQUIRED before proceeding.";

			. "You may:\n\t- Abort and manually install any dependencies\n\t- Proceed with current configuration.\n\t- Attempt to automatically install all missing dependencies.\n\nInstall ALL dependencies automatically (you must be connected to the Internet)? [$installDeps]: ";

#			. "You may:\n\t- Abort and manually install any dependencies\n\t- Proceed with current configuration.\n\t- Attempt to automatically install all missing dependencies.\n\nInstall ALL dependencies automatically (you must be connected to the Internet)? [$installDeps]: ";

		option(\$installDeps);

#		option(\$installDeps);

	chdir($Pwd);

#	chdir($Pwd);

	print "Installing VOCP Perl modules...\n";

#	print "Installing VOCP Perl modules...\n";

	chdir($PerlModule_dirs{'VOCP'});

#	chdir($PerlModule_dirs{'VOCP'});

	system("perl Makefile.PL; make; make install");

#	system("perl Makefile.PL; make; make install");

	print "\nDone\n\n\n";

#	print "\nDone\n\n\n";

	my $haveTTS = 'n';

#	my $haveTTS = 'n';

	print "\nDo you wish to use Text-to-speech (to hear emails, etc.) AND do you have the Festival TTS engine installed [$haveTTS]: ";

#	print "\nDo you wish to use Text-to-speech (to hear emails, etc.) AND do you have the Festival TTS engine installed [$haveTTS]: ";

	option(\$haveTTS);

#	option(\$haveTTS);

	my $haveTTS = 'y';

	if ( $ENV{'VOCP_HAVE_TTS'} ne 'y' ) {

		$haveTTS = 'n';

	}

			print "Under which directory can Festival's bin/text2wave program be \nfound (enter full path up to bin/text2wave): ";

#			print "Under which directory can Festival's bin/text2wave program be \nfound (enter full path up to bin/text2wave): ";

			option(\$festDir);

#			option(\$festDir);

			chomp($festDir);

#			chomp($festDir);

	option(\$VOCP_group);

#	option(\$VOCP_group);

	if ( $ENV{'VOCP_GROUP'} ne '' ) {

	while (! -x $Groupadd)

		$VOCP_group = $ENV{'VOCP_GROUP'};

	{

	}

		print "\nWhat is the full path of the groupadd program on your system?\n"

#	

			. "[$Groupadd]: ";

#	while (! -x $Groupadd)

		option(\$Groupadd);

#	{

	}

#		print "\nWhat is the full path of the groupadd program on your system?\n"

#			. "[$Groupadd]: ";

	print "\nCreating group and setting permissions on boxes.conf and messages.pl...\n";

#		option(\$Groupadd);

	system("$Groupadd $VOCP_group");

#	}

#	

#	print "\nCreating group and setting permissions on boxes.conf and messages.pl...\n";

#	system("$Groupadd $VOCP_group");

		my $pvftoolsdir = '/usr/local/bin';

		my $pvftoolsdir = '/usr/bin';

		print "Where is the pvftormd executable (included "

#		print "Where is the pvftormd executable (included "

		     ."with mgetty) installed on your system\n"

#		     ."with mgetty) installed on your system\n"

		     ."[$pvftoolsdir]: ";

#		     ."[$pvftoolsdir]: ";

		option(\$pvftoolsdir);

#		option(\$pvftoolsdir);

	print "\nListed above are the supported modems and "

#	print "\nListed above are the supported modems and "

	      ."compression types.  You should already know which "

#	      ."compression types.  You should already know which "

	      ."of these apply to your modem (if not see the "

#	      ."of these apply to your modem (if not see the "

	      ."documentation included on vgetty or the website). "

#	      ."documentation included on vgetty or the website). "

	      ."Please enter the options that apply to your modem, "

#	      ."Please enter the options that apply to your modem, "

	      ."for example, $pvftormdopt\n[$pvftormdopt]: ";

#	      ."for example, $pvftormdopt\n[$pvftormdopt]: ";

	option(\$pvftormdopt);

#	option(\$pvftormdopt);