home *** CD-ROM | disk | FTP | other *** search
/ Netscape Plug-Ins Developer's Kit / Netscape_Plug-Ins_Developers_Kit.iso / CGIPERL / SCRIPTS / FEEDBACK.PL < prev    next >
Encoding:
Perl Script  |  1996-04-16  |  4.4 KB  |  120 lines
  1. #!/usr/local/bin/perl
  2.  
  3. ###########################################################################
  4. #                              feedback.pl                                #
  5. #                                                                         #
  6. # This script was written by Selena Sol (selena@eff.org                   #
  7. # http://www.eff.org/~erict) having been inspired by countless other      #
  8. # perl authors.  Feel free to copy, cite, reference, sample, borrow or    #
  9. # plagiarize the contents.  However, please let me know where it goes so  #
  10. # that I can at least watch and take part in the development of the       #
  11. # memes. Information wants to be free, support public domain freware.     #
  12. #                                                                         #
  13. ###########################################################################
  14.  
  15.  
  16. # Set a server-specific variables.  You'll need to change this path for 
  17. # your own setup.  Also, remember to setchmod and chown stuff for your setup.
  18.  
  19.     $tempfile = "/home/selena/public_html/cgi-bin/Data/feedback.temp";
  20.  
  21. # If the server used the POST method to send the form data however, use the 
  22. # CONTENT_LENGTH variable instead.  However, make sure that there isn't 
  23. # an unlimited amount of data in the CONTENT_LENGTH variable (due to any 
  24. # <TEXTAREA> tags to foul # things up.
  25. # This form parsing routine was adapted from a script by Robert John
  26. # Mudry which was published by the Coriolis Group as freeware in "Serving
  27. # The Web".  This is an excellent book which I recommend to any cgi
  28. # programmer.
  29.  
  30.  
  31.   $LENGTH = $ENV{'CONTENT_LENGTH'};
  32.   if ($LENGTH > "32768") 
  33.     {
  34.     die "major network spam, stopped";
  35.     }
  36.  
  37. # Dump the the information from the browser into variable $C for 
  38. # filtration.  If the charcter coming in is an "=", we 
  39. # know a value is starting .  If the character is an "&", we know that its 
  40. # the end of a value.  Use the $START variable to watch the size of the 
  41. # input.  So long as it is small enough, things are finem and $FORM_DATA 
  42. # should be appended.  If not, disregard the long string.  The reason 
  43. # that the limit above was 32768, when here it is  8192 is because we don't 
  44. # want a legitimate blabbermouth to get cut off.
  45.   
  46.   while ($LENGTH--) 
  47.     {
  48.     $C = getc(STDIN);
  49.     if ($C eq "=" || $C eq "&") 
  50.       {
  51.       $START = "0";
  52.       } 
  53.     else 
  54.       {
  55.       $START++;
  56.       }
  57.     if ($START <= "8192") 
  58.       {
  59.       $FORM_DATA .=$C;
  60.       }
  61.     }
  62.  
  63. # So first, split up $FORM_DATA into $NAME and $VALUE.  Now store $VALUE 
  64. # in $MYDATA{$NAME} provided that $NAME is not already in use.  If it is, a 
  65. # temporary number stored in $NUM is incremented and a new the $VALUE is 
  66. # saved as the new variable.
  67.  
  68.   foreach (split(/&/, $FORM_DATA)) 
  69.     {
  70.     ($NAME, $VALUE) = split(/=/, $_);
  71.     $NAME =~ s/\+/ /g;
  72.     $NAME =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
  73.     $VALUE =~ s/\+/ /g;
  74.     $VALUE =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
  75.        
  76. # Find unique Name
  77.  
  78.     $NUM = "0";
  79.     while ($MYDATA{$NAME} ne "") 
  80.       {
  81.       $NUM++;
  82.       $NAME =~ s/\.([0-9]+$)|$/\.$NUM/;
  83.       }
  84.           
  85. # Store NAME=VAUE pair
  86.  
  87.       $MYDATA{$NAME} = $VALUE;
  88.     }
  89.    
  90. # Write out all the gathered information to a temporary file.
  91.  
  92.   open (NOTE, ">$tempfile");
  93.   print NOTE "        FEEDBACK FORM TEMPLATE \n";
  94.   print NOTE "        ----------------------- \n\n";  
  95.   print NOTE "BASIC INFORMATION\n\n";
  96.   print NOTE "    Name: $MYDATA{'name.info'} \n";
  97.   print NOTE "    E-Mail: $MYDATA{'email.info'} \n\n";
  98.   print NOTE "COMMENTS \n\n";
  99.   print NOTE "    $MYDATA{'COMMENTS'} \n";
  100.   print NOTE "\n";
  101.   close (NOTE);
  102.  
  103. # Okay, now that we've built the form.temp file, let's send one copy to 
  104. # the "membership coordinator" and one to the person who filed out the form 
  105. # so they'll have a copy.  Then we'll remove the temporary file so we 
  106. # don't clutter up the server.
  107.  
  108.   system ("mail -s test selena\@gaea.nchgr.nih.gov < $tempfile");
  109.   system ("rm $tempfile");
  110.  
  111. # Finally, let's send back a thank you note to the user!
  112.  
  113.   print "Content-type: text/html\n\n";
  114.   print "<HTML><HEAD><TITLE>Feedback Response</TITLE></HEAD><BODY> \n";
  115.   print "<H1><CENTER>Thanks for your feedback.</H1></CENTER>  Your comments 
  116.          are very 
  117.          important to us.  If your comments require reply, 
  118.          someone will get back to you ASAP</CENTER></H1> \n";
  119.   print "</BODY></HTML> \n";
  120.