#!/usr/bin/perl
# Copyright (C) 1993-1995 Ian Jackson.

# This file is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.

# It is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with GNU Emacs; see the file COPYING.  If not, write to
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.

# (Note: I do not consider works produced using these BFNN processing
# tools to be derivative works of the tools, so they are NOT covered
# by the GPL.  However, I would appreciate it if you credited me if
# appropriate in any documents you format using BFNN.)

@mon=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

($sec,$min,$hour,$mday,$mon,$year) = gmtime(time + 3600*24*7*5);
$year+= 1900;
printf "Expires: %02d %3s %4d %02d:%02d:%02d GMT\n",
       $mday,$mon[$mon],$year,$hour,$min,$sec;

($sec,$min,$hour,$mday,$mon,$year) = gmtime(time);
$year+= 1900;
printf "Date: %02d %3s %4d %02d:%02d:%02d GMT\n",
       $mday,$mon[$mon],$year,$hour,$min,$sec;
print "Message-ID: <ijackson-linux-faq2-$mon-$year\@nyx.cs.du.edu>\n";

$mon--;
if ($mon < 0) { $mon+=12; $year--; }
print "Supersedes: <ijackson-linux-faq2-$mon-$year\@nyx.cs.du.edu>\n";
