super.cgi

这个是分屏聊天室源码。需要分屏的聊天室请参考

#!/usr/bin/perl
################################################
# Dnchat10.2v    聊天同盟开发   程式制作: Deen    #
# http://deen.126.com   Email: [e-mail] #
# 如有问题,请访问我的主页寻求技术支持 2001-02-04    #
################################################
#这个程序主要是为那些 perl 系统不同的环境所设计的补丁程序
#不同的 perl 系统加密函数产生的结果可能不一样
#将这个程序的输出结果填入到 superpass.txt 文件中,覆盖掉以前的内容.

#$path = ".";  #这是unix下的配置
$path = &deenpath; #这是win nt iis下的所用的配置
# 打开配置文件与公用模块
do "$path/config.cgi";
do "$path/public.cgi";

&send_html;
$temsuperpass = "deen"; #超级用户的密码,默认为 deen
$dispsuperpass = crypt($temsuperpass,"DN") if ($temsuperpass ne "");
&success(" <font color=red>$temsuperpass</font> 加密以后为: <font color=blue>$dispsuperpass</font><br><br>记住将 <font color=blue>$dispsuperpass</font> 覆盖 superpass.txt ");
exit;
############################
sub deenpath  {
	local $filename,$mypath;
	$filename=__FILE__;
	if ($filename=~/\\/) { $filename=~ s/\\/\//g;}
	if ($filename) { $mypath=substr($filename,0,rindex($filename,"/"));  }
	else { $mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\")); $mypath=~ s/\\/\//g; }
	return $mypath; }