[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