wip commod-email-processor; tab-delimit metadata in emails

[ypp-sc-tools.web-live.git] / pctb / commod-update-receiver

diff --git a/pctb/commod-update-receiver b/pctb/commod-update-receiver
index 4b52251b9967896aa7b1e70985a3082197df9b26..1fe86125f93ffdd1fe2014f0d010e0d6f701d671 100755 (executable)
--- a/pctb/commod-update-receiver
+++ b/pctb/commod-update-receiver
@@ -34,6 +34,7 @@
 #  clientfixes                 "lastpage"  [space separated list]
 #  data filename=deduped.tsv.gz        output of ypp-commodities --tsv
 
+
 use strict (qw(vars));
 use POSIX;
 use MIME::Entity;
@@ -113,7 +114,7 @@ my $mcontent= MIME::Entity->build(To => 'yarrg-commod-updates',
 
 get_our_version(\%o, 'server');
 foreach my $cs (qw(client server)) {
-    $o{"${cs}spec"}= join ' ', map { $o{$cs.$_} } qw(name version fixes);
+    $o{"${cs}spec"}= join "\t", map { $o{$cs.$_} } qw(name version fixes);
 }
 
 my $metadata= '';