#!/usr/bin/perl

#######################################################################################
#
#	Question Manager V2.0
#	©2000, Perl Services
#
#	Requirements:		UNIX Server, Perl5+
#	Created:			September 22nd, 2000
#	Author: 			Jim Melanson
#	Modifications:		John Krinelos
#						February, 2001
#						June, 2001
#
#	Contact:			www.perlservices.net 
#						Phone:		1-760-249-3676
#						Toll-Free:	1-877-751-5900 CONUS only
#						Fax:		1-760-249-9917
#						E-Mail:		info@perlservices.net
#
#	File Name:			Question.cgi
#
#######################################################################################

#######################################################################################
#
#				  		DO NOT EDIT 
#				   	 	  ANYTHING
#				        IN THIS FILE
#
#######################################################################################

#System Constants
$PROGRAMDIR = "Question";
$PROGRAMNAME = "Web Site Question Manager";
$PROGRAMVERSION = "V2.0";
$RELEASEDATE = "June 2001";


#Concantenate the configuration file name.
$cfg_file = $PROGRAMDIR . "_cfg.cgi";

#Get the config file
require $cfg_file;

#Add the Data key
$PROGRAMDIR .= $DataKey;

#Set the data path.
if(-d "$ENV{'DOCUMENT_ROOT'}/ris_datalogs/$PROGRAMDIR") {
    $Data = "$ENV{'DOCUMENT_ROOT'}/ris_datalogs/$PROGRAMDIR";
} else {
    $Data = "$DefaultData/ris_datalogs/$PROGRAMDIR";
}

&Initialize;
&Parse;
&Date;
&GetCookies;

#Determine if we are using a secure server. If so, use that specified URl
#otherwise concantenate the Script URL dynamically.
if($SecureServer) {
    $SecureServer =~ s/$PROGRAMDIR\.cgi/$PROGRAMDIR\_admin\.cgi/g;
    $ScriptURL = $SecureServer;
} else {
    $ScriptURL = "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";
}

if($ENV{'QUERY_STRING'} =~ /^submit/) {
    &Process;
} else {
    &PrintForm;
}

sub Process {
    if($FORM{'email'} && $FORM{'name'} && $FORM{'message'}) {
		
		my $PID = $PID_DATE;
		my $time = time;
		if(open(QUESTION, ">$Data/questionfiles/$PID.ftf")) { 
			flock(QUESTION, '2');
			print QUESTION "name||$FORM{name}\nemail||$FORM{email}\n";
			print QUESTION "date||$SHOW_TIME on $SHOW_DATE||$time\n\n\n"; # 3 new lines
			print QUESTION "$FORM{message}\n";
			close QUESTION;
			backup("$Data/questionfiles/$PID.ftf");
			&upquestioncount;
			$WARN = qq~Thank-you $FORM{name}! Your submission has been received and we will respond
			<BR>
			as soon as we review it. Below is a copy of your submission.
			~;
			if($CONFIG{'notifyadminonquestionsubmit'} == 1) {
				if(open(MAIL, "|$CONFIG{'mailprogram'} -t")) {
					print MAIL "To: $CONFIG{'adminemail'}\n";
				    print MAIL "From: $CONFIG{'adminemail'}\n";
				    print MAIL "Subject: Question Manager has received a new question!\n";
					print MAIL "A new question requiring a response has been recieved.\n\n";
					$adminurl = $ScriptURL;
					$adminurl =~ s/Question.cgi$//;
					$adminurl .= "Question_admin.cgi";
					print MAIL "Login at:\n$adminurl\n\n\n";
					print MAIL "Notice Courtesy of $PROGRAMNAME $PROGRAMVERSION\n\n";
					print MAIL "Submitted by : $FORM{email}\n\n";
					print MAIL "Question is : \n";
					print MAIL "$FORM{message}\n\n";
					close MAIL;
				}
			}
			if($CONFIG{'redirect_em'}) {
				print "Location: $CONFIG{'redirect_em'}\n\n";
			} else {
				&PrintForm;
		    }
		} else {
			$WARN = qq~
			WARNING: An error occured and we were unable to record your questions.
			<BR>
			Your input is important to us so please <A HREF="mailto:$CONFIG{'adminemail'}">e-mail</A> 
			your question to our <A HREF="mailto:$CONFIG{'adminemail'}">Administrator</A>.
			~;
			&PrintForm;
		}
	} else {
		$WARN = qq~
		WARNING: You forgot one to fill in a field. All fields are mandatory.
		~;
		&PrintForm;
    }
} 

sub PrintForm {
    &PrintHead;
	
	if((($ENV{'HTTP_USER_AGENT'} =~/MSIE/i) && ($ENV{'HTTP_USER_AGENT'} !~/OPERA/i) && ($ENV{'HTTP_USER_AGENT'} !~/AOL/i)) || ($ENV{'HTTP_USER_AGENT'} =~/NETSCAPE/i)){
		$but_events = qq~ class="buttoff" onmouseover="this.className='button'" onmouseout="this.className='buttoff'"~;
	} else {
		$but_events = qq~~;
	}
    
	unless($CONFIG{useheader} == 1) {
		print qq~
		<CENTER>
		<B>
		<H3>Do you have a question?</H3>
		Let us know! Send us your question and we'll e-mail you the answer!</B>
		<BR>
		<BR>
		~;
	}
	
	$FORM{'message'} =~ s/!LBCR!/\n/ig;
	
	print qq~
	<TABLE BORDER=0 align="center" width="500" style="border:white outset 2px;">
	<FORM ACTION="$ScriptURL?submit" METHOD="POST" name="_form" onsubmit="return check_form(this.name,this.email,this.message)">
	<TR>
	<TD width="160" nowrap>&nbsp;$FONT<B>Your Name:</B></FONT></TD>
	<TD width="340" align="center"><INPUT TYPE="TEXT" NAME="name" VALUE="$FORM{name}" SIZE=40></TD>
	</TR>
	<TR>
	<TD nowrap>&nbsp;$FONT<B>Your E-Mail:</B></FONT></TD>
	<TD align="center"><INPUT TYPE="TEXT" NAME="email" VALUE="$FORM{email}" SIZE=40></TD>
	</TR>
	<TR>
	<TD COLSPAN=2>&nbsp;$FONT<B>My question is:</b></FONT></TD>
	</TR>
	<TR>
	<TD COLSPAN=2 align="center">
	<TEXTAREA NAME="message" COLS=59 ROWS=10 WRAP="VIRTUAL">$FORM{'message'}</TEXTAREA></TD>
	</TR>
	
	<tr><td colspan="2"><br></td></tr>
    
	<tr>
	<td colspan="2" align="center"><font face="Arial" style="font-size:14px;font-weight:bold;">
	<INPUT TYPE="SUBMIT" VALUE="Send Question" width="500" $but_events></font></td>
	</tr></FORM>
	</TABLE>
	~;
    &PrintFoot;
}