All patches and comments are welcome. Please squash your changes to logical
commits before using git-format-patch and git-send-email to
patches@git.madduck.net.
If you'd read over the Git project's submission guidelines and adhered to them,
I'd be especially grateful.
5 mr - a tool to manage all your version control repos
9 B<mr> [options] checkout
11 B<mr> [options] update
13 B<mr> [options] status
15 B<mr> [options] commit [-m "message"]
17 B<mr> [options] record [-m "message"]
27 B<mr> [options] grep pattern
29 B<mr> [options] run command [param ...]
31 B<mr> [options] bootstrap src [directory]
33 B<mr> [options] register [repository]
35 B<mr> [options] config section ["parameter=[value]" ...]
37 B<mr> [options] action [params ...]
39 B<mr> [options] [online|offline]
41 B<mr> [options] remember action [params ...]
45 B<mr> is a tool to manage all your version control repos. It can checkout,
46 update, or perform other actions on a set of repositories as if they were
47 one combined repository. It supports any combination of subversion, git,
48 cvs, mercurial, bzr, darcs, fossil and veracity repositories, and support
49 for other version control systems can easily be added.
51 B<mr> cds into and operates on all registered repositories at or below your
52 working directory. Or, if you are in a subdirectory of a repository that
53 contains no other registered repositories, it will stay in that directory,
54 and work on only that repository,
56 B<mr> is configured by .mrconfig files, which list the repositories. It
57 starts by reading the .mrconfig file in your home directory, and this can
58 in turn chain load .mrconfig files from repositories. It also automatically
59 looks for a .mrconfig file in the current directory, or in one of its
62 These predefined commands should be fairly familiar to users of any version
67 =item checkout (or co)
69 Checks out any repositories that are not already checked out.
73 Updates each repository from its configured remote repository.
75 If a repository isn't checked out yet, it will first check it out.
79 Displays a status report for each repository, showing what
80 uncommitted changes are present in the repository. For distributed version
81 control systems, also shows unpushed local branches.
85 Commits changes to each repository. (By default, changes are pushed to the
86 remote repository too, when using distributed systems like git. If you
87 don't like this default, you can change it in your .mrconfig, or use record
90 The optional -m parameter allows specifying a commit message.
94 Records changes to the local repository, but does not push them to the
95 remote repository. Only supported for distributed version control systems.
97 The optional -m parameter allows specifying a commit message.
101 Fetches from each repository's remote repository, but does not
102 update the working copy. Only supported for some distributed version
107 Pushes committed local changes to the remote repository. A no-op for
108 centralized version control systems.
112 Show a diff of uncommitted changes.
120 Searches for a pattern in each repository using the grep subcommand. Uses
121 ack-grep on VCS that do not have their own.
123 =item run command [param ...]
125 Runs the specified command in each repository.
129 These commands are also available:
133 =item bootstrap src [directory]
135 Causes mr to retrieve the source C<src> and use it as a .mrconfig file to
136 checkout the repositories listed in it, into the specified directory.
138 B<mr> understands several types of sources:
144 C<src> may be an URL understood by B<curl>.
148 To use B<scp> to download, the C<src> may have the form
149 C<ssh://[user@]host:file>.
153 You can retrieve the config file by other means and pass its B<path> as C<src>.
157 The directory will be created if it does not exist. If no directory is
158 specified, the current directory will be used.
160 As a special case, if source C<src> includes a repository named ".", that
161 is checked out into the top of the specified directory.
165 List the repositories that mr will act on.
169 Register an existing repository in a mrconfig file. By default, the
170 repository in the current directory is registered, or you can specify a
171 directory to register.
173 The mrconfig file that is modified is chosen by either the -c option, or by
174 looking for the closest known one at or in a parent of the current directory.
178 Adds, modifies, removes, or prints a value from a mrconfig file. The next
179 parameter is the name of the section the value is in. To add or modify
180 values, use one or more instances of "parameter=value". Use "parameter=" to
181 remove a parameter. Use just "parameter" to get the value of a parameter.
183 For example, to add (or edit) a repository in src/foo:
185 mr config src/foo checkout="svn co svn://example.com/foo/trunk foo"
187 To show the command that mr uses to update the repository in src/foo:
189 mr config src/foo update
191 To see the built-in library of shell functions contained in mr:
193 mr config DEFAULT lib
195 The mrconfig file that is used is chosen by either the -c option, or by
196 looking for the closest known one at or in a parent of the current directory.
200 Advises mr that it is in offline mode. Any commands that fail in
201 offline mode will be remembered, and retried when mr is told it's online.
205 Advices mr that it is in online mode again. Commands that failed while in
206 offline mode will be re-run.
210 Remember a command, to be run later when mr re-enters online mode. This
211 implicitly puts mr into offline mode. The command can be any regular mr
212 command. This is useful when you know that a command will fail due to being
213 offline, and so don't want to run it right now at all, but just remember
214 to run it when you go back online.
222 Actions can be abbreviated to any unambiguous substring, so
223 "mr st" is equivalent to "mr status", and "mr up" is equivalent to "mr
226 Additional parameters can be passed to most commands, and are passed on
227 unchanged to the underlying version control system. This is mostly useful
228 if the repositories mr will act on all use the same version control
237 =item --directory directory
239 Specifies the topmost directory that B<mr> should work in. The default is
240 the current working directory.
244 =item --config mrconfig
246 Use the specified mrconfig file. The default is to use both F<~/.mrconfig>
247 as well as look for a F<.mrconfig> file in the current directory, or in one
248 of its parent directories.
254 Force mr to act on repositories that would normally be skipped due to their
267 Be quiet. This suppresses mr's usual output, as well as any output from
268 commands that are run (including stderr output). If a command fails,
269 the output will be shown.
275 Accept untrusted SSL certificates when bootstrapping.
281 Expand the statistics line displayed at the end to include information
282 about exactly which repositories failed and were skipped, if any.
288 Interactive mode. If a repository fails to be processed, a subshell will be
289 started which you can use to resolve or investigate the problem. Exit the
290 subshell to continue the mr run.
294 =item --no-recurse [number]
296 If no number if specified, just operate on the repository for the current
297 directory, do not recurse into deeper repositories.
299 If a number is specified, will recurse into repositories at most that many
300 subdirectories deep. For example, with -n 2 it would recurse into ./src/foo,
301 but not ./src/packages/bar.
305 =item --jobs [number]
307 Run the specified number of jobs in parallel, or an unlimited number of jobs
308 with no number specified. This can greatly speed up operations such as updates.
309 It is not recommended for interactive operations.
311 Note that running more than 10 jobs at a time is likely to run afoul of
312 ssh connection limits. Running between 3 and 5 jobs at a time will yield
313 a good speedup in updates without loading the machine too much.
319 Trust all mrconfig files even if they are not listed in F<~/.mrtrust>.
326 This obsolete flag is ignored.
330 =head1 MRCONFIG FILES
332 Here is an example F<.mrconfig> file:
335 checkout = svn checkout svn://svn.example.com/src/trunk src
339 checkout = git clone git://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux-2.6.git &&
341 git checkout -b mybranch origin/master
343 The F<.mrconfig> file uses a variant of the INI file format. Lines
344 starting with "#" are comments. Values can be continued to the
345 following line by indenting the line with whitespace.
347 The C<DEFAULT> section allows setting default values for the sections that
350 The C<ALIAS> section allows adding aliases for actions. Each parameter
351 is an alias, and its value is the action to use.
353 All other sections add repositories. The section header specifies the
354 directory where the repository is located. This is relative to the directory
355 that contains the mrconfig file, but you can also choose to use absolute
356 paths. (Note that you can use environment variables in section names; they
357 will be passed through the shell for expansion. For example,
358 C<[$HOSTNAME]>, or C<[${HOSTNAME}foo]>).
360 Within a section, each parameter defines a shell command to run to handle a
361 given action. mr contains default handlers for "update", "status",
362 "commit", and other standard actions.
364 Normally you only need to specify what to do for "checkout". Here you
365 specify the command to run in order to create a checkout of the repository.
366 The command will be run in the parent directory, and must create the
367 repository's directory. So use C<git clone>, C<svn checkout>, C<bzr branch>
368 or C<bzr checkout> (for a bound branch), etc.
370 Note that these shell commands are run in a C<set -e> shell
371 environment, where any additional parameters you pass are available in
372 C<$@>. All commands other than "checkout" are run inside the repository,
373 though not necessarily at the top of it.
375 The C<MR_REPO> environment variable is set to the path to the top of the
376 repository. (For the "register" action, "MR_REPO" is instead set to the
377 basename of the directory that should be created when checking the
380 The C<MR_CONFIG> environment variable is set to the .mrconfig file
381 that defines the repo being acted on, or, if the repo is not yet in a config
382 file, the F<.mrconfig> file that should be modified to register the repo.
384 The C<MR_ACTION> environment variable is set to the command being run
385 (update, checkout, etc).
387 A few parameters have special meanings:
393 If the "skip" parameter is set and its command returns true, then B<mr>
394 will skip acting on that repository. The command is passed the action
397 Here are two examples. The first skips the repo unless
398 mr is run by joey. The second uses the hours_since function
399 (included in mr's built-in library) to skip updating the repo unless it's
400 been at least 12 hours since the last update.
404 skip = test `whoami` != joey
408 skip = [ "$1" = update ] && ! hours_since "$1" 12
410 Another way to use skip is for a lazy checkout. This makes mr skip
411 operating on a repo unless it already exists. To enable the
412 repo, you have to explicitly check it out (using "mr --force -d foo checkout").
420 The "order" parameter can be used to override the default ordering of
421 repositories. The default order value is 10. Use smaller values to make
422 repositories be processed earlier, and larger values to make repositories
425 Note that if a repository is located in a subdirectory of another
426 repository, ordering it to be processed earlier is not recommended.
430 If the "chain" parameter is set and its command returns true, then B<mr>
431 will try to load a F<.mrconfig> file from the root of the repository.
435 If the "include" parameter is set, its command is ran, and should output
436 additional mrconfig file content. The content is included as if it were
437 part of the including file.
439 Unlike all other parameters, this parameter does not need to be placed
442 B<mr> ships several libraries that can be included to add support for
443 additional version control type things (unison, git-svn, git-fake-bare,
444 git-subtree). To include them all, you could use:
446 include = cat /usr/share/mr/*
448 See the individual files for details.
452 If the "deleted" parameter is set and its command returns true, then
453 B<mr> will treat the repository as deleted. It won't ever actually delete
454 the repository, but it will warn if it sees the repository's directory.
455 This is useful when one mrconfig file is shared among multiple machines,
456 to keep track of and remember to delete old repositories.
460 The "lib" parameter can specify some shell code that will be run
461 before each command, this can be a useful way to define shell
462 functions for other commands to use.
464 Unlike most other parameters, this can be specified multiple times, in
465 which case the chunks of shell code are accumulatively concatenated
470 If the "fixups" parameter is set, its command is run whenever a repository
471 is checked out, or updated. This provides an easy way to do things
472 like permissions fixups, or other tweaks to the repository content,
473 whenever the repository is changed.
477 When looking for a command to run for a given action, mr first looks for
478 a parameter with the same name as the action. If that is not found, it
479 looks for a parameter named "VCS_action" (substituting in the name of the
480 version control system and the action).
482 Internally, mr has settings for "git_update", "svn_update", etc. To change
483 the action that is performed for a given version control system, you can
484 override these VCS specific actions. To add a new version control system,
485 you can just add VCS specific actions for it.
489 If a "pre_action" parameter is set, its command is run before mr performs the
490 specified action. Similarly, "post_action" parameters are run after mr
491 successfully performs the specified action. For example, "pre_commit" is
492 run before committing; "post_update" is run after updating.
496 Any parameter can be suffixed with C<_append>, to add an additional value
497 to the existing value of the parameter. In this way, actions
498 can be constructed accumulatively.
502 The name of the version control system is itself determined by
503 running each defined "VCS_test" action, until one succeeds.
507 =head1 UNTRUSTED MRCONFIG FILES
509 Since mrconfig files can contain arbitrary shell commands, they can do
510 anything. This flexibility is good, but it also allows a malicious mrconfig
511 file to delete your whole home directory. Such a file might be contained
512 inside a repository that your main F<~/.mrconfig> checks out. To
513 avoid worries about evil commands in a mrconfig file, mr defaults to
514 reading all mrconfig files other than the main F<~/.mrconfig> in untrusted
515 mode. In untrusted mode, mrconfig files are limited to running only known
516 safe commands (like "git clone") in a carefully checked manner.
518 To configure mr to trust other mrconfig files, list them in F<~/.mrtrust>.
519 One mrconfig file should be listed per line. Either the full pathname
520 should be listed, or the pathname can start with F<~/> to specify a file
521 relative to your home directory.
523 =head1 OFFLINE LOG FILE
525 The F<~/.mrlog> file contains commands that mr has remembered to run later,
526 due to being offline. You can delete or edit this file to remove commands,
527 or even to add other commands for 'mr online' to run. If the file is
528 present, mr assumes it is in offline mode.
532 mr can be extended to support things such as unison and git-svn. Some
533 files providing such extensions are available in F</usr/share/mr/>. See
534 the documentation in the files for details about using them.
538 mr returns nonzero if a command failed in any of the repositories.
542 Copyright 2007-2011 Joey Hess <joey@kitenet.net>
544 Licensed under the GNU GPL version 2 or higher.
546 http://myrepos.branchable.com/
553 use Cwd qw(getcwd abs_path);
555 # things that can happen when mr runs a command
564 my $config_overridden=0;
575 my $directory=getcwd();
577 my $HOME_MR_CONFIG = "$ENV{HOME}/.mrconfig";
578 $ENV{MR_CONFIG}=find_mrconfig();
585 my (@ok, @failed, @skipped);
595 # Runs a shell command using a supplied function.
596 # The lib will be included in the shell command line, and any params
597 # will be available in the shell as $1, $2, etc.
600 my ($action, $topdir, $subdir, $command, $params, $runner) = @_;
602 # optimisation: avoid running the shell for true and false
603 if ($command =~ /^\s*true\s*$/) {
607 elsif ($command =~ /^\s*false\s*$/) {
612 my $quotedparams=join(" ", (map { shellquote($_) } @$params));
613 my $lib=exists $config{$topdir}{$subdir}{lib} ?
614 $config{$topdir}{$subdir}{lib}."\n" : "";
615 if ($verbose && (! defined $lastlib || $lastlib ne $lib)) {
616 print "mr library now: >>$lib<<\n";
619 my $shellcode="set -e;".$lib.
620 "my_sh(){ $command\n }; my_sh $quotedparams";
621 print "mr $action: running $action >>$command<<\n" if $verbose;
622 $runner->($shellcode);
629 if ($s =~ m/^perl:\s+(.*)/s) {
630 return $perl_cache{$1} if exists $perl_cache{$1};
631 my $sub=eval "sub {$1}";
632 if (! defined $sub) {
633 print STDERR "mr: bad perl code in $id: $@\n";
635 return $perl_cache{$1} = $sub;
642 my ($action, $dir, $topdir, $subdir) = @_;
644 if (exists $vcs{$dir}) {
650 foreach my $vcs_test (
652 length $a <=> length $b
655 } grep { /_test$/ } keys %{$config{$topdir}{$subdir}}) {
656 my ($vcs)=$vcs_test =~ /(.*)_test/;
657 my $p=perl($vcs_test, $config{$topdir}{$subdir}{$vcs_test});
662 $test="my_$vcs_test() {\n$config{$topdir}{$subdir}{$vcs_test}\n}\n".$test;
663 $test.="if my_$vcs_test; then echo $vcs; fi\n";
668 foreach my $vcs (keys %perltest) {
669 if ($perltest{$vcs}->()) {
674 push @vcs, split(/\n/,
675 runsh("vcs test", $topdir, $subdir, $test, [], sub {
681 print STDERR "mr $action: found multiple possible repository types (@vcs) for ".fulldir($topdir, $subdir)."\n";
685 return $vcs{$dir}=undef;
688 return $vcs{$dir}=$vcs[0];
693 my ($action, $dir, $topdir, $subdir, $is_checkout) = @_;
695 if (exists $config{$topdir}{$subdir}{$action}) {
696 return $config{$topdir}{$subdir}{$action};
703 my $vcs=vcs_test(@_);
706 exists $config{$topdir}{$subdir}{$vcs."_".$action}) {
707 return $config{$topdir}{$subdir}{$vcs."_".$action};
715 my ($topdir, $subdir) = @_;
716 return $subdir =~ /^\// ? $subdir : $topdir.$subdir;
720 my ($action, $dir, $topdir, $subdir, $force_checkout) = @_;
721 my $fulldir=fulldir($topdir, $subdir);
724 $ENV{MR_CONFIG}=$configfiles{$topdir};
725 my $is_checkout=($action eq 'checkout');
726 my $is_update=($action =~ /update/);
728 ($ENV{MR_REPO}=$dir) =~ s!/$!!;
729 $ENV{MR_ACTION}=$action;
731 foreach my $testname ("skip", "deleted") {
732 next if $force && $testname eq "skip";
734 my $testcommand=findcommand($testname, $dir, $topdir, $subdir, $is_checkout);
736 if (defined $testcommand) {
737 my $ret=runsh "$testname test", $topdir, $subdir,
738 $testcommand, [$action],
739 sub { system(shift()) };
741 if (($? & 127) == 2) {
742 print STDERR "mr $action: interrupted\n";
746 print STDERR "mr $action: $testname test received signal ".($? & 127)."\n";
750 if ($ret >> 8 == 0) {
751 if ($testname eq "deleted") {
753 print STDERR "mr error: $dir should be deleted yet still exists\n";
757 print "mr $action: skip $dir skipped\n" if $verbose;
765 if (! $force_checkout) {
767 print "mr $action: $dir already exists, skipping checkout\n" if $verbose;
771 $dir=~s/^(.*)\/[^\/]+\/?$/$1/;
776 return action("checkout", $dir, $topdir, $subdir);
780 my $command=findcommand($action, $dir, $topdir, $subdir, $is_checkout);
782 if ($is_checkout && ! -d $dir) {
783 print "mr $action: creating parent directory $dir\n" if $verbose;
784 system("mkdir", "-p", $dir);
787 if (! $no_chdir && ! chdir($dir)) {
788 print STDERR "mr $action: failed to chdir to $dir: $!\n";
791 elsif (! defined $command) {
792 my $vcs=vcs_test(@_);
793 if (! defined $vcs) {
794 print STDERR "mr $action: unknown repository type and no defined $action command for $fulldir\n";
798 print STDERR "mr $action: no defined action for $vcs repository $fulldir, skipping\n";
805 $actionmsg="mr $action: $fulldir";
809 $s=~s/^\Q$fulldir\E\/?//;
810 $actionmsg="mr $action: $fulldir (in subdir $s)";
812 print "$actionmsg\n" unless $quiet;
814 my $hookret=hook("pre_$action", $topdir, $subdir);
815 return $hookret if $hookret != OK;
817 my $ret=runsh $action, $topdir, $subdir,
818 $command, \@ARGV, sub {
821 my $output = qx/$sh 2>&1/;
824 print "$actionmsg\n";
825 print STDERR $output;
834 if (($? & 127) == 2) {
835 print STDERR "mr $action: interrupted\n";
839 print STDERR "mr $action: received signal ".($? & 127)."\n";
842 print STDERR "mr $action: failed ($ret)\n" if $verbose;
843 if ($ret >> 8 != 0) {
844 print STDERR "mr $action: command failed\n";
845 if (-e "$ENV{HOME}/.mrlog" && $action ne 'remember') {
846 # recreate original command line to
847 # remember, and avoid recursing
849 @ARGV=('-n', $action, @orig);
850 action("remember", $dir, $topdir, $subdir);
855 print STDERR "mr $action: command died ($ret)\n";
860 if ($is_checkout && ! -d $dir) {
861 print STDERR "mr $action: $dir missing after checkout\n";;
865 my $ret=hook("post_$action", $topdir, $subdir);
866 return $ret if $ret != OK;
868 if ($is_checkout || $is_update) {
869 if ($is_checkout && ! $no_chdir) {
870 if (! chdir($checkout_dir)) {
871 print STDERR "mr $action: failed to chdir to $checkout_dir: $!\n";
875 my $ret=hook("fixups", $topdir, $subdir);
876 return $ret if $ret != OK;
885 my ($hook, $topdir, $subdir) = @_;
887 my $command=$config{$topdir}{$subdir}{$hook};
888 return OK unless defined $command;
889 my $ret=runsh $hook, $topdir, $subdir, $command, [], sub {
892 my $output = qx/$sh 2>&1/;
895 print STDERR $output;
904 if (($? & 127) == 2) {
905 print STDERR "mr $hook: interrupted\n";
909 print STDERR "mr $hook: received signal ".($? & 127)."\n";
920 # run actions on multiple repos, in parallel
930 while (@fhs or @repos) {
931 while ((!$jobs || $running < $jobs) && @repos) {
933 my $repo = shift @repos;
934 pipe(my $outfh, CHILD_STDOUT);
935 pipe(my $errfh, CHILD_STDERR);
937 unless ($pid = fork) {
938 die "mr $action: cannot fork: $!" unless defined $pid;
939 open(STDOUT, ">&CHILD_STDOUT") || die "mr $action cannot reopen stdout: $!";
940 open(STDERR, ">&CHILD_STDERR") || die "mr $action cannot reopen stderr: $!";
945 exit action($action, @$repo);
949 push @active, [$pid, $repo];
950 push @fhs, [$outfh, $errfh];
953 my ($rin, $rout) = ('','');
955 foreach my $fh (@fhs) {
956 next unless defined $fh;
957 vec($rin, fileno($fh->[0]), 1) = 1 if defined $fh->[0];
958 vec($rin, fileno($fh->[1]), 1) = 1 if defined $fh->[1];
960 $nfound = select($rout=$rin, undef, undef, 1);
961 foreach my $channel (0, 1) {
962 foreach my $i (0..$#fhs) {
963 next unless defined $fhs[$i];
964 my $fh = $fhs[$i][$channel];
965 next unless defined $fh;
966 if (vec($rout, fileno($fh), 1) == 1) {
968 if (sysread($fh, $r, 1024) == 0) {
970 $fhs[$i][$channel] = undef;
971 if (! defined $fhs[$i][0] &&
972 ! defined $fhs[$i][1]) {
973 waitpid($active[$i][0], 0);
974 print STDOUT $out[$i][0];
975 print STDERR $out[$i][1];
976 record($active[$i][1], $? >> 8);
978 splice(@active, $i, 1);
983 $out[$i][$channel] .= $r;
991 my $dir=shift()->[0];
996 print "\n" unless $quiet;
998 elsif ($ret == FAILED) {
1000 chdir($dir) unless $no_chdir;
1001 print STDERR "mr: Starting interactive shell. Exit shell to continue.\n";
1002 system((getpwuid($<))[8], "-i");
1005 print "\n" unless $quiet;
1007 elsif ($ret == SKIPPED) {
1008 push @skipped, $dir;
1010 elsif ($ret == ABORT) {
1014 die "unknown exit status $ret";
1020 if (! @ok && ! @failed && ! @skipped) {
1021 die "mr $action: no repositories found to work on\n";
1023 print "mr $action: finished (".join("; ",
1024 showstat($#ok+1, "ok", "ok"),
1025 showstat($#failed+1, "failed", "failed"),
1026 showstat($#skipped+1, "skipped", "skipped"),
1027 ).")\n" unless $quiet;
1030 print "mr $action: (skipped: ".join(" ", @skipped).")\n" unless $quiet;
1033 print STDERR "mr $action: (failed: ".join(" ", @failed).")\n";
1043 return "$count ".($count > 1 ? $plural : $singular);
1048 # an ordered list of repos
1051 foreach my $topdir (sort keys %config) {
1052 foreach my $subdir (sort keys %{$config{$topdir}}) {
1056 order => $config{$topdir}{$subdir}{order},
1061 $a->{order} <=> $b->{order}
1063 $a->{topdir} cmp $b->{topdir}
1065 $a->{subdir} cmp $b->{subdir}
1071 my $topdir=$repo->{topdir};
1072 my $subdir=$repo->{subdir};
1073 my $ret=($subdir =~/^\//) ? $subdir : $topdir.$subdir;
1078 # Figure out which repos to act on. Returns a list of array refs
1081 # [ "$full_repo_path/", "$mr_config_path/", $section_header ]
1084 foreach my $repo (repolist()) {
1085 my $topdir=$repo->{topdir};
1086 my $subdir=$repo->{subdir};
1088 next if $subdir eq 'DEFAULT';
1089 my $dir=repodir($repo);
1091 $dir.="/" unless $dir=~/\/$/;
1092 $d.="/" unless $d=~/\/$/;
1093 next if $dir ne $d && $dir !~ /^\Q$d\E/;
1094 if (defined $max_depth) {
1095 my @a=split('/', $dir);
1096 my @b=split('/', $d);
1097 do { } while (@a && @b && shift(@a) eq shift(@b));
1098 next if @a > $max_depth || @b > $max_depth;
1100 push @repos, [$dir, $topdir, $subdir];
1103 # fallback to find a leaf repo
1104 foreach my $repo (reverse repolist()) {
1105 my $topdir=$repo->{topdir};
1106 my $subdir=$repo->{subdir};
1108 next if $subdir eq 'DEFAULT';
1109 my $dir=repodir($repo);
1111 $dir.="/" unless $dir=~/\/$/;
1112 $d.="/" unless $d=~/\/$/;
1113 if ($d=~/^\Q$dir\E/) {
1114 push @repos, [$dir, $topdir, $subdir];
1136 sub is_trusted_config {
1137 my $config=shift; # must be abs_pathed already
1139 # We always trust ~/.mrconfig.
1140 return 1 if $config eq abs_path($HOME_MR_CONFIG);
1142 return 1 if $trust_all;
1144 my $trustfile=$ENV{HOME}."/.mrtrust";
1147 $trusted{$HOME_MR_CONFIG}=1;
1148 if (open (TRUST, "<", $trustfile)) {
1151 s/^~\//$ENV{HOME}\//;
1152 $trusted{abs_path($_)}=1;
1158 return $trusted{$config};
1162 sub is_trusted_repo {
1165 # Tightly limit what is allowed in a repo name.
1166 # No ../, no absolute paths, and no unusual filenames
1167 # that might try to escape to the shell.
1168 return $repo =~ /^[-_.+\/A-Za-z0-9]+$/ &&
1169 $repo !~ /\.\./ && $repo !~ /^\//;
1172 sub is_trusted_checkout {
1175 # To determine if the command is safe, compare it with the
1176 # *_trusted_checkout config settings. Those settings are
1177 # templates for allowed commands, so make sure that each word
1178 # of the command matches the corresponding word of the template.
1181 foreach my $word (split(' ', $command)) {
1183 if ($word=~/^'(.*)'$/) {
1186 elsif ($word=~/^"(.*)"$/) {
1193 foreach my $key (grep { /_trusted_checkout$/ }
1194 keys %{$config{''}{DEFAULT}}) {
1195 my @twords=split(' ', $config{''}{DEFAULT}{$key});
1196 next if @words > @twords;
1200 for (my $c=0; $c < @twords && $match; $c++) {
1201 if ($twords[$c] eq '$url') {
1202 # Match all the typical characters found in
1203 # urls, plus @ which svn can use. Note
1204 # that the "url" might also be a local
1207 defined $words[$c] &&
1208 $words[$c] =~ /^[-_.+:@\/A-Za-z0-9]+$/
1212 elsif ($twords[$c] eq '$repo') {
1213 # If a repo is not specified, assume it
1214 # will be the last path component of the
1215 # url, or something derived from it, and
1217 if (! defined $words[$c] && defined $url) {
1218 ($words[$c])=$url=~/\/([^\/]+)\/?$/;
1222 defined $words[$c] &&
1223 is_trusted_repo($words[$c])
1226 elsif (defined $words[$c] && $words[$c]=~/^($twords[$c])$/) {
1243 my $bootstrap_url=shift;
1249 if (ref $f eq 'GLOB') {
1255 my $absf=abs_path($f);
1256 if ($loaded{$absf}) {
1261 $trusted=is_trusted_config($absf);
1263 if (! defined $dir) {
1264 ($dir)=$f=~/^(.*\/)[^\/]+$/;
1265 if (! defined $dir) {
1270 $dir=abs_path($dir)."/";
1272 if (! exists $configfiles{$dir}) {
1273 $configfiles{$dir}=$f;
1276 # copy in defaults from first parent
1278 while ($parent=~s/^(.*\/)[^\/]+\/?$/$1/) {
1279 if ($parent eq '/') {
1282 if (exists $config{$parent} &&
1283 exists $config{$parent}{DEFAULT}) {
1284 $config{$dir}{DEFAULT}={ %{$config{$parent}{DEFAULT}} };
1293 print "mr: loading config $f\n" if $verbose;
1294 open($in, "<", $f) || die "mr: open $f: $!\n";
1297 close $in unless ref $f eq 'GLOB';
1301 # Keep track of the current line in the config file;
1302 # when a file is included track the current line from the include.
1307 my $nextline = sub {
1319 my $lineerror = sub {
1321 if (defined $included) {
1322 die "mr: $msg at $f line $lineno, included line: $line\n";
1325 die "mr: $msg at $f line $lineno\n";
1328 my $trusterror = sub {
1331 if (defined $bootstrap_url) {
1332 die "mr: $msg in untrusted $bootstrap_url line $lineno\n".
1333 "(To trust this url, --trust-all can be used; but please use caution;\n".
1334 "this can allow arbitrary code execution!)\n";
1337 die "mr: $msg in untrusted $f line $lineno\n".
1338 "(To trust this file, list it in ~/.mrtrust.)\n";
1345 next if /^\s*\#/ || /^\s*$/;
1347 if (! $trusted && /[[:cntrl:]]/) {
1348 $trusterror->("illegal control character");
1351 if (/^\[([^\]]*)\]\s*$/) {
1355 if (! is_trusted_repo($section) ||
1356 $section eq 'ALIAS' ||
1357 $section eq 'DEFAULT') {
1358 $trusterror->("illegal section \"[$section]\"");
1361 $section=expandenv($section) if $trusted;
1362 if ($section ne 'ALIAS' &&
1363 ! exists $config{$dir}{$section} &&
1364 exists $config{$dir}{DEFAULT}) {
1366 $config{$dir}{$section}={ %{$config{$dir}{DEFAULT}} };
1369 elsif (/^(\w+)\s*=\s*(.*)/) {
1374 while (@lines && $lines[0]=~/^\s(.+)/) {
1381 # Untrusted files can only contain a few
1382 # settings in specific known-safe formats.
1383 if ($parameter eq 'checkout') {
1384 if (! is_trusted_checkout($value)) {
1385 $trusterror->("illegal checkout command \"$value\"");
1388 elsif ($parameter eq 'order') {
1389 # not interpreted as a command, so
1392 elsif ($value eq 'true' || $value eq 'false') {
1393 # skip=true , deleted=true etc are
1397 $trusterror->("illegal setting \"$parameter=$value\"");
1401 if ($parameter eq "include") {
1402 print "mr: including output of \"$value\"\n" if $verbose;
1405 print STDERR "mr: include command exited nonzero ($?)\n";
1408 unshift @lines, @inc;
1412 if (! defined $section) {
1413 $lineerror->("parameter ($parameter) not in section");
1415 if ($section eq 'ALIAS') {
1416 $alias{$parameter}=$value;
1418 elsif ($parameter eq 'lib' or $parameter =~ s/_append$//) {
1419 $config{$dir}{$section}{$parameter}.="\n".$value."\n";
1422 $config{$dir}{$section}{$parameter}=$value;
1423 if ($parameter =~ /.*_(.*)/) {
1424 $knownactions{$1}=1;
1427 $knownactions{$parameter}=1;
1429 if ($parameter eq 'chain' &&
1430 length $dir && $section ne "DEFAULT") {
1431 my $chaindir="$section";
1432 if ($chaindir !~ m!^/!) {
1433 $chaindir=$dir.$chaindir;
1435 if (-e "$chaindir/.mrconfig") {
1436 my $ret=system($value);
1438 if (($? & 127) == 2) {
1439 print STDERR "mr: chain test interrupted\n";
1443 print STDERR "mr: chain test received signal ".($? & 127)."\n";
1447 push @toload, ["$chaindir/.mrconfig", $chaindir];
1454 $lineerror->("parse error");
1458 foreach my $c (@toload) {
1463 sub startingconfig {
1464 %alias=%config=%configfiles=%knownactions=%loaded=();
1465 my $datapos=tell(DATA);
1467 seek(DATA,$datapos,0); # rewind
1472 # the section to modify or add
1473 my $targetsection=shift;
1474 # fields to change in the section
1475 # To remove a field, set its value to "".
1476 my %changefields=@_;
1482 open(my $in, "<", $f) || die "mr: open $f: $!\n";
1487 my $formatfield=sub {
1489 my @value=split(/\n/, shift);
1491 return "$field = ".shift(@value)."\n".
1492 join("", map { "\t$_\n" } @value);
1496 while ($out[$#out] =~ /^\s*$/) {
1497 unshift @blanks, pop @out;
1499 foreach my $field (sort keys %changefields) {
1500 if (length $changefields{$field}) {
1501 push @out, "$field = $changefields{$field}\n";
1502 delete $changefields{$field};
1512 if (/^\s*\#/ || /^\s*$/) {
1515 elsif (/^\[([^\]]*)\]\s*$/) {
1516 if (defined $section &&
1517 $section eq $targetsection) {
1521 $section=expandenv($1);
1525 elsif (/^(\w+)\s*=\s(.*)/) {
1530 while (@lines && $lines[0]=~/^\s(.+)/) {
1536 if ($section eq $targetsection) {
1537 if (exists $changefields{$parameter}) {
1538 if (length $changefields{$parameter}) {
1539 $value=$changefields{$parameter};
1541 delete $changefields{$parameter};
1545 push @out, $formatfield->($parameter, $value);
1549 if (defined $section &&
1550 $section eq $targetsection) {
1553 elsif (%changefields) {
1554 push @out, "\n[$targetsection]\n";
1555 foreach my $field (sort keys %changefields) {
1556 if (length $changefields{$field}) {
1557 push @out, $formatfield->($field, $changefields{$field});
1562 open(my $out, ">", $f) || die "mr: write $f: $!\n";
1570 # actions that do not operate on all repos
1571 if ($action eq 'help') {
1574 elsif ($action eq 'config') {
1577 elsif ($action eq 'register') {
1580 elsif ($action eq 'bootstrap') {
1583 elsif ($action eq 'remember' ||
1584 $action eq 'offline' ||
1585 $action eq 'online') {
1586 my @repos=selectrepos;
1587 action($action, @{$repos[0]}) if @repos;
1591 if (!$jobs || $jobs > 1) {
1592 mrs($action, selectrepos());
1595 foreach my $repo (selectrepos()) {
1596 record($repo, action($action, @$repo));
1602 exec($config{''}{DEFAULT}{help}) || die "exec: $!";
1607 die "mr config: not enough parameters\n";
1610 if ($section=~/^\//) {
1611 # try to convert to a path relative to the config file
1612 my ($dir)=$ENV{MR_CONFIG}=~/^(.*\/)[^\/]+$/;
1613 $dir=abs_path($dir);
1614 $dir.="/" unless $dir=~/\/$/;
1615 if ($section=~/^\Q$dir\E(.*)/) {
1621 if (/^([^=]+)=(.*)$/) {
1622 $changefields{$1}=$2;
1626 foreach my $topdir (sort keys %config) {
1627 if (exists $config{$topdir}{$section} &&
1628 exists $config{$topdir}{$section}{$_}) {
1629 print $config{$topdir}{$section}{$_}."\n";
1631 last if $section eq 'DEFAULT';
1635 die "mr config: $section $_ not set\n";
1639 modifyconfig($ENV{MR_CONFIG}, $section, %changefields) if %changefields;
1644 if ($config_overridden) {
1645 # Find the directory that the specified config file is
1647 ($directory)=abs_path($ENV{MR_CONFIG})=~/^(.*\/)[^\/]+$/;
1650 # Find the closest known mrconfig file to the current
1652 $directory.="/" unless $directory=~/\/$/;
1654 foreach my $topdir (reverse sort keys %config) {
1655 next unless length $topdir;
1656 if ($directory=~/^\Q$topdir\E/) {
1657 $ENV{MR_CONFIG}=$configfiles{$topdir};
1663 if (! $foundconfig) {
1664 $directory=""; # no config file, use builtin
1668 my $subdir=shift @ARGV;
1669 if (! chdir($subdir)) {
1670 print STDERR "mr register: failed to chdir to $subdir: $!\n";
1674 $ENV{MR_REPO}=getcwd();
1675 my $command=findcommand("register", $ENV{MR_REPO}, $directory, 'DEFAULT', 0);
1676 if (! defined $command) {
1677 die "mr register: unknown repository type\n";
1680 $ENV{MR_REPO}=~s/.*\/(.*)/$1/;
1681 $command="set -e; ".$config{$directory}{DEFAULT}{lib}."\n".
1682 "my_action(){ $command\n }; my_action ".
1683 join(" ", map { s/\\/\\\\/g; s/"/\"/g; '"'.$_.'"' } @ARGV);
1684 print "mr register: running >>$command<<\n" if $verbose;
1685 exec($command) || die "exec: $!";
1689 eval q{use File::Copy};
1692 my $url=shift @ARGV;
1693 my $dir=shift @ARGV || ".";
1695 if (! defined $url || ! length $url) {
1696 die "mr: bootstrap requires source\n";
1699 # Retrieve config file.
1700 eval q{use File::Temp};
1702 my $tmpconfig=File::Temp->new();
1703 if ($url =~ m!^[\w\d]+://!) {
1704 # Download the config file to a temporary location.
1706 if ($url =~ m!^ssh://(.*)!) {
1707 @downloader = ("scp", $1, $tmpconfig);
1710 @downloader = ("curl", "-A", "mr", "-L", "-s", $url, "-o", $tmpconfig);
1711 push(@downloader, "-k") if $insecure;
1713 my $status = system(@downloader);
1714 die "mr bootstrap: invalid SSL certificate for $url (consider -k)\n"
1715 if $downloader[0] eq 'curl' && $status >> 8 == 60;
1716 die "mr bootstrap: download of $url failed\n" if $status != 0;
1719 # Config file is local.
1720 die "mr bootstrap: cannot read file '$url'"
1722 copy($url, $tmpconfig) || die "copy: $!";
1725 # Sanity check on destination directory.
1727 system("mkdir", "-p", $dir);
1729 chdir($dir) || die "chdir $dir: $!";
1731 # Special case to handle checkout of the "." repo, which
1732 # would normally be skipped.
1733 my $topdir=abs_path(".")."/";
1734 my @repo=($topdir, $topdir, ".");
1735 loadconfig($tmpconfig, $topdir, $url);
1736 record(\@repo, action("checkout", @repo, 1))
1737 if exists $config{$topdir}{"."}{"checkout"};
1739 if (-e ".mrconfig") {
1740 print STDERR "mr bootstrap: .mrconfig file already exists, not overwriting with $url\n";
1743 move($tmpconfig, ".mrconfig") || die "rename: $!";
1746 # Reload the config file (in case we got a different version)
1747 # and checkout everything else.
1749 loadconfig(".mrconfig");
1750 dispatch("checkout");
1751 @skipped=grep { abs_path($_) ne abs_path($topdir) } @skipped;
1752 showstats("bootstrap");
1756 # alias expansion and command stemming
1759 if (exists $alias{$action}) {
1760 $action=$alias{$action};
1762 if (! exists $knownactions{$action}) {
1763 my @matches = grep { /^\Q$action\E/ }
1764 keys %knownactions, keys %alias;
1765 if (@matches == 1) {
1766 $action=$matches[0];
1768 elsif (@matches == 0) {
1769 die "mr: unknown action \"$action\" (known actions: ".
1770 join(", ", sort keys %knownactions).")\n";
1773 die "mr: ambiguous action \"$action\" (matches: ".
1774 join(", ", @matches).")\n";
1782 while (length $dir) {
1783 if (-e "$dir/.mrconfig") {
1784 return "$dir/.mrconfig";
1786 $dir=~s/\/[^\/]*$//;
1788 return $HOME_MR_CONFIG;
1793 Getopt::Long::Configure("bundling", "no_permute");
1794 my $result=GetOptions(
1795 "d|directory=s" => sub { $directory=abs_path($_[1]) },
1796 "c|config=s" => sub { $ENV{MR_CONFIG}=$_[1]; $config_overridden=1 },
1797 "p|path" => sub { }, # now default, ignore
1798 "f|force" => \$force,
1799 "v|verbose" => \$verbose,
1800 "q|quiet" => \$quiet,
1801 "s|stats" => \$stats,
1802 "k|insecure" => \$insecure,
1803 "i|interactive" => \$interactive,
1804 "n|no-recurse:i" => \$max_depth,
1805 "j|jobs:i" => \$jobs,
1806 "t|trust-all" => \$trust_all,
1808 if (! $result || @ARGV < 1) {
1809 die("Usage: mr [options] action [params ...]\n".
1810 "(Use mr help for man page.)\n");
1813 $ENV{MR_SWITCHES}="";
1814 foreach my $option (@saved) {
1815 last if $option eq $ARGV[0];
1816 $ENV{MR_SWITCHES}.="$option ";
1822 print STDERR "mr: interrupted\n";
1826 # This can happen if it's run in a directory that was removed
1827 # or other strangeness.
1828 if (! defined $directory) {
1829 die("mr: failed to determine working directory\n");
1831 # Make sure MR_CONFIG is an absolute path, but don't use abs_path since
1832 # the config file might be a symlink to elsewhere, and the directory it's
1833 # in is significant.
1834 if ($ENV{MR_CONFIG} !~ /^\//) {
1835 $ENV{MR_CONFIG}=getcwd()."/".$ENV{MR_CONFIG};
1837 # Try to set MR_PATH to the path to the program.
1839 use FindBin qw($Bin $Script);
1840 $ENV{MR_PATH}=$Bin."/".$Script;
1858 loadconfig($HOME_MR_CONFIG);
1859 loadconfig($ENV{MR_CONFIG});
1860 #use Data::Dumper; print Dumper(\%config);
1862 my $action=expandaction(shift @ARGV);
1869 # Finally, some useful actions that mr knows about by default.
1870 # These can be overridden in ~/.mrconfig.
1885 echo "mr (warning): $@" >&2
1891 if [ -z "$1" ] || [ -z "$2" ]; then
1892 error "mr: usage: hours_since action num"
1894 for dir in .git .svn .bzr CVS .hg _darcs _FOSSIL_; do
1895 if [ -e "$MR_REPO/$dir" ]; then
1896 flagfile="$MR_REPO/$dir/.mr_last$1"
1900 if [ -z "$flagfile" ]; then
1901 error "cannot determine flag filename"
1903 delta=`perl -wle 'print -f shift() ? int((-M _) * 24) : 9999' "$flagfile"`
1904 if [ "$delta" -lt "$2" ]; then
1912 LANG=C bzr info | egrep -q '^Checkout'
1915 if [ -d "$MR_REPO" ]; then
1922 svn_test = perl: -d "$ENV{MR_REPO}/.svn"
1923 git_test = perl: -e "$ENV{MR_REPO}/.git"
1924 bzr_test = perl: -d "$ENV{MR_REPO}/.bzr"
1925 cvs_test = perl: -d "$ENV{MR_REPO}/CVS"
1926 hg_test = perl: -d "$ENV{MR_REPO}/.hg"
1927 darcs_test = perl: -d "$ENV{MR_REPO}/_darcs"
1928 fossil_test = perl: -f "$ENV{MR_REPO}/_FOSSIL_"
1929 git_bare_test = perl:
1930 -d "$ENV{MR_REPO}/refs/heads" && -d "$ENV{MR_REPO}/refs/tags" &&
1931 -d "$ENV{MR_REPO}/objects" && -f "$ENV{MR_REPO}/config" &&
1932 `GIT_CONFIG="$ENV{MR_REPO}"/config git config --get core.bare` =~ /true/
1934 -d "$ENV{MR_REPO}/refs/heads" && -d "$ENV{MR_REPO}/refs/tags" &&
1935 -d "$ENV{MR_REPO}/objects" && -f "$ENV{MR_REPO}/config" &&
1936 `GIT_CONFIG="$ENV{MR_REPO}"/config git config --get vcsh.vcsh` =~ /true/
1937 veracity_test = perl: -d "$ENV{MR_REPO}/.sgdrawer"
1939 svn_update = svn update "$@"
1940 git_update = git pull "$@"
1942 if is_bzr_checkout; then
1945 bzr merge --pull "$@"
1947 cvs_update = cvs -q update "$@"
1948 hg_update = hg pull "$@"; hg update "$@"
1949 darcs_update = darcs pull -a "$@"
1950 fossil_update = fossil pull "$@"
1951 vcsh_update = vcsh run "$MR_REPO" git pull "$@"
1952 veracity_update = vv pull "$@" && vv update "$@"
1954 git_fetch = git fetch --all --prune --tags
1955 git_svn_fetch = git svn fetch
1956 darcs_fetch = darcs fetch
1959 svn_status = svn status "$@"
1960 git_status = git status -s "$@" || true; git --no-pager log --branches --not --remotes --simplify-by-decoration --decorate --oneline || true
1961 bzr_status = bzr status --short "$@"; bzr missing
1962 cvs_status = cvs -q status | grep -E '^(File:.*Status:|\?)' | grep -v 'Status: Up-to-date'
1963 hg_status = hg status "$@"; hg summary --quiet | grep -v 'parent: 0:'
1964 darcs_status = darcs whatsnew -ls "$@" || true
1965 fossil_status = fossil changes "$@"
1966 vcsh_status = vcsh run "$MR_REPO" git -c status.relativePaths=false status -s "$@" || true
1967 veracity_status = vv status "$@"
1969 svn_commit = svn commit "$@"
1970 git_commit = git commit -a "$@" && git push --all
1972 if is_bzr_checkout; then
1975 bzr commit "$@" && bzr push
1977 cvs_commit = cvs commit "$@"
1978 hg_commit = hg commit "$@" && hg push
1979 darcs_commit = darcs record -a "$@" && darcs push -a
1980 fossil_commit = fossil commit "$@"
1981 vcsh_commit = vcsh run "$MR_REPO" git commit -a "$@" && vcsh run "$MR_REPO" git push --all
1982 veracity_commit = vv commit "$@" && vv push
1984 git_record = git commit -a "$@"
1986 if is_bzr_checkout; then
1987 bzr commit --local "$@"
1991 hg_record = hg commit "$@"
1992 darcs_record = darcs record -a "$@"
1993 fossil_record = fossil commit "$@"
1994 vcsh_record = vcsh run "$MR_REPO" git commit -a "$@"
1995 veracity_record = vv commit "$@"
1998 git_push = git push "$@"
1999 bzr_push = bzr push "$@"
2001 hg_push = hg push "$@"
2002 darcs_push = darcs push -a "$@"
2003 fossil_push = fossil push "$@"
2004 vcsh_push = vcsh run "$MR_REPO" git push "$@"
2005 veracity_push = vv push "$@"
2007 svn_diff = svn diff "$@"
2008 git_diff = git diff "$@"
2009 bzr_diff = bzr diff "$@"
2010 cvs_diff = cvs -q diff "$@"
2011 hg_diff = hg diff "$@"
2012 darcs_diff = darcs diff -u "$@"
2013 fossil_diff = fossil diff "$@"
2014 vcsh_diff = vcsh run "$MR_REPO" git diff "$@"
2015 veracity_diff = vv diff "$@"
2017 svn_log = svn log "$@"
2018 git_log = git log "$@"
2019 bzr_log = bzr log "$@"
2020 cvs_log = cvs log "$@"
2021 hg_log = hg log "$@"
2022 darcs_log = darcs changes "$@"
2023 git_bare_log = git log "$@"
2024 fossil_log = fossil timeline "$@"
2025 vcsh_log = vcsh run "$MR_REPO" git log "$@"
2026 veracity_log = vv log "$@"
2028 hg_grep = hg grep "$@"
2029 cvs_grep = ack-grep "$@"
2030 svn_grep = ack-grep "$@"
2031 git_svn_grep = git grep "$@"
2032 git_grep = git grep "$@"
2033 bzr_grep = ack-grep "$@"
2038 url=`LC_ALL=C svn info . | grep -i '^URL:' | cut -d ' ' -f 2`
2039 if [ -z "$url" ]; then
2040 error "cannot determine svn url"
2042 echo "Registering svn url: $url in $MR_CONFIG"
2043 mr -c "$MR_CONFIG" config "`pwd`" checkout="svn co '$url' '$MR_REPO'"
2045 url="`LC_ALL=C git config --get remote.origin.url`" || true
2046 if [ -z "$url" ]; then
2047 error "cannot determine git url"
2049 echo "Registering git url: $url in $MR_CONFIG"
2050 mr -c "$MR_CONFIG" config "`pwd`" checkout="git clone '$url' '$MR_REPO'"
2052 url="`LC_ALL=C bzr info . | egrep -i 'checkout of branch|parent branch' | awk '{print $NF}' | head -n 1`"
2053 if [ -z "$url" ]; then
2054 error "cannot determine bzr url"
2056 echo "Registering bzr url: $url in $MR_CONFIG"
2057 mr -c "$MR_CONFIG" config "`pwd`" checkout="bzr branch '$url' '$MR_REPO'"
2059 repo=`cat CVS/Repository`
2061 if [ -z "$root" ]; then
2062 error "cannot determine cvs root"
2064 echo "Registering cvs repository $repo at root $root"
2065 mr -c "$MR_CONFIG" config "`pwd`" checkout="cvs -d '$root' co -d '$MR_REPO' '$repo'"
2067 url=`hg showconfig paths.default`
2068 echo "Registering mercurial repo url: $url in $MR_CONFIG"
2069 mr -c "$MR_CONFIG" config "`pwd`" checkout="hg clone '$url' '$MR_REPO'"
2071 url=`cat _darcs/prefs/defaultrepo`
2072 echo "Registering darcs repository $url in $MR_CONFIG"
2073 mr -c "$MR_CONFIG" config "`pwd`" checkout="darcs get '$url' '$MR_REPO'"
2075 url="`LC_ALL=C GIT_CONFIG=config git config --get remote.origin.url`" || true
2076 if [ -z "$url" ]; then
2077 error "cannot determine git url"
2079 echo "Registering git url: $url in $MR_CONFIG"
2080 mr -c "$MR_CONFIG" config "`pwd`" checkout="git clone --bare '$url' '$MR_REPO'"
2082 url="`LC_ALL=C vcsh run "$MR_REPO" git config --get remote.origin.url`" || true
2083 if [ -z "$url" ]; then
2084 error "cannot determine git url"
2086 echo "Registering git url: $url in $MR_CONFIG"
2087 mr -c "$MR_CONFIG" config "`pwd`" checkout="vcsh clone '$url' '$MR_REPO'"
2089 url=`fossil remote-url`
2090 repo=`fossil info | grep repository | sed -e 's/repository:*.//g' -e 's/ //g'`
2091 echo "Registering fossil repository $url in $MR_CONFIG"
2092 mr -c "$MR_CONFIG" config "`pwd`" checkout="mkdir -p '$MR_REPO' && cd '$MR_REPO' && fossil open '$repo'"
2094 url=`vv config | grep sync_targets | sed -e 's/sync_targets:*.//g' -e 's/ //g'`
2095 repo=`vv repo info | grep repository | sed -e 's/Current repository:*.//g' -e 's/ //g'`
2096 echo "Registering veracity repository $url in $MR_CONFIG"
2097 mr -c "$MR_CONFIG" config "`pwd`" checkout="mkdir -p '$MR_REPO' && cd '$MR_REPO' && vv checkout '$repo'"
2099 svn_trusted_checkout = svn co $url $repo
2100 svn_alt_trusted_checkout = svn checkout $url $repo
2101 git_trusted_checkout = git clone $url $repo
2102 bzr_trusted_checkout = bzr checkout|clone|branch|get $url $repo
2104 hg_trusted_checkout = hg clone $url $repo
2105 darcs_trusted_checkout = darcs get $url $repo
2106 git_bare_trusted_checkout = git clone --bare $url $repo
2107 vcsh_trusted_checkout = vcsh run "$MR_REPO" git clone $url $repo
2108 # fossil: messy to do
2109 veracity_trusted_checkout = vv clone $url $repo
2115 SHOWMANFILE="man -f"
2124 if [ ! -e "$MR_PATH" ]; then
2125 error "cannot find program path"
2127 tmp=$(mktemp -t mr.XXXXXXXXXX) || error "mktemp failed"
2128 trap "rm -f $tmp" exit
2129 pod2man -c mr "$MR_PATH" > "$tmp" || error "pod2man failed"
2130 $SHOWMANFILE "$tmp" || error "man failed"
2136 if [ -s ~/.mrlog ]; then
2137 info "running offline commands"
2138 mv -f ~/.mrlog ~/.mrlog.old
2139 if ! sh -e ~/.mrlog.old; then
2140 error "offline command failed; left in ~/.mrlog.old"
2144 info "no offline commands to run"
2149 info "offline mode enabled"
2151 info "remembering command: 'mr $@'"
2152 command="mr -d '$(pwd)' $MR_SWITCHES"
2154 command="$command '$w'"
2156 if [ ! -e ~/.mrlog ] || ! grep -q -F "$command" ~/.mrlog; then
2157 echo "$command" >> ~/.mrlog
2160 ed = echo "A horse is a horse, of course, of course.."
2161 T = echo "I pity the fool."
2162 right = echo "Not found."
2164 # vim:sw=8:sts=0:ts=8:noet
2166 # indent-tabs-mode: t
2167 # cperl-indent-level: 8