Vars.pm 632 B

123456789101112131415161718192021222324252627282930
  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. rss => "application/rss+xml",
  16. email => "multipart/related",
  17. );
  18. our %byct = reverse %Trog::Vars::content_types;
  19. our %cache_control = (
  20. revalidate => "no-cache, max-age=0",
  21. nocache => "no-store",
  22. static => "public, max-age=604800, immutable",
  23. );
  24. 1;