源码文件
sub write_message { #执行录音 require "$chathead/chat-recordit.pl"; &recordit("$_[0]"); &lockfile("$filehead$messagefile"); ope…
Video+Chat 源代码
汇集 Video+Chat 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 500 份
全站深度检索
共匹配 500 份工程资源
· 第 6 / 50 页
源码文件
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 { } ######################################################################### ################################…
源码文件
sub usercount { $name=$_[0]; $tempcount=0; open (CHECKPROFILE, "$memberspath/$name$extcount"); @profile = ; close (CHEC…
源码文件
sub showhelp { &send_html; @readme =&readtxtfile($readmefile); print "$mytitle$myversion"; print ""; print ""; print " …
源码文件
sub return_func { print ""; print ""; print "Func\n"; print "\n"; print "function likai() {\n"; print "if(confirm('真的要走？')) …
源码文件
sub showonline { &send_html; require "$chathead/chat-usercount.pl"; #require "$chathead/chat-config.pl"; $totalusers=0; $t…