threads / patch / 9284

patchgitweb: localhost placeholder parser for cloneurl file

Subject: [PATCH] gitweb: localhost placeholder parser for cloneurl file

## tl;dr

2 messages between Jul 29, 2007 and Jul 29, 2007. Diffs are folded; open one to read it.

replies: 1people: 2as markdown or json

Leandro Dorileo· Jul 29, 2007, 06:54 UTC · lore
Hi...

I just started to use gitweb and saw that there isn`t in the git-tree of gitweb the feature of that link to the git url (wich we can see in git.kernel.org:D - I didn`t understand it, was that changed/done only for kernel.org?). I also have a specific need. I work with my laptop and there I keep some git repositories, these repositories are shared/published with some coworkers but as it`s a notebook the network environment normally changes depending where I`m, so I implemented a placeholder for cloneurl file. Gitweb will change #localhost# by server_name.

If your git repositories aren`t in your local machine or if your gitweb is hosted in a specific server what you have to do (in fact what you don`t have to do :D) is just not use it.

>From 32da24e1e18a1c5f32bfa0afdbcb6d0f2b0432f3 Mon Sep 17 00:00:00 2001
From: Leandro Dorileo <dorileo@ossystems.com.br>
Date: Sat, 28 Jul 2007 15:34:20 -0400
Subject: [PATCH] gitweb: localhost placeholder parser for cloneurl file
Implementation of a localhost placeholder parsing in git_get_project_url_list.
It`s useful in cases of gitweb being hosted in a work-station (like a notebook)
used in a local team development environment and, implementation of a git-url
link in the git project list body like in git.kernel.org.
---
 gitweb/gitweb.perl |   21 ++++++++++++++++++---
 1 files changed, 18 insertions(+), 3 deletions(-)
Show changes to gitweb/gitweb.perl +18 −3
diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index b381692..281d823 100755
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
@@ -1471,7 +1471,16 @@ sub git_get_project_url_list {
 	my @git_project_url_list = map { chomp; $_ } <$fd>;
 	close $fd;

-	return wantarray ? @git_project_url_list : \@git_project_url_list;
+        if(wantarray){
+            for(my $i = 0; $i < @git_project_url_list; $i++){
+                if(index(@git_project_url_list[$i], "#localhost#") != -1){
+                    @git_project_url_list[$i] =~
s/#localhost#/server_name()/eg;
+                }
+            }
+            return @git_project_url_list;
+        }else{
+            return \@git_project_url_list;
+        }
 }

 sub git_get_projects_list {
@@ -3384,8 +3393,14 @@ sub git_project_list_body {
 		      $cgi->a({-href => href(project=>$pr->{'path'},
action=>"shortlog")}, "shortlog") . " | " .
 		      $cgi->a({-href => href(project=>$pr->{'path'},
action=>"log")}, "log") . " | " .
 		      $cgi->a({-href => href(project=>$pr->{'path'},
action=>"tree")}, "tree") .
-		      ($pr->{'forks'} ? " | " . $cgi->a({-href =>
href(project=>$pr->{'path'}, action=>"forks")}, "forks") : '') .
-		      "</td>\n" .
+		      ($pr->{'forks'} ? " | " . $cgi->a({-href =>
href(project=>$pr->{'path'}, action=>"forks")}, "forks") : '');
+
+                      my @url_list = git_get_project_url_list($pr->{'path'});
+                      if(@url_list != 0){
+                        print " | " . $cgi->a({-href => @url_list[0]}, "git");
+                      }
+
+		      print "</td>\n" .
 		      "</tr>\n";
 	}
 	if (defined $extra) {

-- 
1.5.2.4

-- 
Dorileo
Jakub Narebski· Jul 29, 2007, 23:57 UTC · re: Leandro Dorileo · lore

Re: [PATCH] gitweb: localhost placeholder parser for cloneurl file

[Cc: Leandro Dorileo <ldorileo@gmail.com>, git@vger.kernel.org]
Leandro Dorileo wrote:
Show 9 quoted lines
> From 32da24e1e18a1c5f32bfa0afdbcb6d0f2b0432f3 Mon Sep 17 00:00:00 2001
> From: Leandro Dorileo <dorileo@ossystems.com.br>
> Date: Sat, 28 Jul 2007 15:34:20 -0400
> Subject: [PATCH] gitweb: localhost placeholder parser for cloneurl file
> 
> Implementation of a localhost placeholder parsing in git_get_project_url_list.
> It`s useful in cases of gitweb being hosted in a work-station (like a notebook)
> used in a local team development environment and, implementation of a git-url
> link in the git project list body like in git.kernel.org.

First, the commit message _has_ to be self explanatory, and be easily understood _without_ email message which introduced it.

So you should clean-up the explanation about _why_ one would want to replace #localhost#, or ++LOCALHOST++ in the cloneurls by the server name (the same configuration, different machines; although I do not understand why it is so hard to change configutation depending on machine).

Second, please clean up the code. Comments below.
Third, sign-off your patches: see Documentation/SubmittingPatches
Show 14 quoted lines
> ---
>  gitweb/gitweb.perl |   21 ++++++++++++++++++---
>  1 files changed, 18 insertions(+), 3 deletions(-)
> 
> diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
> index b381692..281d823 100755
> --- a/gitweb/gitweb.perl
> +++ b/gitweb/gitweb.perl
> @@ -1471,7 +1471,16 @@ sub git_get_project_url_list {
>       my @git_project_url_list = map { chomp; $_ } <$fd>;
>       close $fd;
> 
> -     return wantarray ? @git_project_url_list : \@git_project_url_list;
> +        if(wantarray){
Style: "if (wantarray) {".

But I think you would want to do the substitution regardless of whether git_get_project_url_list() subroutine is called in scalar or list context. (By the way I think it might be a mistake to use this trick: return array in the list context, return array reference in the scalar context).

So you would put the code proposed below before
        return wantarray ? @git_project_url_list : \@git_project_url_list;
Show 6 quoted lines
> +            for(my $i = 0; $i < @git_project_url_list; $i++){
> +                if(index(@git_project_url_list[$i], "#localhost#") != -1){
> +                    @git_project_url_list[$i] =~
> s/#localhost#/server_name()/eg;
> +                }
> +            }
Why not simply:
        @git_project_url_list = map { s/#localhost#/server_name()/eg; } 
                @git_project_url_list;
And didn't you meant $cgi->server_name() or just $ENV{'SERVER_NAME'}?
> +            return @git_project_url_list;
> +        }else{
> +            return \@git_project_url_list;
> +        }
Just end with what it was before:
        return wantarray ? @git_project_url_list : \@git_project_url_list;
>  }
Show 18 quoted lines
>  sub git_get_projects_list {
> @@ -3384,8 +3393,14 @@ sub git_project_list_body {
>                     $cgi->a({-href => href(project=>$pr->{'path'},
> action=>"shortlog")}, "shortlog") . " | " .
>                     $cgi->a({-href => href(project=>$pr->{'path'},
> action=>"log")}, "log") . " | " .
>                     $cgi->a({-href => href(project=>$pr->{'path'},
> action=>"tree")}, "tree") .
> -                   ($pr->{'forks'} ? " | " . $cgi->a({-href =>
> href(project=>$pr->{'path'}, action=>"forks")}, "forks") : '') .
> -                   "</td>\n" .
> +                   ($pr->{'forks'} ? " | " . $cgi->a({-href =>
> href(project=>$pr->{'path'}, action=>"forks")}, "forks") : '');
> +
> +                      my @url_list = git_get_project_url_list($pr->{'path'});
> +                      if(@url_list != 0){
> +                        print " | " . $cgi->a({-href => @url_list[0]}, "git");
> +                      }
Style: "if (@url_list) {" is enough.
Style: use tabs for indent, now spaces.
But this is totally independent thing, and it should be put in
separate patch. And it doesn't make much sense as first URL in
the list might not be using scheme recognized by web browser:
 - it can be git:// URL.
 - it can be scp style ssh:// URL: <user>@<host>:<path>
 - it can be local path, without file:// prefix
Show 5 quoted lines
> +
> +                   print "</td>\n" .
>                     "</tr>\n";
>       }
>       if (defined $extra) {
-- 
Jakub Narebski
Warsaw, Poland
ShadeHawk on #git

← back to recent threads