use CGI qw/:standard -private_tempfiles/;
-setlocale(LC_CTYPE, "en_GB.UTF-8");
+set_ctype_utf8();
our $now= time; defined $now or die $!;
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,