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 Multiple Repository management tool
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"]
25 B<mr> [options] run command [param ...]
27 B<mr> [options] bootstrap url [directory]
29 B<mr> [options] register [repository]
31 B<mr> [options] config section ["parameter=[value]" ...]
33 B<mr> [options] action [params ...]
35 B<mr> [options] [online|offline]
37 B<mr> [options] remember action [params ...]
41 B<mr> is a Multiple Repository management tool. It can checkout, update, or
42 perform other actions on a set of repositories as if they were one combined
43 repository. It supports any combination of subversion, git, cvs, mercurial,
44 bzr, darcs and fossil repositories, and support for other version
45 control systems can easily be added.
47 B<mr> cds into and operates on all registered repositories at or below your
48 working directory. Or, if you are in a subdirectory of a repository that
49 contains no other registered repositories, it will stay in that directory,
50 and work on only that repository,
52 B<mr> is configured by .mrconfig files, which list the repositories. It
53 starts by reading the .mrconfig file in your home directory, and this can
54 in turn chain load .mrconfig files from repositories. It also automatically
55 looks for a .mrconfig file in the current directory, or in one of its
58 These predefined commands should be fairly familiar to users of any version
63 =item checkout (or co)
65 Checks out any repositories that are not already checked out.
69 Updates each repository from its configured remote repository.
71 If a repository isn't checked out yet, it will first check it out.
75 Displays a status report for each repository, showing what
76 uncommitted changes are present in the repository.
80 Commits changes to each repository. (By default, changes are pushed to the
81 remote repository too, when using distributed systems like git. If you
82 don't like this default, you can change it in your .mrconfig, or use record
85 The optional -m parameter allows specifying a commit message.
89 Records changes to the local repository, but does not push them to the
90 remote repository. Only supported for distributed version control systems.
92 The optional -m parameter allows specifying a commit message.
96 Pushes committed local changes to the remote repository. A no-op for
97 centralized version control systems.
101 Show a diff of uncommitted changes.
107 =item run command [param ...]
109 Runs the specified command in each repository.
113 These commands are also available:
117 =item bootstrap url [directory]
119 Causes mr to download the url, and use it as a .mrconfig file
120 to checkout the repositories listed in it, into the specified directory.
122 The directory will be created if it does not exist. If no directory is
123 specified, the current directory will be used.
125 If the .mrconfig file includes a repository named ".", that
126 is checked out into the top of the specified directory.
130 List the repositories that mr will act on.
134 Register an existing repository in a mrconfig file. By default, the
135 repository in the current directory is registered, or you can specify a
136 directory to register.
138 The mrconfig file that is modified is chosen by either the -c option, or by
139 looking for the closest known one at or in a parent of the current directory.
143 Adds, modifies, removes, or prints a value from a mrconfig file. The next
144 parameter is the name of the section the value is in. To add or modify
145 values, use one or more instances of "parameter=value". Use "parameter=" to
146 remove a parameter. Use just "parameter" to get the value of a parameter.
148 For example, to add (or edit) a repository in src/foo:
150 mr config src/foo checkout="svn co svn://example.com/foo/trunk foo"
152 To show the command that mr uses to update the repository in src/foo:
154 mr config src/foo update
156 To see the built-in library of shell functions contained in mr:
158 mr config DEFAULT lib
160 The mrconfig file that is used is chosen by either the -c option, or by
161 looking for the closest known one at or in a parent of the current directory.
165 Advises mr that it is in offline mode. Any commands that fail in
166 offline mode will be remembered, and retried when mr is told it's online.
170 Advices mr that it is in online mode again. Commands that failed while in
171 offline mode will be re-run.
175 Remember a command, to be run later when mr re-enters online mode. This
176 implicitly puts mr into offline mode. The command can be any regular mr
177 command. This is useful when you know that a command will fail due to being
178 offline, and so don't want to run it right now at all, but just remember
179 to run it when you go back online.
187 Actions can be abbreviated to any unambiguous substring, so
188 "mr st" is equivalent to "mr status", and "mr up" is equivalent to "mr
191 Additional parameters can be passed to most commands, and are passed on
192 unchanged to the underlying version control system. This is mostly useful
193 if the repositories mr will act on all use the same version control
202 =item --directory directory
204 Specifies the topmost directory that B<mr> should work in. The default is
205 the current working directory.
209 =item --config mrconfig
211 Use the specified mrconfig file. The default is to use both F<~/.mrconfig>
212 as well as look for a F<.mrconfig> file in the current directory, or in one
213 of its parent directories.
219 Force mr to act on repositories that would normally be skipped due to their
232 Be quiet. This suppresses mr's usual output, as well as any output from
233 commands that are run (including stderr output). If a command fails,
234 the output will be shown.
240 Accept untrusted SSL certificates when bootstrapping.
246 Expand the statistics line displayed at the end to include information
247 about exactly which repositories failed and were skipped, if any.
253 Interactive mode. If a repository fails to be processed, a subshell will be
254 started which you can use to resolve or investigate the problem. Exit the
255 subshell to continue the mr run.
259 =item --no-recurse [number]
261 If no number if specified, just operate on the repository for the current
262 directory, do not recurse into deeper repositories.
264 If a number is specified, will recurse into repositories at most that many
265 subdirectories deep. For example, with -n 2 it would recurse into ./src/foo,
266 but not ./src/packages/bar.
270 =item --jobs [number]
272 Run the specified number of jobs in parallel, or an unlimited number of jobs
273 with no number specified. This can greatly speed up operations such as updates.
274 It is not recommended for interactive operations.
276 Note that running more than 10 jobs at a time is likely to run afoul of
277 ssh connection limits. Running between 3 and 5 jobs at a time will yield
278 a good speedup in updates without loading the machine too much.
284 Trust all mrconfig files even if they are not listed in F<~/.mrtrust>.
291 This obsolete flag is ignored.
295 =head1 MRCONFIG FILES
297 Here is an example F<.mrconfig> file:
300 checkout = svn checkout svn://svn.example.com/src/trunk src
304 checkout = git clone git://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux-2.6.git &&
306 git checkout -b mybranch origin/master
308 The F<.mrconfig> file uses a variant of the INI file format. Lines
309 starting with "#" are comments. Values can be continued to the
310 following line by indenting the line with whitespace.
312 The C<DEFAULT> section allows setting default values for the sections that
315 The C<ALIAS> section allows adding aliases for actions. Each parameter
316 is an alias, and its value is the action to use.
318 All other sections add repositories. The section header specifies the
319 directory where the repository is located. This is relative to the directory
320 that contains the mrconfig file, but you can also choose to use absolute
321 paths. (Note that you can use environment variables in section names; they
322 will be passed through the shell for expansion. For example,
323 C<[$HOSTNAME]>, or C<[${HOSTNAME}foo]>).
325 Within a section, each parameter defines a shell command to run to handle a
326 given action. mr contains default handlers for "update", "status",
327 "commit", and other standard actions.
329 Normally you only need to specify what to do for "checkout". Here you
330 specify the command to run in order to create a checkout of the repository.
331 The command will be run in the parent directory, and must create the
332 repository's directory. So use C<git clone>, C<svn checkout>, C<bzr branch>
333 or C<bzr checkout> (for a bound branch), etc.
335 Note that these shell commands are run in a C<set -e> shell
336 environment, where any additional parameters you pass are available in
337 C<$@>. All commands other than "checkout" are run inside the repository,
338 though not necessarily at the top of it.
340 The C<MR_REPO> environment variable is set to the path to the top of the
341 repository. (For the "register" action, "MR_REPO" is instead set to the
342 basename of the directory that should be created when checking the
345 The C<MR_CONFIG> environment variable is set to the .mrconfig file
346 that defines the repo being acted on, or, if the repo is not yet in a config
347 file, the F<.mrconfig> file that should be modified to register the repo.
349 The C<MR_ACTION> environment variable is set to the command being run
350 (update, checkout, etc).
352 A few parameters have special meanings:
358 If the "skip" parameter is set and its command returns true, then B<mr>
359 will skip acting on that repository. The command is passed the action
362 Here are two examples. The first skips the repo unless
363 mr is run by joey. The second uses the hours_since function
364 (included in mr's built-in library) to skip updating the repo unless it's
365 been at least 12 hours since the last update.
369 skip = test `whoami` != joey
373 skip = [ "$1" = update ] && ! hours_since "$1" 12
375 Another way to use skip is for a lazy checkout. This makes mr skip
376 operating on a repo unless it already exists. To enable the
377 repo, you have to explicitly check it out (using "mr --force -d foo checkout").
385 The "order" parameter can be used to override the default ordering of
386 repositories. The default order value is 10. Use smaller values to make
387 repositories be processed earlier, and larger values to make repositories
390 Note that if a repository is located in a subdirectory of another
391 repository, ordering it to be processed earlier is not recommended.
395 If the "chain" parameter is set and its command returns true, then B<mr>
396 will try to load a F<.mrconfig> file from the root of the repository.
400 If the "include" parameter is set, its command is ran, and should output
401 additional mrconfig file content. The content is included as if it were
402 part of the including file.
404 Unlike all other parameters, this parameter does not need to be placed
407 B<mr> ships several libraries that can be included to add support for
408 additional version control type things (unison, git-svn, vcsh, git-fake-bare,
409 git-subtree). To include them all, you could use:
411 include = cat /usr/share/mr/*
413 See the individual files for details.
417 If the "deleted" parameter is set and its command returns true, then
418 B<mr> will treat the repository as deleted. It won't ever actually delete
419 the repository, but it will warn if it sees the repository's directory.
420 This is useful when one mrconfig file is shared among multiple machines,
421 to keep track of and remember to delete old repositories.
425 The "lib" parameter can specify some shell code that will be run
426 before each command, this can be a useful way to define shell
427 functions for other commands to use.
429 Unlike most other parameters, this can be specified multiple times, in
430 which case the chunks of shell code are accumulatively concatenated
435 If the "fixups" parameter is set, its command is run whenever a repository
436 is checked out, or updated. This provides an easy way to do things
437 like permissions fixups, or other tweaks to the repository content,
438 whenever the repository is changed.
442 When looking for a command to run for a given action, mr first looks for
443 a parameter with the same name as the action. If that is not found, it
444 looks for a parameter named "VCS_action" (substituting in the name of the
445 version control system and the action).
447 Internally, mr has settings for "git_update", "svn_update", etc. To change
448 the action that is performed for a given version control system, you can
449 override these VCS specific actions. To add a new version control system,
450 you can just add VCS specific actions for it.
454 If a "pre_action" parameter is set, its command is run before mr performs the
455 specified action. Similarly, "post_action" parameters are run after mr
456 successfully performs the specified action. For example, "pre_commit" is
457 run before committing; "post_update" is run after updating.
461 Any parameter can be suffixed with C<_append>, to add an additional value
462 to the existing value of the parameter. In this way, actions
463 can be constructed accumulatively.
467 The name of the version control system is itself determined by
468 running each defined "VCS_test" action, until one succeeds.
472 This is a more optimised way to test for the version control system.
473 Each "VCS_dir_test" action is run once, and can output lines consisting
474 of the name of a VCS, and a directory to look for in the top of a repo
479 =head1 UNTRUSTED MRCONFIG FILES
481 Since mrconfig files can contain arbitrary shell commands, they can do
482 anything. This flexibility is good, but it also allows a malicious mrconfig
483 file to delete your whole home directory. Such a file might be contained
484 inside a repository that your main F<~/.mrconfig> checks out. To
485 avoid worries about evil commands in a mrconfig file, mr defaults to
486 reading all mrconfig files other than the main F<~/.mrconfig> in untrusted
487 mode. In untrusted mode, mrconfig files are limited to running only known
488 safe commands (like "git clone") in a carefully checked manner.
490 To configure mr to trust other mrconfig files, list them in F<~/.mrtrust>.
491 One mrconfig file should be listed per line. Either the full pathname
492 should be listed, or the pathname can start with F<~/> to specify a file
493 relative to your home directory.
495 =head1 OFFLINE LOG FILE
497 The F<~/.mrlog> file contains commands that mr has remembered to run later,
498 due to being offline. You can delete or edit this file to remove commands,
499 or even to add other commands for 'mr online' to run. If the file is
500 present, mr assumes it is in offline mode.
504 mr can be extended to support things such as unison and git-svn. Some
505 files providing such extensions are available in F</usr/share/mr/>. See
506 the documentation in the files for details about using them.
510 mr returns nonzero if a command failed in any of the repositories.
514 Copyright 2007-2011 Joey Hess <joey@kitenet.net>
516 Licensed under the GNU GPL version 2 or higher.
518 http://kitenet.net/~joey/code/mr/
525 use Cwd qw(getcwd abs_path);
527 # things that can happen when mr runs a command
536 my $config_overridden=0;
547 my $directory=getcwd();
549 my $HOME_MR_CONFIG = "$ENV{HOME}/.mrconfig";
550 $ENV{MR_CONFIG}=find_mrconfig();
557 my (@ok, @failed, @skipped);
567 # Runs a shell command using a supplied function.
568 # The lib will be included in the shell command line, and any params
569 # will be available in the shell as $1, $2, etc.
572 my ($action, $topdir, $subdir, $command, $params, $runner) = @_;
574 # optimisation: avoid running the shell for true and false
575 if ($command =~ /^\s*true\s*$/) {
579 elsif ($command =~ /^\s*false\s*$/) {
584 my $quotedparams=join(" ", (map { shellquote($_) } @$params));
585 my $lib=exists $config{$topdir}{$subdir}{lib} ?
586 $config{$topdir}{$subdir}{lib}."\n" : "";
587 if ($verbose && (! defined $lastlib || $lastlib ne $lib)) {
588 print "mr library now: >>$lib<<\n";
591 my $shellcode="set -e;".$lib.
592 "my_sh(){ $command\n }; my_sh $quotedparams";
593 print "mr $action: running $action >>$command<<\n" if $verbose;
594 $runner->($shellcode);
609 my ($action, $dir, $topdir, $subdir) = @_;
611 if (exists $vcs{$dir}) {
617 foreach my $vcs_test (
619 length $a <=> length $b
622 } grep { /_test$/ } keys %{$config{$topdir}{$subdir}}) {
623 if ($vcs_test =~ /(.*)_dir_test/) {
625 if (! defined $vcs_dir_test{$vcs}) {
626 $dir_test.=$config{$topdir}{$subdir}{$vcs_test}."\n";
630 my ($vcs)=$vcs_test =~ /(.*)_test/;
631 $test="my_$vcs_test() {\n$config{$topdir}{$subdir}{$vcs_test}\n}\n".$test;
632 $test.="if my_$vcs_test; then echo $vcs; fi\n";
635 if (length $dir_test) {
636 runsh "vcs dir test", $topdir, $subdir, $dir_test, [], sub {
638 foreach my $line (`$sh`) {
640 my ($vcs, $dir)=split(" ", $line);
641 $vcs_dir_test{$vcs}=$dir;
646 foreach my $vcs (keys %vcs_dir_test) {
647 if (-d "$ENV{MR_REPO}/$vcs_dir_test{$vcs}") {
648 return $vcs{$dir}=$vcs;
652 my $vcs=runshpipe "vcs test", $topdir, $subdir, $test, [];
655 print STDERR "mr $action: found multiple possible repository types ($vcs) for ".fulldir($topdir, $subdir)."\n";
659 return $vcs{$dir}=undef;
662 return $vcs{$dir}=$vcs;
667 my ($action, $dir, $topdir, $subdir, $is_checkout) = @_;
669 if (exists $config{$topdir}{$subdir}{$action}) {
670 return $config{$topdir}{$subdir}{$action};
677 my $vcs=vcs_test(@_);
680 exists $config{$topdir}{$subdir}{$vcs."_".$action}) {
681 return $config{$topdir}{$subdir}{$vcs."_".$action};
689 my ($topdir, $subdir) = @_;
690 return $subdir =~ /^\// ? $subdir : $topdir.$subdir;
694 my ($action, $dir, $topdir, $subdir, $force_checkout) = @_;
695 my $fulldir=fulldir($topdir, $subdir);
697 $ENV{MR_CONFIG}=$configfiles{$topdir};
698 my $is_checkout=($action eq 'checkout');
699 my $is_update=($action =~ /update/);
701 ($ENV{MR_REPO}=$dir) =~ s!/$!!;
702 $ENV{MR_ACTION}=$action;
704 foreach my $testname ("skip", "deleted") {
705 next if $force && $testname eq "skip";
707 my $testcommand=findcommand($testname, $dir, $topdir, $subdir, $is_checkout);
709 if (defined $testcommand) {
710 my $ret=runsh "$testname test", $topdir, $subdir,
711 $testcommand, [$action],
712 sub { system(shift()) };
714 if (($? & 127) == 2) {
715 print STDERR "mr $action: interrupted\n";
719 print STDERR "mr $action: $testname test received signal ".($? & 127)."\n";
723 if ($ret >> 8 == 0) {
724 if ($testname eq "deleted") {
726 print STDERR "mr error: $dir should be deleted yet still exists\n";
730 print "mr $action: skip $dir skipped\n" if $verbose;
737 if (! $force_checkout) {
739 print "mr $action: $dir already exists, skipping checkout\n" if $verbose;
743 $dir=~s/^(.*)\/[^\/]+\/?$/$1/;
748 return action("checkout", $dir, $topdir, $subdir);
752 my $command=findcommand($action, $dir, $topdir, $subdir, $is_checkout);
754 if ($is_checkout && ! -d $dir) {
755 print "mr $action: creating parent directory $dir\n" if $verbose;
756 system("mkdir", "-p", $dir);
759 if (! $no_chdir && ! chdir($dir)) {
760 print STDERR "mr $action: failed to chdir to $dir: $!\n";
763 elsif (! defined $command) {
764 my $vcs=vcs_test(@_);
765 if (! defined $vcs) {
766 print STDERR "mr $action: unknown repository type and no defined $action command for $fulldir\n";
770 print STDERR "mr $action: no defined action for $vcs repository $fulldir, skipping\n";
777 $actionmsg="mr $action: $fulldir";
781 $s=~s/^\Q$fulldir\E\/?//;
782 $actionmsg="mr $action: $fulldir (in subdir $s)";
784 print "$actionmsg\n" unless $quiet;
786 my $hookret=hook("pre_$action", $topdir, $subdir);
787 return $hookret if $hookret != OK;
789 my $ret=runsh $action, $topdir, $subdir,
790 $command, \@ARGV, sub {
793 my $output = qx/$sh 2>&1/;
796 print "$actionmsg\n";
797 print STDERR $output;
806 if (($? & 127) == 2) {
807 print STDERR "mr $action: interrupted\n";
811 print STDERR "mr $action: received signal ".($? & 127)."\n";
814 print STDERR "mr $action: failed ($ret)\n" if $verbose;
815 if ($ret >> 8 != 0) {
816 print STDERR "mr $action: command failed\n";
817 if (-e "$ENV{HOME}/.mrlog" && $action ne 'remember') {
818 # recreate original command line to
819 # remember, and avoid recursing
821 @ARGV=('-n', $action, @orig);
822 action("remember", $dir, $topdir, $subdir);
827 print STDERR "mr $action: command died ($ret)\n";
832 if ($is_checkout && ! -d $dir) {
833 print STDERR "mr $action: $dir missing after checkout\n";;
837 my $ret=hook("post_$action", $topdir, $subdir);
838 return $ret if $ret != OK;
840 if (($is_checkout || $is_update)) {
841 my $ret=hook("fixups", $topdir, $subdir);
842 return $ret if $ret != OK;
851 my ($hook, $topdir, $subdir) = @_;
853 my $command=$config{$topdir}{$subdir}{$hook};
854 return OK unless defined $command;
855 my $ret=runsh $hook, $topdir, $subdir, $command, [], sub {
858 my $output = qx/$sh 2>&1/;
861 print STDERR $output;
870 if (($? & 127) == 2) {
871 print STDERR "mr $hook: interrupted\n";
875 print STDERR "mr $hook: received signal ".($? & 127)."\n";
886 # run actions on multiple repos, in parallel
896 while (@fhs or @repos) {
897 while ((!$jobs || $running < $jobs) && @repos) {
899 my $repo = shift @repos;
900 pipe(my $outfh, CHILD_STDOUT);
901 pipe(my $errfh, CHILD_STDERR);
903 unless ($pid = fork) {
904 die "mr $action: cannot fork: $!" unless defined $pid;
905 open(STDOUT, ">&CHILD_STDOUT") || die "mr $action cannot reopen stdout: $!";
906 open(STDERR, ">&CHILD_STDERR") || die "mr $action cannot reopen stderr: $!";
911 exit action($action, @$repo);
915 push @active, [$pid, $repo];
916 push @fhs, [$outfh, $errfh];
919 my ($rin, $rout) = ('','');
921 foreach my $fh (@fhs) {
922 next unless defined $fh;
923 vec($rin, fileno($fh->[0]), 1) = 1 if defined $fh->[0];
924 vec($rin, fileno($fh->[1]), 1) = 1 if defined $fh->[1];
926 $nfound = select($rout=$rin, undef, undef, 1);
927 foreach my $channel (0, 1) {
928 foreach my $i (0..$#fhs) {
929 next unless defined $fhs[$i];
930 my $fh = $fhs[$i][$channel];
931 next unless defined $fh;
932 if (vec($rout, fileno($fh), 1) == 1) {
934 if (sysread($fh, $r, 1024) == 0) {
936 $fhs[$i][$channel] = undef;
937 if (! defined $fhs[$i][0] &&
938 ! defined $fhs[$i][1]) {
939 waitpid($active[$i][0], 0);
940 print STDOUT $out[$i][0];
941 print STDERR $out[$i][1];
942 record($active[$i][1], $? >> 8);
944 splice(@active, $i, 1);
949 $out[$i][$channel] .= $r;
957 my $dir=shift()->[0];
962 print "\n" unless $quiet;
964 elsif ($ret == FAILED) {
966 chdir($dir) unless $no_chdir;
967 print STDERR "mr: Starting interactive shell. Exit shell to continue.\n";
968 system((getpwuid($<))[8], "-i");
971 print "\n" unless $quiet;
973 elsif ($ret == SKIPPED) {
976 elsif ($ret == ABORT) {
980 die "unknown exit status $ret";
986 if (! @ok && ! @failed && ! @skipped) {
987 die "mr $action: no repositories found to work on\n";
989 print "mr $action: finished (".join("; ",
990 showstat($#ok+1, "ok", "ok"),
991 showstat($#failed+1, "failed", "failed"),
992 showstat($#skipped+1, "skipped", "skipped"),
993 ).")\n" unless $quiet;
996 print "mr $action: (skipped: ".join(" ", @skipped).")\n" unless $quiet;
999 print STDERR "mr $action: (failed: ".join(" ", @failed).")\n";
1009 return "$count ".($count > 1 ? $plural : $singular);
1014 # an ordered list of repos
1017 foreach my $topdir (sort keys %config) {
1018 foreach my $subdir (sort keys %{$config{$topdir}}) {
1022 order => $config{$topdir}{$subdir}{order},
1027 $a->{order} <=> $b->{order}
1029 $a->{topdir} cmp $b->{topdir}
1031 $a->{subdir} cmp $b->{subdir}
1037 my $topdir=$repo->{topdir};
1038 my $subdir=$repo->{subdir};
1039 my $ret=($subdir =~/^\//) ? $subdir : $topdir.$subdir;
1044 # Figure out which repos to act on. Returns a list of array refs
1047 # [ "$full_repo_path/", "$mr_config_path/", $section_header ]
1050 foreach my $repo (repolist()) {
1051 my $topdir=$repo->{topdir};
1052 my $subdir=$repo->{subdir};
1054 next if $subdir eq 'DEFAULT';
1055 my $dir=repodir($repo);
1057 $dir.="/" unless $dir=~/\/$/;
1058 $d.="/" unless $d=~/\/$/;
1059 next if $dir ne $d && $dir !~ /^\Q$d\E/;
1060 if (defined $max_depth) {
1061 my @a=split('/', $dir);
1062 my @b=split('/', $d);
1063 do { } while (@a && @b && shift(@a) eq shift(@b));
1064 next if @a > $max_depth || @b > $max_depth;
1066 push @repos, [$dir, $topdir, $subdir];
1069 # fallback to find a leaf repo
1070 foreach my $repo (reverse repolist()) {
1071 my $topdir=$repo->{topdir};
1072 my $subdir=$repo->{subdir};
1074 next if $subdir eq 'DEFAULT';
1075 my $dir=repodir($repo);
1077 $dir.="/" unless $dir=~/\/$/;
1078 $d.="/" unless $d=~/\/$/;
1079 if ($d=~/^\Q$dir\E/) {
1080 push @repos, [$dir, $topdir, $subdir];
1102 sub is_trusted_config {
1103 my $config=shift; # must be abs_pathed already
1105 # We always trust ~/.mrconfig.
1106 return 1 if $config eq abs_path($HOME_MR_CONFIG);
1108 return 1 if $trust_all;
1110 my $trustfile=$ENV{HOME}."/.mrtrust";
1113 $trusted{$HOME_MR_CONFIG}=1;
1114 if (open (TRUST, "<", $trustfile)) {
1117 s/^~\//$ENV{HOME}\//;
1118 $trusted{abs_path($_)}=1;
1124 return $trusted{$config};
1128 sub is_trusted_repo {
1131 # Tightly limit what is allowed in a repo name.
1132 # No ../, no absolute paths, and no unusual filenames
1133 # that might try to escape to the shell.
1134 return $repo =~ /^[-_.+\/A-Za-z0-9]+$/ &&
1135 $repo !~ /\.\./ && $repo !~ /^\//;
1138 sub is_trusted_checkout {
1141 # To determine if the command is safe, compare it with the
1142 # *_trusted_checkout config settings. Those settings are
1143 # templates for allowed commands, so make sure that each word
1144 # of the command matches the corresponding word of the template.
1147 foreach my $word (split(' ', $command)) {
1149 if ($word=~/^'(.*)'$/) {
1152 elsif ($word=~/^"(.*)"$/) {
1159 foreach my $key (grep { /_trusted_checkout$/ }
1160 keys %{$config{''}{DEFAULT}}) {
1161 my @twords=split(' ', $config{''}{DEFAULT}{$key});
1162 next if @words > @twords;
1166 for (my $c=0; $c < @twords && $match; $c++) {
1167 if ($twords[$c] eq '$url') {
1168 # Match all the typical characters found in
1169 # urls, plus @ which svn can use. Note
1170 # that the "url" might also be a local
1173 defined $words[$c] &&
1174 $words[$c] =~ /^[-_.+:@\/A-Za-z0-9]+$/
1178 elsif ($twords[$c] eq '$repo') {
1179 # If a repo is not specified, assume it
1180 # will be the last path component of the
1181 # url, or something derived from it, and
1183 if (! defined $words[$c] && defined $url) {
1184 ($words[$c])=$url=~/\/([^\/]+)\/?$/;
1188 defined $words[$c] &&
1189 is_trusted_repo($words[$c])
1192 elsif (defined $words[$c] && $words[$c]=~/^($twords[$c])$/) {
1209 my $bootstrap_url=shift;
1215 if (ref $f eq 'GLOB') {
1221 my $absf=abs_path($f);
1222 if ($loaded{$absf}) {
1227 $trusted=is_trusted_config($absf);
1229 if (! defined $dir) {
1230 ($dir)=$f=~/^(.*\/)[^\/]+$/;
1231 if (! defined $dir) {
1236 $dir=abs_path($dir)."/";
1238 if (! exists $configfiles{$dir}) {
1239 $configfiles{$dir}=$f;
1242 # copy in defaults from first parent
1244 while ($parent=~s/^(.*\/)[^\/]+\/?$/$1/) {
1245 if ($parent eq '/') {
1248 if (exists $config{$parent} &&
1249 exists $config{$parent}{DEFAULT}) {
1250 $config{$dir}{DEFAULT}={ %{$config{$parent}{DEFAULT}} };
1259 print "mr: loading config $f\n" if $verbose;
1260 open($in, "<", $f) || die "mr: open $f: $!\n";
1263 close $in unless ref $f eq 'GLOB';
1267 # Keep track of the current line in the config file;
1268 # when a file is included track the current line from the include.
1273 my $nextline = sub {
1285 my $lineerror = sub {
1287 if (defined $included) {
1288 die "mr: $msg at $f line $lineno, included line: $line\n";
1291 die "mr: $msg at $f line $lineno\n";
1294 my $trusterror = sub {
1296 my ($err, $file, $lineno, $url)=@_;
1298 if (defined $bootstrap_url) {
1299 die "mr: $err in untrusted $bootstrap_url line $lineno\n".
1300 "(To trust this url, --trust-all can be used; but please use caution;\n".
1301 "this can allow arbitrary code execution!)\n";
1304 die "mr: $err in untrusted $file line $lineno\n".
1305 "(To trust this file, list it in ~/.mrtrust.)\n";
1312 if (! $trusted && /[[:cntrl:]]/) {
1313 $trusterror->("illegal control character");
1316 next if /^\s*\#/ || /^\s*$/;
1317 if (/^\[([^\]]*)\]\s*$/) {
1321 if (! is_trusted_repo($section) ||
1322 $section eq 'ALIAS' ||
1323 $section eq 'DEFAULT') {
1324 $trusterror->("illegal section \"[$section]\"");
1327 $section=expandenv($section) if $trusted;
1328 if ($section ne 'ALIAS' &&
1329 ! exists $config{$dir}{$section} &&
1330 exists $config{$dir}{DEFAULT}) {
1332 $config{$dir}{$section}={ %{$config{$dir}{DEFAULT}} };
1335 elsif (/^(\w+)\s*=\s*(.*)/) {
1340 while (@lines && $lines[0]=~/^\s(.+)/) {
1347 # Untrusted files can only contain a few
1348 # settings in specific known-safe formats.
1349 if ($parameter eq 'checkout') {
1350 if (! is_trusted_checkout($value)) {
1351 $trusterror->("illegal checkout command \"$value\"");
1354 elsif ($parameter eq 'order') {
1355 # not interpreted as a command, so
1358 elsif ($value eq 'true' || $value eq 'false') {
1359 # skip=true , deleted=true etc are
1363 $trusterror->("illegal setting \"$parameter=$value\"");
1367 if ($parameter eq "include") {
1368 print "mr: including output of \"$value\"\n" if $verbose;
1371 print STDERR "mr: include command exited nonzero ($?)\n";
1374 unshift @lines, @inc;
1378 if (! defined $section) {
1379 $lineerror->("parameter ($parameter) not in section");
1381 if ($section eq 'ALIAS') {
1382 $alias{$parameter}=$value;
1384 elsif ($parameter eq 'lib' or $parameter =~ s/_append$//) {
1385 $config{$dir}{$section}{$parameter}.="\n".$value."\n";
1388 $config{$dir}{$section}{$parameter}=$value;
1389 if ($parameter =~ /.*_(.*)/) {
1390 $knownactions{$1}=1;
1393 $knownactions{$parameter}=1;
1395 if ($parameter eq 'chain' &&
1396 length $dir && $section ne "DEFAULT") {
1397 my $chaindir="$section";
1398 if ($chaindir !~ m!^/!) {
1399 $chaindir=$dir.$chaindir;
1401 if (-e "$chaindir/.mrconfig") {
1402 my $ret=system($value);
1404 if (($? & 127) == 2) {
1405 print STDERR "mr: chain test interrupted\n";
1409 print STDERR "mr: chain test received signal ".($? & 127)."\n";
1413 push @toload, ["$chaindir/.mrconfig", $chaindir];
1420 $lineerror->("parse error");
1424 foreach my $c (@toload) {
1429 sub startingconfig {
1430 %alias=%config=%configfiles=%knownactions=%loaded=();
1431 my $datapos=tell(DATA);
1433 seek(DATA,$datapos,0); # rewind
1438 # the section to modify or add
1439 my $targetsection=shift;
1440 # fields to change in the section
1441 # To remove a field, set its value to "".
1442 my %changefields=@_;
1448 open(my $in, "<", $f) || die "mr: open $f: $!\n";
1453 my $formatfield=sub {
1455 my @value=split(/\n/, shift);
1457 return "$field = ".shift(@value)."\n".
1458 join("", map { "\t$_\n" } @value);
1462 while ($out[$#out] =~ /^\s*$/) {
1463 unshift @blanks, pop @out;
1465 foreach my $field (sort keys %changefields) {
1466 if (length $changefields{$field}) {
1467 push @out, "$field = $changefields{$field}\n";
1468 delete $changefields{$field};
1478 if (/^\s*\#/ || /^\s*$/) {
1481 elsif (/^\[([^\]]*)\]\s*$/) {
1482 if (defined $section &&
1483 $section eq $targetsection) {
1487 $section=expandenv($1);
1491 elsif (/^(\w+)\s*=\s(.*)/) {
1496 while (@lines && $lines[0]=~/^\s(.+)/) {
1502 if ($section eq $targetsection) {
1503 if (exists $changefields{$parameter}) {
1504 if (length $changefields{$parameter}) {
1505 $value=$changefields{$parameter};
1507 delete $changefields{$parameter};
1511 push @out, $formatfield->($parameter, $value);
1515 if (defined $section &&
1516 $section eq $targetsection) {
1519 elsif (%changefields) {
1520 push @out, "\n[$targetsection]\n";
1521 foreach my $field (sort keys %changefields) {
1522 if (length $changefields{$field}) {
1523 push @out, $formatfield->($field, $changefields{$field});
1528 open(my $out, ">", $f) || die "mr: write $f: $!\n";
1536 # actions that do not operate on all repos
1537 if ($action eq 'help') {
1540 elsif ($action eq 'config') {
1543 elsif ($action eq 'register') {
1546 elsif ($action eq 'bootstrap') {
1549 elsif ($action eq 'remember' ||
1550 $action eq 'offline' ||
1551 $action eq 'online') {
1552 my @repos=selectrepos;
1553 action($action, @{$repos[0]}) if @repos;
1557 if (!$jobs || $jobs > 1) {
1558 mrs($action, selectrepos());
1561 foreach my $repo (selectrepos()) {
1562 record($repo, action($action, @$repo));
1568 exec($config{''}{DEFAULT}{help}) || die "exec: $!";
1573 die "mr config: not enough parameters\n";
1576 if ($section=~/^\//) {
1577 # try to convert to a path relative to the config file
1578 my ($dir)=$ENV{MR_CONFIG}=~/^(.*\/)[^\/]+$/;
1579 $dir=abs_path($dir);
1580 $dir.="/" unless $dir=~/\/$/;
1581 if ($section=~/^\Q$dir\E(.*)/) {
1587 if (/^([^=]+)=(.*)$/) {
1588 $changefields{$1}=$2;
1592 foreach my $topdir (sort keys %config) {
1593 if (exists $config{$topdir}{$section} &&
1594 exists $config{$topdir}{$section}{$_}) {
1595 print $config{$topdir}{$section}{$_}."\n";
1597 last if $section eq 'DEFAULT';
1601 die "mr config: $section $_ not set\n";
1605 modifyconfig($ENV{MR_CONFIG}, $section, %changefields) if %changefields;
1610 if ($config_overridden) {
1611 # Find the directory that the specified config file is
1613 ($directory)=abs_path($ENV{MR_CONFIG})=~/^(.*\/)[^\/]+$/;
1616 # Find the closest known mrconfig file to the current
1618 $directory.="/" unless $directory=~/\/$/;
1620 foreach my $topdir (reverse sort keys %config) {
1621 next unless length $topdir;
1622 if ($directory=~/^\Q$topdir\E/) {
1623 $ENV{MR_CONFIG}=$configfiles{$topdir};
1629 if (! $foundconfig) {
1630 $directory=""; # no config file, use builtin
1634 my $subdir=shift @ARGV;
1635 if (! chdir($subdir)) {
1636 print STDERR "mr register: failed to chdir to $subdir: $!\n";
1640 $ENV{MR_REPO}=getcwd();
1641 my $command=findcommand("register", $ENV{MR_REPO}, $directory, 'DEFAULT', 0);
1642 if (! defined $command) {
1643 die "mr register: unknown repository type\n";
1646 $ENV{MR_REPO}=~s/.*\/(.*)/$1/;
1647 $command="set -e; ".$config{$directory}{DEFAULT}{lib}."\n".
1648 "my_action(){ $command\n }; my_action ".
1649 join(" ", map { s/\\/\\\\/g; s/"/\"/g; '"'.$_.'"' } @ARGV);
1650 print "mr register: running >>$command<<\n" if $verbose;
1651 exec($command) || die "exec: $!";
1655 my $url=shift @ARGV;
1656 my $dir=shift @ARGV || ".";
1658 if (! defined $url || ! length $url) {
1659 die "mr: bootstrap requires url\n";
1662 # Download the config file to a temporary location.
1663 eval q{use File::Temp};
1665 my $tmpconfig=File::Temp->new();
1666 my @curlargs = ("curl", "-A", "mr", "-L", "-s", $url, "-o", $tmpconfig);
1667 push(@curlargs, "-k") if $insecure;
1668 my $curlstatus = system(@curlargs);
1669 die "mr bootstrap: invalid SSL certificate for $url (consider -k)\n" if $curlstatus >> 8 == 60;
1670 die "mr bootstrap: download of $url failed\n" if $curlstatus != 0;
1673 system("mkdir", "-p", $dir);
1675 chdir($dir) || die "chdir $dir: $!";
1677 # Special case to handle checkout of the "." repo, which
1678 # would normally be skipped.
1679 my $topdir=abs_path(".")."/";
1680 my @repo=($topdir, $topdir, ".");
1681 loadconfig($tmpconfig, $topdir, $url);
1682 record(\@repo, action("checkout", @repo, 1))
1683 if exists $config{$topdir}{"."}{"checkout"};
1685 if (-e ".mrconfig") {
1686 print STDERR "mr bootstrap: .mrconfig file already exists, not overwriting with $url\n";
1689 eval q{use File::Copy};
1691 move($tmpconfig, ".mrconfig") || die "rename: $!";
1694 # Reload the config file (in case we got a different version)
1695 # and checkout everything else.
1697 loadconfig(".mrconfig");
1698 dispatch("checkout");
1699 @skipped=grep { abs_path($_) ne abs_path($topdir) } @skipped;
1700 showstats("bootstrap");
1704 # alias expansion and command stemming
1707 if (exists $alias{$action}) {
1708 $action=$alias{$action};
1710 if (! exists $knownactions{$action}) {
1711 my @matches = grep { /^\Q$action\E/ }
1712 keys %knownactions, keys %alias;
1713 if (@matches == 1) {
1714 $action=$matches[0];
1716 elsif (@matches == 0) {
1717 die "mr: unknown action \"$action\" (known actions: ".
1718 join(", ", sort keys %knownactions).")\n";
1721 die "mr: ambiguous action \"$action\" (matches: ".
1722 join(", ", @matches).")\n";
1730 while (length $dir) {
1731 if (-e "$dir/.mrconfig") {
1732 return "$dir/.mrconfig";
1734 $dir=~s/\/[^\/]*$//;
1736 return $HOME_MR_CONFIG;
1741 Getopt::Long::Configure("bundling", "no_permute");
1742 my $result=GetOptions(
1743 "d|directory=s" => sub { $directory=abs_path($_[1]) },
1744 "c|config=s" => sub { $ENV{MR_CONFIG}=$_[1]; $config_overridden=1 },
1745 "p|path" => sub { }, # now default, ignore
1746 "f|force" => \$force,
1747 "v|verbose" => \$verbose,
1748 "q|quiet" => \$quiet,
1749 "s|stats" => \$stats,
1750 "k|insecure" => \$insecure,
1751 "i|interactive" => \$interactive,
1752 "n|no-recurse:i" => \$max_depth,
1753 "j|jobs:i" => \$jobs,
1754 "t|trust-all" => \$trust_all,
1756 if (! $result || @ARGV < 1) {
1757 die("Usage: mr [options] action [params ...]\n".
1758 "(Use mr help for man page.)\n");
1761 $ENV{MR_SWITCHES}="";
1762 foreach my $option (@saved) {
1763 last if $option eq $ARGV[0];
1764 $ENV{MR_SWITCHES}.="$option ";
1770 print STDERR "mr: interrupted\n";
1774 # This can happen if it's run in a directory that was removed
1775 # or other strangeness.
1776 if (! defined $directory) {
1777 die("mr: failed to determine working directory\n");
1779 # Make sure MR_CONFIG is an absolute path, but don't use abs_path since
1780 # the config file might be a symlink to elsewhere, and the directory it's
1781 # in is significant.
1782 if ($ENV{MR_CONFIG} !~ /^\//) {
1783 $ENV{MR_CONFIG}=getcwd()."/".$ENV{MR_CONFIG};
1785 # Try to set MR_PATH to the path to the program.
1787 use FindBin qw($Bin $Script);
1788 $ENV{MR_PATH}=$Bin."/".$Script;
1806 loadconfig($HOME_MR_CONFIG);
1807 loadconfig($ENV{MR_CONFIG});
1808 #use Data::Dumper; print Dumper(\%config);
1810 my $action=expandaction(shift @ARGV);
1817 # Finally, some useful actions that mr knows about by default.
1818 # These can be overridden in ~/.mrconfig.
1833 echo "mr (warning): $@" >&2
1839 if [ -z "$1" ] || [ -z "$2" ]; then
1840 error "mr: usage: hours_since action num"
1842 for dir in .git .svn .bzr CVS .hg _darcs _FOSSIL_; do
1843 if [ -e "$MR_REPO/$dir" ]; then
1844 flagfile="$MR_REPO/$dir/.mr_last$1"
1848 if [ -z "$flagfile" ]; then
1849 error "cannot determine flag filename"
1851 delta=`perl -wle 'print -f shift() ? int((-M _) * 24) : 9999' "$flagfile"`
1852 if [ "$delta" -lt "$2" ]; then
1860 LANG=C bzr info | egrep -q '^Checkout'
1863 if [ -d "$MR_REPO" ]; then
1870 svn_dir_test = echo svn .svn
1871 git_dir_test = echo git .git
1872 bzr_dir_test = echo bzr .bzr
1873 cvs_dir_test = echo cvs CVS
1874 hg_dir_test = echo hg .hg
1875 darcs_dir_test = echo darcs _darcs
1876 fossil_test = test -f "$MR_REPO"/_FOSSIL_
1878 test -d "$MR_REPO"/refs/heads && test -d "$MR_REPO"/refs/tags &&
1879 test -d "$MR_REPO"/objects && test -f "$MR_REPO"/config &&
1880 test "`GIT_CONFIG="$MR_REPO"/config git config --get core.bare`" = true
1882 svn_update = svn update "$@"
1883 git_update = git pull "$@"
1885 if is_bzr_checkout; then
1888 bzr merge --pull "$@"
1890 cvs_update = cvs update "$@"
1891 hg_update = hg pull "$@" && hg update "$@"
1892 darcs_update = darcs pull -a "$@"
1893 fossil_update = fossil pull "$@"
1895 svn_status = svn status "$@"
1896 git_status = git status -s "$@" || true
1897 bzr_status = bzr status --short "$@"
1898 cvs_status = cvs status "$@"
1899 hg_status = hg status "$@"
1900 darcs_status = darcs whatsnew -ls "$@" || true
1901 fossil_status = fossil changes "$@"
1903 svn_commit = svn commit "$@"
1904 git_commit = git commit -a "$@" && git push --all
1906 if is_bzr_checkout; then
1909 bzr commit "$@" && bzr push
1911 cvs_commit = cvs commit "$@"
1912 hg_commit = hg commit -m "$@" && hg push
1913 darcs_commit = darcs record -a -m "$@" && darcs push -a
1914 fossil_commit = fossil commit "$@"
1916 git_record = git commit -a "$@"
1918 if is_bzr_checkout; then
1919 bzr commit --local "$@"
1923 hg_record = hg commit -m "$@"
1924 darcs_record = darcs record -a -m "$@"
1925 fossil_record = fossil commit "$@"
1928 git_push = git push "$@"
1929 bzr_push = bzr push "$@"
1931 hg_push = hg push "$@"
1932 darcs_push = darcs push -a "$@"
1933 fossil_push = fossil push "$@"
1935 svn_diff = svn diff "$@"
1936 git_diff = git diff "$@"
1937 bzr_diff = bzr diff "$@"
1938 cvs_diff = cvs diff "$@"
1939 hg_diff = hg diff "$@"
1940 darcs_diff = darcs diff -u "$@"
1941 fossil_diff = fossil diff "$@"
1943 svn_log = svn log "$@"
1944 git_log = git log "$@"
1945 bzr_log = bzr log "$@"
1946 cvs_log = cvs log "$@"
1947 hg_log = hg log "$@"
1948 darcs_log = darcs changes "$@"
1949 git_bare_log = git log "$@"
1950 fossil_log = fossil timeline "$@"
1955 url=`LC_ALL=C svn info . | grep -i '^URL:' | cut -d ' ' -f 2`
1956 if [ -z "$url" ]; then
1957 error "cannot determine svn url"
1959 echo "Registering svn url: $url in $MR_CONFIG"
1960 mr -c "$MR_CONFIG" config "`pwd`" checkout="svn co '$url' '$MR_REPO'"
1962 url="`LC_ALL=C git config --get remote.origin.url`" || true
1963 if [ -z "$url" ]; then
1964 error "cannot determine git url"
1966 echo "Registering git url: $url in $MR_CONFIG"
1967 mr -c "$MR_CONFIG" config "`pwd`" checkout="git clone '$url' '$MR_REPO'"
1969 url="`LC_ALL=C bzr info . | egrep -i 'checkout of branch|parent branch' | awk '{print $NF}'`"
1970 if [ -z "$url" ]; then
1971 error "cannot determine bzr url"
1973 echo "Registering bzr url: $url in $MR_CONFIG"
1974 mr -c "$MR_CONFIG" config "`pwd`" checkout="bzr branch '$url' '$MR_REPO'"
1976 repo=`cat CVS/Repository`
1978 if [ -z "$root" ]; then
1979 error "cannot determine cvs root"
1981 echo "Registering cvs repository $repo at root $root"
1982 mr -c "$MR_CONFIG" config "`pwd`" checkout="cvs -d '$root' co -d '$MR_REPO' '$repo'"
1984 url=`hg showconfig paths.default`
1985 echo "Registering mercurial repo url: $url in $MR_CONFIG"
1986 mr -c "$MR_CONFIG" config "`pwd`" checkout="hg clone '$url' '$MR_REPO'"
1988 url=`cat _darcs/prefs/defaultrepo`
1989 echo "Registering darcs repository $url in $MR_CONFIG"
1990 mr -c "$MR_CONFIG" config "`pwd`" checkout="darcs get '$url' '$MR_REPO'"
1992 url="`LC_ALL=C GIT_CONFIG=config git config --get remote.origin.url`" || true
1993 if [ -z "$url" ]; then
1994 error "cannot determine git url"
1996 echo "Registering git url: $url in $MR_CONFIG"
1997 mr -c "$MR_CONFIG" config "`pwd`" checkout="git clone --bare '$url' '$MR_REPO'"
1999 url=`fossil remote-url`
2000 repo=`fossil info | grep repository | sed -e 's/repository:*.//g' -e 's/ //g'`
2001 echo "Registering fossil repository $url in $MR_CONFIG"
2002 mr -c "$MR_CONFIG" config "`pwd`" checkout="mkdir -p '$MR_REPO' && cd '$MR_REPO' && fossil open '$repo'"
2004 svn_trusted_checkout = svn co $url $repo
2005 svn_alt_trusted_checkout = svn checkout $url $repo
2006 git_trusted_checkout = git clone $url $repo
2007 bzr_trusted_checkout = bzr checkout|clone|branch|get $url $repo
2009 hg_trusted_checkout = hg clone $url $repo
2010 darcs_trusted_checkout = darcs get $url $repo
2011 git_bare_trusted_checkout = git clone --bare $url $repo
2012 # fossil: messy to do
2018 SHOWMANFILE="man -f"
2024 SHOWMANFILE="man -l"
2027 if [ ! -e "$MR_PATH" ]; then
2028 error "cannot find program path"
2030 tmp=$(mktemp -t mr.XXXXXXXXXX) || error "mktemp failed"
2031 trap "rm -f $tmp" exit
2032 pod2man -c mr "$MR_PATH" > "$tmp" || error "pod2man failed"
2033 $SHOWMANFILE "$tmp" || error "man failed"
2039 if [ -s ~/.mrlog ]; then
2040 info "running offline commands"
2041 mv -f ~/.mrlog ~/.mrlog.old
2042 if ! sh -e ~/.mrlog.old; then
2043 error "offline command failed; left in ~/.mrlog.old"
2047 info "no offline commands to run"
2052 info "offline mode enabled"
2054 info "remembering command: 'mr $@'"
2055 command="mr -d '$(pwd)' $MR_SWITCHES"
2057 command="$command '$w'"
2059 if [ ! -e ~/.mrlog ] || ! grep -q -F "$command" ~/.mrlog; then
2060 echo "$command" >> ~/.mrlog
2063 ed = echo "A horse is a horse, of course, of course.."
2064 T = echo "I pity the fool."
2065 right = echo "Not found."
2067 # vim:sw=8:sts=0:ts=8:noet
2069 # indent-tabs-mode: t
2070 # cperl-indent-level: 8