#!/usr/bin/perl -w
#
#config file
#
#author:fengyong 
#date:2006-12-13

use strict;

sub config {
	my %CONFIG;
	
	#version
	$CONFIG{'VER'}='0.1 (2006-12-13)';

	# 从这里开始配置文件.

	#ftp management 安装的路径
	$CONFIG{'PATH'}="/usr/local/www/cgi-bin/ftp";

	#图片的路径,访问的时候像这样 http://you-ip-or-domain/xxx/xxx/images
	$CONFIG{'IMAGES'}="/ftp/template/images";

	#mysql 主机
	$CONFIG{'_HS_'}="127.0.0.1";
	
	#mysql 用户名
	$CONFIG{'_US_'}="ftp";
	
	#mysql 登入的密码
	$CONFIG{'_PW_'}="tmppasswd";
	
	#mysql 数据库名
	$CONFIG{'_DB_'}="ftpusers";

	#添加用户时默认的UID
	$CONFIG{'UID'}="1000";

	#添加用户时默认的GID
	$CONFIG{'GID'}="1000";

	#默认存储的路径r,例如 /home/data/ftp/username
	$CONFIG{'DIR'}="/home/data/ftp";

	#限制的文件数量，以下配置凡是0 表示不限制或关闭不使用的意思
	$CONFIG{'QF'}="0";

	#默认的限额大小 100MB
	$CONFIG{'QS'}="100";

	#限制上传的带宽
	$CONFIG{'ULB'}="0";

	#限制下载的带宽
	$CONFIG{'DLB'}="0";

	#上传比例
	$CONFIG{'ULR'}="0";
	
	#下载比例
	$CONFIG{'DLR'}="0";
	
	#添加用户时，默认是禁用或开启。0表示禁用，1表示启用
	$CONFIG{'STATUS'}="1";

	#配置文件修改到此结束.

	return %CONFIG;
}

sub check_cookie {
	use CGI qw /:standard/;

	my $q= new CGI;
	my $uid = $q->cookie('uid')||"";
	my $c_sid = $q->cookie('sid')||"";
	
	my $q_sid = $q->param('sid')|| "";

	if ($uid eq "" || $c_sid ne $q_sid ) {
		print $q->redirect(-url=>'login.cgi');
	}
}

1;