X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/9556f156a910db93961707bea478a6e3cae86ea0..2df20057e34db58c8caa37def9321e33acfa56fd:/support/mapfrom?ds=sidebyside

diff --git a/support/mapfrom b/support/mapfrom
new file mode 100644
index 00000000..4e0b71d6
--- /dev/null
+++ b/support/mapfrom
@@ -0,0 +1,5 @@
+#!/usr/bin/perl
+while (<>) {
+    push @_, "$2:$1" if /^(\w+):[^:]+:(\d+)/;
+}
+print join(',', @_), "\n";