#! /usr/local/bin/perl

# Filename: libask.pl
# By: Huijie Chen and Eric Delozier
# Date: 1998/08/31
# Note: 

require "cgi-lib.pl";

MAIN:
{
  # Read in all the variables set by the form
  &ReadParse(*input);

  # Print the header
  print &PrintHeader;
  print &HtmlTop ("Questions and Feedbacks");

  # Do some processing, and print some output

  ($text = $input{'text'}) =~ s/\n/\n<BR>/g;
                                   # add <BR>'s after carriage returns
                                   # to multline input, since HTML does not
                                   # preserve line breaks

  print <<ENDOFTEXT;

<font color=#118800>
Thank you for using this service.  Your message has been mailed to 
Heindel Library Reference Services.  If you asked a question and we
have an answer, we will reply by email.

</font>
<p>
Your original questions or comments:<p>
<ul>
$text
</ul>


ENDOFTEXT

# Close the document cleanly.
  print &HtmlBot;

open (SENDMAIL, "| /usr/bin/mailx -t -n");
print SENDMAIL <<End_of_Mail;
From: libref\@www\.hbg\.psu\.edu 
To: libref\@brain\.hbg\.psu\.edu
Cc: epd103\@psu\.edu
Reply-to: $input{'email'} 
Subject: $input{'subject'} (Questions or Comments) 

Submitted from the Web.  Please verify before processing.

Patron's Information: 
  name: $input{'username'}
  Status: $input{'school'} $input{'status'}
  Email:  $input{'email'}
  Last Day of the answer is of use: $input{'lastday'}

Question or Feedback:
  $input{'text'}

Processed by: $input{'illmail'}

End_of_Mail
}