From a46201004c0d7124cb8b964a98931c02e8d480b9 Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Fri, 10 Jan 2025 17:01:00 +0100 Subject: [PATCH 1/5] Date_Init("tz") is deprecated. Signed-off-by: Thomas Hochstein --- usestats.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/usestats.pl b/usestats.pl index ab0ec33..d614e56 100644 --- a/usestats.pl +++ b/usestats.pl @@ -92,7 +92,7 @@ if (!scalar(grep /$config{'charset'}/, @{$supported})) { $config{'charset'} = 'ISO-8859-1'; }; -&Date_Init("TZ = $config{'tz'}"); +&Date_Init("setdate=now,$config{'tz'}"); if ($options{'r'}) { @postings = @{&readdata($options{'r'})}; From 1a57eb600ffbd3ddeb903b928509b3875918d2e3 Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Fri, 10 Jan 2025 17:02:13 +0100 Subject: [PATCH 2/5] Mail::Address->parse->name fails with UTF-8 qp. Signed-off-by: Thomas Hochstein --- usestats.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/usestats.pl b/usestats.pl index d614e56..df7dc91 100644 --- a/usestats.pl +++ b/usestats.pl @@ -415,7 +415,7 @@ sub poster { if (length($name) > $posterrawlgth) { $posterrawlgth = length($name); }; if (defined($from)) { # Postings pro Poster (nach From:) - $name = &mime_decode($from->name); + $name = &mime_decode($from->phrase); }; #D print "::>> $name\n"; $poster{$name}++; From 36d02b336488377564789f6b63c07773b9476746 Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Fri, 10 Jan 2025 17:23:36 +0100 Subject: [PATCH 3/5] Delta_Format() has a new parameter. Fix @format string, too. Signed-off-by: Thomas Hochstein --- usestats.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/usestats.pl b/usestats.pl index df7dc91..294e1d7 100644 --- a/usestats.pl +++ b/usestats.pl @@ -195,7 +195,7 @@ if ($config{'day'}) { if ($postcount > 0) { printf "\n\nPostings %-14s: %d (%.2f pro Tag)\n",$lastmonat,$postcount,($postcount / Date_DaysInMonth(UnixDate($lastday,"%m"),UnixDate($lastday,"%Y"))); }; - $daycount = Delta_Format(DateCalc(ParseDate($firstday),ParseDate($lastday)),0,'%dh'); + $daycount = Delta_Format(DateCalc(ParseDate($firstday),ParseDate($lastday)),'approx',0,'%dh'); #D print STDERR "$daycount = $lastday - $firstday\n"; print "\n\n"; if (scalar(@postings)) { From c25a20d67959ef2ceb29119b82eb56e32b0025a8 Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Fri, 10 Jan 2025 17:25:15 +0100 Subject: [PATCH 4/5] Update author's mail address. Signed-off-by: Thomas Hochstein --- usestats.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/usestats.pl b/usestats.pl index 294e1d7..12a02da 100644 --- a/usestats.pl +++ b/usestats.pl @@ -3,7 +3,7 @@ # usestats.pl ############# -# (c) 10/2003-10/2004 Thomas Hochstein +# (c) 10/2003-10/2004 Thomas Hochstein # # This program is free software; you can redistribute it and/or modify it under # the terms of the GNU General Public License as published by the Free @@ -77,7 +77,7 @@ if ($options{'h'}) { print "$0 v $ver\nUsage: $0 [-hq] [-w|r ] [-c ]\n"; exit(0); }; -print STDERR "$0 v $ver [" . scalar(gmtime) . "]\n(c) 10/2003-10/2004 Thomas Hochstein * \n" if (!$options{'q'}); +print STDERR "$0 v $ver [" . scalar(gmtime) . "]\n(c) 10/2003-10/2004 Thomas Hochstein * \n" if (!$options{'q'}); if ($options{'c'}) { &readconfig($options{'c'}); }; @@ -219,7 +219,7 @@ foreach $report (@reports) { }; }; -print "-- \n$0 v $ver [" . scalar(gmtime) . "]\n(c) 10/2003-10/2004 Thomas Hochstein * \n"; +print "-- \n$0 v $ver [" . scalar(gmtime) . "]\n(c) 10/2003-10/2004 Thomas Hochstein * \n"; exit; # Subroutinen ######################### From b9cf84510404d40d69f6dc2c1de143208662bcca Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Fri, 10 Jan 2025 17:28:27 +0100 Subject: [PATCH 5/5] Update changes. Signed-off-by: Thomas Hochstein --- usestats.changes | 6 ++++++ usestats.pl | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/usestats.changes b/usestats.changes index 6f9816b..786224d 100644 --- a/usestats.changes +++ b/usestats.changes @@ -1,3 +1,9 @@ +v 0.18: [] +Fix: From:-Header mit MIME words in q/p in UTF-8 wurden nicht richtig + dekodiert. +Fix: Die Parameter für Date_Init() und Delta_Format() haben sich in + den letzten 20 Jahren geändert. +Chg: Neue Mailadresse. v 0.17: [20041003] Neu: eingelesene Daten können gespeichert werden Neu: Anzahl der Postings wird auch pro Monat ausgegeben diff --git a/usestats.pl b/usestats.pl index 12a02da..1e201c1 100644 --- a/usestats.pl +++ b/usestats.pl @@ -24,7 +24,7 @@ use Mail::Address; use MIME::Words qw(decode_mimewords); # Versionsnummer ###################### -$ver = '0.17 beta (20041003)'; +$ver = '0.18 beta (unreleased)'; # Konstanten #########################