diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-03-02 19:50:21 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-03-02 19:50:21 +0000 |
| commit | 49556c747f769eef98dcae9c350b1fca93f822d6 (patch) | |
| tree | 14c7fa2f930c17cfd3651ab518c5d98f45a3d4d4 | |
| parent | 786915c68d726b964a0c7bc4da5e1bc55de522fa (diff) | |
Do not list date for middleman remailers
| -rw-r--r-- | Echolot/Fromlines.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Echolot/Fromlines.pm b/Echolot/Fromlines.pm index 4d77d7f..3987b37 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.7 2003/03/02 19:46:29 weasel Exp $ +# $Id: Fromlines.pm,v 1.8 2003/03/02 19:50:21 weasel Exp $ # =pod @@ -54,7 +54,7 @@ sub build_fromlines() { 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 = $type." ($date)"; + my $value = $middleman ? $type : ($type." ($date)"); push @{$from_types->{$frominfo}}, $value; }; my $types_from; |