<perl>
 
if ($cmd eq "")
{
          get "Datum<jetzt","gottesdienste"; # dbname mit der orginaldb ersetzen
          while (get_next("gottesdienste")) # hier auch
          {

          put
          ["Gemeinde",$Gemeinde,"Datum",$Datum,"Zeit",$Zeit,"Kollekten / Predigttext",$Kollekten / Predigttext,"Pfarrer / Pfarrerin",$Pfarrer / Pfarrerin],"gottesdienste_archiv";
          }
          }
</perl>