!7

sclass ZipIncludeSnippets > DynSingleFunctionWithPrintLog {
  void doIt ctex {
    L snippets = cast call(dm_getModule(dm_snippetsDB()), 'snippetsOfType, "JavaX fragment (include)");
    print("Got " + n2(snippets, "snippet"));
    
    File zipFile = javaxBackupDir("javax-includes-" + ymdWithMinuses() + ".zip");
    print("Zipping to " + zipFile + "...");
    ZipOutputStream zipOut = zipOutputStream(zipFile);
    for (O sn : snippets) {
      long id = getLong(sn, 'snippetID);
      addFileToZip(zipOut, (File) call(sn, 'file), id + ".text");
    }
    zipOut.close();
    printFileInfo(zipFile);
    //uploadFileToFileServer(zipFile, zipFile.getName());
  }
}

Began life as a copy of #1017712