#!/usr/bin/perl
-# $Id: html-control.in,v 1.10 2003/05/25 14:43:30 joy Exp $
+# $Id: html-control.in,v 1.12 2004/10/26 14:00:05 cjwatson Exp $
-use POSIX qw(strftime tzset);
+use POSIX qw(strftime tzset ENOENT);
$ENV{"TZ"} = 'UTC';
tzset();
To: $gMirrorList\@$gListDomain
Subject: $gProject $gBugs autoupdate 259012
Message-ID: <handle.htmlup.$seqmid\@$gEmailDomain>
-X-$gProject=PR: update $sequences
+X-$gProject-PR: update $sequences
END
) or nonawful("write html-data.mail header: $!");
To: $gMaintainerEmail
Subject: $gProject $gBugs autoupdate 259012
Message-ID: <handle.htmlup.$seqmid\@$gEmailDomain>
-X-$gProject=PR: update $sequences
+X-$gProject-PR: update $sequences
END
) or nonawful("write html-data.mail header: $!");