openoffice-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pe...@apache.org
Subject [openoffice] branch trunk updated: SvnRevision.pm returns now short git hash. git-svn-id has been removed.
Date Thu, 15 Aug 2019 04:53:57 GMT
This is an automated email from the ASF dual-hosted git repository.

petko pushed a commit to branch trunk
in repository https://gitbox.apache.org/repos/asf/openoffice.git


The following commit(s) were added to refs/heads/trunk by this push:
     new 330ba01  SvnRevision.pm returns now short git hash. git-svn-id has been removed.
     new ed36707  Merge branch 'trunk' of https://gitbox.apache.org/repos/asf/openoffice into
trunk
330ba01 is described below

commit 330ba01c72ab1519ff7fe9dff14e9b603201da0b
Author: Peter Kovacs <petko@apache.org>
AuthorDate: Tue Aug 13 20:39:48 2019 +0200

    SvnRevision.pm returns now short git hash. git-svn-id has been removed.
---
 main/solenv/bin/modules/SvnRevision.pm | 53 +++++++++++++++-------------------
 1 file changed, 23 insertions(+), 30 deletions(-)

diff --git a/main/solenv/bin/modules/SvnRevision.pm b/main/solenv/bin/modules/SvnRevision.pm
index 5c2c1fc..eab9538 100644
--- a/main/solenv/bin/modules/SvnRevision.pm
+++ b/main/solenv/bin/modules/SvnRevision.pm
@@ -21,36 +21,8 @@
 
 package SvnRevision;
 
-
-sub DetectRevisionIdFromGit ($)
-{
-    my $path = shift;
-    
-    my $id = undef;
-
-    open my $proc, "cd $path && git show HEAD 2>\&1|";
-    while (<$proc>)
-    {
-        if (/^fatal: Not a git repository/)
-        {
-            # Not in a GIT repository.
-            last;
-        }
-        elsif (/^\s*git-svn-id:.*?@([0-9]+)\s+/)
-        {
-            $id = $1;
-            last;
-        }
-    }
-    close $proc;
-
-    return $id;
-}
-
-
-
-
-sub DetectRevisionId ($)
+#old SVN code unchanged
+sub DetectRevisionIdFromSVN ($)
 {
     my $path = shift;
 
@@ -79,4 +51,25 @@ sub DetectRevisionId ($)
     return $id;
 }
 
+
+sub DetectRevisionId ($)
+{
+    my $path = shift;
+
+    my $id = undef;
+    #test if path points to a git repository. if true return is 0 else positive number.
+    my $isNotGit= `[ -d .git ] || git rev-parse --git-dir > /dev/null 2>&1`;
+    if ($isNotGit)
+    {
+    	$id = DetectRevisionIdFromSVN ($path);
+    }
+    else
+    {
+    	#returns directly the hash of the current checkout.
+    	$id = `git log -1 --pretty=format:%h`;
+    }
+
+    return $id;
+}
+
 1;


Mime
View raw message