发信人: xiny()
整理人: workingnow(2002-10-30 13:57:59), 站内信件
|
【 在 tanshuai (天水) 的大作中提到: 】
: 你好:
: 我有一件事情想问问,如果你能够解答!问题:
: 我想要编写一个支持多用户的程序,比如想abc.yestie.com那样一个留言板可以
: 多个用户共同使用!
: .......
呵呵!
先得到$user的值。然后再建文件或读文件
if ($ENV{'QUERY_STRING'}) {
$buffer = $ENV{'QUERY_STRING'};
} else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
@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;
$value =~ s/<!--(.|\n)*-->//g;
#$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
$user=$FORM{'user'};
if (-e "./$user/$user.cfg"){
require "./conf/$user.cfg";
#这儿这样处理可以在同一目录下不同用户.
#或者用下面的,不同目录下的
#require "./$user/conf.cfg";
}else{
#处理设置文件不存在时可以建个新的,这样就做成自动的了!呵呵
}
-- 我的主页:http://xinge.nethome.net.cn/
我写的BBS:http://169.nethome.net.cn/
我的聊吧:http://169.nethome.net.cn/chat/
http://xinge.nethome.net.cn/chat/
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.102.24.29]
|
|