源码文件
#【】 sub return_message { open(DNDFILE,"$filehead$dndfile"); @lines = ; close(DNDFILE); #请勿打扰文件格式 #主用户↑user1;user2;us…
Video+Chat 源代码
汇集 Video+Chat 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 500 份
全站深度检索
共匹配 500 份工程资源
· 第 5 / 50 页
源码文件
sub return_online { $usersum=0; $temp="online"; print ""; print ""; print "在线名单\n"; print "\n"; print ""; print "\n"; pri…
源码文件
sub login { &send_html; print "$mytitle$myversion\n"; print
源码文件
sub checknamespace { $name=$username; $length1=length($name); #去掉NAME中的空格 $name=~s/ //g; $name=~s/
源码文件
############################################ #脏话过滤 sub filter { $mypara=$_[0]; $badword_found = 0; # @badwords=('sex','xx…
源码文件
sub return_whole { print "$mytitle$myversion--$roomtitle\n"; print "\n"; print "function choosename(str){\n"; print " this.typ…
源码文件
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…