From b33e29ce2ef806666f8bf7bee68abd97aa191076 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Wed, 17 Oct 2007 12:46:09 -0400
Subject: [PATCH] * mr register will now write to whatever config file is
 specified with -c

---
 debian/changelog |  3 ++-
 mr               | 18 +++++++++---------
 2 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index b7c4b1a..1eee9f5 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,8 +1,9 @@
 mr (0.3) UNRELEASED; urgency=low
 
   * Add a check to make sure the expected directory exists after checkout.
+  * mr register will now write to whatever config file is specified with -c
 
- -- Joey Hess <joeyh@debian.org>  Tue, 16 Oct 2007 19:51:14 -0400
+ -- Joey Hess <joeyh@debian.org>  Wed, 17 Oct 2007 12:45:28 -0400
 
 mr (0.2) unstable; urgency=low
 
diff --git a/mr b/mr
index 310f99a..50564f7 100755
--- a/mr
+++ b/mr
@@ -188,7 +188,7 @@ environment, where any additional parameters you pass are available in
 directory, since the repository isn't checked out yet. All other commands
 are run inside the repository, though not necessarily at the top of it.
 The "MR_REPO" environment variable is set to the path to the top of the
-repository.
+repository, and "MR_CONFIG" is set to the topmost .mrconfig file used.
 
 A few parameters have special meanings:
 
@@ -247,8 +247,8 @@ use strict;
 use Getopt::Long;
 use Cwd qw(getcwd abs_path);
 
+$ENV{MR_CONFIG}="$ENV{HOME}/.mrconfig";
 my $directory=getcwd();
-my $config="$ENV{HOME}/.mrconfig";
 my $verbose=0;
 my $stats=0;
 my %config;
@@ -258,7 +258,7 @@ my %alias;
 Getopt::Long::Configure("no_permute");
 my $result=GetOptions(
 	"d|directory=s" => sub { $directory=abs_path($_[1]) },
-	"c|config=s" => \$config,
+	"c|config=s" => \$ENV{MR_CONFIG},
 	"v|verbose" => \$verbose,
 	"s|stats" => \$stats,
 );
@@ -269,7 +269,7 @@ if (! $result || @ARGV < 1) {
 }
 
 loadconfig(\*DATA);
-loadconfig($config);
+loadconfig($ENV{MR_CONFIG});
 #use Data::Dumper;
 #print Dumper(\%config);
 
@@ -309,7 +309,7 @@ elsif ($action eq 'config') {
 	my $section=shift;
 	if ($section=~/^\//) {
 		# try to convert to a path relative to $config's dir
-		my ($dir)=$config=~/^(.*\/)[^\/]+$/;
+		my ($dir)=$ENV{MR_CONFIG}=~/^(.*\/)[^\/]+$/;
 		if ($section=~/^\Q$dir\E(.*)/) {
 			$section=$1;
 		}
@@ -333,7 +333,7 @@ elsif ($action eq 'config') {
 			}
 		}
 	}
-	modifyconfig($config, $section, %changefields) if %changefields;
+	modifyconfig($ENV{MR_CONFIG}, $section, %changefields) if %changefields;
 	exit 0;
 }
 elsif ($action eq 'register') {
@@ -811,21 +811,21 @@ register =
 			error "cannot determine svn url"
 		fi
 		echo "Registering svn url: $url"
-		mr config "$(pwd)" checkout="svn co $url $basedir"
+		mr -c "$MR_CONFIG" config "$(pwd)" checkout="svn co $url $basedir"
 	elif [ -d .git ]; then
 		url=$(LANG=C git-config --get remote.origin.url)
 		if [ -z "$url" ]; then
 			error "cannot determine git url"
 		fi
 		echo "Registering git url: $url"
-		mr config "$(pwd)" checkout="git clone $url $basedir"
+		mr -c "$MR_CONFIG" config "$(pwd)" checkout="git clone $url $basedir"
 	elif [ -d .bzr ]; then
 		url=$(cat .bzr/branch/parent)
 		if [ -z "$url" ]; then
 			error "cannot determine bzr url"
 		fi
 		echo "Registering bzr url: $url"
-		mr config "$(pwd)" checkout="bzr clone $url $basedir"
+		mr -c "$MR_CONFIG" config "$(pwd)" checkout="bzr clone $url $basedir"
 	else
 		error "unable to register this repo type"
 	fi
-- 
2.39.5