X-Git-Url: https://git.madduck.net/code/myrepos.git/blobdiff_plain/87aeee89afd99df4c3d15ba53e18ecf66deb96dd..3d2a8945576fea043684b12847ed647171111874:/mr

diff --git a/mr b/mr
index d4c3b25..44fb671 100755
--- a/mr
+++ b/mr
@@ -146,6 +146,11 @@ Be verbose.
 Expand the statistics line displayed at the end to include information
 about exactly which repositories failed and were skipped, if any.
 
+=item -n
+
+Just operate on the repository for the current directory, do not 
+recurse into deeper repositories.
+
 =back
 
 =head1 FILES
@@ -259,6 +264,7 @@ $ENV{MR_CONFIG}="$ENV{HOME}/.mrconfig";
 my $directory=getcwd();
 my $verbose=0;
 my $stats=0;
+my $no_recurse=0;
 my %config;
 my %knownactions;
 my %alias;
@@ -269,6 +275,7 @@ my $result=GetOptions(
 	"c|config=s" => sub { $ENV{MR_CONFIG}=abs_path($_[1]) },
 	"v|verbose" => \$verbose,
 	"s|stats" => \$stats,
+	"n|no-recurse" => \$no_recurse,
 );
 if (! $result || @ARGV < 1) {
 	die("Usage: mr [-d directory] action [params ...]\n".
@@ -316,7 +323,7 @@ elsif ($action eq 'config') {
 	}
 	my $section=shift;
 	if ($section=~/^\//) {
-		# try to convert to a path relative to $config's dir
+		# try to convert to a path relative to the config file
 		my ($dir)=$ENV{MR_CONFIG}=~/^(.*\/)[^\/]+$/;
 		if ($section=~/^\Q$dir\E(.*)/) {
 			$section=$1;
@@ -362,7 +369,8 @@ foreach my $topdir (sort keys %config) {
 		my $d=$directory;
 		$dir.="/" unless $dir=~/\/$/;
 		$d.="/" unless $d=~/\/$/;
-		next if $dir ne $directory && $dir !~ /^\Q$directory\E/;
+		next if $no_recurse && $d ne $dir;
+		next if $dir ne $d && $dir !~ /^\Q$d\E/;
 		push @repos, [$dir, $topdir, $subdir];
 	}
 }
@@ -426,7 +434,13 @@ sub action { #{{{
 			push @skipped, $dir;
 			return;
 		}
+
 		$dir=~s/^(.*)\/[^\/]+\/?$/$1/;
+
+		if (! -d $dir) {
+			print "mr $action: creating parent directory $dir\n" if $verbose;
+			my $ret=system("mkdir", "-p", $dir);
+		}
 	}
 	elsif ($action eq 'update') {
 		if (! -d $dir) {
@@ -531,7 +545,7 @@ if ($stats) {
 		print "mr $action: (skipped: ".join(" ", @skipped).")\n";
 	}
 	if (@failed) {
-		print "mr $action: (failed: ".join(" ", @failed).")\n";
+		print STDERR "mr $action: (failed: ".join(" ", @failed).")\n";
 	}
 }
 if (@failed) {