1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 my $top_level = "/Users/swatson/Repos/git_migration/";
7 my @dirs = split("\n", `ls -d */`);
8
9 foreach my $dir (@dirs) {
10 #print("$dir\n");
11 $dir =~ s/\/$//g;
12 my $output = `git -C $dir remote set-url origin ssh://git\@git.spwbk.site:2222/swatson/$dir.git`;
13 print "$output\n";
14 $output = `git -C $dir remote -v`;
15 print $output;
16
17 }