Chapter 9

Making a User's Life Simpler with Multipart Forms

CONTENTS

• Why Use Multipart Forms?
• Keeping State Data in a Stateless World
• Java and JavaScript
• Adding a Buyer's Form to the Real Estate Site

HTML forms are most programmers' first introduction to CGI scripting. Chapter 7, "Extending HTML's Capabilities with CGI," introduces formmail.pl, a CGI script that reads the contents of a form and sends it on to a designated recipient. As the complexity of the form grows, some Webmasters want to split it so that each page of the form depends upon the answers to the page before it. To build a multipart form, the concept of "state" must be added to HTTP.

Recall from Chapter 4, "Designing Faster Sites," that the Web protocol, HTTP, is stateless-that is, the server sees each request as a stand-alone transaction. When a user submits page 2 of a multipart form, the server and CGI scripts have no built-in mechanism for associating this user's page 2 with his or her page 1. These state-preserving mechanisms have to be grafted onto HTTP using any of several techniques.

Why Use Multipart Forms?

Forms often spell the difference between a mere brochure and an effective, interactive Web site. For many purposes, a simple form that accepts user feedback and e-mails it to the site owner is sufficient. But sometimes, something more is required. This section shows some examples of when multipart forms are required.

A User Survey

Every six months (around April 10 and October 10), the Graphic, Visualization, and Usability Center of Georgia Tech conducts a survey of Web users. (The results of the survey make for interesting reading; they are available at http://www.cc.gatech.edu/gvu/user_surveys/.) Each survey contains several dozen questions spanning multiple categories. For example, the second GVU survey had four categories:

• General demographics
• WWW browser usage
• Authoring information
• Consumer surveys (pretest)

While one might design this survey into one large page, that approach has the drawback that the page would be very large, requiring users to wait while it loaded.

Furthermore, the multipage questionnaire is designed to be adaptive; the answer to one question determines which questions the user will see later. Users like to be able to fill out the questionnaire over multiple sessions.

Figures 9.1 through 9.4 illustrate these features of the survey.

Figure 9.1: The GVU Welcome screen.

Figure 9.2: The GVU Section menu.

Figure 9.3: A user filling out the trigger to an adaptive question.

Figure 9.4: A user getting the adaptive response.

The GVU staff elected to implement their questionnaire as a multipart form. Each page contains hidden fields that help the software link together the responses of a user.

A detailed discussion of GVU's software approach is available at http://www.cc. gatech.edu/gvu/user_surveys/survey-09-1994/html-paper/survey_2_paper. html#method.

A Tech Support Application

During the mid-eighties, progress was made on "expert systems" to guide technical support specialists in troubleshooting and repairing complex systems. Despite excess hype and subsequent disillusionment, there has been quite a bit of success in this area. The typical diagnostic expert system starts out by asking a series of questions to get general information. It uses this information to select topics that might benefit from further inquiry. It concludes when it has enough information to recommend a course of action.

Imagine a Web site giving access to such a system to end users. Figures 9.5 through 9.8 provide an example from the automotive industry.

Figure 9.5: On the Welcome page the user identifies the major problem with the car.

The first screen (refer to Fig. 9.5) asks the user about general symptoms. Suppose the user says the car won't start. When the user submits the page, the system considers two possible scenarios:

• The fuel system failed.
• The electrical system failed.

In a typical design follow-up, questions are selected by the likelihood of failure and the "cost" of getting an answer. For example, checking to see if the fuel pump is pumping requires asking the user to open the hood and remove the air filter. Checking the electrical system may be as simple as asking the user to turn on the headlights and see if they light. In the example shown in Figure 9.6, the system decides to ask the user about the electrical system.

Figure 9.6: The Step #1 page is example of first-level hypothesis checking.

Following this logic, the system concludes that there is indeed an electrical problem. It continues to ask the user to make various tests for spark and the state of the battery and finally determines that a cable has broken in the ignition system. In Figure 9.7, the system is getting the user's help in identifying the cable.

Figure 9.7: An example of second-level hypothesis checking.

The system continues to get information from the user, such as the make, model and year of the car, until it can identify the specific part that is defective (as shown in Fig. 9.8).

Figure 9.8: On the Auto Help Recommendation page, the system offers options for getting the cable to the user.

Upon user confirmation, the system could schedule a service technician to deliver and install the cable on the customer's car.

A Membership Site

Suppose that a computer club serves members who have a variety of interests and that it would like to serve each member in such a way as to meet his or her needs. The first time a member visits the site, that member fills out a user profile that describes his or her interests (see Fig. 9.9). On subsequent visits, the member is directed to the parts of the site that best meet his or her needs. The site would continue to build and refine a user profile based on the member's interests.

Figure 9.9: The Computer Club Welcome page, as seen by a first-time visitor.

This user has identified himself as a Macintosh SE/30 user who is interested in the Internet and in computer games. The next time this user visits the site, the site has tailored itself to his interests (see Fig. 9.10).

Figure 9.10: The Computer Club Welcome page, as seen by a returning visitor.

The system knows that the user has a Mac SE/30, which has a 9-inch monochrome screen, so the system does not tell this user about games that require a large screen or color.

The system has on file an announcement that a local Internet Service Provider (ISP) is upgrading its lines to 28.8 Kbps, but the system doesn't know what speed modem this user has-so it asks him. When the system finds out that the user has a 28.8 Kbps modem, it gives the user the announcement about the ISP, but it skips the announcement that the club has made arrangements with a local computer store to offer faster modems to members at a discount (see Fig. 9.11).

Figure 9.11: The system checks the user's modem speed.

Finally, the system notes that there was a swap meet that this user might have been interested in, but the date for the swap meet is past, so the system skips that announcement (see Fig. 9.12) but leaves it on the "Other" list for the user's reference.

Figure 9.12: The system sifts through the choices.

Keeping State Data in a Stateless World

Multipart forms are certainly useful, but there are certain challenges to setting them up. Recall from Chapter 4, "Designing Faster Sites," that HTTP is a stateless protocol. A client connects, GETs information, and disconnects. There are four mechanisms available for passing information from one page to the next.

PATH_INFO

Each script gets a CGI environment variable called PATH_INFO. PATH_INFO contains information that is stored after the script in the calling path. Suppose the script's URL is http://www.xyz.com/cgi-bin/myScript.cgi. The user can call http://www.xyz.com/cgi-bin/myScript.cgi/my/special/data. The script myScript.cgi will run, and PATH_INFO will contain /my/special/data.

PATH_INFO offers very little that the QUERY_STRING (described next) doesn't do as well or better. There is one circumstance, however, in which PATH_INFO is essential.

Suppose a site is using the QUERY_STRING to pass information around from page to page. A typical relative URL might be /cgi-bin/xyz/myPage.shtml?122. Now the user wants to click on a server-side, clickable imagemap. If the imagemap were run on the client side, there would be no problem, but if the client doesn't handle client-side imagemaps, this option is not available. When the browser handles the click on an image that has ISMAP set, it replaces the current query string with the coordinates of the click. Any state information in the QUERY_STRING is lost, but any information stored in the PATH_INFO is safe.

Listing 9.1 shows an example of code that passes an order ID through a server-side clickable imagemap.

Listing 9.1  smWheel.cgi-Passes State Information Through a Server-Side Imagemap with PATH_INFO

#!/usr/bin/perl
# smWheel.cgi
# arguments are x, y, order number
require "html.cgi";
require "install.inc";
($X, $Y) = split (/,/, $ARGV[0]);
($empty, $orderID ) = split (/\//, $ENV{PATH_INFO});
#$file    = $pageDirectory . "/" . $file;
# set up default
$file = "index.html";
if ($X >= 30 && $X < 90 && $Y < 30) 
{
  $file = "newsevents.html";
}
elsif ($X < 30 && $Y < 60)
{
  $file = "specials.html";
}
elsif ($X < 30)
{
  $file = "catalog.html";
}
elsif ($X >= 30 && $X < 90 && $Y > 90)
{
  $file = "feedback.html";
}
elsif ($X > 90 && $Y > 60)
{
  $file = "links.html";
}
elsif ($X > 90 && $Y < 60)
{
  $file = "chatarea.html";
} 
$file = $pageDirectory . "/" . $file;
# read the page
open (PAGE, $file) || &die ("System error: unable to read page file $file\n");
print "Content-type: text/html\n\n";
while ($input = <PAGE>)
{
  $_ = $input;
  s/"/\\"/g;
  $result = eval qq/"$_\n"/;
print $result;
}
# and close the file
close (PAGE);

#!/usr/local/bin/perl
# orderForm.cgi
#html.cgi contains routines that allow us to speak HTML.
require "html.cgi";
require "kart.cgi";
$orderID = $ARGV[0];
if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
  # Using POST, so data is on standard in
  read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  
  # Split the fields using '&'
  @pairs = split(/&/, $buffer);
  
  # Now split the pairs into an associative array
  foreach $pair (@pairs)
  {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
  }
  
    
  # Check for illegal metacharacters.
  if ($FORM{email} !~ /^$/ && $FORM{email} !~ /^[a-zA-Z0-9_\-+ \t\/@%.]+$/)
  {
    &html_header("Illegal Characters");
    print "Your e-mail address contains illegal \n";
    print "characters. Please notify \n";
    print "the webmaster: \n";
    print "<A HREF=\"mailto:morganm\@dse.com\">morganm\@dse.com</A>\n";
    &html_trailer;
  }
  else
  {
    # start the HTML stream back to the client
    &html_header("Order Form");
    print "<FORM METHOD=\"POST\"
    ACTION=\"http://www.dse.com/cgi-bin/dse/xyz/checkout.cgi?$orderID\">\n";
    print "Name: $FORM{name}<BR>\n\n";
    print "Address1: $FORM{address1}<BR>\n";
    print "Address2: $FORM{address2}<BR>\n";
    print "City: $FORM{city}<BR>\n";
    print "State: $FORM{state}<BR>\n";
    print "Zip: $FORM{zip}<BR>\n";
    print "Country: $FORM{country}<BR>\n";
    print "Work Phone: $FORM{workphone}<BR>\n";
    print "Home Phone: $FORM{homephone}<BR>\n";
    print "Payment Method: $FORM{payment}<BR>\n";
    if ($success == &openCart ($orderID))
    { 
      $cartCount = %cart;
      if ($cartCount != 0)
      {
        print "<PRE>\n";
        print "Item       Qty Description                    Style
              Size         Each\n";
        while (($itemID, $data) = each (%cart))
        {
         printf ("%-10s %3d %-30s %-10s %-10s \$%6.2f\n", 
               $itemNumber, $quantity, $itemDescription, $style, $size, $price);
               
        print "</PRE>\n";
        }
      }
      else
      {
         print "You have no items in order number $orderID<BR>\n";
      }
    }
    else
    {
       print "Order number $orderID does not exist.<BR>\n";
    }
    print "<INPUT TYPE=Hidden NAME=name VALUE=$FORM{name}>";
    print "<INPUT TYPE=Hidden NAME=address1 VALUE=$FORM{address1}>";
    print "<INPUT TYPE=Hidden NAME=address2 VALUE=$FORM{address2}>";
    print "<INPUT TYPE=Hidden NAME=city VALUE=$FORM{city}>";
    print "<INPUT TYPE=Hidden NAME=state VALUE=$FORM{state}>";
    print "<INPUT TYPE=Hidden NAME=zip VALUE=$FORM{zip}>";
    print "<INPUT TYPE=Hidden NAME=country VALUE=$FORM{country}>";
    print "<INPUT TYPE=Hidden NAME=workphone VALUE=$FORM{workphone}>";
    print "<INPUT TYPE=Hidden NAME=homephone VALUE=$FORM{homephone}>";
    $theTypeOfPaymentChosen = $FORM{payment};
    print "<INPUT TYPE=Hidden NAME=payment VALUE=$theTypeOfPaymentChosen>\n";
    
    # modify the following as attributes change.
    if ($theTypeOfPaymentChosen eq 'Mail')
    {
      print "Please print off order form and mail with your payment<BR>\n";
      print "<INPUT TYPE=\"submit\" VALUE=\"SendOrder\">\n";
      print "<INPUT TYPE=\"reset\" VALUE=\"Clear\"><BR>\n";
    }
    elsif ($theTypeOfPaymentChosen eq 'COD')
    {
       print "<INPUT TYPE=Hidden NAME=name VALUE=$FORM{name}>";
       print "<INPUT TYPE=Hidden NAME=address1 VALUE=$FORM{address1}>";
       print "<INPUT TYPE=Hidden NAME=address2 VALUE=$FORM{address2}>";
       print "<INPUT TYPE=Hidden NAME=city VALUE=$FORM{city}>";
       print "<INPUT TYPE=Hidden NAME=state VALUE=$FORM{state}>";
       print "<INPUT TYPE=Hidden NAME=zip VALUE=$FORM{zip}>";
       print "<INPUT TYPE=Hidden NAME=country VALUE=$FORM{country}>";
       print "<INPUT TYPE=Hidden NAME=workphone VALUE=$FORM{workphone}>";
       print "<INPUT TYPE=Hidden NAME=homephone VALUE=$FORM{homephone}>";
       print "<INPUT TYPE=Hidden NAME=payment VALUE=$theTypeOfPaymentChosen>\n";
       print "\$4.50 will be added to your total price<BR>\n";
       print "<INPUT TYPE=\"submit\" VALUE=\"SendOrder\">\n";
       print "<INPUT TYPE=\"reset\" VALUE=\"Clear\"><BR>\n";
    }
    elsif ($theTypeOfPaymentChosen eq 'CreditCard')
    {
      print "<INPUT TYPE=Hidden NAME=name VALUE=$FORM{name}>";
      print "<INPUT TYPE=Hidden NAME=address1 VALUE=$FORM{address1}>";
      print "<INPUT TYPE=Hidden NAME=address2 VALUE=$FORM{address2}>";
      print "<INPUT TYPE=Hidden NAME=city VALUE=$FORM{city}>";
      print "<INPUT TYPE=Hidden NAME=state VALUE=$FORM{state}>";
      print "<INPUT TYPE=Hidden NAME=zip VALUE=$FORM{zip}>";
      print "<INPUT TYPE=Hidden NAME=country VALUE=$FORM{country}>";
      print "<INPUT TYPE=Hidden NAME=workphone VALUE=$FORM{workphone}>";
      print "<INPUT TYPE=Hidden NAME=homephone VALUE=$FORM{homephone}>";
      print "<INPUT TYPE=Hidden NAME=payment VALUE=$theTypeOfPaymentChosen>\n";
      print "Card Number:<BR><input name=\"text\" size=\"44\"><BR>\n";
      print "Expiration Date:<BR><input name=\"text\" size=\"44\"><BR>\n";
      print "<INPUT TYPE=\"submit\" VALUE=\"SendOrder\">\n";
      print "<INPUT TYPE=\"reset\" VALUE=\"Clear\"><BR>\n";
    }
    else
    {
      print "<INPUT TYPE=Hidden NAME=name VALUE=$FORM{name}>";
      print "<INPUT TYPE=Hidden NAME=address1 VALUE=$FORM{address1}>";
      print "<INPUT TYPE=Hidden NAME=address2 VALUE=$FORM{address2}>";
      print "<INPUT TYPE=Hidden NAME=city VALUE=$FORM{city}>";
      print "<INPUT TYPE=Hidden NAME=state VALUE=$FORM{state}>";
      print "<INPUT TYPE=Hidden NAME=zip VALUE=$FORM{zip}>";
      print "<INPUT TYPE=Hidden NAME=country VALUE=$FORM{country}>";
      print "<INPUT TYPE=Hidden NAME=workphone VALUE=$FORM{workphone}>";
      print "<INPUT TYPE=Hidden NAME=homephone VALUE=$FORM{homephone}>";
      print "<INPUT TYPE=Hidden NAME=payment VALUE=$theTypeOfPaymentChosen>\n";
      print "Unknown payment method. Please notify webmaster:<A HREF=\"mailto:
      morganm\@dse.com\">morganm\@dse.com</A>\n";
    }
    &html_trailer;
  } # end of 'if (e-mail no good) then reject else process page'    
} # end if 'if METHOD==POST'
else
{
  &html_header("Error");
  print "Not started via POST\n";
  &html_trailer;
}

#!/usr/local/bin/perl

require "html.cgi";
require "hasCookie.cgi";

if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
  read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  @pairs = split(/&/, $buffer);

  # Now split the pairs into an associative array
  foreach $pair (@pairs)
  {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;    
  }

  $OwnerOrRenter = $FORM{"1.OwnOrRent"};

# Find out whether there is a cookie available in the browser
# If browser is cookie-aware it returns a non-empty cookie
  if (&hasCookie)
  {
    print "Content-type: text/html\n";

# Let browser use defaults for expires, domain, and path 
    print "Set-Cookie: NAME=";
    while (($key, $value) = each %FORM)
    {
      print "\t$key\'$value";
    }
    print "\n\n";
  }

  if ($OwnerOrRenter eq 'Own')
  {
    $Title = "Questions for Homeowners";
  }
  else
  {
    $Title = "Questions for Renters";
  }

  print "<HTML>\n";
  print "<HEAD>\n";
  print "<TITLE>$Title</TITLE>\n";
  print "</HEAD>\n";
  print "<H1>$Title</H1>\n";
  print "<FORM METHOD=POST ACTION=\"/cgi-bin/dse/Buyers/step3.cgi\">\n";
  if (!&hasCookie)
  {
    while (($key, $value) = each %FORM)
    {
      print "<INPUT TYPE=Hidden NAME=$key VALUE=\"$value\">";
    }
  }
  if ($OwnerOrRenter eq 'Own')
  {
    print "<P> ";
    print "Please complete the following questions.";
    print "</P>";
    print "<DL>";
    print "<DT>My home is currently for sale:";
    print "<INPUT TYPE=Checkbox NAME=2.ForSale Value=Yes></DT>";
    print "<DT>My home has been on the market</DT>";
    print "<DD>";
    print "<INPUT TYPE=radio NAME=2.WeeksOnMarket VALUE=0  CHECKED>less than a 
    week.</DD>"; 
    print "<DD>";
    print "<INPUT TYPE=radio NAME=2.WeeksOnMarket VALUE=1-4>between one and four
    weeks.</DD>"; 
    print "<DD><INPUT TYPE=radio NAME=2.WeeksOnMarket VALUE=4-8>four to eight 
    weeks.</DD>";
    print "<DD><INPUT TYPE=radio NAME=2.WeeksOnMarket VALUE=9+>more than two 
    months.</DD>";                    
    print "<DT>I am asking \$<INPUT TEXT NAME=2.Asking  SIZE=10  ></DT>";                           
    print "<DT>I will need to sell my present home in order to purchase another."; 
    print "<INPUT TYPE=Checkbox NAME=2.NeedToSell Value=Yes></DT>";           
    print "<DT>My monthly mortgage payments are \$";  
    print "<INPUT TEXT NAME=2.MonthlyMortgage SIZE=10></DT>";
    print "<DT>I have a </DT>";
    print "<DD><INPUT TYPE=radio NAME=2.MortgageType VALUE=VA>VA loan.</DD>";
    print "<DD><INPUT TYPE=radio NAME=2.MortgageType VALUE=FHA>FHA loan.</DD>";
    print "<DD>";
    print "<INPUT TYPE=radio NAME=2.MortgageType 
    VALUE=Conventional>Conventional loan.</DD>";
    print "</DL>";
    print "<INPUT TYPE=\"Submit\" VALUE=\"Continue\">";
    print "<INPUT TYPE=\"Reset\" VALUE=\"Clear Form\">";
    print "</FORM>";
  }
  else
  {
    # must be a renter
    print "<P>";
    print "Please complete the following questions.\n";
    print "</P>";
    print "<DL>";
    print "<DT>I am currently renting,</DT>";
    print "<DD>and have a lease";
    print "<INPUT TYPE=Checkbox NAME=2.HaveALease Value=Yes></DD>";
    print "<DD>which expires<INPUT TEXT NAME=2.LeaseExpires SIZE=8></DD>";
    print "<DT>My monthly rent payment is \$<INPUT TEXT NAME=2.MonthlyRent 
    SIZE=10></DT>";             
    print "</DL>";
    print "<INPUT TYPE=\"Submit\" VALUE=\"Continue\">";
    print "<INPUT TYPE=\"Reset\" VALUE=\"Clear Form\">";
    print "</FORM>";
  }
  &html_trailer;
} 
else
{
  &die("Not started by POST\n");
}

sub hasCookie
{
  $ret = 0;
  if ($ENV{'HTTP_COOKIE'} != /^$/)
  {
    $ret = 1;
  }
  $ret;
}

#!/usr/local/bin/perl

require "html.cgi";
require "hasCookie.cgi";

if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
  read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  @pairs = split(/&/, $buffer);

  # Now split the pairs into an associative array
  foreach $pair (@pairs)
  {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;    
  }

# Find out whether there is a cookie available in the browser
# If browser is cookie-aware it returns a non-empty cookie
  if (&hasCookie)
  {
     print "Content-type: text/html\n";
     @cookie = split(/; /, $ENV{HTTP_COOKIE});
     foreach $cookie (@cookie)
     {
        ($component) = split(/; /, $cookie);
        if ($component =~ /^NAME=/)
        {
          $component =~ s/NAME=//;
          (@fields) = split(/\t/, $component);
          foreach $field (@fields)
          {
            ($aName, $aValue) = split(/\'/, $field);
            $FORM{$aName} = $aValue;
          }
          
          # if we found NAME, quit the loop
          last;
        }
     }

      # Let browser use defaults for expires, domain, and path 
      print "Set-Cookie: NAME=";
      while (($key, $value) = each %FORM)
      {
        print "$key\'$value\t";
      }
      print "\n\n";
   }

  print "<HTML>\n";
  print "<HEAD>\n";
  print "<TITLE>Housing Preferences</TITLE>\n";
  print "</HEAD>\n";
  print "<H1>Housing Preferences</H1>\n";
  print "<FORM METHOD=POST ACTION=\"/cgi-bin/dse/Buyers/step4.cgi\">\n";
  if (!&hasCookie)
  {
    while (($key, $value) = each %FORM)
    {
      print "<INPUT TYPE=Hidden NAME=$key VALUE=\"$value\">";
    }
  }
  print "<P> ";
  print "Please complete the following questions.";
  print "</P>";
  print "<DL>";
  print "<DT>I need</DT>";
  print "<DD><INPUT TEXT NAME= Bedrooms  SIZE=8> bedrooms.</DD>";
  print "<DT>and would prefer</DT>";
  print "<DD><INPUT TYPE=radio NAME=Bathrooms VALUE=1  CHECKED>One bath.</DD>";
  print "<DD><INPUT TYPE=radio NAME=Bathrooms VALUE=1.5>One and a half baths.</DD>";
  print "<DD><INPUT TYPE=radio NAME=Bathrooms VALUE=2>Two baths.</DD>";
  print "<DD><INPUT TYPE=radio NAME=Bathrooms VALUE=2.5>Two and a half baths.</DD>";
  print "<DD><INPUT TYPE=radio NAME=Bathrooms VALUE=\"3 or more\">Three or more   
  baths.</DD>";
  print "<DT>I would also like the following additional rooms and features:</DT>";
  print "<DD>";
  print "Family Room<BR>";          
  print "<INPUT TYPE=Radio NAME=FamilyRoom Value=Absolutely  CHECKED>Absolutely ";  
  print "<INPUT TYPE=Radio NAME=FamilyRoom Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio NAME=FamilyRoom Value=No>Not needed<BR>";
  print "</DD>";
  print "<DD>";
  print "Eat-in Kitchen<BR>";       
  print "<INPUT TYPE=Radio NAME=EatInKitchen Value=Absolutely  CHECKED>Absolutely ";  
  print "<INPUT TYPE=Radio NAME=EatInKitchen Value=Desired>Desired  "; 
  print "<INPUT TYPE=Radio NAME=EatInKitchen Value=No>Not needed<BR></DD>";
  print "<DD>Separate Dining Room<BR>";
  print "<INPUT TYPE=Radio NAME=DiningRoom Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio NAME=DiningRoom Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio NAME=DiningRoom Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Study<BR>";                
  print "<INPUT TYPE=Radio NAME=Study Value=Absolutely  CHECKED>Absolutely ";  
  print "<INPUT TYPE=Radio NAME=Study Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio NAME=Study Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Maid's Room or in-law quarters<BR>";      
  print "<INPUT TYPE=Radio NAME=Quarters Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio NAME=Quarters Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio NAME=Quarters Value=No>Not needed<BR></DD>";
  print "<DL>";
  print "<DD>With Bath";
  print "<INPUT TYPE=Checkbox NAME=QuartersWithBath Value= Yes></DD>";
  print "</DL>";
  print "<DD>";
  print "Room over the garage<BR>";
  print "<INPUT TYPE=Radio NAME=RoomOverGarage Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio NAME=RoomOverGarage Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio NAME=RoomOverGarage Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Water view<BR>";           
  print "<INPUT TYPE=Radio NAME=WaterView  Value=Absolutely  CHECKED>Absolutely ";  
  print "<INPUT TYPE=Radio NAME=WaterView  Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio NAME=WaterView  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Waterfront<BR>";           
  print "<INPUT TYPE=Radio NAME=Waterfront Value=Absolutely  CHECKED>Absolutely "; 
  print "<INPUT TYPE=Radio NAME=Waterfront Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio NAME=Waterfront Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Deep water<BR>";           
  print "<INPUT TYPE=Radio NAME=DeepWater Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio NAME=DeepWater Value=Desired>Desired ";
  print "<INPUT TYPE=Radio NAME=DeepWater Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Wooded lot<BR>";           
  print "<INPUT TYPE=Radio  NAME=WoodedLot  Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio  NAME=WoodedLot  Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio  NAME=WoodedLot  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Car port<BR>";            
  print "<INPUT TYPE=Radio  NAME=CarPort  Value=Absolutely  CHECKED>Absolutely ";  
  print "<INPUT TYPE=Radio  NAME=CarPort  Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio  NAME=CarPort  Value=No>Not needed<BR ></DD>";
  print "<DD>";
  print "Single Garage<BR>";        
  print "<INPUT TYPE=Radio  NAME=SingleGarage  Value=Absolutely  CHECKED>Absolutely ";  
  print "<INPUT TYPE=Radio  NAME=SingleGarage  Value=Desired>Desired ";  
  print "<INPUT TYPE=Radio  NAME=SingleGarage  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Double Garage<BR>";        
  print "<INPUT TYPE=Radio  NAME=DoubleGarage  Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio  NAME=DoubleGarage  Value=Desired>Desired ";   
  print "<INPUT TYPE=Radio  NAME=DoubleGarage  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Air Conditioning<BR>";     
  print "<INPUT TYPE=Radio  NAME=AC  Value=Absolutely  CHECKED>Absolutely ";  
  print "<INPUT TYPE=Radio  NAME=AC  Value=Desired>Desired ";   
  print "<INPUT TYPE=Radio  NAME=AC  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Central Air<BR>";          
  print "<INPUT TYPE=Radio  NAME=CentralAir  Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio  NAME=CentralAir  Value=Desired>Desired ";   
  print "<INPUT TYPE=Radio  NAME=CentralAir  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Pool<BR>";
  print "<INPUT TYPE=Radio  NAME=Pool  Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio  NAME=Pool  Value=Desired>Desired ";   
  print "<INPUT TYPE=Radio  NAME=Pool  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Tennis Court<BR>";         
  print "<INPUT TYPE=Radio  NAME=TennisCourt  Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio  NAME=TennisCourt  Value=Desired>Desired ";  
  print "<INPUT TYPE=Radio  NAME=TennisCourt  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Townhouse<BR>";            
  print "<INPUT TYPE=Radio  NAME=Townhouse  Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio  NAME=Townhouse  Value=Desired>Desired ";   
  print "<INPUT TYPE=Radio  NAME=Townhouse  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Condominium<BR>";          
  print "<INPUT TYPE=Radio  NAME=Condominium  Value=Absolutely  CHECKED>Absolutely ";  
  print "<INPUT TYPE=Radio  NAME=Condominium  Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio  NAME=Condominium  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Single-family Home<BR>";   
  print "<INPUT TYPE=Radio  NAME=SingleFamily  Value=Absolutely  CHECKED>Absolutely "; 
  print "<INPUT TYPE=Radio  NAME=SingleFamily  Value=Desired>Desired "; 
  print "<INPUT TYPE=Radio  NAME=SingleFamily  Value=No>Not needed<BR></DD>";
  print "<DD>";
  print "Fenced Yard<BR>";          
  print "<INPUT TYPE=Radio  NAME=FencedYard  Value=Absolutely  CHECKED>Absolutely ";   
  print "<INPUT TYPE=Radio  NAME=FencedYard  Value=Desired>Desired ";  
  print "<INPUT TYPE=Radio  NAME=FencedYard  Value=No>Not needed<BR></DD>";
  print "</DL>";
  print "<P>";
  print "<INPUT TYPE=checkbox  NAME=MailingList  VALUE=Yes CHECKED>Please put me on  
  your mailing list for new"; 
  print " developments in residential real estate.";
  print "</P>";
  print "Please enter any additional information you want us to know.<BR>";
  print "<TEXTAREA NAME= comments  ROWS=8 COLS=40></TEXTAREA>";
  print "<P>";
  print "<INPUT TYPE=submit  VALUE=\"Send Form\">";
  print "<INPUT TYPE=reset  VALUE=\"Clear Form\">";
  print "</FORM>";
  print "</FORM>";
  &html_trailer;
} 
else
{
  &die("Not started by POST\n");
}

#!/usr/local/bin/perl
# step4.cgi

require "html.cgi";
require "ctime.pl";
require "hasCookie.cgi";

# Point this e-mail address at the person who should get the visitor's info
$recipient = "ckepilino@dse.com";

# After sending the e-mail to the recipient, transfer control to the $Thanks page.
$Thanks = "http://www.dse.com/Buyers/Thanks.html";

if ($ENV{REQUEST_METHOD} eq 'POST') 
{
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  @pairs = split(/&/, $buffer);
  foreach $pair (@pairs)
  {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
  }
  if (&hasCookie)
  {    
    # Read the cookie into FORM so we can send it out
    @cookie = split(/; /, $ENV{HTTP_COOKIE});
    foreach $cookie (@cookie)
    {
      ($component) = split(/; /, $cookie);
      if ($component =~ /^NAME=/)
      {
        $component =~ s/NAME=//;
        (@fields) = split(/\t/, $component);
        foreach $field (@fields)
        {
          ($aName, $aValue) = split(/\'/, $field);
          $FORM{$aName} = $aValue;
        }
          
        # if we found NAME, quit the loop
        last;
      }
   }
  }
  open (MAIL, "| sendmail -t");
  print MAIL "To: $recipient\n";
  { 
   if ($FORM{'1.email'} ne "")
   {
     print MAIL "From: $FORM{'1.firstName'} $FORM{'1.lastName'} <$FORM{'1.email'}>\n";
     print MAIL "Reply-to: $FORM{'1.email'}\n";
   }
   foreach $key (sort keys %FORM)
   {
     print MAIL "$key is $FORM{$key}\n";
   }
   print "Location: $Thanks\n\n";   
  } 
}
else
{
  &die("Not started using POST\n");
}