diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-03-02 20:49:02 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-03-02 20:49:02 +0000 |
| commit | d747fd2d57a2f6000b441e6575181470a05086bb (patch) | |
| tree | 4803522e7a8ebe6b1f55aa17a4e27dd5cabc3684 | |
| parent | 49556c747f769eef98dcae9c350b1fca93f822d6 (diff) | |
updated information with from lines is not nice as it is nowecholot-2.1
removing it for now - it should come back soon tho
| -rw-r--r-- | Echolot/Fromlines.pm | 13 | ||||
| -rw-r--r-- | TODO | 4 | ||||
| -rw-r--r-- | templates/fromlinesindex.html | 6 |
3 files changed, 13 insertions, 10 deletions
diff --git a/Echolot/Fromlines.pm b/Echolot/Fromlines.pm index 3987b37..1a6b50b 100644 --- a/Echolot/Fromlines.pm +++ b/Echolot/Fromlines.pm @@ -1,7 +1,7 @@ package Echolot::Fromlines; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Fromlines.pm,v 1.8 2003/03/02 19:50:21 weasel Exp $ +# $Id: Fromlines.pm,v 1.9 2003/03/02 20:49:02 weasel Exp $ # =pod @@ -50,16 +50,17 @@ 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 $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; - my $date = sprintf("%04d-%02d-%02d", $year+1900, $mon+1, $mday); - my $value = $middleman ? $type : ($type." ($date)"); + #my $date = sprintf("%04d-%02d-%02d", $year+1900, $mon+1, $mday); + #my $value = $middleman ? $type : ($type." ($date)"); + my $value = $type; push @{$from_types->{$frominfo}}, $value; }; my $types_from; for my $frominfo (sort keys %$from_types) { - my $types = join "<BR>", sort { $a cmp $b } @{$from_types->{$frominfo}}; + my $types = join ", ", sort { $a cmp $b } @{$from_types->{$frominfo}}; $types_from->{$types} = $frominfo; }; my @types_from = map { @@ -1,4 +1,4 @@ -$Id: TODO,v 1.52 2003/02/24 16:23:10 weasel Exp $ +$Id: TODO,v 1.53 2003/03/02 20:49:02 weasel Exp $ Legend: - Not done @@ -8,6 +8,8 @@ Legend: D Deferred X Abandoned + - updated information with from lines + can be done later: - ping mail2news gates - ping remailer -> usenet, summarize from lines diff --git a/templates/fromlinesindex.html b/templates/fromlinesindex.html index ef3374a..2cde2bf 100644 --- a/templates/fromlinesindex.html +++ b/templates/fromlinesindex.html @@ -3,7 +3,7 @@ <title>From Headers [<TMPL_VAR NAME="SITE_NAME">]</title> <META HTTP-EQUIV="Expires" CONTENT="<TMPL_VAR NAME="EXPIRES">"> <link href="echolot.css" rel="stylesheet" type="text/css"> - <!-- $Id: fromlinesindex.html,v 1.6 2003/03/02 19:44:50 weasel Exp $ --> + <!-- $Id: fromlinesindex.html,v 1.7 2003/03/02 20:49:02 weasel Exp $ --> </head> <body> <h1>From Headers [<TMPL_VAR NAME="SITE_NAME">]</h1> @@ -20,7 +20,7 @@ convenience. <p> <table border=1> -<tr><tr><th>nick</th><th>Disclaimer</th><th>From Line</th><th>type/updated</th></tr> +<tr><tr><th>nick</th><th>Disclaimer</th><th>From Line</th><th>type</th></tr> <TMPL_LOOP NAME="default"> <TMPL_LOOP NAME="data"> @@ -46,7 +46,7 @@ etc. <p> <table border=1> -<tr><tr><th>nick</th><th>Disclaimer</th><th>From Line</th><th>type/updated</th></tr> +<tr><tr><th>nick</th><th>Disclaimer</th><th>From Line</th><th>type</th></tr> <TMPL_LOOP NAME="usersupplied"> <TMPL_LOOP NAME="data"> |