From bd41d830d9bf16bffd27c0d809cde8dc065d4dcc Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Sun, 2 Mar 2003 19:44:50 +0000 Subject: Show date of laste update --- Echolot/Fromlines.pm | 8 ++++++-- templates/fromlinesindex.html | 6 +++--- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/Echolot/Fromlines.pm b/Echolot/Fromlines.pm index e43389e..a0c7bbf 100644 --- a/Echolot/Fromlines.pm +++ b/Echolot/Fromlines.pm @@ -1,7 +1,7 @@ package Echolot::Fromlines; # (c) 2002 Peter Palfrader -# $Id: Fromlines.pm,v 1.5 2003/02/25 19:59:01 weasel Exp $ +# $Id: Fromlines.pm,v 1.6 2003/03/02 19:44:50 weasel Exp $ # =pod @@ -50,8 +50,12 @@ sub build_fromlines() { $from = 'Middleman Remailer' if $middleman; my $disclaim_top = $from_info->{'disclaim_top'} && ! $middleman ? 1 : 0; my $disclaim_bot = $from_info->{'disclaim_bot'} && ! $middleman ? 1 : 0; + my $last_update = $from_info->{'last_update'}; + my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime($last_update); my $frominfo = $disclaim_top.':'.$disclaim_bot.':'.$from; - push @{$from_types->{$frominfo}}, $type; + my $date = sprintf("%04d-%02d-%02d", $year+1900, $mon+1, $mday); + my $value = $type." ($date)"; + push @{$from_types->{$frominfo}}, $value; }; my $types_from; for my $frominfo (sort keys %$from_types) { diff --git a/templates/fromlinesindex.html b/templates/fromlinesindex.html index 7e40bac..ef3374a 100644 --- a/templates/fromlinesindex.html +++ b/templates/fromlinesindex.html @@ -3,7 +3,7 @@ From Headers [<TMPL_VAR NAME="SITE_NAME">] "> - +

From Headers []

@@ -20,7 +20,7 @@ convenience.

- + @@ -46,7 +46,7 @@ etc.

nickDisclaimerFrom Linetype
nickDisclaimerFrom Linetype/updated
- + -- cgit v1.2.3
nickDisclaimerFrom Linetype
nickDisclaimerFrom Linetype/updated