Vars.pm 562 B

12345678910111213141516171819202122232425262728
  1. package Trog::Vars;
  2. use strict;
  3. use warnings;
  4. #1MB chunks
  5. our $CHUNK_SEP = 'tCMSep666YOLO42069';
  6. our $CHUNK_SIZE = 1024000;
  7. our %content_types = (
  8. text => "text/plain",
  9. html => "text/html",
  10. json => "application/json",
  11. blob => "application/octet-stream",
  12. xml => "text/xml",
  13. xsl => "text/xsl",
  14. css => "text/css",
  15. );
  16. our %byct = reverse %Trog::Vars::content_types;
  17. our %cache_control = (
  18. revalidate => "no-cache, max-age=0",
  19. nocache => "no-store",
  20. static => "public, max-age=604800, immutable",
  21. );
  22. 1;