X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FControl.pm;h=6851656f49c6b4d4bde5c4c857cbb8584a2cde0a;hb=530a003a7180eaba23b695561ca01a595a3c7190;hp=631504a8d5420a24db292d736732201a3ad9113b;hpb=206de410efd7d1d14692024275ff812b0e0dcbd4;p=debbugs.git
diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 631504a..6851656 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -108,7 +108,7 @@ BEGIN{
}
use Debbugs::Config qw(:config);
-use Debbugs::Common qw(:lock buglog :misc get_hashname sort_versions);
+use Debbugs::Common qw(:lock buglog :misc get_hashname sort_versions :utf8);
use Debbugs::Status qw(bug_archiveable :read :hook writebug new_bug splitpackages split_status_fields get_bug_status);
use Debbugs::CGI qw(html_escape);
use Debbugs::Log qw(:misc :write);
@@ -132,6 +132,7 @@ use POSIX qw(strftime);
use Storable qw(dclone nfreeze);
use List::Util qw(first max);
+use Encode qw(encode_utf8);
use Carp;
@@ -3355,7 +3356,7 @@ sub append_action_to_log{
$nd{$key} = $new_data->{$key};
# $data_diff .= html_escape("$Debbugs::Status::fields{$key}: $new_data->{$key}")."\n";
}
- $data_diff .= html_escape(Data::Dumper->Dump([\%nd],[qw(new_data)]));
+ $data_diff .= html_escape(Data::Dumper->Dump([encode_utf8_structure(\%nd)],[qw(new_data)]));
$data_diff .= "-->\n";
$data_diff .= "\n";
}
my $msg = join('',
(exists $param{command} ?
- "\n":""
+ "\n":""
),
(length $param{requester} ?
- "\n":""
+ "\n":""
),
(length $param{request_addr} ?
- "\n":""
+ "\n":""
),
"\n",
$data_diff,
- "".html_escape($param{action})."\n");
+ "".html_escape(encode_utf8($param{action}))."\n");
if (length $param{requester}) {
- $msg .= "Request was from ".html_escape($param{requester})."
\n";
+ $msg .= "Request was from ".html_escape(encode_utf8($param{requester}))."
\n";
}
if (length $param{request_addr}) {
- $msg .= "to ".html_escape($param{request_addr})."
";
+ $msg .= "to ".html_escape(encode_utf8($param{request_addr}))."
";
}
if (length $param{desc}) {
- $msg .= ":
\n$param{desc}\n";
+ $msg .= ":
\n".encode_utf8($param{desc})."\n";
}
else {
$msg .= ".\n";