From d3b61a66160f057eb85f6e50a02dd0e800325f40 Mon Sep 17 00:00:00 2001
From: hyung-hwan <hyunghwan.chung@gmail.com>
Date: Wed, 25 Jan 2017 17:00:16 +0000
Subject: [PATCH] changed AccessHandler.pm to prepare for more flexible uri
 parsing

---
 codepot/etc/perl/Codepot/AccessHandler.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/codepot/etc/perl/Codepot/AccessHandler.pm b/codepot/etc/perl/Codepot/AccessHandler.pm
index 05eecb00..ff70a7de 100644
--- a/codepot/etc/perl/Codepot/AccessHandler.pm
+++ b/codepot/etc/perl/Codepot/AccessHandler.pm
@@ -310,10 +310,13 @@ sub is_read_method
 sub __handler 
 {
 	my ($r, $cfg, $dbh) = @_;
-	my ($empty, $base, $repo, $dummy) = split ('/', $r->uri(), 4);
 	my $method = uc($r->method());
 	my $is_method_r = is_read_method ($method);
 
+	#my ($empty, $base, $repo, $dummy) = split ('/', $r->uri(), 4);
+	my @urisegs = split ('/', $r->uri());
+	my $repo = $urisegs[2];
+
 	my $author;
 	my $userid = undef;
 	my $password = undef;