www.pudn.com > bbs3000afree.zip > cookie.cgi


#!/usr/bin/perl 
#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
#------------------------------------------------------# 
$cgipa=".";  # CGI程序文件的绝对路径 
###################### 
## 以下部分不需修改 ## 
###################### 
require "$cgipa/setup.cgi"; 
&GetCookies; 
if ($ENV{'REQUEST_METHOD'} eq "POST") { 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); 
} 
else { 
$buffer = $ENV{'QUERY_STRING'}; 
} 
@pairs = split(/&/, $buffer); 
foreach $pair (@pairs) { 
($name, $value) = split(/=/, $pair); 
$value=~tr/+/ /; 
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
$FORM{$name} = $value; 
} 
$menu=$FORM{'menu'}; 
if($menu eq "setup"){&setup;exit;} 
elsif($menu eq "setuppage"){&setuppage;exit;} 
elsif($menu eq "estate"){&estate;exit;} 
elsif($menu eq "line"){&line;exit;} 
elsif($menu eq "openline"){&openline;exit;} 
sub openline{ 
if($FORM{'line'} eq ""){$openline="1"} 
elsif($FORM{'line'} eq "1"){$openline=""} 
print "Content-type: text/html\n\n"; 
print < 
 
EOF 
exit; 
} 
sub line{ 
print "Content-type: text/html\n\n"; 
print < 
 
EOF 
exit; 
} 
sub estate{ 
print "Content-type: text/html\n\n"; 
print < 
 
EOF 
exit; 
} 
print "Content-type: text/html\n\n"; 
print < 
EOF 
exit; 
sub setup{ 
if($FORM{'bgcolor'} eq "none"){$cookiebgcolor="";} 
if($FORM{'bgcolor'} eq ""){$cookiebgcolor="_FFFFFF_007CD0_007CD0_F0F0F0_F8F8F8_0095F9";} 
if($FORM{'bgcolor'} eq "1"){$cookiebgcolor="1_FFFFFF_AAB883_AAB883_F0F0F0_F8F8F8_D4D6BA";} 
if($FORM{'bgcolor'} eq "2"){$cookiebgcolor="2_FFFFFF_ACABC4_ACABC4_F0F0F0_F8F8F8_DEE0E6";} 
print "Content-type: text/html\n\n"; 
$savetime="expires=\"+expireDate.toGMTString()+\";"; 
print < 
EOF 
exit; 
} 
sub setuppage{ 
if($Cookies{estate} eq ""){$estateselected=selected;} 
if($Cookies{line} eq ""){$lineselected=selected;} 
if($Cookies{xuansave} eq ""){$saveselected=selected;} 
&css; 
print <BBS3000-个性设置
个性设置
     

 

本论坛使用COOKIE来储存您的设置。有时您浏览器中的COOKIE会变得混乱或被删除。如果这样，您也许希望删除所有在本论坛生成的COOKIE，但这也意味着所有保存的COOKIE信息将丢失，当然，和COOKIE有关的问题也将随之解决 点击这里清除所有 
COOKIE
 

 
您可以按您的习惯设置论坛，目前有四个选项可供设置
 

隐身登陆: 
 
 

 

密码保存在缓存里: 
 
 

 

在线人员列表: 
 
 

 

色彩方案: 
 
 

 



 
  
EOF 
exit; 
} 
######################### END OF SCRIPT #########################