Nginx 의 perl 모듈 개발

회사 업 무 는 모든 사용자 의 특정한 유형의 파일 마지막 요청 을 기록 하고 계속 읽 기 기능 을 제공 해 야 하기 때문에 Nginx 에 작은 모듈 을 추가 하여 사용자 가 들 어 오 라 고 요청 할 때 데 이 터 를 응답 하고 Memcached 와 Mongodb 에 이 URL 을 기록 합 니 다.
Nginx 설정
인용 하 다.
perl_modules perl/lib;
perl_require bookvisit.pm;
인용 하 다.
location ~* ^.+\.bcs$
{
perl bookvisit::handler;
root /byread/books/vipbook;
}

package bookvisit;
use warnings;
use nginx;
use DBI;
use POSIX qw/strftime/;
use MongoDB;
use Cache::Memcached;

my $connection = MongoDB::Connection->new(host => 'localhost', port => 27017);
my $database   = $connection->get_database('bookvisit');
my $visitlog = $database->get_collection('visitlog');
my $lastpage = $database->get_collection('lastpage');

my $memd = new Cache::Memcached {
	'servers' => ["192.168.0.139:11211"],
	'debug' => 0,
	'compress_threshold' => 10_000,
};

sub handler {
	my $r = shift;
	return OK if $r->header_only;
	if (! -f $r->filename) {
		return DECLINED;
	}
	else
	{
		$r->header_out('Content-Type','text/html; charset=utf-8');
		$r->send_http_header;
		@s=stat($r->filename);
		$r->header_out('Content-Length',$s[7]);
		$r->header_out('Length',$s[7]);
		$r->sendfile($r->filename);
		$r->rflush;

		$uri = $r->uri;
		$args = $r->args;

		if( $uri =~ /\/(\w+)\/(\d+).(bcs|txt)/ )
		{
			$bookid = $1;
			$isvip = "0";
			$page = 'http://192.168.0.137'.$uri;
		}
		if( $uri =~ /\/(\d+)\/(f|r)\/(\d+).(bcs|txt)/ )
		{
			$bookid = $1;
			$isvip = "1";
			$page = 'http://192.168.0.138'.$uri;
		}
		if( $args =~ /byid=(\d+)/ )
		{
			$byid = $1;
		}
		$visitime = strftime("%Y-%m-%d %H:%M:%S", localtime time);
		&lastpage;
		&meminsertpage;
		return OK;
	}
}

sub lastpage {
	$lastpage->update({'byid' => $byid},{'$set' => {page => $page,visitime => $visitime} },{"upsert" => 1});
	return OK;
}

sub meminsertpage {
	$memd->set("_book_lastest_read_$byid",$page);
	return OK;
}

1;
__END__