Video+Chat 源代码

sub message_show { $chkname1=$chkusername; #$chkusername= "$chkusername"; #$chktowho="$chktowho"; local($chkusersex1) ="$c…

#文本计数器 sub counter { open(COUNTFILE,"$filehead$counter"); @line=; close(COUNTFILE); $tcount=$line[0]; $tcount=0 if($tcount …

sub showallusers { #显示所有在线用户 $temp="setkick"; print "用户管制\n"; print "\n"; print ""; print "\n"; print "\n"; print "冰花雪夜用户…

sub displayuser { #显示对象 @online =&readtxtfile($onlinefile,2); @online =sort @online; print "type\n"; print ""; p…

sub write_online { @online=&readtxtfile($onlinefile,2); @online=sort @online; local($temp1)=""; local($temp2)= 0; &lockfile("…

sub adduserinfo { $tempinfo=$_[0]; @allday=(31,28,31,30,31,30,31,31,30,31,30,31); $name=$username; open (CHECKPROFILE, …

sub return_adver { @adver=&readtxtfile($adverfile,1); srand; $ram=int(rand($#adver+1)); ($mark,$chkadverfile,$markend,$last)=s…

sub chkdnduser { &lockfile("$filehead$dndfile"); open(DNDFILE,"$filehead$dndfile"); @lines = ; close(DNDFILE); &unlock…

$mytitle="冰花雪夜"; $myversion="Ｖ5.0"; $logouturl = "/"; $guestbook="/chat/wwwboard.html"; $cssurl="/mystyles.css"; $logincishu=…

sub displaycount { opendir (MEMBERDIR, "$memberspath"); @members = readdir(MEMBERDIR); closedir (MEMBERDIR); $found = 0; …