!7

sclass ZipTextSnippets > DynSingleFunctionWithPrintLog {
  void doIt ctex {
    L snippets = cast call(dm_getModule(dm_snippetsDB()), 'allSnippetsOfType);
    print("Got " + n2(snippets, "snippet"));
    
    File zipFile = javaxBackupDir("javax-texts-" + ymdWithMinuses() + ".zip");
    print("Zipping to " + zipFile + "...");
    {
      temp ZipOutputStream zipOut = zipOutputStream(zipFile);
      new Var<Long> size;
      for (O sn : snippets) {
        if (eq(rcall textLength(sn), 0)) continue;
        long id = getLong(sn, 'snippetID);
        addFileToZip(zipOut, (File) call(sn, 'file), id + ".text");
        if (setVar_trueIfChanged(size, fileSizeInMegabytes_floor(zipFile)))
          print(size + " MB");
      }
      zipOut.close();
    }
    printFileInfo(zipFile);
    //uploadFileToFileServer(zipFile, zipFile.getName());
  }
}