gitweb: Modularized git_get_project_description to be more generic

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 7ee310ee82c5f7d3f0c26bcc9c704bc7b3bb3da63d0de8d43834e27746c40847..6d013f1070543e10a658f8247c265bd7256a32d5741a5d404cfcb4e6a738cc75 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -2563,18 +2563,26 @@ sub git_get_path_by_hash {
 ## ......................................................................
 ## git utility functions, directly accessing git repository
 
-sub git_get_project_description {
-       my $path = shift;
+# get the value of config variable either from file named as the variable
+# itself in the repository ($GIT_DIR/$name file), or from gitweb.$name
+# configuration variable in the repository config file.
+sub git_get_file_or_project_config {
+       my ($path, $name) = @_;
 
        $git_dir = "$projectroot/$path";
-       open my $fd, '<', "$git_dir/description"
-               or return git_get_project_config('description');
-       my $descr = <$fd>;
+       open my $fd, '<', "$git_dir/$name"
+               or return git_get_project_config($name);
+       my $conf = <$fd>;
        close $fd;
-       if (defined $descr) {
-               chomp $descr;
+       if (defined $conf) {
+               chomp $conf;
        }
-       return $descr;
+       return $conf;
+}
+
+sub git_get_project_description {
+       my $path = shift;
+       return git_get_file_or_project_config($path, 'description');
 }
 
 # supported formats: