#!/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");

}

