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

                                 put
                                 ["Id",$Id,"Von",$Von,"Bis",$Bis,"Dorfname",$Dorfname,"Rest",$Rest,"Legion",$Legion,"Alarm",$Alarm,"Bemerkung",$Bemerkung,"Moedi-check",$Moedi-check,"Moedi",$Moedi,"Hegi-Check",$Hegi-Check,"Hegi",$Hegi,"Leon-Check",$Leon-Check,"Sweety-Check",$Sweety-Check,"Sweety",$Sweety,"user1",$user1,"Meldung1",$Meldung1,"Meldung2",$Meldung2,"Meldung3",$Meldung3,"Meldung4",$Meldung4,"Meldung5",$Meldung5],"Termine_Archiv072015";
                                 }
                                 }
                                 </perl>