#------------------------------------------------------------------------------ 
 # Set user/pwd cookies 
  
 sub setCookies 
 { 
         my $id = shift(); 
         my $pwd = shift(); 
         my $temp = shift(); 
  
         $pwd = MD5->hexhash($pwd); 
  
         my $expires = $temp ? "" : "; expires=Mon, 16-Mar-2020 00:00:00 GMT"; 
  
         print 
                 "Set-Cookie: $cfg{'uniqueCookie'}id=$id; path=$cfg{'cgiPath'}$expires$CRLF", 
                 "Set-Cookie: $cfg{'uniqueCookie'}pwd=$pwd; path=$cfg{'cgiPath'}$expires$CRLF"; 
 } 
  
 #------------------------------------------------------------------------------