|
@@ -0,0 +1,19 @@
|
|
|
|
+#!/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;
|
|
|
|
+
|
|
|
|
+}
|
|
|
|
+
|
|
|
|
+
|