# Demonstration fuer das Datumsformat von Cookies
# Liefert ein korrektes "Expires: "-Datum
use strict;
use warnings;

print cookiedate(time+86400),"\n";

sub cookiedate
  {
  my $time = shift;

  my( $sec, $min, $std, $day, $mon, $year,
      $wday, $yday, $isdst) = localtime($time);
  my @months = ('', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
                'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
  my @weekday = ('', 'Mon', 'Tue', 'Wed', 'Thu',
                 'Fri', 'Sat', 'Sun');

  $sec = '0' . $sec if ($sec < 10);
  $min = '0' . $min if ($min < 10);
  $std = '0' . $std if ($std < 10);
  $mon = '0' . $mon if ($mon < 10);
  $day = '0' . $day if ($day < 10);
  $mon++;
  $year += 1900;
  return "$weekday[$wday], $day-$months[$mon]-$year $std:$min:$sec GMT";
  }