home *** CD-ROM | disk | FTP | other *** search
/ Netscape Plug-Ins Developer's Kit / Netscape_Plug-Ins_Developers_Kit.iso / CGIPERL / SCRIPTS / ADDRUPD.PL < prev    next >
Encoding:
Perl Script  |  1996-04-16  |  4.2 KB  |  128 lines
  1. #!/usr/local/bin/perl
  2.  
  3. ###########################################################################
  4. #                        address_update.cgi                               #
  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.     $datafile = "/home/selena/public_html/cgi-bin/Data/address.data";
  20.     $tempfile = "/home/selena/public_html/cgi-bin/Data/data.temp";
  21.     $bakfile = "/home/selena/public_html/cgi-bin/Data/address.backup";
  22.     $htmloutput = "/home/selena/public_html/cgi-bin/Data/address.html";
  23.  
  24. # Gather the "post" data sent from the HTML form
  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.   $LENGTH = $ENV{'CONTENT_LENGTH'};
  31.   while ($LENGTH--) 
  32.     {
  33.     $C = getc(STDIN);
  34.     if ($C eq "=" || $C eq "&") 
  35.       {
  36.       $START = "0";
  37.       } 
  38.     else 
  39.       {
  40.       $START++;
  41.       }
  42.     if ($START <= "8192") 
  43.       {
  44.       $FORM_DATA .=$C;
  45.       }
  46.     }
  47.  
  48. # Split up the form data into variable name and variable value pairs
  49.  
  50.   foreach (split(/&/, $FORM_DATA)) 
  51.     {
  52.     ($NAME, $VALUE) = split(/=/, $_);
  53.     $NAME =~ s/\+/ /g;
  54.     $NAME =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
  55.     $VALUE =~ s/\+/ /g;
  56.     $VALUE =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
  57.     $NUM = "0";
  58.     while ($MYDATA{$NAME} ne "") 
  59.       {
  60.       $NUM++;
  61.       $NAME =~ s/\.([0-9]+$)|$/\.$NUM/;
  62.       }
  63.     $MYDATA{$NAME} = $VALUE;
  64.     }
  65.    
  66. # Take the data, add it to the growing database, and re-sort the database.
  67.  
  68.   open (NOTE, ">>$datafile");
  69.   print NOTE "$MYDATA{'lname'}:$MYDATA{'fname'}:$MYDATA{'email'}\n";
  70.   close (NOTE);
  71.   system ("sort -f $datafile > $tempfile");
  72.   system ("mv $datafile $bakfile");
  73.   system ("mv $tempfile $datafile");
  74.   system ("rm $tempfile");
  75.   chmod (0664, "$datafile");
  76.  
  77. # Create the new update HTML page from the new, sorted database file.  
  78. # First create the standard header
  79.  
  80.   $index=0;
  81.   open (DATA, "$datafile");
  82.   open (OUTPUT, ">$htmloutput");
  83.   print OUTPUT "<HTML><HEAD>\n";
  84.   print OUTPUT "<TITLE>Database Update Response</TITLE>\n";
  85.   print OUTPUT "</HEAD><BODY>\n";
  86.   print OUTPUT "<table border>\n";
  87.   print OUTPUT "<TR>\n";
  88.   print OUTPUT "<th>Last Name</th>\n";
  89.   print OUTPUT "<th>First Name</th>\n";
  90.   print OUTPUT "<th>E-Mail</th>\n";
  91.   print OUTPUT "</TR>\n";
  92.  
  93. # Now start adding each line of data from the datafile.  First split up 
  94. # the data into variables
  95.  
  96.   file:
  97.   while (<DATA>)
  98.     {
  99.     chop;
  100.     ($lname,$fname,$email,$phone,)
  101.     = split (/\:/, $_,3);
  102.  
  103. # Now print out the data in its HTML format
  104.  
  105.     print OUTPUT "<TR>\n";
  106.     print OUTPUT "<TD>$lname</TD>\n";
  107.     print OUTPUT "<TD>$fname</TD>\n";
  108.     print OUTPUT "<TD>$email</TD>\n";
  109.     print OUTPUT "<TD>$phone</TD>\n";
  110.     print OUTPUT "</TR>\n";
  111.     next file;
  112.     }
  113.   print OUTPUT "</TABLE>\n";
  114.   close (DATA);
  115.   close (OUTPUT);
  116.   chmod (0664, "$datafile");
  117.  
  118. # Now send back an HTML document letting the updater know that the 
  119. # update was successfull
  120.  
  121.   print "Content-type: text/html\n\n";
  122.   print "<HTML><HEAD></HEAD><BODY><H1>The update was successful!</H1>\n";
  123.   print "Check out the new updated HTML database at 
  124.   <A HREF=\"http://www.nchgr.nih.gov/~selena/cgi-bin/Data/address.html\">http://www.nchgr.nih.gov/~selena/cgi-bin/Data/address.html</A>";
  125.   print "<BR>Don't forget to hit \"reload\" whenever you return to the page 
  126.   to see new changes";
  127.   print "</BODY></HTML>";
  128.