home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Pavilions / BrainOpera / cgi-bin / text / id-cookies.pl < prev    next >
Perl Script  |  2017-09-21  |  665b  |  40 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # written by Ben Adida (benjamin@media.mit.edu)
  4.  
  5. # This deals with id cookies for the Brain Opera
  6.  
  7. do '/web-cgi-bink/cookies.pl';
  8.  
  9.  
  10. sub create_id_number {
  11.     
  12.  
  13.     return $id;
  14. }
  15.  
  16.  
  17. # This takes as argument the name of the person, and the email
  18. sub make_id_cookies {
  19.     
  20.     local($name)=$_[0];
  21.     local($email)=$_[1];
  22.  
  23.     local($id)=&create_id_number();
  24.  
  25.     &set_cookie("name",$name);
  26.     &set_cookie("email",$email);
  27.     &set_cookie("id",$id);
  28. }
  29.  
  30.  
  31. sub get_id_cookies {
  32.     local($cookies)=&getcookies();
  33.     
  34.     $NAME=&get_variable($cookies,"name");
  35.     $EMAIL=&get_variable($cookies,"email");
  36.     $ID=&get_variable($cookies,"id");
  37.  
  38. }
  39.  
  40.