apache/mod_mem_cache.pl

   1 # mod_mem_cache.pl
   2 # Memory-caching related functions
   3
   4 sub mod_mem_cache_directives
   5 {
   6 local $rv;
   7 $rv = [ [ 'CacheSize', 0, 13.1, 'virtual', 2.0 ],
   8         [ 'CacheMaxObjectCount', 0, 13.1, 'virtual', 2.0 ],
   9         [ 'CacheMinObjectSize', 0, 13.1, 'virtual', 2.0 ],
  10         [ 'CacheMaxObjectSize', 0, 13.1, 'virtual', 2.0 ] ];
  11 return &make_directives($rv, $_[0], "mod_mem_cache");
  12 }
  13
  14 require 'cache.pl';
  15
  16 sub edit_CacheMaxObjectCount
  17 {
  18 return (1, $text{'cache_maxoc'},
  19         &opt_input($_[0]->{'value'}, "CacheMaxObjectCount", $text{'default'},8));
  20 }
  21 sub save_CacheMaxObjectCount
  22 {
  23 return &parse_opt("CacheMaxObjectCount", '^\d+$', $text{'cache_emaxoc'});
  24 }
  25
  26 sub edit_CacheMinObjectSize
  27 {
  28 return (1, $text{'cache_minos'},
  29         &opt_input($_[0]->{'value'}, "CacheMinObjectSize", $text{'default'},8));
  30 }
  31 sub save_CacheMinObjectSize
  32 {
  33 return &parse_opt("CacheMinObjectSize", '^\d+$', $text{'cache_eminos'});
  34 }
  35
  36 sub edit_CacheMaxObjectSize
  37 {
  38 return (1, $text{'cache_maxos'},
  39         &opt_input($_[0]->{'value'}, "CacheMaxObjectSize", $text{'default'},8));
  40 }
  41 sub save_CacheMaxObjectSize
  42 {
  43 return &parse_opt("CacheMaxObjectSize", '^\d+$', $text{'cache_emaxos'});
  44 }
  45
  46