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 >
Wrap
Perl Script
|
2017-09-21
|
665b
|
40 lines
#!/usr/local/bin/perl
# written by Ben Adida (benjamin@media.mit.edu)
# This deals with id cookies for the Brain Opera
do '/web-cgi-bink/cookies.pl';
sub create_id_number {
return $id;
}
# This takes as argument the name of the person, and the email
sub make_id_cookies {
local($name)=$_[0];
local($email)=$_[1];
local($id)=&create_id_number();
&set_cookie("name",$name);
&set_cookie("email",$email);
&set_cookie("id",$id);
}
sub get_id_cookies {
local($cookies)=&getcookies();
$NAME=&get_variable($cookies,"name");
$EMAIL=&get_variable($cookies,"email");
$ID=&get_variable($cookies,"id");
}