WIP commod-update-receiver testing - seems to work

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

diff --git a/pctb/commod-update-receiver b/pctb/commod-update-receiver
index ac52fec7fe89499ab5feed1ca168ec858c0f1776..11064cd7d9b6897f9194116690602eebb71e3e81 100755 (executable)
--- a/pctb/commod-update-receiver
+++ b/pctb/commod-update-receiver
@@ -120,9 +120,11 @@ foreach my $cs (qw(client server)) {
 }
 
 foreach my $vn (sort keys %o) {
-    my $mpart= MIME::Entity->build(Type => 'text/plain',
+    my $mpart= MIME::Entity->build(Top => 0,
+                                  Type => 'text/plain',
                                   Charset => 'utf-8',
-                                  Disposition => 'inline',
+                                  Disposition => 'attachment',
+                                  Filename => $vn,
                                   Data => $o{$vn});
     $mcontent->add_part($mpart);
 }
@@ -156,15 +158,21 @@ while (<GZ>) {
 GZ->error and die $!;
 $?=0; close GZ; $? and fail("gunzip for check failed code $?");
 
-my $mdatafile= MIME::Entity->build(Type => 'application/octet-stream',
+my $mdatafile= MIME::Entity->build(Top => 0,
+                                  Type => 'application/octet-stream',
                                   Disposition => 'attachment',
                                   Encoding => 'base64',
-                                  File => $datafile);
+                                  Filename => 'deduped.tsv.gz',
+                                  Path => $datafile);
 $mcontent->add_part($mdatafile);
 
-open M, "|/usr/sbin/sendmail -t -oi -oee -odq"
+open M, "|/usr/sbin/sendmail -t -oi -oee -odb"
     or fail("fork sendmail failed! ($!)");
 $mcontent->print(\*M);
 
 M->error and fail("write sendmail failed! ($!)");
 $?=0; close M; $? and fail("sendmail failed code $?");
+
+print header(-type=>'text/plain', -charset=>'us-ascii'),
+      "OK\n"
+    or die $!;