chat+client 源代码

sub return_logout { #清请勿打扰名单 require "$chathead/chat-actdnd.pl"; &deldnd; &send_html; print "$mytitle$roomtitle\n"; if ($c…

#检测是否已被踢出 sub check_users { $name=$username; open (CHECKPROFILE, "$memberspath/$name.txt"); @profile = ; close (CHECKPRO…

sub donotdisturb { open(DNDFILE,"$filehead$dndfile"); @lines = ; close(DNDFILE); #请勿打扰文件格式 #主用户↑user1;user2;user3; $u…

sub allselect { @addwordcolor=&readtxtfile($addwordcolorfile) if ($userlevel>=$level_addwordcolor); @addkuai =&readtxtfile…

sub write_message { #执行录音 require "$chathead/chat-recordit.pl"; &recordit("$_[0]"); &lockfile("$filehead$messagefile"); ope…

sub error { &send_html; $error = $_[0]; #print "Content-type: text/html\n\n"; if ($error eq 'wrong_passwd') { …

#设置COOKIE sub setcookie { $user_name=$username; $user_pwd=$crypassword; $user_id=&get_var('userid'); $user_sex=$usersex; $us…

sub recordit { open(RECORDIT,"$filehead$recordit"); @record=; close(RECORDIT); if ($record[0]==1) { $recordfile="$roomtitle…

sub count { $vflag=0; &lockfile("$filehead$countfile"); open(COUNTFILE,"$filehead$countfile"); @line=; close(COUNTFILE); op…

sub lockfile { } ######################################################################### ################################…