MIME-Date Zeitzone

[Beat]

Ist nicht perfekt.
Berücksichtigt keine Zeitzonen die nicht in ganzen Stunden von GMT verschieden sind.

sub __rfc5322_date{  
    caller eq __PACKAGE__ or die "pivate method call";  
    my $t=time();  
    my @gmt = ( gmtime($t) );  
    my @local = ( localtime($t) );  
    my $tz = $local[2] - $gmt[2]  
          + ( $local[5] <=> $gmt[5]  
                        ||  
              $local[7] <=> $gmt[7] )  
          * 24;  
    return( sprintf("%s, %2d %s %04d %02d:%02d:%02d %s%02d%s",  
            qw(Sun Mon Tue Wed Thu Fri Sat)[ $local[6] ],  
            $local[3],  
            qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)[ $local[4] ],  
            $local[5] + 1900,  
            $local[2], $local[1], $local[0],  
            ( $tz > 0 ? '+' : '-' ),  
            int($tz),  
            '00',  
        )  
    );  
}  

mfg Beat