!7

module DailyBackup > DynEnabled {
  S sendToMachines;
  
  visualize {
    ret centerAndSouthWithMargins(super.visualize(),
      withLabel("Send to machines:", dm_fieldTextField('sendToMachines)));
  }
  
  start {
    doEvery(10.0, r {
      if (elapsedHours(parseLongOpt(loadProgramFile("lastBackup"))) >= 24) {
        dm_action("Backing up JavaX-Data", r {
          final File f = zipAllDataDirs();
          if (nemptyAfterTrim(sendToMachines))
            dm_action("Sending backup to other machines", r {
              for (S computerID : possibleComputerIDs(javaTokC(sendToMachines))) pcall {
                dm_sendBackupFileToOtherMachine(f, computerID);
              }
            });
        }
    });
  }
}