[Bps-public-commit] cpan2rt branch, master, updated. 25b3076bc37cbba6fc26643d2dd7b28538ae23ef

[Dianne Skoll]

The branch, master has been updated
       via  25b3076bc37cbba6fc26643d2dd7b28538ae23ef (commit)
      from  f072107eb8810d1a5e0b6cac7abbb12bd09c5541 (commit)

Summary of changes:
 bin/sync-queues-to-pobox | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 25b3076bc37cbba6fc26643d2dd7b28538ae23ef
Author: Dianne Skoll <dianne at bestpractical.com>
Date:   Fri Mar 12 20:59:56 2021 +0000

    Prefix queue names with "bug-" to form email addresses.

diff --git a/bin/sync-queues-to-pobox b/bin/sync-queues-to-pobox
index 0c70f57..29e4312 100755
--- a/bin/sync-queues-to-pobox
+++ b/bin/sync-queues-to-pobox
@@ -24,7 +24,10 @@ if test "$?" != 0 ; then
     exit 1
 fi
 
-psql -U admin -h 127.0.0.1 -c "SELECT Name FROM Queues WHERE LENGTH(Name) < 90" --tuples-only --no-align rt5 | \
+
+# Maximum pobox alias length is 90 characters.  We prefix with "bug-" which
+# leaves 86 characters for the queue name.
+psql -U admin -h 127.0.0.1 -c "SELECT Name FROM Queues WHERE LENGTH(Name) < 86" --tuples-only --no-align rt5 | \
     egrep -v '[ :+]' | grep -v '^___Approvals$' | grep -v '\.$' | \
-    sed -e 's/\(.*\)/\1,\1 at rt-cpan-org.hostedrt.com/' | \
+    sed -e 's/\(.*\)/bug-\1,bug-\1 at rt-cpan-org.hostedrt.com/' | \
     /usr/local/go/bin/go run cmd/sync/sync.go --domain rt.cpan.org --timeout 60m0s --delay 0

-----------------------------------------------------------------------