Automatische Reminder fuer regelmaessige Termine

[Alexander Reelsen]

Moin

On Fri, Nov 22, 2002 at 01:47:38PM +0100, Christian Ordig wrote:
> Also am 1. Mittwoch in Erfurt, 3. Mittwoch in Ilmenau, 4. Mittwoch in Gera.
> Nun haben wir das Problem, dass manuelle Reminder manchmal vergessen weden
> oder einfach zu kurzfristig kommen.
> Der Gedanke das zu automatisieren liegt nahe, allerdings wird das mit einem
> simplen Cron nicht gehen, da ich dem weder sagen kann "jeden 3. Mittwoch im 
> Monat" und schon gar nicht "2 Tage vor dem 3. Mittwoch im Monat".
> Wie habt Ihr das geloest? Werden eure Reminder automatisch generiert, oder
> auch per Hand?
> Wie koennte man da am besten rangehen, so dass das ganze auf einem Server
> laufen kann, kein GUI (also Terminplaner oder so einen Rotz) erfordert, aber
> moeglichst auch nicht in wildes programmieren ausartet.
Perl mit Date::Calc

--- snip (von Date::Calc) doku ---
       11) How can I send a reminder to members of a group on the
           day before a meeting which occurs every first Friday
           of a month?

             use Date::Calc qw( Today Date_to_Days Add_Delta_YMD
                                Nth_Weekday_of_Month_Year );

             ($year,$month,$day) = Today();

             $tomorrow = Date_to_Days($year,$month,$day) + 1;

             $dow = 5; # 5 = Friday
             $n   = 1; # 1 = First of that day of week

             $meeting_this_month = Date_to_Days(
                 Nth_Weekday_of_Month_Year($year,$month,$dow,$n) );

             ($year,$month,$day) = Add_Delta_YMD($year,$month,$day,
0,1,0);

             $meeting_next_month = Date_to_Days(
                 Nth_Weekday_of_Month_Year($year,$month,$dow,$n) );

             if (($tomorrow == $meeting_this_month) ||
                 ($tomorrow == $meeting_next_month))
             {
                 # Send reminder e-mail!
             }
--- snap ---

Mehr beispiele im Date::Calc podfile


MfG/Regards, Alexander

-- 
Alexander Reelsen   http://tretmine.org
ref at tretmine.org