ad_read_in.pl

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

############## 初始化输入数据  ################

sub read_in {

@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
   ($name, $value) = split(/=/, $query);
   $FORM{$name} = $value;    
}
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;
   $name=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value=~ s/<!--(.|\n)*-->//g;
   $value=~ s/<([^>]|\n)*>//g;
   $value=~ s/>//g;
   $value=~ s/<//g;
   $value=~ s/\n|"|\&|\?|\*//g;
   $value=~ tr/A-Z/a-z/;
   $FORM{$name}=$value;
}
$id        = "$FORM{'id'}";
$userlevel = "$FORM{'userlevel'}";
$password  = substr($FORM{'password'},0,20);
$newpass   = substr($FORM{'newpass'},0,20);
$repass    = substr($FORM{'repass'},0,20);
$tmpusername  = substr($FORM{'username'},0,10);
$tmpnewname   = substr($FORM{'newname'},0,10);
$username  = substr($tmpusername,0,10);
$newname   = substr($tmpnewname,0,10);
$url       = "$FORM{'url'}";
$command   = "$FORM{'command'}";
$potourl   = "$FORM{'potourl'}";
$email     = "$FORM{'email'}";
$geyan     = "$FORM{'geyan'}";
$mdfjy     = "$FORM{'mdfjy'}";
$whatdo    = "$FORM{'whatdo'}";
$mdfdj     = "$FORM{'mdfdj'}";
$back      = "$FORM{'back'}";
$chk       = "$FORM{'chk'}";
$chkname   = "$FORM{'chkname'}";
$pass      = crypt($password, "wf");
$npass     = crypt($newpass, "wf");
$username  ="" if (length($username) < 3);
$newname   ="" if (length($newname) < 3);
$email     ="" if (!($email     =~ /.*\@.*\..*/));
$url       ="" if (!($url       =~ /http\:\/\/.*\..*/));
$potourl   ="" if (!($potourl   =~ /http\:\/\/.*\..*/));
$userip   = $ENV{'REMOTE_ADDR'};
($nsec,$nmin,$nhour,$nday,$nmon,$nyear,$wday,$yday,$isdst) = localtime(time);
if ($nsec<10) {$nsec="0$nsec";}
if ($nmin<10) {$nmin="0$nmin";}
if ($nhour<10) {$nhour="0$nhour";}
$nyear+=1900;
$nmon++; 
if ($nmon<10) {$nmon="0$nmon";}
if ($nday<10) {$nday="0$nday";}
$normal_time ="$nyear年$nmon月$nday日$nhour时$nmin分$nsec秒";
$normal_time2 ="$nyear年$nmon月$nday日$nhour\:$nmin\:$nsec";
$now_sec      =$nsec + ($nmin*60) + ($nhour*60*60) + ($nday*24*60*60);
$in=$ENV{'QUERY_STRING'};

}