#!/usr/local/bin/perl

&PrintHeader;
&ReadParse;

sub ReadParse {
  local (*n) = @_ if @_;
  local ($i, $key, $val);
if (&MethGet) {
    $in = $ENV{'QUERY_STRING'};
} elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
  read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
}
@in = split(/&/, $in);
foreach $i (0 .. $#in) {
  $in[$i] =~ s/\+/ /g;
  ($key, $val) = split(/=/, $in[$i],2);
  $key =~ s/%(..)/pack("c",hex($1))/ge;
  $val =~ s/%(..)/pack("c",hex($1))/ge;
  $in{$key} .= "\0" if (defined($in{$key}));
  $in{$key} .= $val;
  }

  local($mailing) = $in{"MAILING"};
  local($more) = $in{"MORE"};
  $mailing =~ s/\n/\n\t\t\t/g;
  $more =~ s/\n/\n\t\t\t/g;

  $in{"LNAME"} =~ tr/a-z /A-Z/d;
  $in{"FNAME"} =~ tr/A-Z /a-z/d;
  $in{"MAILING"} =~ s/(\n+)|\r+/<br>/g;
  $in{"MORE"} =~ s/\n+|\r+/<br>/g;
  $in{"MAILING"} =~ s/<br><br>/<br>/g;
  $in{"MORE"} =~ s/<br><br>/<br>/g;

  local($name) = join(', ', $in{"LNAME"}, $in{"FNAME"}); 
  local($nameanchor) = join('', $in{"LNAME"}, $in{"FNAME"}); 

  open (WRITETEXT, ">>/home/B11B/jguo/httpd/htdocs/zu/zualum-text.html")||die("Can't open file: zualum-text.html");
  open (WRITELINK, ">>/home/B11B/jguo/httpd/htdocs/zu/zualum-link.html")||die("Can't open file: zualum-link.html");
  open (WRITEINFO, ">>/home/B11B/jguo/httpd/htdocs/zu/zualum-info.html")||die("Can't open file: zualum-info.html");

  
  write (WRITETEXT);
  write (WRITELINK);
  write (WRITEINFO);

  close (WRITETEXT);
  close (WRITELINK);
  close (WRITEINFO);
  
  print "You have been added to the New ZU Entries List. Your name will be manually added to \
         the ZU Alumni List. For verification, please click: <p> \
         <li><a href=\"http://kayak.npac.syr.edu:2020/zu/zualum-link.html\#$nameanchor\"> \
                  HTML table version</a>(for Netscape 1.1 or higher) \
             <li><a href=\"http://kayak.npac.syr.edu:2020/zu/zualum-text.html\#$nameanchor\"> \
                  Plain text version</a>(for any browser not suppporting HTML table)\n";

  return length($in);
}

sub PrintHeader {
#   return "Content-type: text/html\n\n";
    print "Content-type: text/html\n\n";
}

sub MethGet {
  return ($ENV{'REQUEST_METHOD'} eq "GET");
}

format WRITELINK =
  <li> <a href="zualum-info.html#@*
                                 "$nameanchor\"> $name  <\/a>"
.

# Input fields in format WRITETEXT are: 20, 40 or 60 columns, and 8 or 16 rows
  format WRITEINFO = 

  <!-- ========================================================================= -->
  <p> <hr> <a name="@*
                    "$nameanchor\"> * <\/a>"   
  <table border=2 >
  <tr align=center>
  <th> Name: </th> <td> <b> @*
                            "$name <\/b> <\/td> <\/tr>"
  <tr align=center>
  <th> ZU StudentID#: </th> <td> @<<<<<<<<<< </td>  </tr >
                      $in{"NUMBER"}
  <tr align=center>
  <th> <b> ZU Major: </th> </td> <td> @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< </td>  </tr>
                      $in{"MAJOR"}       
  <tr align=center>
  <th> ZU Degree: </th> <td> @<<<<<<<<<<<<<<<<<<<< </td> </tr>
                              $in{"DEGREE"}       
  <tr align=center>
  <th> When at ZU: </th> <td> @<<<<<<<<<<<<<<<<<<<< </td>  </tr>
                              $in{"YEARS"}       
  <tr align=center>
  <th> Phone: </th> <td> @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< </td> </tr>
                      $in{"PHONE"}                  
  <tr align=center>
  <th> E-mail: </th> <td> @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< </td> </tr> 
                $in{"EMAIL"}
  <tr align=center>
  <th> WWW Home Page: </th> <td> <a href="@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<"> @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< </a> </td> </tr>
                                 $in{"URL"},                                 $in{"URL"}  
  <tr align=left>
  <th> Mailing Address: </th> <td> @* 
                                 $in{"MAILING"}       
#                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#                                 $in{"MAILING"}       
# ~                               ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#                                 $in{"MAILING"}       
  </td> </tr>
  <tr align=left>
  <th> More Infomation: </th> <td> @* 
                                  $in{"MORE"}       
#                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#                                 $in{"MORE"}         
# ~                               ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#                                 $in{"MORE"}         
  </td> </tr>
  </table>
.


# Input fields in format WRITETEXT are: 20, 40 or 60 columns, and 8 or 16 rows
format WRITETEXT = 

<a name="@<<<<<<<<<<<<<<<<<<<<"> * </a> 
       $nameanchor 
<pre>
=======================================================================
Name:            	@<<<<<<<<<<<<<<<<<<<<  
			$name
ZU StudentID#:  	@<<<<<<<<<<   
                  	$in{"NUMBER"}
Major:          	@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
                        $in{"MAJOR"}       
Degree:                 @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
                        $in{"DEGREE"}       
When at ZU:     	@<<<<<<<<<<<<<<<<<<<< 
                 	$in{"YEARS"}       
Phone:          	@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
                        $in{"PHONE"}                  
E-mail:          	@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
                  	$in{"EMAIL"}
WWW Home Page:  	@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
                        $in{"URL"} 
Mailing Address: 	@*
                        $mailing       
#                       ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#                       $mailing       
More Infomation:        @*
                        $more       
# ~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
#                       $in{"MORE"}         
</pre>
.
1;
