From b8bb02cb5dbe48a3e54658d61200afff5fde3b95 Mon Sep 17 00:00:00 2001 From: Tim Pope Date: Thu, 25 Nov 2004 00:54:21 +0000 Subject: [PATCH] All dates on holiday "emails" are now in 1970 --- perl/sctweb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/sctweb b/perl/sctweb index 99801a8..64c4127 100755 --- a/perl/sctweb +++ b/perl/sctweb @@ -272,7 +272,7 @@ sub do_mhc_schedule { foreach (@mhc) { $_ =~ s/X-SC-Subject: ([^\n]*)/X-SC-Subject: $1\nSubject: $1/; $_ =~ s/X-SC-Category: ([^\n]*)/X-SC-Category: $1\nFrom: $1/; - $_ =~ s/X-SC-Duration: (\d\d\d\d)(\d\d)(\d\d)-/"X-SC-Duration: $1$2$3-\nDate: $3 " . $mon[$2-1] . " $1 12:00:00 +0000"/e; + $_ =~ s/X-SC-Duration: (\d\d\d\d)(\d\d)(\d\d)-/"X-SC-Duration: $1$2$3-\nDate: $3 " . $mon[$2-1] . " 1970 12:00:00 +0000"/e; push @mhc2, $_; } @mhc = @mhc2; -- 2.30.2