<perl>
    if ($cmd eq "")
    {
     get "Datum<jetzt","termin";  
     while (get_next("termin")) 
     {
      del "Id==$_id","termin"; 
      put
                                 ["Kategorie",$Kategorie,"Datum",$Datum,"Beginn",$Beginn,"Bundesl",$Bundesl,"Ort",$Ort,"Beschreibung",$Beschreibung,"Eingetragenvon",$Eingetragenvon,"EMail",$Email,"Link",$Link],"termin_archiv";
                              }
                               }
</perl>