📄 set_var.pl

📁 这个社区是虚拟社区使用的程序

💻 PL

字号:

##########
sub set_var {
$Spliter        = "|^|";
if ($FORM{'job'}) {
   $job = "$FORM{'job'}";
   &chkempty($job,"对不起!我无法猜测你的意图...");
}
else {
# do "$home_dir/home.pl";
# &home;
	print "<html><head>\n";
	print "<script Language=\"JavaScript\">\n";
	print "  alert(\"请先登陆笑傲江湖社区!\");\n";
	print "</script></head></html>\n";
}
if ($FORM{'job'}) {
if ($FORM{'username'}) {
	$username= $FORM{'username'};
	$username=~ s/ /\_/g;
}
if ($FORM{'userpassword'}) {
	$userpassword = "$FORM{'userpassword'}";
	$userpassword=~s/\W+//;
	$password = crypt($userpassword, "wf");
}
if ($FORM{'userlevel'}) {
	$userlevel = "$FORM{'userlevel'}";
	$userlevel =~ s/\n//g;
	$userlevel = substr($userlevel,0,2);
}
if ($FORM{'usersex'}) {
	$usersex = "$FORM{'usersex'}";
	$usersex =~ s/\n//g;
}

if ($FORM{'towho'}) {
	$towho = "$FORM{'towho'}";
	$towho =~ s/\n//g;
}

if ($FORM{'wordcolor'}) {
	$wordcolor = "$FORM{'wordcolor'}";
	$wordcolor =~ s/\n//g;
	$wordcolor = substr($wordcolor,0,7);
}

if ($FORM{'says'}) {
   $maxsays+=100;	
   $says  = substr($FORM{'says'},0,$maxsays);
   $says=~ s/\n|‖|

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -