From ecc5bea4d37d6723ae15acb0d49cf16163c3cd50 Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Sat, 31 Oct 2009 17:41:06 +0100
Subject: [PATCH] Girocco::Project: Support for gitconfig properties

---
 Girocco/Project.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Girocco/Project.pm b/Girocco/Project.pm
index 8ab2ee1..79e0e9c 100644
--- a/Girocco/Project.pm
+++ b/Girocco/Project.pm
@@ -48,6 +48,10 @@ sub _property_fget {
 	my $self = shift;
 	my ($name) = @_;
 	$propmap{$name} or die "unknown property: $name";
+	if ($propmap{$name} =~ /^:/) {
+		return `git --git-dir="$self->{path}" config "gitweb.$name"`
+	}
+
 	open P, $self->_property_path($propmap{$name}) or return undef;
 	my @value = <P>;
 	close P;
@@ -60,6 +64,9 @@ sub _property_fput {
 	my ($name, $value) = @_;
 	$propmap{$name} or die "unknown property: $name";
 	$value ||= '';
+	if ($propmap{$name} =~ /^:/) {
+		return `git --git-dir="$self->{path}" config "gitweb.$name" "$value"`
+	}
 
 	my $P = lock_file($self->_property_path($propmap{$name}));
 	$value ne '' and print $P "$value\n";
-- 
2.11.4.GIT