chat-chkpwd1.pl

java开发的聊天室

sub check_usrpwd1  
{
	$usrpass=&get_var('userpassword');
	$name=$username;
	$name=~s/ //g;

$okflag=0;

#取COOKIE值
#$userdata="$user_name↑$user_pwd?user_id$user_level↑$user_sex↑$user_room";

  @cookie=split(/; /,$ENV{'HTTP_COOKIE'});
  foreach $i (0..$#cookie) {
    ($cookie_name,$cookie_data)=split(/=/,$cookie[$i]);
    if ($cookie_name eq "userdata") {
      ($user_name,$user_pwd,$user_id,$user_level,$user_sex,$user_room)=split(/__/, $cookie_data);
	  if ($user_name eq $name)
	  {
		$okflag=1;
	  	if ($usrpass ne $user_pwd) {require "$chathead/chat-error.pl"; &error("cookie");}
		else {
		$userlevel=$user_level;
		$userid=$user_id;
		$usersex=$user_sex;
		$allow_html=1 if($user_level>=$level_html);
&htmlroom($user_room);
		last;
		}
	  }
	  
    }
  }

if ($okflag ne "1") {require "$chathead/chat-error.pl";	&error("wrong_passwd1"); }

}
sub check_room  
{
	$usrpass=$userpassword;
	$name=$username;
	$name=~s/ //g;

$okflag=0;

#取COOKIE值

  @cookie=split(/; /,$ENV{'HTTP_COOKIE'});
  foreach $i (0..$#cookie) {
    ($cookie_name,$cookie_data)=split(/=/,$cookie[$i]);
    if ($cookie_name eq "userdata") {
      ($user_name,$user_pwd,$user_id,$user_level,$user_sex,$user_room)=split(/__/, $cookie_data);
	  if ($user_name eq $name)
	  {
		$okflag=1;
		if ($roomtitle ne $user_room) {
$userdata=$user_name."__".$user_pwd."__".$user_id."__".$user_level."__".$user_sex."__".$roomtitle;
print "Set-Cookie: userdata=$userdata;\n";
			require "$chathead/chat-writeonline.pl";
			&write_outline("$user_room");
		require "$chathead/chat-writemsg.pl";
			$messagefile="$user_room.msg";
			&write_message("leave");
			$messagefile="$roomtitle.msg";
			&write_message("enter");
			}
		last;
	  }
	  
    }
  }
#  print $user_room;
if ($okflag ne "1") {require "$chathead/chat-error.pl";	&error("wrong_passwd1"); }

&htmlroom($roomtitle);

}
sub firstcheck 
{
$okflag=0;
  @cookie=split(/; /,$ENV{'HTTP_COOKIE'});
 foreach $i (0..$#cookie) {
	 ($cookie_name,$cookie_data)=split(/=/,$cookie[$i]);
   	if ($cookie_name eq "userdata") 
	{
     	 ($user_name,$user_pwd,$user_id,$user_level,$user_sex,$user_room)=split(/__/, $cookie_data);
			$allow_html=1 if($user_level>=$level_html);
&htmlroom($user_room);
	 }
  }
}  
sub htmlroom
{
$temproom="冰花雪夜";
#		$level_html=5 if($_[0] eq $temproom);
#		$allow_html=0 if($_[0] eq $temproom);
#		$level_private=5 if($_[0] eq $temproom);
#		$towhoway="" if($_[0] eq $temproom);
}
1;