diff options
| author | Holger Weiss <holger@zedat.fu-berlin.de> | 2013-09-27 22:43:08 +0200 |
|---|---|---|
| committer | Holger Weiss <holger@zedat.fu-berlin.de> | 2013-09-27 22:43:08 +0200 |
| commit | 983d10e0609175a26675a97129b9e7def18d5f35 (patch) | |
| tree | d1a5a6662edf4c3b4d213a186eff959922f0f04d /tools | |
| parent | d4c5730464ea7f9e701ebd5e57f1ac021d7500c6 (diff) | |
| download | monitoring-plugins-983d10e0609175a26675a97129b9e7def18d5f35.tar.gz | |
Remove tools/git2svn.pl
We no longer mirror out Git repositories into Subversion.
Diffstat (limited to 'tools')
| -rwxr-xr-x | tools/git2svn.pl | 129 |
1 files changed, 0 insertions, 129 deletions
diff --git a/tools/git2svn.pl b/tools/git2svn.pl deleted file mode 100755 index afe2b3b3..00000000 --- a/tools/git2svn.pl +++ /dev/null | |||
| @@ -1,129 +0,0 @@ | |||
| 1 | #!/usr/bin/perl | ||
| 2 | # | ||
| 3 | # This script pulls the current branch, then walks the first parents and | ||
| 4 | # commit each of them into subversion. | ||
| 5 | # | ||
| 6 | # Copyright (C) 2008 Thomas Guyot-Sionnest <dermoth@aei.ca> | ||
| 7 | # | ||
| 8 | # The subversion repository must not be taking any external commit or this | ||
| 9 | # script will erase them. This script cannot run off a bare repository. | ||
| 10 | # | ||
| 11 | # *** INITIAL SETUP *** | ||
| 12 | # | ||
| 13 | # 1. Run this command line to get the repository up and ready for this script: | ||
| 14 | # | ||
| 15 | # $ cd /path/to/repo/; git log -1 --pretty=format:%H >.git/git2svn.last_commit_hash | ||
| 16 | # | ||
| 17 | # 2. Configure the lines below... $ENV{'GIT_DIR'} must point to the .git | ||
| 18 | # directory of the git-svn repo. | ||
| 19 | # | ||
| 20 | # *** INITIAL SETUP *** | ||
| 21 | # | ||
| 22 | # This program is free software: you can redistribute it and/or modify | ||
| 23 | # it under the terms of the GNU General Public License as published by | ||
| 24 | # the Free Software Foundation, either version 3 of the License, or | ||
| 25 | # (at your option) any later version. | ||
| 26 | # | ||
| 27 | # This program is distributed in the hope that it will be useful, | ||
| 28 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 29 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 30 | # GNU General Public License for more details. | ||
| 31 | # | ||
| 32 | # You should have received a copy of the GNU General Public License | ||
| 33 | # along with this program. If not, see <http://www.gnu.org/licenses/>. | ||
| 34 | |||
| 35 | use strict; | ||
| 36 | use warnings; | ||
| 37 | |||
| 38 | # This is the git working tree. Must be tied to a SVN repository | ||
| 39 | $ENV{'GIT_DIR'} = '/path/to/nagiosplug/.git'; | ||
| 40 | |||
| 41 | # For some strange reasons this is needed: | ||
| 42 | $ENV{'GIT_SVN_ID'} = 'trunk'; | ||
| 43 | |||
| 44 | # Path to git binary | ||
| 45 | my $git = '/usr/bin/git'; | ||
| 46 | |||
| 47 | # Force commits from the hash stored in git2svn.last_commit_hash regardless | ||
| 48 | # of the state of the current repository. Use this if the repository was | ||
| 49 | # updated manually or if you need to set that hash to a specific value. | ||
| 50 | # NB: Re-committing old hashes will revert then roll again changes to SVN. | ||
| 51 | my $FORCE = 0; | ||
| 52 | |||
| 53 | # Print debug output. Useful if you want to see what's being committed. | ||
| 54 | my $DEBUG = 0; | ||
| 55 | |||
| 56 | for (@ARGV) { | ||
| 57 | $FORCE = 1 if (m/force/); | ||
| 58 | $DEBUG = 1 if (m/debug/); | ||
| 59 | if (m/help/ || m/--help/ || m/-h/) { | ||
| 60 | print "Usage: $0 [ debug ] [ force ] [ help ]\n"; | ||
| 61 | exit 0; | ||
| 62 | } | ||
| 63 | } | ||
| 64 | |||
| 65 | # 1st get the current commit hash - we'll start committing to SVN from this one | ||
| 66 | print "Reading saved hash from $ENV{'GIT_DIR'}/git2svn.last_commit_hash\n" if ($DEBUG); | ||
| 67 | open(SAVHASH, "<$ENV{'GIT_DIR'}/git2svn.last_commit_hash") | ||
| 68 | or die("Can't open $ENV{'GIT_DIR'}/git2svn.last_commit_hash: $!"); | ||
| 69 | my $saved_commit_hash = <SAVHASH>; | ||
| 70 | chomp $saved_commit_hash; | ||
| 71 | print "Saved commit hash: $saved_commit_hash\n" if ($DEBUG); | ||
| 72 | close(SAVHASH); | ||
| 73 | |||
| 74 | my $last_commit_hash; | ||
| 75 | if ($FORCE) { | ||
| 76 | $last_commit_hash = $saved_commit_hash; | ||
| 77 | print "Forcing last commit hash to $last_commit_hash\n" if ($DEBUG); | ||
| 78 | } else { | ||
| 79 | print "Running: $git log -1 --pretty=format:%H\n" if ($DEBUG); | ||
| 80 | $last_commit_hash = `$git log -1 --pretty=format:%H`; | ||
| 81 | die("Failed to retrieve last commit hash") if ($?); | ||
| 82 | chomp $last_commit_hash; | ||
| 83 | print "Last commit hash: $last_commit_hash\n" if ($DEBUG); | ||
| 84 | |||
| 85 | # Sanity check | ||
| 86 | die("Last commit hash and saved commit hash don't match, aborting") | ||
| 87 | if ($last_commit_hash ne $saved_commit_hash); | ||
| 88 | } | ||
| 89 | |||
| 90 | # 2nd pull the remote tree | ||
| 91 | print "Running: $git pull\n" if ($DEBUG); | ||
| 92 | `$git pull`; | ||
| 93 | die("Failed to pull") if ($?); | ||
| 94 | |||
| 95 | # Then list all first parents since the last one and insert them into an array | ||
| 96 | my @commits; | ||
| 97 | print "Running: $git rev-list --first-parent $last_commit_hash..HEAD\n" if ($DEBUG); | ||
| 98 | open(REVLIST, "$git rev-list --first-parent $last_commit_hash..HEAD|") | ||
| 99 | or die("Failed to retrieve revision list: $!"); | ||
| 100 | |||
| 101 | while (<REVLIST>) { | ||
| 102 | chomp; | ||
| 103 | unshift @commits, $_; | ||
| 104 | print "Prepending the list with $_\n" if ($DEBUG); | ||
| 105 | } | ||
| 106 | |||
| 107 | close(REVLIST); | ||
| 108 | |||
| 109 | if (@commits == 0) { | ||
| 110 | print "Nothing to do.\n"; | ||
| 111 | exit 0; | ||
| 112 | } | ||
| 113 | |||
| 114 | # Finally, commit every revision found into SVN | ||
| 115 | foreach my $commit (@commits) { | ||
| 116 | print "Commiting $commit to Subversion\n"; | ||
| 117 | print "Running: $git svn set-tree --add-author-from $commit\n" if ($DEBUG); | ||
| 118 | `$git svn set-tree --add-author-from $commit`; | ||
| 119 | die("Failed to commit hash $commit") if ($?); | ||
| 120 | } | ||
| 121 | |||
| 122 | # Once done, update the last commit hash | ||
| 123 | $last_commit_hash = pop @commits; | ||
| 124 | print "Writing last commit hash to $ENV{'GIT_DIR'}/git2svn.last_commit_hash\n" if ($DEBUG); | ||
| 125 | open(SAVHASH, ">$ENV{'GIT_DIR'}/git2svn.last_commit_hash") | ||
| 126 | or die("Can't open $ENV{'GIT_DIR'}/git2svn.last_commit_hash for writing: $!"); | ||
| 127 | print SAVHASH $last_commit_hash; | ||
| 128 | close(SAVHASH); | ||
| 129 | |||
