chat-setcookie.pl

来自「java开发的聊天室」· PL 代码 · 共 16 行

#设置COOKIE
sub setcookie {
$user_name=$username;
$user_pwd=$crypassword;
$user_id=&get_var('userid');
$user_sex=$usersex;
$user_room=$roomtitle;
$user_level=$userlevel;
$userdata=$user_name."__".$user_pwd."__".$user_id."__".$user_level."__".$user_sex."__".$user_room;
print "Set-Cookie: userdata=$userdata;\n";
&send_html;
#print $user_pwd;
}


1;