All dates on holiday "emails" are now in 1970

diff --git a/perl/sctweb b/perl/sctweb
index 99801a8327fefee62f77d01856b2c6b61f6e820a..64c4127a8f4b40ed6cc86dc31770655b298674a2 100755 (executable)
--- 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/;
        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;
            push @mhc2, $_;
        }
        @mhc = @mhc2;