home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 8 / CDACTUAL8.iso / docs / linux.faq / linux-fa.sou / linux-fa / expirydate2 < prev    next >
Encoding:
Text File  |  1995-07-05  |  1.6 KB  |  41 lines
  1. #!/usr/bin/perl
  2. # Copyright (C) 1993-1995 Ian Jackson.
  3.  
  4. # This file is free software; you can redistribute it and/or modify
  5. # it under the terms of the GNU General Public License as published by
  6. # the Free Software Foundation; either version 2, or (at your option)
  7. # any later version.
  8.  
  9. # It is distributed in the hope that it will be useful,
  10. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. # GNU General Public License for more details.
  13.  
  14. # You should have received a copy of the GNU General Public License
  15. # along with GNU Emacs; see the file COPYING.  If not, write to
  16. # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17. # Boston, MA 02111-1307, USA.
  18.  
  19. # (Note: I do not consider works produced using these BFNN processing
  20. # tools to be derivative works of the tools, so they are NOT covered
  21. # by the GPL.  However, I would appreciate it if you credited me if
  22. # appropriate in any documents you format using BFNN.)
  23.  
  24. @mon=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
  25.  
  26. ($sec,$min,$hour,$mday,$mon,$year) = gmtime(time + 3600*24*7*5);
  27. $year+= 1900;
  28. printf "Expires: %02d %3s %4d %02d:%02d:%02d GMT\n",
  29.        $mday,$mon[$mon],$year,$hour,$min,$sec;
  30.  
  31. ($sec,$min,$hour,$mday,$mon,$year) = gmtime(time);
  32. $year+= 1900;
  33. printf "Date: %02d %3s %4d %02d:%02d:%02d GMT\n",
  34.        $mday,$mon[$mon],$year,$hour,$min,$sec;
  35. print "References: <ijackson-linux-faq2-$mon-$year\@nyx.cs.du.edu>\n";
  36. print "Message-ID: <ijackson-linux-faq2-$mon-$year-pt2\@nyx.cs.du.edu>\n";
  37.  
  38. $mon--;
  39. if ($mon < 0) { $mon+=12; $year--; }
  40. print "Supersedes: <ijackson-linux-faq2-$mon-$year-pt2\@nyx.cs.du.edu>\n";
  41.