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
 
 ## ......................................................................
 ## 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";
 
        $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;
        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:
 }
 
 # supported formats: