new.cgi

系统重定向方面的资料

#!/usr/bin/perl

#######################################################
#
#  作者:飞云小侠
#  邮件:[e-mail]
#  网站:飞云飘渺
#  网址:http://www.coolwww.net
#  声明:版权所有,不得去除版权说明 
#
######################################################


##申请帐号处理子程序
eval {
  ($0 =~ m,(.*)/[^/]+,)   && unshift (@INC, "$1"); # 得到当前位置: UNIX / or Windows /
  ($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # 得到当前位置: Windows \
  
  require ('cgi-lib.pl');
  require "field_cfg.pl";
  require "prg_cfg.pl";
  require "scudlib.pl";
  require "datalib.pl";
  require "setup.pl";
  };
  
use Fcntl;
use AnyDBM_File;
  
# 开始运行
  
&ReadParse(*input);
  
# 特殊处理  
$input{"newtime"}=&getmytime($time_diff,1);
  
if ($input{'join'}) { &join; }
else {
	print "Location:$html_url/$new_page\n\n";
	};
exit;

#主程序
sub join
  {
    $ehint ='';
     
    &firstcheck;  
    
    if ($ehint eq "")
      { 
        &secondcheck;
      }
      
    if ($ehint eq "")
      { 
        &checkfield;
        &morecheck; 
      }
     
    if($ehint)
      {
        &ehint($ehint);
      }
     
    &myfilter; 
    &createuser;
    &welcome;
  }

#创建用户:
sub createuser 
  {
    $db = "$datapath/$userdb";
    
    $mydata ="";
    for ($i=0;$i<$field_count;$i++)
      {
        $curtext = $input{"$field_list[$i]"};
        if ( $field_save[$i] eq "1" ) 
        {
        	$mydata.="$curtext$div";
        }
		}		    
		$mydata.="0";
		#print "$mydata\n";
    #$mydata="$input{'redirect'}$div$input{'email'}$div$input{'site_name'}$div$input{'site_keywords'}$div$input{'site_des'}$div$input{'pwd'}$div$regtime$div0";
    
    tie(%acc, 'AnyDBM_File', $db , $flags, 0666) || &error("不能打开数据库 -- 用户数据库");
    $acc{$input{"$field_list[$key_field]"}} = ("$mydata");
    untie(%acc);
  }

#自己定制
sub welcome
  {
    print "Content-type: text/html\n\n";
    
    $userinfo="";
    $userinfo2="";
    for ($i=0;$i<$field_count;$i++)
    {
    	 	@myattr=split(/,/,$field_attr{$i});
      	$mytype = $myattr[2];
        $curtext = $input{"$field_list[$i]"};

        if ( $field_save[$i] ne "2" ) 
        {
        	if ( ($mytype eq "select" ) or ( $mytype eq "radio" ) )
        	{
				 		%mysel = eval("%".$field_list[$i]."_sel");
				 		while(($myvalue,$mydisplay)= each(%mysel))
				 		{
				 			if ($input{"$field_list[$i]"} eq $myvalue)
				 			{
              	$userinfo.="<b>$field_name[$i]</b>: $mydisplay<br>";
              	$userinfo2.="$field_name[$i]: $mydisplay\n";
				 				#print "<td class=hz><font face=宋体,arial>$mydisplay</td>";
				 			}
				 		}
        	}
        	else
        	{
          	$userinfo.="<b>$field_name[$i]</b>: $curtext<br>";
          	$userinfo2.="$field_name[$i]: $curtext\n";
        	}
        }
		}		    
    
    $welcome_page=qq~
    <table cellpadding=5 border=0 cellspacing=0 align=center width=$table_width bgcolor=$table_color>
    <tr><td>
    <font face=宋体,arial><b>用户帐号 $input{"username"} 创建完毕</b></font>
    <br><br><font face=宋体,arial class=hz>
    下面是你申请的信息:<br><br>
    $userinfo     <br>
    你现在可以使用$prg_name了. <br>
    你的虚拟域名:<b>http://$input{"username"}.$domain</b>
    </td></tr></table>
    <br><br>
    ~;

		&Header($prg_style,$prg_name,$prg_header);
    print $welcome_page;  
    &Footer($prg_footer);    
      
    $subject = "欢迎使用 $prg_name\n";
      
    $message = "欢迎使用$prg_name, 你的帐号已经设置成功了\n\n";
    $message .= "下面是你的信息:\n";
    $message .= "---------------------------------------\n";
    $message .= "$userinfo2";  
    $message .= "现在你可以使用你的域名: 帐号.$domain\n";
    $message .= "---------------------------------------\n";
    $message .= "服务提供:$site_name: $site_url";
    $message .= "\n\n";
      
    if ($mail_prog) {
      &write_email($input{'email'},$site_mail,$subject,$message);
    }
    
}