//*********************************************************************
//*                   PROGRAM - OnStartup 2020-07-14                  *
//*                        >> Ereignisscript <<                       *
//*                                                                   *
//* Funktionalitaet: [x] neutral                                      *
//*                  [ ] nur Basis_Modul                              *
//*                  [ ] nur Pathfinder                               *
//*                                                                   *
//* Datum     : ueberarbeitet am: 14.07.2020                          *
//* Autor     : Thomas Barghahn                                       *
//*                                                                   *
//*********************************************************************

program OnStartup;

uses Forms, Extctrls, TextFile;
 
{$I Dialog_Functions.ds}
{$I _i_OSt_DBReminder.ds}
{$I _i_OSt_Check_Last_PurgeDate.ds}

procedure OnStartup;

begin 

   // taegliches Aufraeumen der abonn. Gruppen
   Check_Last_PurgeDate;
   // Erinnerung: Datenbank packen
   DatabaseReminder;

//News
   // Abholen der Artikel - alle 10 Minuten
   ADo('GetNewHeadersInSubscribedGroups');
   timer2.interval:=60000*10;   
   timer2.enabled:=true;

//Mails
   // Abholen der Mails fuer alle Identitaeten - alle 10 Minuten 
   ADo('GetNewEmailsForAllIdentities');
   timer1.interval:=60000*10;
   timer1.enabled:=true;
      
end; // procedure

begin
end.