[Cologne-pm] A pro pos: Treffen Morgen?

A. Pagaltzis pagaltzis at gmx.de
Mon Jan 3 11:52:27 CST 2005


Um mal wieder etwas Beben in die Lude zu bringen:

* Michael Lamertz <mike at lamertz.net> [2004-05-11 17:02]:
>   #!/usr/bin/perl
>   
>   use strict;
>   use warnings;
>   use Date::Manip;
>   use MIME::Lite;
>   
>   my $month = UnixDate("today", '%B');
>   
>   my $msg = MIME::Lite->new(
>       From        => 'Michael Lamertz <mike at lamertz.net>',
>       To          => 'Cologne Perl Mongers <cologne-pm at mail.pm.org>',
>       Subject     => UnixDate("2nd wednesday in $month", 'Treffen am %d.%m.%Y...'),
>       Encoding    => 'quoted-printable',
>       Data        => <<"EOF"
>   Yo!
>   
>   Das nächste Treffen findet wie gewohnt statt in der
>   
>       Sansibar
>       Trierer Str. 41
>       50674 Köln
>       ab ca. 18:30
>   
>   Dies ist eine automatisch erzeugte Nachricht.  Sollte mittlerweile auf der
>   Liste ein anderer Termin verabredet worden sein, so ist diese Mail hinfällig.
>   
>   EOF
>   );
>   
>   $msg->attr('content-type.charset' => 'iso-8859-1');
>   
>   $msg->send();

    #!/usr/bin/perl
    use strict;
    use warnings;
    
    use DateTime;
    use MIME::Lite;
    
    use constant WEDNESDAY => 2;
    
    my $date = DateTime->now->truncate( to => 'month' );
    
    $date->add(
        days => ( WEDNESDAY - $date->day_of_week() + 7 ) % 7,
        weeks => 2,
    );
    
    my $msg = MIME::Lite->new(
        From        => 'Michael Lamertz <mike at lamertz.net>',
        To          => 'Cologne Perl Mongers <cologne-pm at mail.pm.org>',
        Subject     => $date->strftime( 'Treffen am %d.%m.%Y...' ),
        Encoding    => 'quoted-printable',
        FH          => *DATA,
    );
    
    $msg->attr('content-type.charset' => 'iso-8859-1');
    
    $msg->send();
    
    __END__
    Yo!
    
    Das nächste Treffen findet wie gewohnt statt in der
    
        Sansibar
        Trierer Str. 41
        50674 Köln
        ab ca. 18:30
    
    Dies ist eine automatisch erzeugte Nachricht.  Sollte mittlerweile auf der
    Liste ein anderer Termin verabredet worden sein, so ist diese Mail hinfällig.

Gruss,
-- 
Aristoteles
"Wer nicht über sich selbst lachen kann, nimmt das Leben nicht ernst genug."


More information about the Cologne-pm mailing list