www.pudn.com > coolchat.zip > chatform.pl

sub chatform 
{ 
	 
	my $lowviewid   = lc($UserData{'User'}); 
      $first_id='!'; 
       my $idpath   = $LOGOpath.$first_id."/"; 
       my $datapath = $idpath.$lowviewid; 
 
       if(open(DATA,"<$datapath$DATA")) 
       { 
	       @userlines=; 
	       close DATA; 
       } 
       ($logtime,$msgnum,$onlinetime,$experience,$lifevalue,$lastip,$lasttime,$nowip,$nowtime,$tails)=split(/:/,$userlines[0],10); 
            	$level=int($experience/100); 
        
     my($name); 
                    #my $netscape = ""; 
                    #$netscape = 'onResize="window.location.reload()"' unless($ENV{'HTTP_USER_AGENT'} =~ /MSIE/); 
                    
                    print "Content-type: text/html\n\n"; 
                    print qq| 
                     
                     
 	             
 	             
 	             
 	             
 	             
\n"; 
                      
} 
1;
 
  
  
  
    
		     
\n"; 
		    print  "\n}; 
		    print "
 
   听你说: 		   		    
 悄悄话 
		     
		     
		     
		   		            
		    
 
		    |; 
 
		    MyDo $Style_Config; 
		      
		 
		    print "经验:$experience "; 
		    if (($UserData{'Group'} >= 40)||($level >=40)){ 
		    print  "\n"; 
		    print  "不贴图\n"; 
                    foreach $name(@ImageList) 
                    { 
                    	 print "$name\n"; 
                    } 
		    print  "\n";} 
 
		    print  "\n"; 
		    print  "默认颜色\n"; 
                    foreach $name(@FontColor) 
                    { 
                    	 print "$name\n"; 
                    } 
		    print  "\n"; 
  if (($UserData{'Group'} >= 10)||($level >=10)){ 
#print "\n";		     
print  "\n"; 
		    print  "字体\n"; 
                    foreach $name(@FontFace) 
                    { 
                    	 print "$name\n"; 
                    } 
		    print  "\n";} 
		      if (($UserData{'Group'} >= 50)||($level >=50)){ 
 
		    print  "\n"; 
		    print  "大小\n"; 
                    foreach $name(@FontSize) 
                    { 
                    	 print "$name\n"; 
                    } 
		    print  "\n";} 
 
		    print  "\n"; 
		    print  "无表情\n"; 
                    foreach $name(@UsrAction) 
                    { 
                    	 print "$name\n"; 
                    } 
		    print  "\n"; 
 print < 
趣语不选 
讨好迷惑 
    晦气 
  同意 
被温柔包围 
求爱 
男人的冲动 
女人的冲动 
 
比酷 
 
想自杀 
要砍人 
喝醉了 
    吐舌头 
    想到了 
    生气 
    拍巴掌 
    脸红 
羞答答地吻 
狂吻对方 
    道别1 
道别2 
道别3 
    道别2 
 道别3 
 
    拍胸脯 
    扮死 
    想破头 
    害怕 
    昏倒 
    问好(girl) 
    问好(boy) 
    问好1 
    感动 
    喊冤 
    自言自语 
    逃跑 
    兴奋地唱 
    深情地唱 
    大哭 
    笑 
    傻笑 
   狂笑 
 凝视 
 喝闷酒 
 害羞 
 自吻 
 敬酒 
 跳舞 
 哭泣 
 念经 
 自卑 
 喊加油 
 发狗疯 
 宾果 
 牙痒 
 玩蟑螂 
 喝咖啡 
 头坏 
 狗腿 
 头晕 
 发抖 
 清高 
 吻凳 
 傻笑 
 奸笑 
 
 
EOF 
 
		    print  "
\n"; 
  if (($UserData{'Group'} >= 20)||($level >=20)){ 
   		    print  "\n"; 
		    print  "酷语不选\n"; 
                    foreach $name(@EmoteList) 
                    { 
                    	 print "$name\n"; 
                    } 
		    print  "\n";} 
		    print qq{自动滚屏\n"; 
		    print "\n"; 
                    print  " 
\n"; 
                    print "聊天室管理员提示:\n"; 
                      if (($UserData{'Group'} < 1)&&($experience<20)){ 
		     	print "首次进入,请用 /n 你的中文呢称 修改你的呢称！"; 
		} 
		 if (($UserData{'Group'} < 1)&&($level <1)&&($experience>=20)&&($experience<40)){ 
		     	print "本聊天室功能完备，目前你的等级还低，暂时一些功能不能使用!"; 
		} 
		if (($UserData{'Group'} < 1)&&($level <1)&&($experience>=40)&&($experience<80)){ 
		     	print "采用自动滚屏技术，你经常刷新屏幕，可以加快你的聊天速度! "; 
		} 
		if (($UserData{'Group'} < 1)&&($level <1)&&($experience>=80)&&($experience<120)){ 
		     	print "请你多看帮助，你别忘了修改个人资料呀！ "; 
		} 
		     if (($UserData{'Group'} < 10)&&($level <10)&&($level >=1)){ 
		     	print "本聊天室使用等级和记分制度！管理员语气支持！ "; 
		} 
		if (($UserData{'Group'} < 20)&&($level <20)&&($level >=10)){ 
		     	print "程序作者：花无缺 谢谢您的支持和经常光临!"; 
		} 
		if (($UserData{'Group'} < 50)&&($level <50)&&($level >=20)){ 
		     	print "随着等级提升,可以使用一些新功能了!"; 
		} 
		if (($UserData{'Group'} < 70)&&($level >=50)&&($level <70)){ 
		     	print "现在已经开启了所有功能了！"; 
		} 
		if (($UserData{'Group'} < 70)&&($level >=70)&&($level <99)){ 
		     	print "HTML功能已经开启！"; 
		} 
		if ($UserData{'Group'} eq 99){ 
		      	print "欢迎你的光临！--花无缺"; 
		} 
                 print " 版本:Perfect Chat Pro 1.00 2000-5-16\n"; 
                print "