Der kleine Diktator: Korrektur des Datum in Last-Modified

Beitrag lesen

Herzlichen Dank für Deine Antwort :)

Nunja, was lange gährt wird wut, hier ist ein Ergebnis:

# HTTP Header for:
# Last-Modified
# Expires
sub http_date{
    my $self = shift;
    my $time = shift || time;
    my $p = [ split /\s+/, scalar(gmtime($time)) ];
    # Thu Jan  1 00:00:01 1970
    # Tue, 23 Jun 2015 20:48:49 GMT
    return sprintf("%s, %02d %s %d %s GMT",
        $p->[0],
        $p->[2],
        $p->[1],
        $p->[4],
        $p->[3]
    );
}

Und gut, dass wir darüber gesprochen haben ;)

Schöne Grüße, Alfredo da Perez (Diktator a.D.)