From 611360443ef4d9e2f4def1e2c97727dd04e0d244 Mon Sep 17 00:00:00 2001 From: James Bowes Date: Tue, 5 Jun 2007 19:25:23 -0400 Subject: [PATCH] remote: add 'rm' subcommand Introduce git-remote rm which will: - Remove the remote config entry for . - Remove any config entries for tracking branches of . - Remove any stored remote branches of . Signed-off-by: James Bowes Signed-off-by: Junio C Hamano --- git-remote.perl | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) diff --git a/git-remote.perl b/git-remote.perl index f6f283ea4f..f513a8ad99 100755 --- a/git-remote.perl +++ b/git-remote.perl @@ -316,6 +316,34 @@ sub update_remote { } } +sub rm_remote { + my ($name) = @_; + if (!exists $remote->{$name}) { + print STDERR "No such remote $name\n"; + return; + } + + $git->command('config', '--remove-section', "remote.$name"); + + eval { + my @trackers = $git->command('config', '--get-regexp', + 'branch.*.remote', $name); + for (@trackers) { + /^branch\.(.*)?\.remote/; + $git->config('--unset', "branch.$1.remote"); + $git->config('--unset', "branch.$1.merge"); + } + }; + + + my @refs = $git->command('for-each-ref', + '--format=%(refname) %(objectname)', "refs/remotes/$name"); + for (@refs) { + ($ref, $object) = split; + $git->command(qw(update-ref -d), $ref, $object); + } +} + sub add_usage { print STDERR "Usage: git remote add [-f] [-t track]* [-m master] \n"; exit(1); @@ -422,9 +450,19 @@ elsif ($ARGV[0] eq 'add') { } add_remote($ARGV[1], $ARGV[2], \%opts); } +elsif ($ARGV[0] eq 'rm') { + if (@ARGV <= 1) { + print STDERR "Usage: git remote rm \n"; + } + else { + rm_remote($ARGV[1]); + } + exit(1); +} else { print STDERR "Usage: git remote\n"; print STDERR " git remote add \n"; + print STDERR " git remote rm \n"; print STDERR " git remote show \n"; print STDERR " git remote prune \n"; print STDERR " git remote update [group]\n";