backup repos from salsa

1 files changed, 18 insertions, 5 deletions

diff --git a/bin/locmaint b/bin/locmaint
index 09edb428..7f99d6cc 100755
--- a/bin/locmaint
+++ b/bin/locmaint
@@ -344,12 +344,25 @@ sub do_coldbkup {
     backup_repo($_->{uri}, catfile($gitbk, "athena_gcrypt", $_->{dir}))
       for @gcrypt_repos;
 
-    # misc. repos to be backed up (inc. salsa)
-    # TODO read from ~/doc/conf/salsarepos URIs of the form
-    # https://host/foo/bar/baz and backup to $gitbk/salsa/foo/bar/baz
-    { ... }
+    # repos from Debian's salsa
+    mkdir catfile($gitbk, "salsa");
+    if (open my $fh,
+        '<', catfile($ENV{HOME}, "doc", "conf", "coldbkup", "salsa")) {
+        while (<$fh>) {
+            m|^https://salsa\.debian\.org/(.+)$| or next;
+            my $uri = $&;
+            my $dest = $1;
+            $uri .= "/" if $uri =~ /\.git\z/;
+            $uri .= ".git/" unless /\.git\/\z/;
+            backup_repo($uri, catfile($gitbk, "salsa", $dest));
+        }
+    } else {
+        say_bold
+          ("WARNING: not backing up salsa repos: couldn't read list of repos");
+        get_ack();
+    }
 
-    # If I have repos to backup at some point, could create
+    # If I have other repos to backup at some point, could create
     # ~/doc/conf/otherrepos.csv which specifies URIs and dests (the
     # latter possibly abbreviated in some way)
 }