12345678910111213141516171819 |
- #!/usr/bin/perl
- use strict;
- use warnings;
- my $top_level = "/Users/swatson/Repos/git_migration/";
- my @dirs = split("\n", `ls -d */`);
- foreach my $dir (@dirs) {
- #print("$dir\n");
- $dir =~ s/\/$//g;
- my $output = `git -C $dir remote set-url origin ssh://git\@git.spwbk.site:2222/swatson/$dir.git`;
- print "$output\n";
- $output = `git -C $dir remote -v`;
- print $output;
- }
|