thh/newsstats
1
0
Fork 0
Code Issues 3 Pull requests Packages Projects Releases Activity

Fix errors when saving unencoded 8bit headers.

Browse source 
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2025-06-29 12:23:12 +02:00
parent d989c98d5b
commit 637d043364
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bin/feedlog.pl
View file

@ -26,6 +26,7 @@ use Sys::Syslog qw(:standard :macros);
use Date::Format; use Date::Format;
use DBI; use DBI;
use Encode qw(encode);
use Getopt::Long qw(GetOptions); use Getopt::Long qw(GetOptions);
Getopt::Long::config ('bundling'); Getopt::Long::config ('bundling');
@ -106,6 +107,9 @@ while (<>) {
$Headers .= $_."\n" ; $Headers .= $_."\n" ;
} }
# convert headers to UTF-8, if necessary
$Headers = encode('utf-8', $Headers) if ($Headers =~ /[\x80-\x{ffff}]/);
# parse timestamp to day (YYYY-MM-DD) and to MySQL timestamp # parse timestamp to day (YYYY-MM-DD) and to MySQL timestamp
my $Day = time2str("%Y-%m-%d", $Timestamp); my $Day = time2str("%Y-%m-%d", $Timestamp);
my $Date = time2str("%Y-%m-%d %H:%M:%S", $Timestamp); my $Date = time2str("%Y-%m-%d %H:%M:%S", $Timestamp);