#!/usr/bin/perl
#CCB======================CHINESE CCB SYSTEM 2003========================CCB#
#       精彩奇讯系统源码程序(Chinese city BBS)                             #
#       程序制作：麻辣  2003年7月 Version 5.206                             #
#\\\---------------------------------------------------------------------\\\#
#       欢迎爱好者免费使用 但未经允许，不得用于商业用途                     #
#       尊重作者的劳动成果，不得删版权信息                                  #
#\\\---------------------------------------------------------------------\\\#
#       欢迎这里交流和提问 http://www.sun126.com 多提宝贵意见               #
#       版权所有：《精彩奇讯》工作室                                        #
#          sunluck_office@sina.com                                          #
#CCB======================CHINESE CCB SYSTEM 2003========================CCB#
#                                                                           #
#\\\--------------------------精彩奇讯系统首页 index.cgi----------------------\\\#
BEGIN {
    $cgi_path = '.';
    my $pgm = $0;
    $pgm =~ s/\\/\//g;
    $pgm =~ s/^.*\/([^\/]+)$/$1/g;
    
        foreach ( $0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'} ) {
            s!\\!/!g;
            s/^(.*)\/[^\/]+$/$1/g;
            if ( -e $_ . '/' . $pgm ) {$cgi_path = $_;last;}
         }
     
    unshift( @INC, "$cgi_path/ccblib","$cgi_path" );
}

# ---------------------------------------------------------------------- 开 始
   
   #use diagnostics;
   #use CGI::Carp qw(fatalsToBrowser);
   use CCB;
   use HTM;
   #local $SIG{__DIE__} = sub {print @_; exit(0) };
   require "setup.cgi";

# ---------------------------------------------------------------------- 用户信息
   &read_input(); 
   &LoadCookies();
# ---------------------------------------------------------------------- 分类信息

 
  &class($FORM{class});
     
if (($c_html_forums > 1) && ($FORM{color_set_id} eq"")){
	if ($FORM{t} eq"" ){
		&htm_head;
		print qq~
		<meta HTTP-EQUIV=REFRESH CONTENT=0;URL=$_NONCGI_url/index$FORM{class}.html></html><style>
		~;
		&online;
		exit;
	}
}
if ( $FORM{color_set_id} ) {
	project_load("template_color_class");
	$color_test_url = "&color_set_id=$FORM{color_set_id}";
}

# ---------------------------------------------------------------------- 访问数量	
	&read_date; 
	
        my $readfile;
        &Readfile("$_data_path/data/new_member.txt",\$readfile,1);
	($total_m,$new_member)=split(/\t/,$readfile);
	 $url_u_username_new=&url_encode($new_member);
	my($sysinfo_all) = split( /\)/, $ENV{'HTTP_USER_AGENT'} );
	my ( undef, $explorer_in, $sysinfo, $sysinfo1 ) = split( /;/, $sysinfo_all );
	
	if    ( $sysinfo eq " Win 9x 4.90" )    { $win = " Windows 9x" }
	elsif ( $sysinfo    eq " Windows NT 5.0" ) { $win = " Windows 2000" }
	elsif ( $sysinfo    eq " Windows NT 5.1" ) { $win = " Windows XP" }
	$explorer_in =~ s/MSIE/Explorer/;
	$explorer=$explorer_in;
	if ( $Cookies{username} eq "" ) {
    		$wellcome ="<FONT color=$c_bgcolor6>欢迎您，<b>游客</b></font>";
	}
	else {
    		$wellcome =
		qq(
		
		<FONT color=$c_bgcolor6>欢迎您，<b>$Cookies{username} </b>
		</font>
		);
	}


# ---------------------------------------------------------------------- 论坛公告
my $liness;
&Readfile("$_data_path/forums$FORM{class}/notice.txt",\$liness,1);

my ($id_time, $now_times, $line, $reason ) = split( /\t/, $liness );
if ( $line ne "" ) {
    $view_notice = qq(<marquee scrollamount=3 onmouseover=this.stop(); onmouseout=this.start();>$c_classname 公告：<a href=JavaScript:New('$_ccb_url/forums_office.cgi?$classboard')> <FONT color=$c_bgcolor6>$line&nbsp;$now_times</font></a></marquee>
	);

}

# ---------------------------------------------------------------------- 调用模版库
&mybook;   # --------------------------------------------------------------检测留言本
#unless(-e"$_bbspath/ccb/template/t$t/index.pl"){stop_view("模板目录template/t$t不存在,请进入 <a href=a_admin_menu.cgi?class=$FORM{class}><u>管理中心</u></a> 切换分区模版套系")};

require "template/t$t/index.pl";

$ccb_html=&ccb_end;print"$ccb_html";
exit;
# END ========================================================================== 结束
#---index_function---START#
# ---------------------------# ---------------------------# ---------------------------在线
sub online {
	unless ( $_ONLINE_allow > 0 ) {return;}
	
	$m_bbsname_1 = qq(<a href=index.cgi?class=$FORM{class} target=_blank>$c_classname首页</a>);
	$action      = "";
	$m_secret="";
	&people();
	$toponline;
	&Readfile("$_data_path/data/online_top.txt",\$toponline);#------------在线峰值

	if ( $people > $toponline ) {
		&writefile("$_data_path/data/online_top.txt","$people");

	}
}
# ---------------------------# ---------------------------# ---------------------------友情连接
sub class_link {

	if ( $c_adcolumn_open == 1 ) {
		&A_readfile("$_data_path/class/marquee$FORM{class}.txt",\@adcolumn_marquee);

		print qq($online_table_1
		<TABLE cellSpacing=0 cellPadding=0 width=$c_width_table bgColor=$c_bgcolor2>
		<tr bgcolor=$c_bgcolor1>
		<TD $background_left  align=left height=20>&nbsp;<img src=$_IMAGES_url/sun126_30.gif border=0>&nbsp;<FONT color=$c_bgcolor4><b>网站联盟</b>
		</TD>
		</TR>
		<TABLE cellSpacing=0 cellPadding=0 width=$c_width_table style="BORDER-COLLAPSE: collapse" border=1 borderColor=$c_bgcolor9 bgColor=$c_bgcolor2>
		<TR>
		<TD bgcolor=$c_bgcolor3 height=40>
		);
$i=@adcolumn_marquee;
#if($i > 6) {print qq~<marquee>~;}
$i=0;
		foreach $adcolumn_marquee (@adcolumn_marquee) {
			$i++;
			chomp($adcolumn_marquee);

			( $weblogo, $weburl ) =
			split( /==/, $adcolumn_marquee );

			print qq~
			&nbsp;<a href=$weburl target=_blank><img src=$_NONCGI_url/logo/friends/$weblogo width="88"height="31" border=0></a>
			~;
		}
		print qq~
		&nbsp;<a href=http://www.126.com target=_blank><img src=$_IMAGES_url/ccb_logo.gif border=0 width=88 height=31></a> 
		~;
		
#		if($i > 6) {print qq~</marquee>~;}
		print qq~
		</TD>
		</TR>
		</TABLE>
		~;
	}
	my @fun;
	&A_readfile("$_data_path/class/link$FORM{class}",\@fun);
	if (@fun) {
		if ( $c_adcolumn_open != 1 ){print"$online_table_1";}
		print qq~
		<TABLE width=$c_width_table bgColor=$c_bgcolor2 cellspacing=0 border=0 cellpadding=0 height=20>
		<tr bgColor=$c_bgcolor1>
		<TD align=left $background_left>&nbsp;<img src=$_IMAGES_url/sun126_30.gif border=0>&nbsp;<FONT color=$c_bgcolor4><b>友情链接
		</TD>
		</TR>
		</TABLE>
		~;
		print qq~
		<TABLE style="BORDER-COLLAPSE: collapse" border=1 borderColor=$c_bgcolor9 cellSpacing=0 cellPadding=3 width=$c_width_table bgcolor=$c_bgcolor3>
		<TR><td><TABLE width=100% bgcolor=$c_bgcolor3><TR>

		~;
		my $num_ = 0;
		foreach my $fun (@fun) {
			chomp($fun);
			my ( $webname, $weburl ) = split( /==/, $fun );
			$webname = substr( $webname, 0, 14 );
			if ( $num_ == 6 ) {
				print qq~
				</TR>
				<TR>
				~;
				$num_ = 0;
			}
			print qq~
			<TD>&nbsp;&nbsp;<a href=$weburl target=_blank><FONT color=$c_bgcolor5>$webname</a>
			</TD>
			~;
			$num_++;
		}

		print qq~</TR></table></TD></TR></table>$ccb_table_end~;
	}
	my @link_end; 
	&A_readfile("$_data_path/class/link_end$FORM{class}.txt",\@link_end);

	if (@link_end) {
		print qq~<table width=$c_width_table >@link_end</table>~;
	}

}

#---index_function---END#
#=============================================================================程序结束
#########################精彩奇讯系统首页 index.cgi END OF SCRIPT CCB2003 ##########################