print header(-status=>'400 Bad commodity update',
-type=>'text/plain',
-charset=>'us-ascii');
- print "Error: $msg\n";
+ print "\nError: $msg\n";
exit 0;
}
unlink $mid or $!==&ENOENT or die "$mid $!";
}
+$o{'instance'}= $ENV{'YARRG_INSTANCE'};
my $mcontent= MIME::Entity->build(To => 'yarrg-commod-updates',
- Subject => $pwd,
+ Subject => $ENV{'YARRG_INSTANCE'},
Type => 'multipart/mixed',
Boundary => '=',
'Message-ID' => $mid,